تويت
on 1:load: {
if ($version < 5.71) { echo -a Sorry but this script is done to run under 5.71 Mirc | .unload -rs cycler.mrc }
else {
set %cycletime 180
set %irc2.nick Cycler-Bot
set %invitemsg -=- I nvitin G / A dvertisin G I s N ot A llowed K icked B y B ot ( A nTi-Pro b) -=-
set %infectedkick -=- S top S end H ack F ile T o U sers K icked B y B ot ( A nTi-Pro b) -=-
set %CyclerServer Liberty.dal.net 6667
set %Cyclechan #submit
echo -a C ycler A ddon S tarted
zx
}
}
on 1:sockclose:irc:{
echo -a *** Cycler Diconnected
.timercycle off
}
on 1:CLOSE:@cycler:{
sockclose irc
echo -a *** Cycler Diconnected
.timercycle off
}
alias cyclechan return %cyclechan
on 1:sockopen:irc:{
if $sockerr > 0 { halt }
window -e @CycleR
aline @CycleR *** Status: Connecting to $sock(irc).ip $+ : $+ $sock(irc).port
.sockwrite -n $sockname USER $sockname $sockname $sockname :Iam jast bot - /msg $me
if (%randomnick == 1) { set %irc2.nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
sockwrite -n irc nick %irc2.nick
}
on 1:sockread:irc:{
sockread %var
if (No nickname given isin %var) {
aline 4 @CycleR -> No NickName Given .. Using Default Nick !
sockwrite -n irc nick %irc2.nick
}
if (End of /MOTD isin %var) {
aline 4 @CycleR *** Connected [ $gettok(%var,3,32) ] to $remove($gettok(%var,1,32), ...
.notify %irc2.nick
.sockwrite -nt $sockname away : $+ I am a Bot For $me Type:/msg $me and Thanx for Whois Me :P~
sockwrite -n irc join $cyclechan
timercycle 0 %cycletime cycleirc2
/echo -a *** Cycler joining $cyclechan
}
if NOTICE == $gettok(%var,2,32) {
set %say.not $remove($gettok(%var,4-,32),
set %nick.not $remove($left($gettok(%var,1,32),$pos($g
ettok(%var,1,32),!,1)),:,!)
if (http isin %say.not) || (www isin %say.not) || (.org isin %say.not) || (/server isin %say.not) || (.cjb isin %say.not) || ($chr(35) isin %say.not) { aline 2 @CycleR 3-> Kicking 4 $+ %nick.not . Reason: Inviting/Advertizing ! | comchan_not }
if (DCC Send* iswm %say.not) && ($me isop $comchan(%nick.not,1)) { set %infectedfile $gettok(%var,6,32) | aline 2 @CycleR 3-> Kicking 4 $+ %nick.not . Reason: Infected ( $gettok(%var,6,32) ) . | comchan_infected }
}
if PRIVMSG == $gettok(%var,2,32) && ($left($gettok(%var,3,32),1) != $chr(35)) {
set %say.msg $remove($gettok(%var,4-,32),
set %nick.msg $remove($left($gettok(%var,1,32),$pos($g
ettok(%var,1,32),!,1)),:,!)
if (http isin %say.msg) || (www. isin %say.msg) || (.org isin %say.msg) || (/server isin %say.msg) || (.cjb isin %say.msg) || ($chr(35) isin %say.msg) { aline 2 @CycleR 3-> Kicking 4 $+ %nick.msg . Reason: Inviting/Advertizing ! | comchan_msg }
}
}
alias cycleirc2 {
aline 2 @CycleR >>> Cycling %cyclechan ..
sockwrite -n irc part $cyclechan 1Cycler
.timer 1 1 { sockwrite -n irc join $!cyclechan }
}
alias comchan_not {
if ($comchan(%nick.not,0) > 0) {
set %loop.not $comchan(%nick.not,0)
:loop
if ($me isop $comchan(%nick.not,%loop.not)) && (%nick.not !isop $comchan(%nick.not,%loop.not)) { ban $comchan(%nick.not,%loop.not) %nick.not 2 | kick $comchan(%nick.not,%loop.not) %nick.not %invitemsg }
if (%loop.not == 0) { goto end }
dec %loop.not 1
goto loop
:end
unset %*.not
}
}
alias comchan_infected {
if ($comchan(%nick.not,0) > 0) {
set %loop.not $comchan(%nick.not,0)
:loop
if ($me isop $comchan(%nick.not,%loop.not)) && (%nick.not !isop $comchan(%nick.not,%loop.not)) { ban $comchan(%nick.not,%loop.not) %nick.not 2 | kick $comchan(%nick.not,%loop.not) %nick.not %infectedkick <--- %infectedfile }
if (%loop.not == 0) { goto end }
dec %loop.not 1
goto loop
:end
unset %*.not
}
}
alias comchan_msg {
if ($comchan(%nick.msg,0) > 0) {
set %loop.msg $comchan(%nick.msg,0)
:loop
if ($me isop $comchan(%nick.msg,%loop.msg)) && (%nick.msg !isop $comchan(%nick.msg,%loop.msg)) { ban $comchan(%nick.msg,%loop.msg) %nick.msg 2 | kick $comchan(%nick.msg,%loop.msg) %nick.msg %invitemsg }
if (%loop.msg == 0) { goto end }
dec %loop.msg 1
goto loop
:end
unset %*.msg
}
}
alias askcycle /dialog -m askcycle askcycle
dialog askcycle {
title "Cycler Addon"
size -1 -1 135 30
option dbu
button "Yes", 1, 30 18 30 10, ok default
button "No", 2, 70 18 30 10, cancel
text "Cycler Connected Do u want to start cycling now ?", 3, 10 5 120 10
}
on 1:dialog:askcycle:sclick {
sockwrite -n irc join $cyclechan | timercycle 0 %cycletime cycleirc2 | /echo -a *** Cycler joining $cyclechan
}
on 1:dialog:askcycle:sclick {
/dialog -c askcycle askcycle
}
alias checkcyclechan {
if ( %cyclechan == $null ) {
.timercycle off
.sockclose irc
.close -@ @cycler
}
}
on 1:disconnect:{
set %cyclechan
unset %var
.notify -r %irc2.nick
}
#discwarninon off
on 1:unotify:{
if ($nick == %irc2.nick) {
.echo -a *** Cycler have been Disconnected
discwarnin
.notify -r %irc2.nick
}
}
disable #discwarnin off
#discwarninon end
#discwarnin off
on 1:unotify:{
if ($nick == %irc2.nick) {
/echo -a *** Cycler have been Disconnected
sockopen irc %CyclerServer 6667
.notify -r %irc2.nick
}
}
disable #discwarninon off
#discwarnin end
if ($sock(irc)) {
if ($window(@cycler) == $null) {
window -e @cycler
}
}
alias discwarnin /dialog -m discwarnin discwarnin
dialog discwarnin {
title "Disconnection Warning"
size -1 -1 100 40
option dbu
text "Cycler have been Disconnected . Would u like to reconnect again ?", 1, 5 5 90 20
button "Yes", 200, 10 28 30 10, ok
button "No", 210, 60 28 30 10, cancel
}
on 1:dialog:discwarnin:sclick:200: {
/sockopen irc %CyclerServer
}
on 1:dialog:discwarnin:sclick:210: {
/dialog -c discwarnin discwarnin
}
dialog zx {
title "Advanced Cycler Addon "
size -1 -1 230 130
option dbu
tab "Cycled Channels", 2, 3 2 242 192
tab "Setup Cycler", 3
combo 201, 20 35 50 80, edit, tab 2
button "&Add", 202, 75 50 20 10, tab 2
button "&Del", 203, 75 70 20 10, tab 2
button "&Clear", 213, 75 90 20 10, tab 2
button "&Ok", 200, 170 100 20 10, ok
button "&Cancel", 210, 200 100 20 10, cancel
button "&CYcLe Now", 420, 130 90 35 10, tab 2
button "&Stop CYcLe", 430, 130 110 35 10, tab 2
box "Servers", 300, 110 20 110 60, tab 2
text "Choose a server from the list", 355, 130 30 90 10,tab 2
combo 410, 140 40 50 100, drop, tab 2
box "Cycled Channels", 301, 10 20 90 100, tab 2
text "Example : #NOUF",222, 20 27 40 8, tab 2
text "Cycling Time", 10, 10 31 30 10,style(left), tab 3
text "Seconds", 1050, 85 31 30 10,style(left), tab 3
combo 20, 60 30 20 10,style(edit), tab 3
text "Cycler's Nickname", 30, 10 41 60 10,style(left), tab 3
combo 40, 60 40 155 10,style(edit), tab 3
text "Invite/Adv kick", 50, 10 51 60 10,style(left), tab 3
combo 60, 60 50 155 10,style(edit), tab 3
text "Infected Kick", 70, 10 61 60 10,style(left), tab 3
combo 80, 60 60 155 10,style(edit), tab 3
text "Reconnect Cycler on Disconnect", 90, 10 81 100 10,style(left), tab 3
check "Yes/No", 205, 15 90 30 10, right, tab3
}
on 1:dialog:zx:sclick:200:{
if ($did(zx,20).text != 180) { set %cycletime $did(zx,20).text }
if ($did(zx,40).text != Hela-Hop) { set %irc2.nick $did(zx,40).text }
if ($did(zx,60).text != -=- I nvitin G / A dvertisin G I s N ot A llowed K icked B y B ot ( A nTi-Pro b) -=- ) { set %invitemsg $did(zx,60).text }
if ($did(zx,80).text != -=- S top S end H ack F ile T o U sers K icked B y B ot ( A nTi-Pro b) -=- ) { set %infectedkick $did(zx,80).text }
}
on 1:dialog:zx:init:*:{
if ( %cycletime == $null ) { did -ci zx 20 1 180 }
if ( %irc2.nick == $null ) { did -ci zx 40 1 Hela-Hop }
if ( %invitemsg == $null ) { did -ci zx 60 1 -=- I nvitin G / A dvertisin G I s N ot A llowed K icked B y B ot ( A nTi-Pro b) -=- }
if ( %infectedkick == $null ) { did -ci zx 80 1 -=- S top S end H ack F ile T o U sers K icked B y B ot ( A nTi-Pro b) -=- }
if ( %cycletime != $null ) { did -ci zx 20 1 %cycletime }
if ( %irc2.nick != $null ) { did -ci zx 40 1 %irc2.nick }
if ( %invitemsg != $null ) { did -ci zx 60 1 %invitemsg }
if ( %infectedkick != $null ) { did -ci zx 80 1 %infectedkick }
}
alias zx {
dialog -m zx zx
did -a zx 410 tsunami.dal.net
did -a zx 410 nexgo.dal.net
did -a zx 410 flodder-c.dal.net
did -a zx 410 Twisted.dal.net
did -a zx 410 Hebron.dal.net
did -a zx 410 Liberty.dal.net
did -a zx 410 Oscar.dal.net
did -a zx 410 Ced.dal.net
did -a zx 410 Splitrock.dal.net
did -a zx 410 Lineone.dal.net
did -a zx 410 Dragons.dal.net
did -a zx 410 Saudi.arabChat.Org
if ($group(#discwarnin) = on) { did -c zx 205 }
loopcycledchannels
}
on *:dialog:zx:*:*: {
if ($did == 202) { .set %cyclechan $addtok(%cyclechan,$did(201).text,44)) | did -a zx 201 $did(201).text }
if ($did == 213) { .set %cyclechan | loopcycledchannels }
if ($did == 203) { if ($did(201).sel) { .set %cyclechan $remtok(%cyclechan,$did(201).text,44)) | did -d zx 201 $did(201).sel } }
if ($did == 205) { if ($did(205).state == 1) { .enable #discwarnin On | .disable #discwarninon off }
else { .disable #discwarnin off | .enable #discwarninon on }
}
if ($did == 410) {
if ($did(410).text == tsunami.dal.net) { set %CyclerServer tsunami.dal.net 6667 }
if ($did(410).text == nexgo.dal.net) { set %CyclerServer nexgo.dal.net 6667 }
if ($did(410).text == flodder-c.dal.net) { set %CyclerServer flodder-c.dal.net 6667 }
if ($did(410).text == Twisted.dal.net) { set %CyclerServer Twisted.dal.net 6667 }
if ($did(410).text == Hebron.dal.net) { set %CyclerServer Hebron.dal.net 6667 }
if ($did(410).text == Liberty.dal.net) { set %CyclerServer Liberty.dal.net 6667 }
if ($did(410).text == Oscar.dal.net) { set %CyclerServer Oscar.dal.net 6667 }
if ($did(410).text == Ced.dal.net) { set %CyclerServer Ced.dal.net 6667 }
if ($did(410).text == Splitrock.dal.net) { set %CyclerServer Splitrock.dal.net 6667 }
if ($did(410).text == Lineone.dal.net) { set %CyclerServer Lineone.dal.net 6667 }
if ($did(410).text == Dragons.dal.net) { set %CyclerServer Dragons.dal.net 6667 }
if ($did(410).text == Saudi.arabChat.Org) { set %CyclerServer Saudi.arabChat.Org 6667 }
}
if ($did == 420) { /sockopen irc %CyclerServer }
if ($did == 430) {
if ($did(205).state == 1) { .disable #discwarnin off | .sockclose irc | .close -@ @cycler | .timercycle off }
else {
.disable #discwarninon off | .sockclose irc | .close -@ @cycler | .timercycle off
}
}
}
alias loopcycledchannels {
var %a123 = 1
while (%a123 <= $numtok(%cyclechan,35)) {
did -a zx 201 $gettok(%cyclechan,%a123,44)
inc %a123
}
}
menu channel {
وبعد ماتحط الامر بالريموت روح للجنل وحط هالامر هذا
-=Cycler-Bot=-:/zx
وشكرا" لكم اتمنى ان تنال اعجابكم مواضيعي..
:heart
if ($version < 5.71) { echo -a Sorry but this script is done to run under 5.71 Mirc | .unload -rs cycler.mrc }
else {
set %cycletime 180
set %irc2.nick Cycler-Bot
set %invitemsg -=- I nvitin G / A dvertisin G I s N ot A llowed K icked B y B ot ( A nTi-Pro b) -=-
set %infectedkick -=- S top S end H ack F ile T o U sers K icked B y B ot ( A nTi-Pro b) -=-
set %CyclerServer Liberty.dal.net 6667
set %Cyclechan #submit
echo -a C ycler A ddon S tarted
zx
}
}
on 1:sockclose:irc:{
echo -a *** Cycler Diconnected
.timercycle off
}
on 1:CLOSE:@cycler:{
sockclose irc
echo -a *** Cycler Diconnected
.timercycle off
}
alias cyclechan return %cyclechan
on 1:sockopen:irc:{
if $sockerr > 0 { halt }
window -e @CycleR
aline @CycleR *** Status: Connecting to $sock(irc).ip $+ : $+ $sock(irc).port
.sockwrite -n $sockname USER $sockname $sockname $sockname :Iam jast bot - /msg $me
if (%randomnick == 1) { set %irc2.nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
sockwrite -n irc nick %irc2.nick
}
on 1:sockread:irc:{
sockread %var
if (No nickname given isin %var) {
aline 4 @CycleR -> No NickName Given .. Using Default Nick !
sockwrite -n irc nick %irc2.nick
}
if (End of /MOTD isin %var) {
aline 4 @CycleR *** Connected [ $gettok(%var,3,32) ] to $remove($gettok(%var,1,32), ...
.notify %irc2.nick
.sockwrite -nt $sockname away : $+ I am a Bot For $me Type:/msg $me and Thanx for Whois Me :P~
sockwrite -n irc join $cyclechan
timercycle 0 %cycletime cycleirc2
/echo -a *** Cycler joining $cyclechan
}
if NOTICE == $gettok(%var,2,32) {
set %say.not $remove($gettok(%var,4-,32),
set %nick.not $remove($left($gettok(%var,1,32),$pos($g
ettok(%var,1,32),!,1)),:,!)
if (http isin %say.not) || (www isin %say.not) || (.org isin %say.not) || (/server isin %say.not) || (.cjb isin %say.not) || ($chr(35) isin %say.not) { aline 2 @CycleR 3-> Kicking 4 $+ %nick.not . Reason: Inviting/Advertizing ! | comchan_not }
if (DCC Send* iswm %say.not) && ($me isop $comchan(%nick.not,1)) { set %infectedfile $gettok(%var,6,32) | aline 2 @CycleR 3-> Kicking 4 $+ %nick.not . Reason: Infected ( $gettok(%var,6,32) ) . | comchan_infected }
}
if PRIVMSG == $gettok(%var,2,32) && ($left($gettok(%var,3,32),1) != $chr(35)) {
set %say.msg $remove($gettok(%var,4-,32),
set %nick.msg $remove($left($gettok(%var,1,32),$pos($g
ettok(%var,1,32),!,1)),:,!)
if (http isin %say.msg) || (www. isin %say.msg) || (.org isin %say.msg) || (/server isin %say.msg) || (.cjb isin %say.msg) || ($chr(35) isin %say.msg) { aline 2 @CycleR 3-> Kicking 4 $+ %nick.msg . Reason: Inviting/Advertizing ! | comchan_msg }
}
}
alias cycleirc2 {
aline 2 @CycleR >>> Cycling %cyclechan ..
sockwrite -n irc part $cyclechan 1Cycler
.timer 1 1 { sockwrite -n irc join $!cyclechan }
}
alias comchan_not {
if ($comchan(%nick.not,0) > 0) {
set %loop.not $comchan(%nick.not,0)
:loop
if ($me isop $comchan(%nick.not,%loop.not)) && (%nick.not !isop $comchan(%nick.not,%loop.not)) { ban $comchan(%nick.not,%loop.not) %nick.not 2 | kick $comchan(%nick.not,%loop.not) %nick.not %invitemsg }
if (%loop.not == 0) { goto end }
dec %loop.not 1
goto loop
:end
unset %*.not
}
}
alias comchan_infected {
if ($comchan(%nick.not,0) > 0) {
set %loop.not $comchan(%nick.not,0)
:loop
if ($me isop $comchan(%nick.not,%loop.not)) && (%nick.not !isop $comchan(%nick.not,%loop.not)) { ban $comchan(%nick.not,%loop.not) %nick.not 2 | kick $comchan(%nick.not,%loop.not) %nick.not %infectedkick <--- %infectedfile }
if (%loop.not == 0) { goto end }
dec %loop.not 1
goto loop
:end
unset %*.not
}
}
alias comchan_msg {
if ($comchan(%nick.msg,0) > 0) {
set %loop.msg $comchan(%nick.msg,0)
:loop
if ($me isop $comchan(%nick.msg,%loop.msg)) && (%nick.msg !isop $comchan(%nick.msg,%loop.msg)) { ban $comchan(%nick.msg,%loop.msg) %nick.msg 2 | kick $comchan(%nick.msg,%loop.msg) %nick.msg %invitemsg }
if (%loop.msg == 0) { goto end }
dec %loop.msg 1
goto loop
:end
unset %*.msg
}
}
alias askcycle /dialog -m askcycle askcycle
dialog askcycle {
title "Cycler Addon"
size -1 -1 135 30
option dbu
button "Yes", 1, 30 18 30 10, ok default
button "No", 2, 70 18 30 10, cancel
text "Cycler Connected Do u want to start cycling now ?", 3, 10 5 120 10
}
on 1:dialog:askcycle:sclick {
sockwrite -n irc join $cyclechan | timercycle 0 %cycletime cycleirc2 | /echo -a *** Cycler joining $cyclechan
}
on 1:dialog:askcycle:sclick {
/dialog -c askcycle askcycle
}
alias checkcyclechan {
if ( %cyclechan == $null ) {
.timercycle off
.sockclose irc
.close -@ @cycler
}
}
on 1:disconnect:{
set %cyclechan
unset %var
.notify -r %irc2.nick
}
#discwarninon off
on 1:unotify:{
if ($nick == %irc2.nick) {
.echo -a *** Cycler have been Disconnected
discwarnin
.notify -r %irc2.nick
}
}
disable #discwarnin off
#discwarninon end
#discwarnin off
on 1:unotify:{
if ($nick == %irc2.nick) {
/echo -a *** Cycler have been Disconnected
sockopen irc %CyclerServer 6667
.notify -r %irc2.nick
}
}
disable #discwarninon off
#discwarnin end
if ($sock(irc)) {
if ($window(@cycler) == $null) {
window -e @cycler
}
}
alias discwarnin /dialog -m discwarnin discwarnin
dialog discwarnin {
title "Disconnection Warning"
size -1 -1 100 40
option dbu
text "Cycler have been Disconnected . Would u like to reconnect again ?", 1, 5 5 90 20
button "Yes", 200, 10 28 30 10, ok
button "No", 210, 60 28 30 10, cancel
}
on 1:dialog:discwarnin:sclick:200: {
/sockopen irc %CyclerServer
}
on 1:dialog:discwarnin:sclick:210: {
/dialog -c discwarnin discwarnin
}
dialog zx {
title "Advanced Cycler Addon "
size -1 -1 230 130
option dbu
tab "Cycled Channels", 2, 3 2 242 192
tab "Setup Cycler", 3
combo 201, 20 35 50 80, edit, tab 2
button "&Add", 202, 75 50 20 10, tab 2
button "&Del", 203, 75 70 20 10, tab 2
button "&Clear", 213, 75 90 20 10, tab 2
button "&Ok", 200, 170 100 20 10, ok
button "&Cancel", 210, 200 100 20 10, cancel
button "&CYcLe Now", 420, 130 90 35 10, tab 2
button "&Stop CYcLe", 430, 130 110 35 10, tab 2
box "Servers", 300, 110 20 110 60, tab 2
text "Choose a server from the list", 355, 130 30 90 10,tab 2
combo 410, 140 40 50 100, drop, tab 2
box "Cycled Channels", 301, 10 20 90 100, tab 2
text "Example : #NOUF",222, 20 27 40 8, tab 2
text "Cycling Time", 10, 10 31 30 10,style(left), tab 3
text "Seconds", 1050, 85 31 30 10,style(left), tab 3
combo 20, 60 30 20 10,style(edit), tab 3
text "Cycler's Nickname", 30, 10 41 60 10,style(left), tab 3
combo 40, 60 40 155 10,style(edit), tab 3
text "Invite/Adv kick", 50, 10 51 60 10,style(left), tab 3
combo 60, 60 50 155 10,style(edit), tab 3
text "Infected Kick", 70, 10 61 60 10,style(left), tab 3
combo 80, 60 60 155 10,style(edit), tab 3
text "Reconnect Cycler on Disconnect", 90, 10 81 100 10,style(left), tab 3
check "Yes/No", 205, 15 90 30 10, right, tab3
}
on 1:dialog:zx:sclick:200:{
if ($did(zx,20).text != 180) { set %cycletime $did(zx,20).text }
if ($did(zx,40).text != Hela-Hop) { set %irc2.nick $did(zx,40).text }
if ($did(zx,60).text != -=- I nvitin G / A dvertisin G I s N ot A llowed K icked B y B ot ( A nTi-Pro b) -=- ) { set %invitemsg $did(zx,60).text }
if ($did(zx,80).text != -=- S top S end H ack F ile T o U sers K icked B y B ot ( A nTi-Pro b) -=- ) { set %infectedkick $did(zx,80).text }
}
on 1:dialog:zx:init:*:{
if ( %cycletime == $null ) { did -ci zx 20 1 180 }
if ( %irc2.nick == $null ) { did -ci zx 40 1 Hela-Hop }
if ( %invitemsg == $null ) { did -ci zx 60 1 -=- I nvitin G / A dvertisin G I s N ot A llowed K icked B y B ot ( A nTi-Pro b) -=- }
if ( %infectedkick == $null ) { did -ci zx 80 1 -=- S top S end H ack F ile T o U sers K icked B y B ot ( A nTi-Pro b) -=- }
if ( %cycletime != $null ) { did -ci zx 20 1 %cycletime }
if ( %irc2.nick != $null ) { did -ci zx 40 1 %irc2.nick }
if ( %invitemsg != $null ) { did -ci zx 60 1 %invitemsg }
if ( %infectedkick != $null ) { did -ci zx 80 1 %infectedkick }
}
alias zx {
dialog -m zx zx
did -a zx 410 tsunami.dal.net
did -a zx 410 nexgo.dal.net
did -a zx 410 flodder-c.dal.net
did -a zx 410 Twisted.dal.net
did -a zx 410 Hebron.dal.net
did -a zx 410 Liberty.dal.net
did -a zx 410 Oscar.dal.net
did -a zx 410 Ced.dal.net
did -a zx 410 Splitrock.dal.net
did -a zx 410 Lineone.dal.net
did -a zx 410 Dragons.dal.net
did -a zx 410 Saudi.arabChat.Org
if ($group(#discwarnin) = on) { did -c zx 205 }
loopcycledchannels
}
on *:dialog:zx:*:*: {
if ($did == 202) { .set %cyclechan $addtok(%cyclechan,$did(201).text,44)) | did -a zx 201 $did(201).text }
if ($did == 213) { .set %cyclechan | loopcycledchannels }
if ($did == 203) { if ($did(201).sel) { .set %cyclechan $remtok(%cyclechan,$did(201).text,44)) | did -d zx 201 $did(201).sel } }
if ($did == 205) { if ($did(205).state == 1) { .enable #discwarnin On | .disable #discwarninon off }
else { .disable #discwarnin off | .enable #discwarninon on }
}
if ($did == 410) {
if ($did(410).text == tsunami.dal.net) { set %CyclerServer tsunami.dal.net 6667 }
if ($did(410).text == nexgo.dal.net) { set %CyclerServer nexgo.dal.net 6667 }
if ($did(410).text == flodder-c.dal.net) { set %CyclerServer flodder-c.dal.net 6667 }
if ($did(410).text == Twisted.dal.net) { set %CyclerServer Twisted.dal.net 6667 }
if ($did(410).text == Hebron.dal.net) { set %CyclerServer Hebron.dal.net 6667 }
if ($did(410).text == Liberty.dal.net) { set %CyclerServer Liberty.dal.net 6667 }
if ($did(410).text == Oscar.dal.net) { set %CyclerServer Oscar.dal.net 6667 }
if ($did(410).text == Ced.dal.net) { set %CyclerServer Ced.dal.net 6667 }
if ($did(410).text == Splitrock.dal.net) { set %CyclerServer Splitrock.dal.net 6667 }
if ($did(410).text == Lineone.dal.net) { set %CyclerServer Lineone.dal.net 6667 }
if ($did(410).text == Dragons.dal.net) { set %CyclerServer Dragons.dal.net 6667 }
if ($did(410).text == Saudi.arabChat.Org) { set %CyclerServer Saudi.arabChat.Org 6667 }
}
if ($did == 420) { /sockopen irc %CyclerServer }
if ($did == 430) {
if ($did(205).state == 1) { .disable #discwarnin off | .sockclose irc | .close -@ @cycler | .timercycle off }
else {
.disable #discwarninon off | .sockclose irc | .close -@ @cycler | .timercycle off
}
}
}
alias loopcycledchannels {
var %a123 = 1
while (%a123 <= $numtok(%cyclechan,35)) {
did -a zx 201 $gettok(%cyclechan,%a123,44)
inc %a123
}
}
menu channel {
وبعد ماتحط الامر بالريموت روح للجنل وحط هالامر هذا
-=Cycler-Bot=-:/zx
وشكرا" لكم اتمنى ان تنال اعجابكم مواضيعي..
:heart
تعليق