;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; this was made and founder ;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
dialog ACP {
title "[Administration Control Panel] 3.5"
size -1 -1 245 245
option dbu
Tab "Admin Control", 1, 0 0 300 300,
box "Users", 2, 1 15 111 135
list 3, 20 23 75 125, extsel multsel size vsbar
button "Adchat" 5, 115 25 32 10, tab 1
box "Network Admin Commands", 4, 110 15 120 100, tab 1
button "AddMotd" 6, 115 35 32 10, tab 1
button "AddOMotd" 7, 115 45 32 10, tab 1
button "Chatops" 8, 115 55 32 10, tab 1
button "Chghost" 9, 115 68 32 10, tab 1
button "Chgident" 10, 115 78 32 10, tab 1
button "Chgname" 11, 115 88 32 10, tab 1
button "Gline" 12, 146 98 32 10, tab 1
button "Kline" 13, 146 68 32 10, tab 1
button "Kill" 14, 146 78 32 10, tab 1
button "Rehash" 15, 146 25 32 10, tab 1
button "Restart" 16, 146 35 32 10, tab 1
button "Die" 17, 146 45 32 10, tab 1
button "Sajoin" 18, 177 98 32 10, tab 1
button "Sapart" 19, 177 88 32 10, tab 1
button "Zline" 20, 146 88 32 10, tab 1
button "Shun" 21, 115 98 32 10, tab 1
button "Sethost" 22, 146 55 32 10, tab 1
button "Setident" 23, 177 35 32 10, tab 1
button "Connect" 24, 177 25 32 10, tab 1
;text "Non-Selectble User" 25, 179 45 65 13, tab 1
text "Ban Selectble User" 26, 179 78 65 10, tab 1
box "Server Lockdown", 27, 2 218 235 25, tab 1
button "1< Defcon" 28, 3 228 32 10, tab 1
button "2< Defcon" 29, 50 228 32 10, tab 1
button "3< Defcon" 30, 100 228 32 10, tab 1
button "4< Defcon" 31, 150 228 32 10, tab 1
button "5< Normal" 32, 200 228 32 10, tab 1
Tab "test", 33, 0 0 300 300,
box "Kicks And Auto op's", 34, 111 15 125 25, tab 33
box "DnsBL 1", 35, 110 120 160 20, tab 1
button "set" 36, 210 125 32 10, tab 1
box "DnsBL 2", 37, 110 140 160 20, tab 1
button "set" 38, 210 145 32 10, tab 1
edit "" 41, 115 128 92 10,tab 1
edit "" 42, 115 148 92 10,tab 1
text "/dns is really dangerous when the dnsbl is enable, make sure you don't use /dns on the users or they will get banned" 43, 115 178 100 50,tab 1
button "Turn on" 44, 115 165 32 10, tab 1
button "Turn off" 45, 148 165 32 10, tab 1
text "" 46, 185 165 60 10,tab 1
button "set" 47, 184 108 20 10, tab 33
edit "" 48, 128 100 10 10,tab 33
text "Lines" 49, 116 100 12 10,tab 33
edit "" 50, 158 100 10 10,tab 33
text "Secs" 51, 145 100 13 10,tab 33
box "Anti Flood", 52, 111 90 100 50, tab 33
edit "#" 53, 140 110 40 10, tab 33
button "Turn off" 54, 116 120 32 10, tab 33
button "Turn on" 55, 149 120 32 10, tab 33
text "" 56, 182 120 50 10,tab 33
text "Channel" 57, 116 112 20 8,tab 33
;text "on text:" 58, 106 190 20 10,tab 33
;button "Turn off" 59, 180 200 32 10, tab 33
;button "Turn on" 60, 180 210 32 10, tab 33
;text "on join:" 61, 180 190 20 10,tab 33
;text "" 62, 200 190 20 10,tab 33
button "~" 63, 95 23 16 16, tab 33
button "" 64, 95 43 16 16, tab 33
button "@" 65, 95 63 16 16, tab 33
button "%" 66, 95 83 16 16, tab 33
button "+" 67, 95 103 16 16, tab 33
button "- ~" 68, 2 23 16 16, tab 33
button "" 69, 2 43 16 16, tab 33
button "- @" 70, 2 63 16 16, tab 33
button "- %" 71, 2 83 16 16, tab 33
button "- +" 72, 2 103 16 16, tab 33
button "Kick/Ban" 73, 113 23 28 10, tab 33
button "Mute" 74, 141 23 20 10, tab 33
;button "Unmute" 75, 161 23 22 10, tab 33
button "Ban" 76, 183 23 20 10, tab 33
box "Mode", 77, 111 38 100 44, tab 33
check "Invite Only" 78, 115 45 35 10, tab 33
check "Limit" 79, 115 55 35 10, tab 33
check "No external" 80, 115 65 35 10, tab 33
check "Mods set Topic" 81, 155 45 43 10, tab 33
check "No knocks" 82, 155 55 43 10, tab 33
check "Mute Channel" 83, 155 65 43 10, tab 33
list 84, 28 150 200 75, extsel multsel size vsbar, tab 33
text "Ban List" 85, 3 150 24 13, tab 33
button "Remove" 86, 2 158 24 15, tab 33
button "Ban Channel" 87, 30 225 40 15, tab 33
button "Ban Ident" 88, 70 225 40 15, tab 33
check "Disable Oper Warning" 89, 3 200 60 15, tab 1
text "" 90, 3 150 80 13, tab 1
}
alias ACP {
set %chan $active
dialog -m ACP ACP
set %iii i
If (o isincs $usermode) {
did -a ACP 90 You have access to this network $server
}
elseif ($group(#notoper) == on) dialog -m isnotoper isnotoper
}
#notoper on
dialog isnotoper {
title "Warning!"
size -1 -1 125 40
option dbu
text "YOU ARE NOT AN OPER OF THIS NETWORK, Feel free to use the other tabs or Login in order to use this tab" 1, 3 3 120 100,
button "OK" 2, 50 25 20 15, ok
}
on 1:dialog:isnotoper:sclick:1: {
.did -k isnotoper
}
#notoper end
on 1:dialog:acp:sclick:78: {
If (i isincs $chan(%chan).mode) {
mode %chan -i
}
else mode %chan +i
}
on 1:dialog:acp:sclick:79: {
If (l isincs $chan(%chan).mode) {
mode %chan -l
}
else mode %chan +l $$?"add a limit for %chan "
}
on 1:dialog:acp:sclick:80: {
If (n isincs $chan(%chan).mode) {
mode %chan -n
}
else mode %chan +n
}
on 1:dialog:acp:sclick:81: {
If (t isincs $chan(%chan).mode) {
mode %chan -tK | did -u ACP 82
}
else mode %chan +t
}
on 1:dialog:acp:sclick:82: {
If (K isincs $chan(%chan).mode) {
mode %chan -K
}
elseif (i isincs $chan(%chan).mode) {
mode %chan +K
}
else dialog -m inotset inotset | did -u acp 82
}
on 1:dialog:acp:sclick:83: {
If (m isincs $chan(%chan).mode) {
mode %chan -m
}
else mode %chan +m
}
on 1:dialog:acp:sclick:89: {
If ($group(#notoper) == on) {
disable #notoper
}
else enable #notoper
}
on 1:dialog:acp:sclick:88: {
set %idenname $$?"ban ident username"
mode %chan +b %idenname $+ @*
did -a ACP 84 %idenname $+ @*
}
on 1:dialog:acp:sclick:74: {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan +b ~q: $+ $address( $did(3,$did(3,%set.mode).sel).text , 2 )
dec %set.mode
did -a acp 84 ~q: $+ $address( $did(3,$did(3,%set.mode).sel).text , 2 )
}
}
on 1:dialog:acp:sclick:75: {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan -b ~q: $+ $address( $did(3,$did(3,%set.mode).sel).text , 2 )
dec %set.mode
}
}
on 1:dialog:acp:sclick:73: {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan +b $address( $did(3,$did(3,%set.mode).sel).text , 2 )
kick %chan $did(3,$did(3,%set.mode).sel).text $$?"Reason"
dec %set.mode
did -a acp 84 $address( $did(3,$did(3,%set.mode).sel).text , 2 )
}
}
on 1:dialog:acp:sclick:86: {
var %set.mode $did(84,0).sel
var %set.modeList $did(84,1).sel
while (%set.mode) {
mode %chan -b $did(84,$did(84,%set.mode).sel).text
.timer 1 0 did -d $dname 84 $did(84,%set.modeList).sel
dec %set.mode
}
}
on 1:dialog:acp:sclick:87: {
set %set.chan $$?"Ban Channel "
mode %chan +b ~c:# $+ %set.chan
did -a acp 84 ~c:# $+ %set.chan
}
dialog inotset {
title "Warning!"
size -1 -1 125 30
option dbu
text "You Can't set 'No Knocks' The 'Invite Only' Must be Checked" 1, 3 3 100 100,
}
on 1:dialog:ACP:sclick:*: {
if ( $did == 5 ) {
adchat $$?"Message"
}
if ( $did == 6 ) {
inc %rows
/addmotd $$?"(LINE 1)"
/addmotd $$?"(LINE 2)"
/addmotd $$?"(LINE 3)"
/addmotd $$?"(LINE 4)"
/addmotd $$?"(LINE 5)"
}
if ( $did == 7 ) {
/addmootd $$?"(LINE 1)"
/addomotd $$?"(LINE 2)"
/addomotd $$?"(LINE 3)"
/addomotd $$?"(LINE 4)"
/addomotd $$?"(LINE 5)"
}
if ( $did == 8 ) {
chatops $$?"message"
}
if ( $did == 9 ) {
chghost $did(3).seltext $$?"change $did(3).seltext $+ 's host"
}
if ( $did == 10 ) {
Chgident $did(3).seltext $$?"change $did(3).seltext $+ 's ident"
}
if ( $did == 11 ) {
Chgname $did(3).seltext $$?"change $did(3).seltext $+ 's Real name"
}
if ( $did == 16 ) {
restart $$?"Password"
}
if ( $did == 15 ) {
Rehash
}
if ( $did == 17 ) {
die $$?"Password"
}
if ( $did == 18 ) {
sajoin $did(3).seltext $$?"Channel: #chat1,#chat2,#chat3"
}
if ( $did == 19 ) {
sapart $did(3).seltext $$?"Channel"
}
if ( $did == 21 ) {
shun $did(3).seltext - $$?"Reason"
}
if ( $did == 22 ) {
sethost $$?"Set Your Hostname:"
}
if ( $did == 23 ) {
setident $$?"Set Your Ident:"
}
if ( $did == 24 ) {
Connect $$?"Connect\link With Server"
}
if ( $did == 28 ) {
msg operserv defcon 1
}
if ( $did == 29 ) {
msg operserv defcon 2
}
if ( $did == 30 ) {
msg operserv defcon 3
}
if ( $did == 31 ) {
msg operserv defcon 4
}
if ( $did == 32 ) {
msg operserv defcon 5
}
if ($did == 12) {
set %reason $$?"reason"
var %kill.lines $did(3,0).sel
while (%kill.lines) {
gline $did(3,$did(3,%kill.lines).sel).text %reason
dec %kill.lines
}
}
if ($did == 13) {
set %reason $$?"reason"
var %kill.lines $did(3,0).sel
while (%kill.lines) {
kline $did(3,$did(3,%kill.lines).sel).text %reason
dec %kill.lines
}
}
if ($did == 14) {
set %reason $$?"reason"
var %kill.lines $did(3,0).sel
while (%kill.lines) {
kill $did(3,$did(3,%kill.lines).sel).text %reason
dec %kill.lines
}
}
if ($did == 20) {
set %reason $$?"reason"
var %kill.lines $did(3,0).sel
while (%kill.lines) {
echo zline $did(3,$did(3,%kill.lines).sel).text %reason
dec %kill.lines
}
}
if ( $did == 36 ) {
set %dnsbl1 $did(41).text
}
if ( $did == 38 ) {
set %dnsbl2 $did(42).text
}
if ( $did == 44 ) {
.enable #dnsbl
did -a ACP 46 $iif($group(#dnsbl).status iswm on, Stats: Enabled, Stats: Disabled)
}
if ( $did == 45 ) {
.disable #dnsbl
did -a ACP 46 $iif($group(#dnsbl).status iswm on, Stats: Enabled, Stats: Disabled)
}
if ( $did == 47 ) {
set %fline $did(48).text
set %sline $did(50).text
set %jline $did(53).text
}
if ( $did == 54 ) {
.disable #flood
did -a ACP 56 $iif($group(#flood).status iswm on, Enabled, Disabled)
}
if ( $did == 55 ) {
.enable #flood
did -a ACP 56 $iif($group(#flood).status iswm on, Enabled, Disabled)
}
if ( $did == 59 ) {
.disable #joinflood
did -a ACP 62 $iif($group(#joinflood).status iswm on, Enabled, Disabled)
}
if ( $did == 60 ) {
.enable #joinflood
did -a ACP 62 $iif($group(#joinflood).status iswm on, Enabled, Disabled)
}
if ($did == 63) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan +q $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 64) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan +a $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 65) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan +o $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 66) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan +h $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 67) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan +v $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 68) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan -q $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 69) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan -a $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 70) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan -o $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 71) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan -h $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
if ($did == 72) {
var %set.mode $did(3,0).sel
while (%set.mode) {
mode %chan -v $did(3,$did(3,%set.mode).sel).text
dec %set.mode
}
}
}
on *:DIALOG:ACP:*:*: {
if ($devent == init) {
var %a = 1
while ($nick(%chan,%a)) {
did -a ACP 3 $nick(%chan,%a)
inc %a
}
else { inc %a }
}
if ($devent == init) {
did -a ACP 41 %dnsbl1
did -a ACP 42 %dnsbl2
did -a ACP 46 $iif($group(#dnsbl).status iswm on, Stats: Enabled, Stats: Disabled)
did -a ACP 33 %chan
did -a ACP 48 %fline
did -a ACP 50 %sline
did -a ACP 56 $iif($group(#flood).status iswm on, Enabled, Disabled)
;did -a ACP 62 $iif($group(#joinflood).status iswm on, Enabled, Disabled)
did -ra ACP 53 %jline
did -a ACP 64 $chr(182)
did -a ACP 69 - $chr(182)
did -v ACP 4
}
If (i isincs $chan(%chan).mode) {
did -c acp 78
}
If (l isincs $chan(%chan).mode) {
did -c acp 79
}
If (n isincs $chan(%chan).mode) {
did -c acp 80
}
If (t isincs $chan(%chan).mode) {
did -c acp 81
}
If (K isincs $chan(%chan).mode) {
did -c acp 82
}
If ($group(#notoper) == off) {
did -c acp 89
}
if ($devent == init) {
var %banlist = 0
:banlist
if (%banlist == $ibl(%chan,0)) {
halt
}
else {
inc %banlist
did -a ACP 84 $ibl(%chan,%banlist)
goto banlist
}
}
}
; DO NOT EDIT BELOW IF YOU KNOW WHAT YOU ARE DOING
#dnsbl off
on 1:snotice:*Client connecting*:{
whois $9
}
raw 378:*:{
var %dnsC1 $+($gettok($7,4,46),.,$gettok($7,3,46),.,$gettok($7,2,46),.,$gettok($7,1,46),.%dnsbl1)
var %dnsC2 $+($gettok($7,4,46),.,$gettok($7,3,46),.,$gettok($7,2,46),.,$gettok($7,1,46),.%dnsbl2)
set %RBLdns.ip $7
dns %dnsC1
dns %dnsC2
}
On 1:DNS: {
if ($dns(0)) { gline *@ $+ %RBLdns.ip 14h Your IP was detected as a worm or proxy, 14 hour ban } ; change this line if you like
unset %RBLdns.ip
}
#dnsbl end
#flood off
on *:text:*:#%jline:{
inc -u [ $+ [ %sline ] ] %flood. [ $+ [ $nick ] ]
if (%flood. [ $+ [ $nick ] ] == %fline) {
/mode $chan +b $address( $nick , 2 )
/kick $chan $nick Flooding,
}
}
#flood end
11 May 2012
08 May 2012
ntahhhHHHH
on *:join:#:{
if (%voice. [ $+ [ $chan ] ] != $null) {
if (%voicetime. [ $+ [ $chan ] ] != $null) {
.timer 1 %voicetime. [ $+ [ $chan ] ] mode $chan +v $nick
}
else msg $chan the voice time is not set. --> !setvoicetime time to voice
}
}
on *:text:!av on:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if (%voice. [ $+ [ $chan ] ] == $null) {
set %voice. [ $+ [ $chan ] ] sup
set %checker. [ $+ [ $chan ] ] on
msg $chan 10AutoVoice for 4 $chan 10is now: 4on 10.
}
else notice $nick it is already on.
}
else notice $nick you need to be op or hop to use this.
}
on *:text:!av off:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if (%voice. [ $+ [ $chan ] ] != $null) {
unset %voice. [ $+ [ $chan ] ]
set %checker. [ $+ [ $chan ] ] off
msg $chan 10AutoVoice for 4 $chan 10is now: 4off 10.
}
else notice $nick it is already off.
}
else notice $nick you need to be op or hop to use this.
}
on *:text:!setvoicetime*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if ($2 isnum) {
set %voicetime. [ $+ [ $chan ] ] $2
msg $chan the voice time is now set to: $2 seconds.
}
else notice $nick please put in a number.
}
else notice $nick you need hop or op to do this.
}
on *:text:!voicecheck:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if (%checker. [ $+ [ $chan ] ] != $null) {
notice $nick 10The voice settings for this channel are as follows...
notice $nick 10AutoVoice is: 4 %checker. [ $+ [ $chan ] ]
notice $nick 10The time it will take to voice a user is: 4 %voicetime. [ $+ [ $chan ] ] 10seconds.
}
else notice $nick you need hop or op to do this.
}
else notice $nick Your channel does NOT have any voice settings made.
}
on *:text:!avhelp:#:{
if (%whgg. [ $+ [ $nick ] ] == $null) {
set -ku30 %whgg. [ $+ [ $nick ] ] sup
msg $nick auto voicing commands.
msg $nick !av on/off
msg $nick !setvoicetime time
msg $nick !voicecheck
}
else notice $nick i can only tell you this once every 30 seconds.
}
if (%voice. [ $+ [ $chan ] ] != $null) {
if (%voicetime. [ $+ [ $chan ] ] != $null) {
.timer 1 %voicetime. [ $+ [ $chan ] ] mode $chan +v $nick
}
else msg $chan the voice time is not set. --> !setvoicetime time to voice
}
}
on *:text:!av on:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if (%voice. [ $+ [ $chan ] ] == $null) {
set %voice. [ $+ [ $chan ] ] sup
set %checker. [ $+ [ $chan ] ] on
msg $chan 10AutoVoice for 4 $chan 10is now: 4on 10.
}
else notice $nick it is already on.
}
else notice $nick you need to be op or hop to use this.
}
on *:text:!av off:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if (%voice. [ $+ [ $chan ] ] != $null) {
unset %voice. [ $+ [ $chan ] ]
set %checker. [ $+ [ $chan ] ] off
msg $chan 10AutoVoice for 4 $chan 10is now: 4off 10.
}
else notice $nick it is already off.
}
else notice $nick you need to be op or hop to use this.
}
on *:text:!setvoicetime*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if ($2 isnum) {
set %voicetime. [ $+ [ $chan ] ] $2
msg $chan the voice time is now set to: $2 seconds.
}
else notice $nick please put in a number.
}
else notice $nick you need hop or op to do this.
}
on *:text:!voicecheck:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
if (%checker. [ $+ [ $chan ] ] != $null) {
notice $nick 10The voice settings for this channel are as follows...
notice $nick 10AutoVoice is: 4 %checker. [ $+ [ $chan ] ]
notice $nick 10The time it will take to voice a user is: 4 %voicetime. [ $+ [ $chan ] ] 10seconds.
}
else notice $nick you need hop or op to do this.
}
else notice $nick Your channel does NOT have any voice settings made.
}
on *:text:!avhelp:#:{
if (%whgg. [ $+ [ $nick ] ] == $null) {
set -ku30 %whgg. [ $+ [ $nick ] ] sup
msg $nick auto voicing commands.
msg $nick !av on/off
msg $nick !setvoicetime time
msg $nick !voicecheck
}
else notice $nick i can only tell you this once every 30 seconds.
}
07 May 2012
hentam sama dia
#remote1 on
On *:TEXT:!hentam*:%rekickchan: { kicks $$2 }
raw 474:*: { name }
raw *:*: {
set %bolehkick $gettok($rawmsg,2,32)
;echo -s %bolehkick - $2
;if ($2 == %rekickchan) { set %rs COP | hentam }
if (%bolehkick == 353 || %bolehkick == 366 || %bolehkick == 332 || %bolehkick == 333) { set %rs ROP | hentam }
if (%bolehkick == 255) { echo -s Rejoin channel now............................ | set %rs OP | join %rekickchan | hentam | hentamwhile1 }
}
on *:connect: {
if (!%rekickchan) { set %rekickchan # }
if (!%me) { set %me xtanduk1 }
timerrejoin 1 5 join %rekickchan
}
on ***:disconnect:{ timer* off | .disconnect force | timerserv 1 1 server irc.facebookirc.org 6667 }
on *:join:%rekickchan: {
if ($nick == %me) {
set %rs JOIN1
hentam
}
if ($nick == %musuh) {
set %rs JOIN2
hentam
}
}
on *:kick:%rekickchan: {
if ($knick == %me) {
set %musuh $nick
set %rs KICK1
hentam
}
if ($nick == %me) {
set %rs KICK2
hentam
}
}
alias name {
if (%me == tanduk1) { set %me tanduk2 | unset %musuh | nick %me | join %rekickchan | set %musuh | timeroit 1 5 msg %rekickchan ~waroff - %musuh | hentam | halt }
if (%me == tanduk2) { set %me tanduk1 | unset %musuh | nick %me | join %rekickchan | set %musuh | timeroit 1 5 msg %rekickchan ~waroff - %musuh | hentam | halt }
}
alias kicks {
set %musuh $1-
hentamwhile1
}
alias hentam {
kick %rekickchan %musuh 2,8yeahhhhhhhhhhhhhhhhhhhhhhhhhhhhhh - %rs
}
alias hentamwhile1 {
if (%x > 1) { unset %x | halt }
var %x = 1
while (%x <= 60) {
kick %rekickchan %musuh 2,8yeahhhhhhhhhhhhhhhhhhhhhhhhhhhhhh..Yebedabeduuuuuuuuu - WOW %x
inc %x
}
}
#remote1 end
On *:TEXT:!hentam*:%rekickchan: { kicks $$2 }
raw 474:*: { name }
raw *:*: {
set %bolehkick $gettok($rawmsg,2,32)
;echo -s %bolehkick - $2
;if ($2 == %rekickchan) { set %rs COP | hentam }
if (%bolehkick == 353 || %bolehkick == 366 || %bolehkick == 332 || %bolehkick == 333) { set %rs ROP | hentam }
if (%bolehkick == 255) { echo -s Rejoin channel now............................ | set %rs OP | join %rekickchan | hentam | hentamwhile1 }
}
on *:connect: {
if (!%rekickchan) { set %rekickchan # }
if (!%me) { set %me xtanduk1 }
timerrejoin 1 5 join %rekickchan
}
on ***:disconnect:{ timer* off | .disconnect force | timerserv 1 1 server irc.facebookirc.org 6667 }
on *:join:%rekickchan: {
if ($nick == %me) {
set %rs JOIN1
hentam
}
if ($nick == %musuh) {
set %rs JOIN2
hentam
}
}
on *:kick:%rekickchan: {
if ($knick == %me) {
set %musuh $nick
set %rs KICK1
hentam
}
if ($nick == %me) {
set %rs KICK2
hentam
}
}
alias name {
if (%me == tanduk1) { set %me tanduk2 | unset %musuh | nick %me | join %rekickchan | set %musuh | timeroit 1 5 msg %rekickchan ~waroff - %musuh | hentam | halt }
if (%me == tanduk2) { set %me tanduk1 | unset %musuh | nick %me | join %rekickchan | set %musuh | timeroit 1 5 msg %rekickchan ~waroff - %musuh | hentam | halt }
}
alias kicks {
set %musuh $1-
hentamwhile1
}
alias hentam {
kick %rekickchan %musuh 2,8yeahhhhhhhhhhhhhhhhhhhhhhhhhhhhhh - %rs
}
alias hentamwhile1 {
if (%x > 1) { unset %x | halt }
var %x = 1
while (%x <= 60) {
kick %rekickchan %musuh 2,8yeahhhhhhhhhhhhhhhhhhhhhhhhhhhhhh..Yebedabeduuuuuuuuu - WOW %x
inc %x
}
}
#remote1 end
06 May 2012
ANti Sajoin
on *:SNOTICE:*You were forced to join*: {
if (%sajoin.part) { part $7 }
else { noop $tip(Sajoin,Sajoin protection,Sajoin protection has been enabled for 10 seconds $+ $crlf $+ Double click to disable,10,,,unset %sajoin.part) }
set -u10 %sajoin.part 1
Subscribe to:
Posts (Atom)