Posted by: safarah | 62007000UTC11bUTCSat, 24 Nov 2007 18:29:56 +0000 24, 2007

War Scripts

;Scripter:L10n@DALnet
;Email:mr_calunsag@yahoo.com
;Server:DALnet
;Scriptname:Bloody Fang of the Damned

;;;;–+++–;;;;
alias logo { return $+($chr(3),$chr(49),$chr(52),$chr(44),$chr(49),$chr(32),$chr(66),$chr(32),$chr(76),$chr(32),$chr(3),$chr(52),$chr(186),$chr(186),$chr(3),$chr(49),$chr(52),$chr(32),$chr(208),$chr(208),$chr(32),$chr(221),$chr(32),$chr(2),$chr(3),$chr(52),$chr(92),$chr(47),$chr(2),$chr(3),$chr(48),$chr(175),$chr(2),$chr(3),$chr(52),$chr(92),$chr(47),$chr(2),$chr(32),$chr(3),$chr(48),$chr(70),$chr(32),$chr(197),$chr(32),$chr(209),$chr(32),$chr(71),$chr(32),$chr(167),$chr(32),$chr(3)) }
alias logo1 { return $+($chr(3),$chr(52),$chr(44),$chr(49),$chr(32),$chr(73),$chr(77),$chr(80),$chr(69),$chr(78),$chr(73),$chr(84),$chr(69),$chr(78),$chr(67),$chr(69),$chr(32),$chr(79),$chr(70),$chr(32),$chr(84),$chr(72),$chr(69),$chr(32),$chr(68),$chr(65),$chr(77),$chr(78),$chr(69),$chr(68),$chr(32),$chr(3)) }
;;;;–+++–;;;;
;— events —
#war off
;;;;–+++–;;;;
on damned:join:#:{
if (!$istok(%damned,$nick,44)) ak $nick
if ($me isop $chan) { $+(.timer,.,kjoin) 1 0 kick # $nick  $logo 15- $ord(%ko) kick }
else {
if (%deop) && ($me !isop #) { cs deop # $nick | if ($me !isop #) { cs op # $me } }
}
}
;;;;–+++–;;;;
on *:op:#: {
if ($opnick == $me) {
if (%invex) { invexX | %invex = $false }
if (%damned) {
$+(.timer,.kick) 1 0 kick # %damned  $logo1 15- $ord(%ko) kick
if $gettok(%damned,5-8,44) {
$+(.timer,.kick) 1 0 raw -q kick # $gettok(%damned,5-8,44)  $logo1 15- $ord(%ko) kick
}
}
}
}
;;;;–+++–;;;;
#war end
;;;;–+++–;;;;
on *:kick:#: {
if (($knick == $me) && ($nick != $me)) {
if ($group(#war) == on) {
au $wildsite
ak $nick
inc %hinay 1
inc %kak 1
if ($dialog(war)) { did -ra war 22 $iif(%kak >= 2,$calc(%kak – 1),0) }
}
if (%hinay >= 2) { $+(.timer,.hinay) 1 $r(8,15) cs invite # | %hinay = 0 }
else { deop # | join -n # }
}
else {
if (($knick != $me) && ($nick == $me)) {
inc %ko 1
if ($dialog(war)) { did -ra war 23 $iif(%ko >= 2,$calc(%ko – 1),0) }
rk $knick
}
}
}
;;;;–+++–;;;;
on *:notice:*is not online*:?: { if ($nick == ChanServ) %damned = $remtok(%damned,$strip($2),44) }
;;;;–+++–;;;;
on *:notice:*is not on*:?: { if ($nick == ChanServ) %damned = $remtok(%damned,$strip($1),44) }
;;;;–+++–;;;;
on *:nick:{ %damned = $reptok(%damned,$nick,$newnick,1,44) }
;;;;–+++–;;;;
on *:notice:*has deopped*:#:{
if (($nick == ChanServ) && ($4 == $me)) {
if (!$istok(%damned,$1,44)) { %damned = $addtok(%damned,$1,44) }
if ($1 ison #) { cs deop # $1 }
if (%deop) {
if ($1 ison #) cs op # $4
}
else { cs op # $4 }
}
else { return }
}
;;;;–+++–;;;;
on *:invite:#:{
if ($nick == ChanServ) {
if (%damned) { $+(.timer,.,rejoin) 1 $rand(2,5) rj # }
else { join -n # }
}
}
;;;;–+++–;;;;
on *:start:{
%first = $true
%hinay = 3
unset %damned
set %lag Disconnected
.rlevel damned
.fullname 4,1 IMPENITENCE OF THE DAMNED 
%adik = 4,1 IMPENITENCE OF THE DAMNED 
.TIMER 1 1 DIAL
}
on *:connect:{
.timerLag 0 5 lagmeter
set %itimer 1500
}
on *:DISCONNECT:{
set %lag Disconnected
if ($dialog(war)) { did -ra war 20 %lag }
}
on *:ctcpreply:meter &: {
set %lag $calc(($ticks -$2) / 1000),-3) s
if ($dialog(war)) { did -ra war 20 %lag }
else { window @lag | echo @lag $asctime(hh:nn:sstt) : %lag }
halt
}
;;;;–+++–;;;;
on *:exit:{ reset }
;;;;–+++–;;;;
on *:join:#:{ if %first && $nick == $me { who $chan | unset %first } }
;;;;–+++–;;;;
;— raws —
;;;;–+++–;;;;
raw *:*: {
if ($numeric == 401) { %damned = $deltok(%damned,$2,44) }
if ($numeric == 403) { %damned = $deltok(%damned,$2,44) }
if ($numeric == 404) { halt }
if ($numeric == 441) { %damned = $deltok(%damned,$2,44) }
if ($numeric == 442) { halt }
if ($numeric == 605) { %damned = $deltok(%damned,$2,44) }
if ($numeric == 471) { in 471 $2 }
if ($numeric == 473) { in 473 $2 }
if ($numeric == 474) { ib 474 $2 }
if ($numeric == 475) { in 475 $2 }
if ($numeric == 477) { in 477 $2 }
if ($numeric == 482) { halt }
}
;;;;–+++–;;;;
;—- aliases —
;;;;–+++–;;;;
alias rj {
.timerdeopX -m 1 %itimer cs deop $1 $replace(%damned,$chr(44),$chr(32))
.timerjoinX -m 1 2000 join -n $1
}
alias in { $+(.timer,.$1) 1 $rand(3,7) cs invite $2 }
alias ib { $+(.timer,.$1) 1 $rand(9,18) cs invite $2 | cs unban $2 $me }
alias au { .auser -a damned $1 }
alias ru { .ruser damned $1 }
alias ak { %damned = $addtok(%damned,$1,44) }
alias rk { %damned = $remtok(%damned,$1,1,44) }
alias deop { cs deop $1 $replace(%damned,$chr(44),$chr(32)) }
alias invexX { who $chan | mode $chan +eIeI $address($me,2) $address($me,2) $me $me }
alias dial { dialog -m war war }
alias reset {
unset %damned
.rlevel damned
if ($server != $null) && ($active ischan) {
msg $active %adik damnlist cleared.
}
}

alias checkuser {
var %n = 1, %l
while $ulist(*,damned,%n) {
%l = %l $v1
inc %n
}
if %l { reset }
else {
if $dialog(war) { beep 1 | var %toot $input(There are no nicks/hosts added on damnlist,o,Damn Control) }
else { echo -a %adik no nicks/hosts added on damnlist }
}
}
alias lagmeter { .ctcpreply $me meter $ticks }
;;;;–+++–;;;;
;— menus —
;;;;–+++–;;;;
menu menubar,channel {
Damn Control:dial

$iif($group(#war) == on,[On],[Off]) Warmode: {
$iif($group(#war) == on,.disable,.enable) #war
$iif($server && $window($active).type isin channelquerychat,msg $active,echo -s) $&
%adik Warmode $group(#war)
}
Reset Damnlist: { checkuser }
}
;;;;–+++–;;;;
menu nicklist,query {
WaR list
.Add:{ if (!$istok(%damned,$$1,44)) {
%damned = $addtok(%damned,$$1,44)
au $address($$1,2)
}
}
.Del:{ rk $$1 | ru $$1 }
}
;;;;–+++–;;;;
;— f-commands —
;;;;–+++–;;;;
alias f2 { if (#) chanserv op # $me }
alias f3 { ctcp chanserv@services.dal.net ping | ctcp $me ping }
alias f4 { clear }
alias f5 { reset }
alias f6 { msg # Kicking score: $iif(%ko >= 2,my last kick is the $ord(%ko) $+ .,Haven’t kicked any asses yet.) $iif(%kak >= 2,I have been kicked %kak times.,I have never been kicked on this game.) }
;;;;–+++–;;;;
dialog war {
title “Damn Control”
size -1 -1 249 144
option dbu
list 1, 6 12 72 99, size
edit “”, 2, 84 69 81 10
button “Add”, 3, 84 81 37 12
button “Delete”, 4, 128 81 37 12
check “Turn On/Off”, 5, 83 30 50 10
text “Revenge Mode”, 6, 83 19 40 8
text “Deop Mode”, 8, 139 19 41 8
check “Turn On/Off”, 9, 138 30 50 10
button “Reset Damnedlist”, 10, 6 116 73 12
text “Damnedlisted”, 11, 24 3 41 8
text “Enter Nick you want to Add”, 12, 88 59 70 8, center
text “Invex Mode”, 13, 197 19 42 8
check “Turn On/Off”, 14, 197 30 42 10
box “”, 15, 80 12 167 31
button “Reset KickCounters”, 16, 6 129 73 12
box “Damned Add/Delete”, 17, 80 50 89 46
edit “”, 7, 96 129 52 10
text “1000-2000 (e.g. 1500)”, 18, 88 118 68 8, center
box “Timer join on invite option”, 19, 85 108 77 33
edit “”, 20, 199 2 44 10, disable

text “Current Lag:”, 21, 166 3 31 8
edit “”, 22, 220 69 23 10, disable
edit “”, 23, 205 84 38 10, disable
text “I kicked :”, 24, 173 85 26 8
text “I have been kicked”, 25, 173 70 46 8
box “Kick Counters”, 26, 171 50 77 46
text “Bloody Fangs of the Damned”, 27, 172 115 73 8, disable center
text “by : L10n @ DALnet”, 28, 172 127 73 8, disable center
button “ok”, 29, 149 130 10 9
}

;;;;–+++–;;;;
on *:dialog:war:*:*:{
if ($devent == init) {
didtok -ra $dname 1 44 %damned
did -ra $dname 7 %itimer
did -ra $dname 20 %lag
did -ra $dname 22 $iif(%kak >= 2,$calc(%kak – 1),0)
did -ra $dname 23 $iif(%ko >= 2,$calc(%ko – 1),0)
if ($group(#war) == on) { did -c $dname 5 }
if (%deop) { did -c $dname 9 }
if (%invex) { did -c $dname 14 }
}
elseif ($devent == sclick) {
if ( $did == 3 ) {
if ( $did($dname,2) != $null ) {
%damned = $addtok(%damned,$gettok($did($dname,2),1,44),44)
auser -a damned $address($gettok($did($dname,2),1,44),2)
did -a $dname 1 $gettok($did($dname,2),1,44)
hadd -m damnip $gettok($did($dname,2),1,44) $address($gettok($did($dname,2),1,44),2)
did -ra $dname 2
}
else {
var %toot $input(Please type a valid nick on the edit box first before adding,o,Damn Control)
}
}
if ( $did == 4 ) {
if ( $did($dname,1).sel != $null ) {
%damned = $deltok(%damned,$did($dname,1).sel,44)
if ($hfind(damnip,$did($dname,1).seltext)) {
hdel damnip $did($dname,1).seltext
ru $did($dname,1).seltext
}
echo -s $!did(1).sel returned: $did($dname,1).seltext
did -d $dname 1 $did($dname,1).sel
}
else {
var %toot $input(Please Select a nick on the DamnedList,o,Damn Control)
}
}
if ( $did == 10 ) { checkuser }
if ( $did == 5 ) {
$iif($group(#war) == on,.disable,.enable) #war
$iif($server && $window($active).type isin channelquerychat,msg $active,echo -s) $&
%adik damnmode $group(#war)
}
if ( $did == 9 ) { set %deop $iif(%deop == $false,$true,$false) }
if ( $did == 14 ) { set %invex $iif(%invex == $false,$true,$false) }
if ( $did == 16 ) {
if %ko != 1 && %kak != 1 {
set %ko 1
set %kak 1
did -ra $dname 22 $iif(%kak >= 2,%kak,0)
did -ra $dname 23 $iif(%ko >= 2,%ko,0)
echo -a KickCounters Has Been Reset.
}
else {
var %toot $input(Kick Counters has already been reset,o,Damn Control)
}
}
if ( $did == 29 ) {
if ( $did($dname,7) != $null ) {
%itimer = $did($dname,7)
did -ra $dname 7 %itimer
}
else {
var %toot $input(Type a invite timer option e.g. 1500 – 2000 this is for the deopping timer on invite,o,Damn Control)
}
}
}
}
on *:dialog:war:edit:*: {
var %id = 20,22,23
if ($istok(%id,$did,44)) goto $did | else goto end
:7 | %itimer = $did(7) | goto end
:20 | %warchan = $did(20) | goto end
:22 | %reason = $did(22) | goto end
:23 | %delay = $did(23) | goto end
:end
}

;;;;–+++–;;;;
;;;;–EOF–;;;;
menu nicklist {
Random Design Text
.Channel message {
/set %choice $rand(1,34)
if %choice == 1 {
/notice # 12*13©12*10§13 $$? 10§12*13©12:
}
if %choice == 2 {
/notice # 12,12 9,9 8,8 13,13 1,1 13,1 $$? 1,1 12,12 9,9 8,8 13,13 1,1
}
if %choice == 3 {
/notice # 12,12 13,13 11,11 9,9 12,8 $$? 9,9 11,11 13,13 12,12 9,13 9
}
if %choice == 4 {
/notice # 11,11.1,1.9,9.12,12.8,8.13,13.13,1__/12__/9__/11 $$? 9\__12\__13\__11,11.1,1.9,9.12,12.8,8.13,13.1,11
}
if %choice == 5 {
/notice # 1,1.2,2 12,12 11,11 9,1 $$? 1,1 11,11.12,12 2,2 1,1.
}
if %choice == 6 {
/notice # 1,1..13,13x1,1..11,11x1,1..9,9x1,1..8,1 $$? 1,1..9,9x1,1..11,11x1,1..13,13x1,1..1,9
}
if %choice == 7 {
/notice # 11,12 ><)))4º11,12> 1,0 $$? 11,12<4º11,12(((><  1,11
}
if %choice == 8 {
/notice # 1,1_8,8_1,1_9,9_1,1_8,8_1,1_11,1 $$? 1,1_8,8_1,1_9,9_1,1_11,18,8_
}
if %choice == 9 {
/notice # 6,6=0,0=2,2=0,0=6,6=1,0 $$? 6,6=0,0=2,2=0,0=16,6=
}
if %choice == 10 {
/notice # 4,4_.1,1_9,1»4,1©9,1«8,1 $$? 9,1»4,1©9,1«1,1_4,4_.
}
if %choice == 11 {
/notice # 12,12_1,1_9,1»12,1§9,1«9,1 $$? 9,1»12,1§9,1«1,1_12,12_
}
if %choice == 12 {
/notice # 8,8_.1,1_9,1»8,1©9,1«8,1 $$? 9,1»8,1©9,1«1,1_8,8_.
}
if %choice == 13 {
/notice # 0,120 * 4,4 0,0 4,4 0,0 4,4 0,0 4,0 $$? 4,4 0,04,40,0 4,4 0,0 4,4 0,12 * 1
}
if %choice == 14 {
/notice # 4,4-0,0-2,2-0,2*2,4 USA 0,2** $$? **2,4 USA 0,2* 4,4-0,0-2,2-2,0
}
if %choice == 15 {
/notice # 12,12.8,8.13,13.8,13»12,13©8,13«1,13 $$? 8,13»12,13©8,13«13,13.8,8.12,12.
}
if %choice == 16 {
/notice # 9[2[3[9,2 $$? 3]2]9]
}
if %choice == 17 {
/notice # 3,23<•13¤ 9 $$? 13 ¤3•>2,0
}
if %choice == 18 {
/notice # 4,2®9} 8* 13§ 8* 8 $$? 8,2* 13§ 8* 9{4®8,2
}
if %choice == 19 {
/notice # 4,4_4,0*4,4_4,0 $$? 4,4.4,0*4,4.4,0
}
if %choice == 20 {
/notice # 13,13.8,8.13,1 ¤8,1¤11,1¤8,1 $$? 13,1¤8,1¤11,1¤ 13,13.8,8.11,1
}
if %choice == 21 {
/notice # 5,1i4,4i1,1i15,4 $$? 1,1i4,4i1,1i
}
if %choice == 22 {
/notice # 11,11.1,1.9,9.12,12.8,8.13,13.13,1__/12__/9__/11 $$? 9\__12\__13\__11,11.1,1.9,9.12,12.8,8.13,13.1,11
}
if %choice == 23 {
/notice # 3,3x9,9x8,8x0,0x8,8x9,9x3,3x9,1 $$? 3,3x9,9x8,8x0,0x8,8x9,9x3,3x9,113,1
}
if %choice == 24 {
/notice # 14,14 15,15 14,14 1,1 9,1 $$? 1,1 14,14 15,15 14,14 1,15
}
if %choice == 25 {
/notice # 14,14 15,15 14,14 1,1 0,13 $$? 1,1 14,14 15,15 14,14 0
}
if %choice == 26 {
/notice # 12,12 13,13 11,11 1,1 12,15 $$? 1,1 11,11 13,13 12,12 0,12
}
if %choice == 27 {
/notice # 11,1 11,0 11,1 11,0 11,1 11,0 11,1 $$? 11,0 11,1 11,0 11,1 11,0 11,1 11,0 11,1
}
if %choice == 28 {
/notice # 1,1..13,13x1,1..11,11x1,1..9,9x1,1..8,1 $$? 1,1..9,9x1,1..11,11x1,1..13,13x1,1..1,9
}
if %choice == 29 {
/notice # 4© 6[3 $$? 6] 4© 1
}
if %choice == 30 {
/notice # 12*13©12*10§13 $+ $$? $+ 10§12*13©12*6
}
if %choice == 31 {
/notice # 10::13«10¥13»10::2>13,15 $$? 13,15 2<10::13«10¥13»10::13
}
if %choice == 32 {
/notice # 2,1[[[8[[13[]8]]2]]]8 $$? 2,1[[[8[[13[]8]]2]]]8
}
if %choice == 33 {
/notice # 4,1 © 0,0..0,4 $$? 0,0..4,1 © 0,1
}
if %choice == 34 {
/notice # 4,15*®*8,15¸.*´¯`*(11,15 $$? 8,15)*´¯`*.¸4,15*©*
}
/unset %choice
}
.-
.Nicks message {
set %choice $rand(1,38)
if %choice == 1 {
say 12*13©12*10§13 $$1 10§12*13©12: $$? 
}
if %choice == 2 {
say 12,12 9,9 8,8 13,13 1,1 13,1 $$1 :1,1 12,12 9,9 8,8 13,13 1,1 12,8 $$? 
}
if %choice == 3 {
say 12,12 13,13 11,11 9,9 12,8 $$1 :9,9 11,11 13,13 12,12 9,13 9 $$? 
}
if %choice == 4 {
say 11,11.1,1.9,9.12,12.8,8.13,13.13,1__/12__/9__/11 $$1 9\__12\__13\__11,11.1,1.9,9.12,12.8,8.13,13.1,11 $$? 
}
if %choice == 5 {
say 1,1.2,2 12,12 11,11 9,1 $$1 :1,1 11,11.12,12 2,2 1,1 2,2.3,3.9,9.8,8.0,0.0,1 $$? 
}
if %choice == 6 {
say 1,1..13,13x1,1..11,11x1,1..9,9x1,1..8,1 $$1 1,1..9,9x1,1..11,11x1,1..13,13x1,1..1,9 $$? 
}
if %choice == 7 {
say 11,12 ><)))4º11,12> 1,0 $$1 11,12<4º11,12(((><  1,11 $$? 
}
if %choice == 8 {
say 1,1_8,8_1,1_9,9_1,1_8,8_1,1_11,1 $$1 1,1_8,8_1,1_9,9_1,1__11,1 $$? 8,8_
}
if %choice == 9 {
say 6,6=0,0=2,2=0,0=6,6=1,0 $$1 6,6=0,0=2,2=0,0=1 $$? 6,6=
}
if %choice == 10 {
say 4,4_.1,1_9,1»4,1©9,1«8,1 $$1 9,1»4,1©9,1«1,1_4,4_.1,1_9,1»4,1©9,1«0,1 $$? 9,1»4,1©9,1«
}
if %choice == 11 {
say 12,12_1,1_9,1»12,1§9,1«9,1 $$1 9,1»12,1§9,1«1,1_12,12_1,1_9,1»12,1§9,1«9,1 $$? 9,1»12,1§9,1«9,1
}
if %choice == 12 {
say 8,8_.1,1_9,1»8,1©9,1«8,1 $$1 9,1»8,1©9,1«1,1_8,8_.1,1_9,1»8,1©9,1«8,1 $$? 9,1»8,1©9,1«
}
if %choice == 13 {
say 0,120 * 4,4 0,0 4,4 0,0 4,4 0,0 4,0 $$1 4,4 0,04,40,0 4,4 0,0 4,4 0,12 * 4,4=0,0=4,0 $$? 
}
if %choice == 14 {
say 4,4-0,0-2,2-0,2*2,4 USA 0,2** $$1 **2,4 USA 0,2* 4,4-0,0-2,2-2,0 $$? 
}
if %choice == 15 {
say 12,12.8,8.13,13.8,13»12,13©8,13«1,13 $$1 8,13»12,13©8,13«13,13.8,8.13,13.8,13»12,13©8,13«13,13.1,13 $$? 
}
if %choice == 16 {
say 2,2 13,13 11,11 2,2 13,11§11,2{¤}13,11§11,2{*}13,11§13,13.2,2.11,2 $$1 2,2.13,13.13,11§11,2{¤}13,11§11,2{*}13,11§2,2 13,13 11,112,2 2,11 $$? 
}
if %choice == 17 {
say 3,23<•13¤ 9 $$1 13 ¤3•>2,0 $$? 
}
if %choice == 18 {
say 4,2®9} 8* 13§ 8* 8 $$1 8,2* 13§ 8* 9{4®8,2 $$? 
}
if %choice == 19 {
say 4,4_4,0*4,4_4,0 $$1 4,4.4,0*4,4.4,0 $$? 
}
if %choice == 20 {
say 13,13.8,8.13,1 ¤8,1¤11,1¤8,1 $$1 13,1¤8,1¤11,1¤ 13,13.8,8.11,1 $$? 
}
if %choice == 21 {
say 6,6t8,8t6,6t6,8 ÑÑ 8,6 $$1 6,8 ÑÑ 6,6t8,8t6,6t8,8t6,8 $$? 
}
if %choice == 22 {
say 11,11.1,1.9,9.12,12.8,8.13,13.13,1__/12__/9__/11 $$1 9\__12\__13\__11,11.1,1.9,9.12,12.8,8.13,13.1,11 $$? 
}
if %choice == 23 {
say 3,3x9,9x8,8x0,0x8,8x9,9x3,3x9,1 $$1 3,3x9,9x8,8x0,0x8,8x9,9x3,3x9,113,1 $$? 
}
if %choice == 24 {
say 14,14 15,15 14,14 1,1 9,1 $$1 :1,1 14,14 15,15 14,14 1,15 $$? 
}
if %choice == 25 {
say 14,14 15,15 14,14 1,1 0,13 $$1 :1,1 14,14 15,15 14,14 1,1 0 $$? 
}
if %choice == 26 {
say 12,12 13,13 11,11 1,1 12,15 $$1 :1,1 11,11 13,13 12,12 1,1 0,12 $$? 
}
if %choice == 27 {
say 14,14 15,15 14,14 1,1 0,13 $$1 :1,1 14,14 15,15 14,14 1,1 0,6 $$? 
}
if %choice == 28 {
say 1,1..13,13x1,1..11,11x1,1..9,9x1,1..8,1 $$1 1,1..9,9x1,1..11,11x1,1..13,13x1,1..1,9 $$? 
}
if %choice == 29 {
say 4© 6[3 $$1 6] 4© 1 $$? 
}
if %choice == 30 {
say 12*13©12*10§13 $+ $$1 $+ 10§12*13©12*6 $$? 
}
if %choice == 31 {
say 10::13«10¥13»10::2>13,15 $$1 13,15 2<10::13«10¥13»10::13 $$? 
}
if %choice == 32 {
say 2,1[[[8[[13[]8]]2]]]8 $$1 2,1[[[8[[13[]8]]2]]]8 $$? 
}
if %choice == 33 {
say 8,8_.1,1_9,1»8,1©9,1«8,1 $$1 9,1»8,1©9,1«1,1_8,8_.1,1_9,1»8,1©9,1«8,1 $$? 1,1_9,1»8,1©9,1«
}
if %choice == 34 {
say 4,1 © 0,0..0,4 $$1 0,0..4,1 © 0,1 $$? 
}
if %choice == 35 {
say 4,15*®*8,15¸.*´¯`*(11,15 $$1 8,15)*´¯`*.¸4,15*©* $$? 
}
if %choice == 36 {
say 11,1 11,0 11,1 11,0 11,1 11,0 11,1 $$1 11,0 11,1 11,0 11,1 11,0 11,1 11,0 11,1 $$? 
}
if %choice == 37 {
say 5,1i4,4i1,1i15,4 $$1 1,1i4,4i1,1i9,9i1,1i1,9 $$? 
}
if %choice == 38 {
say 9[2[3[9,2 $$1 3]2]9] 0,9 0,2 0,3 0,9 0,2 0,3 9,2 $$? 
}
/unset %choice
}
.-
.Private Msg {
/set %choice $rand(1,38)
if %choice == 1 {
/notice $$1 12*13©12*10§13 $$1 10§12*13©12: $$? 
}
if %choice == 2 {
/notice $$1 12,12 9,9 8,8 13,13 1,1 13,1 $$1 :1,1 12,12 9,9 8,8 13,13 1,1 12,8 $$? 
}
if %choice == 3 {
/notice $$1 12,12 13,13 11,11 9,9 12,8 $$1 :9,9 11,11 13,13 12,12 9,13 9 $$? 
}
if %choice == 4 {
/notice $$1 11,11.1,1.9,9.12,12.8,8.13,13.13,1__/12__/9__/11 $$1 9\__12\__13\__11,11.1,1.9,9.12,12.8,8.13,13.1,11 $$? 
}
if %choice == 5 {
/notice $$1 1,1.2,2 12,12 11,11 9,1 $$1 :1,1 11,11.12,12 2,2 1,1 2,2.3,3.9,9.8,8.0,0.0,1 $$? 
}
if %choice == 6 {
/notice $$1 1,1..13,13x1,1..11,11x1,1..9,9x1,1..8,1 $$1 1,1..9,9x1,1..11,11x1,1..13,13x1,1..1,9 $$? 
}
if %choice == 7 {
/notice $$1 11,12 ><)))4º11,12> 1,0 $$1 11,12<4º11,12(((><  1,11 $$? 
}
if %choice == 8 {
/notice $$1 1,1_8,8_1,1_9,9_1,1_8,8_1,1_11,1 $$1 1,1_8,8_1,1_9,9_1,1__11,1 $$? 8,8_
}
if %choice == 9 {
/notice $$1 6,6=0,0=2,2=0,0=6,6=1,0 $$1 6,6=0,0=2,2=0,0=1 $$? 6,6=
}
if %choice == 10 {
/notice $$1 4,4_.1,1_9,1»4,1©9,1«8,1 $$1 9,1»4,1©9,1«1,1_4,4_.1,1_9,1»4,1©9,1«0,1 $$? 9,1»4,1©9,1«
}
if %choice == 11 {
/notice $$1 12,12_1,1_9,1»12,1§9,1«9,1 $$1 9,1»12,1§9,1«1,1_12,12_1,1_9,1»12,1§9,1«9,1 $$? 9,1»12,1§9,1«9,1
}
if %choice == 12 {
/notice $$1 8,8_.1,1_9,1»8,1©9,1«8,1 $$1 9,1»8,1©9,1«1,1_8,8_.1,1_9,1»8,1©9,1«8,1 $$? 9,1»8,1©9,1«
}
if %choice == 13 {
/notice $$1 0,120 * 4,4 0,0 4,4 0,0 4,4 0,0 4,0 $$1 4,4 0,04,40,0 4,4 0,0 4,4 0,12 * 4,4=0,0=4,0 $$? 
}
if %choice == 14 {
/notice $$1 4,4-0,0-2,2-0,2*2,4 USA 0,2** $$1 **2,4 USA 0,2* 4,4-0,0-2,2-2,0 $$? 
}
if %choice == 15 {
/notice $$1 12,12.8,8.13,13.8,13»12,13©8,13«1,13 $$1 8,13»12,13©8,13«13,13.8,8.13,13.8,13»12,13©8,13«13,13.1,13 $$? 
}
if %choice == 16 {
/notice $$1 2,2 13,13 11,11 2,2 13,11§11,2{¤}13,11§11,2{*}13,11§13,13.2,2.11,2 $$1 2,2.13,13.13,11§11,2{¤}13,11§11,2{*}13,11§2,2 13,13 11,112,2 2,11 $$? 
}
if %choice == 17 {
/notice $$1 3,23<•13¤ 9 $$1 13 ¤3•>2,0 $$? 
}
if %choice == 18 {
/notice $$1 4,2®9} 8* 13§ 8* 8 $$1 8,2* 13§ 8* 9{4®8,2 $$? 
}
if %choice == 19 {
/notice $$1 4,4_4,0*4,4_4,0 $$1 4,4.4,0*4,4.4,0 $$? 
}
if %choice == 20 {
/notice $$1 13,13.8,8.13,1 ¤8,1¤11,1¤8,1 $$1 13,1¤8,1¤11,1¤ 13,13.8,8.11,1 $$? 
}
if %choice == 21 {
/notice $$1 6,6t8,8t6,6t6,8 ÑÑ 8,6 $$1 6,8 ÑÑ 6,6t8,8t6,6t8,8t6,8 $$? 
}
if %choice == 22 {
/notice $$1 11,11.1,1.9,9.12,12.8,8.13,13.13,1__/12__/9__/11 $$1 9\__12\__13\__11,11.1,1.9,9.12,12.8,8.13,13.1,11 $$? 
}
if %choice == 23 {
/notice $$1 3,3x9,9x8,8x0,0x8,8x9,9x3,3x9,1 $$1 3,3x9,9x8,8x0,0x8,8x9,9x3,3x9,113,1 $$? 
}
if %choice == 24 {
/notice $$1 14,14 15,15 14,14 1,1 9,1 $$1 :1,1 14,14 15,15 14,14 1,15 $$? 
}
if %choice == 25 {
/notice $$1 14,14 15,15 14,14 1,1 0,13 $$1 :1,1 14,14 15,15 14,14 1,1 0 $$? 
}
if %choice == 26 {
/notice $$1 12,12 13,13 11,11 1,1 12,15 $$1 :1,1 11,11 13,13 12,12 1,1 0,12 $$? 
}
if %choice == 27 {
/notice $$1 14,14 15,15 14,14 1,1 0,13 $$1 :1,1 14,14 15,15 14,14 1,1 0,6 $$? 
}
if %choice == 28 {
/notice $$1 1,1..13,13x1,1..11,11x1,1..9,9x1,1..8,1 $$1 1,1..9,9x1,1..11,11x1,1..13,13x1,1..1,9 $$? 
}
if %choice == 29 {
/notice $$1 4© 6[3 $$1 6] 4© 1 $$? 
}
if %choice == 30 {
/notice $$1 12*13©12*10§13 $+ $$1 $+ 10§12*13©12*6 $$? 
}
if %choice == 31 {
/notice $$1 10::13«10¥13»10::2>13,15 $$1 13,15 2<10::13«10¥13»10::13 $$? 
}
if %choice == 32 {
/notice $$1 2,1[[[8[[13[]8]]2]]]8 $$1 2,1[[[8[[13[]8]]2]]]8 $$? 
}
if %choice == 33 {
/notice $$1 8,8_.1,1_9,1»8,1©9,1«8,1 $$1 9,1»8,1©9,1«1,1_8,8_.1,1_9,1»8,1©9,1«8,1 $$? 1,1_9,1»8,1©9,1«
}
if %choice == 34 {
/notice $$1 4,1 © 0,0..0,4 $$1 0,0..4,1 © 0,1 $$? 
}
if %choice == 35 {
/notice $$1 4,15*®*8,15¸.*´¯`*(11,15 $$1 8,15)*´¯`*.¸4,15*©* $$? 
}
if %choice == 36 {
/notice $$1 11,1 11,0 11,1 11,0 11,1 11,0 11,1 $$1 11,0 11,1 11,0 11,1 11,0 11,1 11,0 11,1 $$? 
}
if %choice == 37 {
/notice $$1 5,1i4,4i1,1i15,4 $$1 1,1i4,4i1,1i9,9i1,1i1,9 $$? 
}
if %choice == 38 {
/notice $$1 9[2[3[9,2 $$1 3]2]9] 0,9 0,2 0,3 0,9 0,2 0,3 9,2 $$? 
}
/unset %choice
}
.-
.Ops Message {
/set %choice $rand(1,23)
if %choice == 1 {
/onotice # 9,1 [FOR OPS EYES ONLY ]:1,9 $$? 
}
if %choice == 2 {
/onotice # 13,1 {Whispers into the ear of the 11,1OPS 13,1 only} 11 $$? 
}
if %choice == 3 {
/onotice # 9,6*~®¿®~* OpS OnLy 9,6*~®¿®~* 6,9 : $$? 
}
if %choice == 4 {
/onotice # 6,15 HeY 15,6 OpS 6,15 LoOk 15,6 $$? 
}
if %choice == 5 {
/onotice # 4,1 HeY 1,4 OpS 4,1 LoOk 1,4 $$? 
}
if %choice == 6 {
/onotice # 13,12 HeY 12,13 OpS 13,12 LoOk 12,13 $$? 
}
if %choice == 7 {
/onotice # 13,13.1,1»1,1©1,1«12 OPS!!!1,1»1,1©1,1«13,13.1,1..8 $$? 
}
if %choice == 8 {
/onotice # 4,1J8u10S13t 11F9o4R 8D9a 13O11p9Z0 $$? 
}
if %choice == 9 {
/onotice # 13,1§8§9§12§11§0§4§8 OpsOnly 4§0§11§12§9§8§13§1,0 $$? 
}
if %choice == 10 {
/onotice # 15,15.0,2O1,9P0,3Z0,4-1,8S0,10A0,4V0,3E1,9R0,5S15,15.12,0 $$? 
}
if %choice == 11 {
/onotice # 10,10.13,13.11,10 <===<< CHAN OPS NOTICE >>===> 13,13.10,10.11,1  $$? 
}
if %choice == 12 {
/onotice # 9,9.8,8.8,1 <===<< CHAN OPS NOTICE >>===> 8,8.9,9.8,8.: 9 $$? 
}
if %choice == 13 {
/onotice # 9,1*~®¿®~* OpS OnLy 9,1*~®¿®~* 9,1 : $$? 
}
if %choice == 14 {
/onotice # 9,1 [FOR OPS EYES ONLY ]:1,9 $$? 
}
if %choice == 15 {
/onotice # 13{Whispers to the OPS} 12 $$? 
}
if %choice == 16 {
/onotice # 1,1.12,4H1,1.12,8E1,1.12,4L1,1.12,8L1,1.12,4O1,1.12,8 OPs  $$? 
}
if %choice == 17 {
/onotice # 12§4[ Opz only 4]112§12 1 $$? 
}
if %choice == 18 {
/onotice # 12{=^:^=} 4 OPS ONLY 12{=^:^=} $$? 
}
if %choice == 19 {
/onotice # 1,9 1,11 1,8 1,13 1,9[ö¿ö] 1,13 1,8 1,11 1,9 1,8 HEY OPZ 1,9 1,11 1,8 1,13 1,9[ö¿ö] 1,13 1,8 1,11 1,9 1 $$? 
}
if %choice == 20 {
/onotice # 0,14•0,4~8,4Bud0,4~0,14• 4ThIs Ops FoR YoU! 0,14•0,4~8,4Bud0,4~0,14• 14  $$? 
}
if %choice == 21 {
/onotice # 2,2..12,12….13,12ø9þ13§ 9m13§9§13g12,12….2,2..2,2..13,12 2,2..2,2.. $$? 
}
if %choice == 22 {
/onotice # 13,13_.1,1_9,1»13,1©9,1«13,1 OPS 9,1»13,1©9,1«1,1_13,13_.13,1 13,13_.1 $$? 
}
if %choice == 23 {
/onotice # 12,12.9»13©69,12«12,12.2,2..13,2OPS MSG2,2..12,12.9 13©69,12«12,12.13,2 $$? 12,12.9»13©69,12«12,12.
}
/unset %choice
}
}


Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Categories

%d bloggers like this: