jumpsplit bot

alias bot.info {
  if ($1 == email) return your.email
  elseif ($1 == password) return your.password
  elseif ($1 == nickname) return %bot.testnick
  return
}
alias mdx { return dlls\mdx.dll }
alias x.space return ​
dialog jump1 {
  title Jumper 1 Current Nick %bot.testnick
  size -1 -1 273 123
  option dbu
  box "Nicks", 1, 1 0 85 110
  list 5, 5 7 77 101, size vsbar
  list 2, 88 8 75 100, size
  box "Command", 3, 85 0 80 110
  check "Include Time/Date On Tag", 7, 97 111 77 10
  check "Include Own Name In Tag", 8, 7 111 77 10
  check "Include Users Name Im Tag", 9, 190 111 77 10
  button "Do Command", 10, 166 96 42 12, flat ok
  edit "Selecteed Nick", 11, 165 3 108 10, disable center
  edit "User Ial", 12, 165 13 108 10, disable center
  edit " Channel", 13, 165 24 108 10, disable center
  button "Close/Cancel", 14, 225 96 42 12, flat ok cancel
  edit "Command Selected", 6, 165 35 108 10, disable center
  box %bot.testnick, 4, 170 48 98 20
  text %bot.testnick, 15, 173 56 58 8, center
  button "Change", 16, 239 53 25 12, flat
}

