Omegle server relay and dialog

;JIC
;Made by nick1
on *:join:#omegle: if ($network != strictfp) { notice $nick Welcome to #omegle -- To start a connection use 4?c  }
off *:text:*:#omegle: {
  if ($network == strictfp) {
    if ($nick == omegle) {
      scon 1 msg #omegle $bracketcolor(Omegle) $+(,$1-)
      scon 3 msg #omegle $bracketcolor(Omegle) $+(,$1-)
    }
    else {
      if ($left($1-,1) == ?) {
        scon 1 msg #omegle $1-
        scon 3 msg #omegle $1-
      }
      else {
        scon 3 msg #omegle $iif($left($1-,1) == ?,$1-,< $+ $iif($left($nick($chan,$nick).pnick,1) isin $prefix,$v1) $+ $nick $+ > $1-)
        scon 1 msg #omegle $iif($left($1-,1) == ?,$1-,< $+ $iif($left($nick($chan,$nick).pnick,1) isin $prefix,$v1) $+ $nick $+ > $1-)
      }
    }
  }
  else {
    if ($($+(%,botflood.,$nick),2)) {
      if ($($+(%,botflood.,$nick),2) >= 50) {
        ignore -u60 $address($nick,2)
        msg $chan $+($nick,$chr(44)) You have been put on ignore for 60secs for abusing the bot.
        halt
      }
      elseif ($($+(%,botflood.,$nick),2) >= 40) {
        msg $chan $+($nick,$chr(44)) Please do not flood the bot.
        inc -z $+(%,botflood.,$nick) 20
        halt
      }
      else {
        inc -z $+(%,botflood.,$nick) 10
      }
    }
    else { inc -z $+(%,botflood.,$nick) 10 }
    if ($left($1-,1) != $chr(46)) {
      scon 2 msg #omegle $iif($left($1-,1) == ?,$1-,< $+ $iif($left($nick($chan,$nick).pnick,1) isin $prefix,$v1) $+ $nick $+ > $1-)
    }
  }
}
;http://qchat.rizon.net/?&nick=Omegle..&channels=Omegle&uio=d4
off *:input:#omegle: {
  if ($network == strictfp) {
    if ($left($1,1) == ,) {
      haltdef
      msg #omegle ?say $right($1-,-1)
      scon 1 msg #omegle ?say $right($1-,-1)
      scon 3 msg #omegle ?say $right($1-,-1)
    }
    elseif ($left($1,1) == ?) {
      scon 1 msg #omegle $1-
      scon 3 msg #omegle $1-
    }
    elseif (($left($1,1) != ,) && ($left($1,1) != ?) && ($left($1-,1) != /))  {
      scon 1 msg #omegle $1-
      scon 3 msg #omegle $1-
    }
  }
  else {
    if ($left($1,1) == ,) {
      haltdef
      msg #omegle ?say $right($1-,-1)
      scon 2 msg #omegle ?say $right($1-,-1)
    }
    elseif ($left($1,1) == ?) {
      scon 2 msg #omegle $1-
    }
    elseif (($left($1,1) != ,) && ($left($1,1) != ?) && ($left($1-,1) != /))  {
      scon 2 msg #omegle $1-
      scon $iif($cid == 1,3,1) msg #omegle $1-
    }
  }
}
;BEGIN DIALOG ONLY COMMANDS
alias omegle {
  dialog -md omegle omegle
}

dialog omegle {
  title "Omegle: Talk to strangers!"
  size -1 -1 397 282
  option dbu
  icon C:\Users\Adam\AppData\Roaming\mIRC\OmegleLogo.ico, 0
  edit "", 1, 49 235 299 34
  button "Disconnect", 2, 2 236 43 34
  button "Send (Enter)", 3, 352 235 43 34
  link "Visit Omegle.com", 4, 132 1 44 9
  text "------------", 5, 179 2 25 8
  link "View Script on Hawkee", 6, 207 1 56 8
  icon 8, 4 11 183 30,  C:\Users\Adam\AppData\Roaming\mIRC\Omegle.png, 0, noborder
  box "Options", 11, 311 5 81 35
  text "Omegle is a great way of meeting new friends. When you use Omegle, we pick another user at random and let you have an anonymous one-on-one chat with each other.", 12, 192 11 116 27, center
  check "Auto Reconnect", 9, 315 11 50 10
  button "Close (ends your conversation)", 10, 116 270 158 12
  check "Keep Log Files", 13, 315 21 50 10
  edit "", 7, 2 44 393 189, read multi return autovs
  button "Reconnect", 14, 2 235 43 35, hide flat
}

on *:dialog:omegle:init:0: {
  did -t omegle 3
  ofind
  if (%omegle.auto == true) {
    did -c omegle 9
    did -v omegle 14
    did -h omegle 2
  }
}
on *:dialog:omegle:sclick:*: {
  if ($did == 3) {
    osend $did(1)
    if ($didwm(omegle,7,*-*-The stranger is typing..*,$calc($did(omegle,7).lines - 1))) {
      did -i omegle 7 $calc($did(omegle,7).lines - 1) You: $did(1)
    }
    else {
      did -a omegle 7 You: $did(1) $+ $crlf
    }
    did -r omegle 1
  }
  elseif ($did == 2) {
    if ($didwm(omegle,7,*-*-The stranger is typing..*,$calc($did(omegle,7).lines - 1))) {
      did -d omegle 7 $calc($did(omegle,7).lines - 1)
    }
    odisc
    did -v omegle 14
    did -h omegle 2
  }
  elseif ($did == 14) {
    if ($didwm(omegle,7,*-*-The stranger is typing..*,$calc($did(omegle,7).lines - 1))) {
      did -d omegle 7 $calc($did(omegle,7).lines - 1)
    }
    odisc
    if (%omegle.auto == false) {
      did -h omegle 14
      did -v omegle 2
      ofind
    }
  }
  elseif ($did == 4) {
    run http://omegle.com
  }
  elseif ($did == 6) {
    run http://hawkee.com
  }
  elseif ($did == 9) {
    set %omegle.auto $iif($did(9).state,true,false)
    if (%omegle.auto == true) {
      did -v omegle 14
      did -h omegle 2
    }
    else {
      did -h omegle 14
      did -v omegle 2
    }
  }
  elseif ($did == 10) {
    sockclose omegle.*
    dialog -x omegle
  }
}