on *:dialog:jump1:init:*: {
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname
  dll $mdx SetDialog $dname bgcolor $rgb(0,0,0)
  dll $mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,176,188 textbg $rgb(0,0,0)
  dll $mdx SetColor $dname 2,4,5,6,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,118,176,188 background $rgb(0,0,0)
  dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,118,176,188 text $rgb(198,227,249)
  dll $mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,118,176,188 400 tahoma
  dll $mdx SetDialog $dname  bgcolor $rgb(0,0,0)
  dll $mdx SetBorderStyle $dname staticedge
  .unset %selcoms
  .unset %selcomnick
  .unset %selcomial
  .set %comchannel $active
  .did -ra $dname 13 $active
  var %a, %b, %c, %d, %e, %l
  %a = $nick(%comchannel,0)
  while (%a > 0) && ($nick(%comchannel,%a)) {
    %b = $v1
    .did -a $dname 5 %b
    dec %a
  }
  %b = Add Access Owner.Add Access Host.Remove Access Owner.Remove Access Host.Kick User.Ban User.Owner User.Host User.Deowner User.Dehost User.Whisper User
  %a = 1
  while (%a <= $numtok(%b,46)) && ($gettok(%b,%a,46)) {
    .did -a $dname 2 $v1
    inc %a
  }
  .did -c $dname 7
  .did -c $dname 8
  .did -c $dname 9
}
alias user.ial {
  var %ial, %1
  %ial = $ial($1).user
  %ial = $gettok(%ial,$numtok(%ial,46),46)
  return %ial
}
on *:dialog:jump1:sclick:16:{
  .set %bot.testnick $$?="New Nick" | did -ao jump1 15 %bot.testnick
}
on *:dialog:jump1:sclick:2:{
  var %a, %b, %c, %d, %tag, %reason, %l
  %a = Add Access Owner.Add Access Host.Remove Access Owner.Remove Access Host.Kick User.Ban User.Owner User.Host User.Deowner User.Dehost User.Whisper User
  .set %selcoms $did($dname,2).seltext
  .did -ra $dname 6 %selcoms
  if ($did($dname,9).state == 1) %tag = <nick>,
  if ($did($dname,8).state == 1) %tag = %tag Set By $me $+ ,
  if ($did($dname,7).state == 1) %tag = %tag Set At $date(dddd ddoo mmmm yyyy) @ $time(H:nn:ss)
  if (!%tag) %tag = None Given
  %tag = %tag <reason>
  if (%selcoms == $gettok(%a,1,46)) .set %selout ACCESS %comchannel ADD OWNER <ial> 0 $+(:, %tag)
  if (%selcoms == $gettok(%a,2,46)) .set %selout ACCESS %comchannel ADD HOST <ial> 0 $+(:, %tag)
  if (%selcoms == $gettok(%a,3,46)) .set %selout ACCESS %comchannel DELETE OWNER <ial>
  if (%selcoms == $gettok(%a,4,46)) .set %selout ACCESS %comchannel DELETE HOST <ial>
  if (%selcoms == $gettok(%a,5,46)) .set %selout KICK %comchannel <nick> $+(:,~,<reason>,:,~)
  if (%selcoms == $gettok(%a,6,46)) .set %selout ACCESS %comchannel ADD DENY <ial> 0 $+(:,%tag) $+ $crlf $+ KICK %comchannel <nick> $+(:,~,<reason>,:,~)
  if (%selcoms == $gettok(%a,7,46)) .set %selout MODE %comchannel +q <nick>
  if (%selcoms == $gettok(%a,8,46)) .set %selout MODE %comchannel +o <nick>
  if (%selcoms == $gettok(%a,9,46)) .set %selout MODE %comchannel -q <nick>
  if (%selcoms == $gettok(%a,10,46)) .set %selout MODE %comchannel -o <nick>
  if (%selcoms == $gettok(%a,11,46)) .set %selout WHISPER %comchannel <nick> $+(:, [style) co:#0066FF;b;]<reason>[/style]
}
on *:dialog:jump1:sclick:10:{
  if (!%selcoms) halt
  if (!%selcomnick) halt
  if (!%selcomial) halt
  if (!%selout) halt
  .noop $docomma(%comchannel,%selout)
  .dialog -c $dname $dname
}
alias docomma {
  var %a, %b, %c, %l
  %a = $1-
  tokenize 32 %a
  %c = KICK $1
  if (%c isin $2-) %b = $$?="Enter Kick/Ban Reason"
  %c = WHISPER %comchannel
  if (%c isin $2-) %b = $$?="Enter Message To Whisper"
  .set %key.owner $md5($r(1111111111111,9999999999999999999999999999999999999999999))
  .raw PROP $1 OWNERKEY $+(:, %key.owner)
  .set %docommerz $replace($2-,$+(<,nick,>),%selcomnick,$+(<,ial,>),%selcomial,$+(<,reason,>),%b)
  .noop $docomzbot(%comchannel,$bot.info(nickname))
}

on *:dialog:jump1:sclick:5:{
  .set %selcomnick $did($dname,5).seltext
  .set %selcomial $user.ial(%selcomnick)
  .did -ra $dname 11 %selcomnick
  .did -ra $dname 12 %selcomial
}
menu channel {
  -
  Bot Command:.dialog -m jump1 jump1
  -
}
on *:sockopen:CommandClone: {
  var %passport, %sock, %email, %pass, %a, %b, %c, %d, %l
  %email = $bot.info(email)
  %pass = $bot.info(password)
  %passport = %email $md5(%pass)
  tokenize 32 %passport
  .sockwrite -n $sockname AUTHTYPE ircwx1
  .sockwrite -n $sockname USER :anon
  .sockwrite -n $sockname LOGINH $1 $2
}
on *:sockread:CommandClone: {
  var %read, %sw, %a, %b, %c, %d, %e, %me, %chan, %nick, %l
  sockread %read
  tokenize 32 %read
  %me = $sock($sockname).mark
  %chan = $mr($gettok(%me,2,1))
  %me = $gettok(%me,1,1)
  %nick = $right($gettok($1,1,33), -1)
  %ial = $gettok($1,2,33)
  %ial = $gettok(%ial,$numtok(%ial,46),46)
  %ial = $gettok(%ial,1,64)
  %sw = .sockwrite -n $sockname
  if ($1 == PING) %sw PONG $2-
  elseif ($2 == 422)  %sw NICK %me
  elseif ($2 == 433) {
    .sockmark $sockname $+(%me,$x.space,$chr(1),%chan)
    %sw NICK $gettok($sock($sockname).mark,1,1)
  }
  elseif ($2 == JOIN) && (%nick == %me) {
    %sw OWNERKEY %chan %key.owner $+ $lf
    if ($gettok(%docommerz,1,32) == WHISPER) {
      %sw %docommerz
      .timerdie $+ $sockname -cmo 1 5000 .sockclose $sockname
    }
  }
  elseif ($2 == MODE) {
    if ($5 == %me) && (%nick == %me) && ($gettok(%docommerz,1,32) != WHISPER) {
      %sw %docommerz
      %sw ACCESS %chan ADD OWNER %ial 0 $+(:, Command Bot) %me
      .timerdie $+ $sockname -cmo 1 2500 .sockclose $sockname
      .unset %docommerz
    }
  }
  elseif ($2 == NICK) && ($gettok($1-,2-,58) == %me)  %sw CREATE %chan
}

alias docomzbot {
  var %sock, %nick, %server, %chan, %l
  .set $mr($1) $mr($1)
  %chan = $mr($1)
  %sock = $+(CommandClone)
  %nick = $2
  if ($sock(%sock)) .sockclose %sock
  .sockopen %sock irc.buzzen.net 6667
  .sockmark %sock $+(%nick,$chr(1),%chan)
  return
}