Notes

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;; OmeRScript ;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; Menu ;;;;;;;;;;
menu * {
.Menu { OmeRScript }
}
menu nicklist {
Commands
.Request Op { msg r requestop $active }
.Bring Q { msg r requestbot $active }
.Bring S { msg r requestspamscan $active }
.Show Commands { msg q showcommands }
.Recover { msg q recover $active }
.Ban List { msg q banlist $active }
.Ban Clear { msg q banclear $active }
.UnBan All { msg q unbanall $active }
.UnBan Me { msg q unbanme $active }
.Chan Flags { msg q chanflags $active $$?="Enter Channel Flags" }
.Chan Modes { msg q chanmode $active $$?="Enter Channel Modes" }
.Auto Limit { msg q chanflags $active +c | msg q autolimit $active $$?="Enter Auto Limit Number" }
.Welcome { msg q chanflags $active +w | msg q welcome $active $$?="Enter Welcome Massage" }
.Topic { msg q settopic $active $$?="Enter Topic Massage" }
.Who Am I? { msg q whoami }
.All Voice { var %x = $input(Enter The Tag,e,Enter the Tag) | if (%x) { voiceon $active %x } }
.All Devoice { var %x = $input(Enter The Tag,e,Enter the Tag) | if (%x) { voiceoff $active %x } }
.Q Ban { msg q ban $active $address($$1,2) }
.Chanlev
..+Gv { msg q chanlev $active $$1 +gv }
..+Ao { msg q chanlev $active $$1 +ao }
..+Amo { msg q chanlev $active $$1 +amo }
..+Amno { msg q chanlev $active $$1 +amo | set %GOS 1 | set %C $active | msg q giveowner $active $$1 }
..-Gv { msg q chanlev $active $$1 -gv | mode $active -v $$1 }
..-Ao { msg q chanlev $active $$1 -ao | mode $active -o $$1 }
..-Amo { msg q chanlev $active $$1 -amo | mode $active -o $$1 }
..-Amno { msg q chanlev $active $$1 -amno | mode $active -o $$1 }
Add
.Add Black { var %BA = $iif($address($1,2),$v1,$1 $+ !*@*) | var %R = $iif($input(Type Reason (If no have keep it empty),e,Type Reason (If no have keep it empty)), $v1, No Reason) | .writeini -n Blacklist.ini %BA Reason %R | .writeini -n Blacklist.ini %BA Action Nothing %R | BB $active %BA %R | if ($dialog(BL)) did -a BL 1 %BA }
.Add Friend { var %FA = $iif($address($1,2),$v1,$1 $+ !*@*) | if (%FA) { .writeini -n Friendlist.ini %FA Action Nothing | if ($dialog(FL)) did -a FL 1 %FA } }
}

menu channel {
-
}
;;;;;;;;;; Dialogs ;;;;;;;;;;
dialog OmeRScript {
title "Menu"
size -1 -1 178 85
option dbu
box "Details", 1, 2 2 52 79
text "Name:", 2, 4 13 26 8
text "", 3, 22 13 59 8
text "Network:", 4, 4 22 25 8
text "", 5, 28 22 53 8
text "Date:", 6, 4 31 25 8
text "Date:", 33, 4 500 30 8
text "", 7, 20 31 61 8
text " Time:", 8, 3 40 15 8
text "", 9, 20 40 24 8
text "mIRC Script v3.0", 40, 4 65 49 8, center
text "Created By OmeR", 25, 4 72 49 9, center
button "Black List", 10, 62 25 52 16
button "Friend List", 11, 62 5 52 16
button "Q Commands", 21, 121 5 52 16
button "Nick Searcher", 14, 62 45 52 16
button "Protection", 17, 121 45 52 16
button "Q Auth", 13, 121 25 52 16
button "Private Stuff", 15, 62 65 52 16
button "Help", 23, 121 65 52 16
}

on *:dialog:OmeRScript:init:*: { did -a $DName 3 $me | did -a $DName 5 $network | did -a $DName 7 $date | did -a $DName 9 $time | .timercheck 0 1 checktime }
on *:dialog:OmeRScript:close:*: { .timercheck off }
on *:dialog:OmeRScript:sclick:*: {
if ($did == 10) { dialog $iif($dialog(BL),-v,-m) BL BL }
elseif ($did == 11) { dialog $iif($dialog(FL),-v,-m) FL FL }
elseif ($did == 15) { dialog $iif($dialog(Stuff),-v,-m) Stuff Stuff }
elseif ($did == 13) { dialog $iif($dialog(AS),-v,-m) AS AS }
elseif ($did == 14) { dialog $iif($dialog(NS),-v,-m) NS NS }
elseif ($did == 15) { dialog $iif($dialog(GH),-v,-m) GH GH }
elseif ($did == 17) { dialog $iif($dialog(PR),-v,-m) PR PR }
elseif ($did == 21) { dialog $iif($dialog(QC),-v,-m) QC QC }
elseif ($did == 8) { dialog $iif($dialog(Securitydialog),-v,-m) securitydialog securitydialog }
elseif ($did == 23) { dialog $iif($dialog(Help),-v,-m) Help Help }
}
dialog BL {
title "Black-List"
size -1 -1 135 79
option dbu
list 1, 4 9 126 34, size
button "Add", 2, 5 46 39 13
button "Remove", 3, 48 46 39 13
button "Clear All", 4, 91 46 39 13
box "Black List:", 5, 1 0 133 62
button "OKCancel", 6, 48 63 39 13, ok cancel
}

dialog Reason {
title "Blacklist Reason"
size -1 -1 207 39
option dbu
box "", 1, 2 1 203 35
text "", 2, 6 9 196 8, disable center
button "Edit Reason", 3, 6 21 37 12
button "OK", 4, 45 21 37 12, ok
}

on *:dialog:BL:init:*: { var %x = 1 | while ($ini(Blacklist.ini,%x)) { did -a $dname 1 $ini(Blacklist.ini,%x) | inc %x } }
on *:dialog:BL:dclick:*: { if ($did == 1) { dialog -m Reason Reason | did -ra Reason 1 $did($dname,1).seltext Reason | did -ra Reason 2 $readini(Blacklist.ini,$did($dname,1).seltext,Reason) } }
on *:dialog:BL:sclick:*: {
if ($did == 1) && ($did($dname,1).seltext) {
if ($readini(Blacklist.ini,$did($dname,1).seltext,Level) == Ban) { did -c $dname 8 | did -u $dname 9,10 }
elseif ($readini(Blacklist.ini,$did($dname,1).seltext,Level) == Ban+Kick) { did -c $dname 9 | did -u $dname 8,10 }
elseif ($readini(Blacklist.ini,$did($dname,1).seltext,Level) == Nothing) { did -c $dname 10 | did -u $dname 8,9 }
}
elseif ($did == 2) {
var %BA = $input(Type Nick Address,e,Type Nick Address)
if (%BA) {
var %R = $input(Type Reason (If no have keep it empty),e,Type Reason (If no have keep it empty))
$iif(%R,.writeini -n Blacklist.ini %BA Reason %R,.writeini -n Blacklist.ini %BA Reason No Reason)
.writeini -n Blacklist.ini %BA Date $Date
did -a $dname 1 %BA
}
}
elseif ($did == 3) && ($did($dname,1).seltext) { .remini -n Blacklist.ini $did($dname,1).seltext | did -d $dname 1 $did($dname,1).sel }
elseif ($did == 4) {
var %S = $input(Are You Sure?,y,Warnning)
if (%S == $true) { did -r $dname 1 | remove Blacklist.ini }
}
elseif ($did == 8) && ($did($dname,1).seltext) { writeini -n Blacklist.ini $did($dname,1).seltext Action Ban | did -c $dname 8 | did -u $dname 9,10 }
elseif ($did == 9) && ($did($dname,1).seltext) { writeini -n Blacklist.ini $did($dname,1).seltext Action Ban+Kick | did -c $dname 9 | did -u $dname 8,10 }
elseif ($did == 10) && ($did($dname,1).seltext) { writeini -n Blacklist.ini $did($dname,1).seltext Action Nothing | did -c $dname 10 | did -u $dname 8,9 }
}
on *:dialog:Reason:sclick:*: { if ($did == 3) { var %Reason = $input(Enter The New Reason,e,Enter The New Reason) | if (%Reason) { .writeini -n Blacklist.ini $did(BL,1).seltext Reason %Reason | did -ra $dname 2 %Reason } } }
dialog FL {
title "Friends-List"
size -1 -1 135 79
option dbu
list 1, 4 9 126 34, size
button "Add", 2, 5 46 39 13
button "Remove", 3, 48 46 39 13
button "Clear All", 4, 91 46 39 13
box "Friends List:", 5, 1 0 133 62
button "OKCancel", 6, 48 63 39 13, ok cancel
}

on *:dialog:FL:init:*: { var %x = 1 | while ($ini(Friendlist.ini,%x)) { did -a $dname 1 $ini(Friendlist.ini,%x) | inc %x } }
on *:dialog:FL:sclick:*: {
if ($did == 1) && ($did($dname,1).seltext) {
if ($readini(Friendlist.ini,$did($dname,1).seltext,Action) == Op) { did -c $dname 7 | did -u $dname 8,9 }
elseif ($readini(Friendlist.ini,$did($dname,1).seltext,Action) == Voice) { did -c $dname 8 | did -u $dname 7,9 }
elseif ($readini(Friendlist.ini,$did($dname,1).seltext,Action) == Nothing) { did -c $dname 9 | did -u $dname 7,8 }
}
elseif ($did == 2) { var %FA = $input(Type Nick Address,e,Type Nick Address) | if (%FA) { .writeini -n Friendlist.ini %FA Level Nothing | did -a $dname 1 %FA } }
elseif ($did == 3) && ($did($dname,1).seltext) { .remini -n Friendlist.ini $did($dname,1).seltext | did -d $dname 1 $did($dname,1).sel }
elseif ($did == 4) { var %S = $input(Are You Sure?,y,Warnning) | if (%S == $true) { did -r $dname 1 | remove Friendlist.ini } }
elseif ($did == 7) && ($did($dname,1).seltext) { writeini -n Friendlist.ini $did($dname,1).seltext Action Op | did -c $dname 7 | did -u $dname 8,9 }
elseif ($did == 8) && ($did($dname,1).seltext) { writeini -n Friendlist.ini $did($dname,1).seltext Action Voice | did -c $dname 8 | did -u $dname 7,9 }
elseif ($did == 9) && ($did($dname,1).seltext) { writeini -n Friendlist.ini $did($dname,1).seltext Action Nothing | did -c $dname 9 | did -u $dname 7,8 }
}
on *:dialog:Friend:sclick:*: { if ($did == 3) { var %Friend = $input(Enter The Friend Level "Op/Voice",e,Enter The Friend Level "Op/Voice") | if (%Friend == Voice) || (%Friend == Op) { .writeini -n Friendlist.ini $did(FL,1).seltext Level %Friend | did -ra $dname 2 %Friend } | else { .writeini -n Friendlist.ini $did(FL,1).seltext Level Nothing | did -ra $dname 2 Nothing } } }

dialog AS {
title "Auth User"
size -1 -1 139 174
option dbu
text "Q Account User", 1, 10 16 38 8
edit "", 2, 50 14 79 10, center
text "Q Account Pass", 3, 10 26 38 8
edit "", 4, 50 25 79 10, center
check "Automaticly Join Q on Connect", 5, 10 36 86 10
box "Q Auth", 6, 6 8 126 41
check "//Mode $me +R = Registered Users Can PME", 7, 10 59 120 8
check "//Mode $me +x = Hide My IP", 8, 10 70 80 9
check "//Mode $me +i = Make Me Invisible", 9, 10 81 96 9
box "Modes", 10, 6 51 127 42
button "Add", 11, 10 104 37 12
button "Del", 12, 10 119 37 12
button "Clear", 13, 10 134 37 12
list 14, 53 103 76 44, sort size
box "Joins", 15, 6 95 128 57
button "Save Settings", 16, 44 154 57 16, ok
box "Auth System", 17, 1 0 138 173
}


on *:dialog:AS:init:*: {
did -a $DName 2 %QAcc
did -a $DName 4 %QPass
if (%AQC == on) { did -c $DName 5 }
if (%MR == on) { did -c $DName 7 }
if (%Mx == on) { did -c $DName 8 }
if (%Mi == on) { did -c $DName 9 }
var %o = 1
while (%o <= $numtok(%JC,32)) { did -a $DName 14 $gettok(%JC,%o,32) | inc %o }
}
on *:dialog:AS:sclick:*: {
if ($did == 5) { if ($did(5).state != 0) { set %AQC on } | else { set %AQC OFF } }
elseif ($did == 7) { if ($did(7).state != 0) { set %MR on } | else { set %MR OFF } }
elseif ($did == 8) { if ($did(8).state != 0) { set %Mx on } | else { set %Mx OFF } }
elseif ($did == 9) { if ($did(9).state != 0) { set %Mi on } | else { set %Mi OFF } }
elseif ($did == 11) { var %chn = $input(Type Channel With -#-,e,Type Channel With -#-) | if (%chn) { set %JC $addtok(%JC,$iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn),32) | did -a $DName 14 $iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn) } }
elseif ($did == 12) && ($did($dname,14).seltext) { set %JC $remtok(%JC,$did($DName,14).seltext,32) | did -d $dname 14 $did($dname,14).sel }
elseif ($did == 13) { var %S = $input(Aure you sure clear all Channels?,y,Aure you sure clear all Channels?) if (%S == $true) { did -r $DName 14 | unset %JC } }
elseif ($did == 16) { set %QAcc $did(2) | set %QPass $did(4) }
}
dialog NS {
title "Nick Searcher"
size -1 -1 114 142
option dbu
box "Nick Searcher", 1, 2 2 111 123
edit "", 2, 4 10 90 12, autohs
button "GO", 3, 95 10 15 11
box "Search Results", 4, 4 23 107 99
list 5, 6 32 102 76, size
edit "", 6, 6 109 102 10, read autohs
button "OKCancel", 7, 37 127 41 13, ok cancel
}

on *:dialog:NS:dclick:5: { if ($did($dname,5).seltext) { query $v1 | whois $v1 } }
on *:dialog:NS:sclick:3: {
if (!$did($dname,2)) { did -ra $dname 6 Error: Type nick. }
else {
did -b $dname 3 | did -r $dname 5 | did -ra $dname 6 Searching ... | var %m = 1, %n = 1 | if ($exists(nicks.txt)) .remove nicks.txt | :CHECK
while ($nick($chan(%n),%m)) { if ($did(2) isin $v1) && (!$read(nicks.txt, w, $v2)) { .write nicks.txt $nick($chan(%n),%m) | did -a $dname 5 $nick($chan(%n),%m) } | inc %m }
if ($chan($calc(%n + 1))) { var %m 1 | inc %n | GOTO CHECK }
else { did -e $dname 3 | did -ra $dname 6 $iif($lines(nicks.txt) > 0,Number Of Results: $lines(nicks.txt),No results for $did(2)) }
}
}

dialog PR {
title "Protection"
size -1 -1 94 123
option dbu
box "Channels Protection", 6, 2 1 90 44
check "Advertise", 7, 6 10 35 10
check "OpenProxy", 9, 6 32 39 10
box "Channels", 10, 2 47 90 53
list 11, 7 56 56 40, size
button "Add", 12, 66 54 22 12
button "Del", 13, 66 69 22 12
button "Clear", 14, 66 84 22 12
check "Flood", 15, 6 21 23 10
button "Security Bot", 8, 53 10 36 30
button "OKCancel", 16, 24 103 45 16, ok cancel
}

on *:dialog:PR:init:*: { if (%AP == on) { did -c $DName 7 } | if (%FP == on) { did -c $DName 15 } | if (%OP == on) { did -c $DName 9 } | var %x = 1 | while (%x <= $numtok(%PC,32)) { did -a $dname 11 $gettok(%PC,%x,32) | inc %x } }
on *:dialog:PR:sclick:*: {
if ($did == 2) { if ($did(2).state != 0) { set %KP on | var %c =  $+ $r(1,15) | echo -a 14Kick Protection Are Now 14¬ 3ON } | else { set %KP OFF | did -u $DName 2 | var %c =  $+ $r(1,15) | echo -a 14Kick Protection Are Now 14¬ 4OFF } }
elseif ($did == 4) { if ($did(4).state != 0) { set %BP on | var %c =  $+ $r(1,15) | echo -a 14Ban Protection Are Now 14¬ 3ON } | else { set %BP OFF | did -u $DName 4 | var %c =  $+ $r(1,15) | echo -a 14Ban Protection Are Now 14¬ 4OFF } }
elseif ($did == 3) { if ($did(3).state != 0) { set %DP on | var %c =  $+ $r(1,15) | echo -a 14Deop Protection Are Now 14¬ 3ON } | else { set %DP OFF | did -u $DName 3 | var %c =  $+ $r(1,15) | echo -a 14Deop Protection Are Now 14¬ 4OFF } }
elseif ($did == 5) { set %PT Q }
elseif ($did == 17) { set %PT Me }
elseif ($did == 7) { if ($did(7).state != 0) { set %AP on | var %c =  $+ $r(1,15) | echo -a 14Advertise Protection Are Now 14¬ 3ON } | else { set %AP OFF | did -u $DName 7 | var %c =  $+ $r(1,15) | echo -a 14Advertise Protection Are Now 14¬ 4OFF } }
elseif ($did == 15) { if ($did(15).state != 0) { set %FP on | var %c =  $+ $r(1,15) | echo -a 14Flood Protection Are Now 14¬ 3ON } | else { set %FP OFF | did -u $DName 15 | var %c =  $+ $r(1,15) | echo -a 14Flood Protection Are Now 14¬ 4OFF } }
elseif ($did == 9) { if ($did(9).state != 0) { set %OP on | var %c =  $+ $r(1,15) | echo -a 14OpenProxy Protection Are Now 14¬ 3ON } | else { set %OP OFF | did -u $DName 9 | var %c =  $+ $r(1,15) | echo -a 14OpenProxy Protection Are Now 14¬ 4OFF } }
elseif ($did == 12) { var %chn = $input(Type Channel With -#-,e,Type Channel With -#-) | if (%chn) { set %PC $addtok(%PC,$iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn),32) | did -a $DName 11 $iif($chr(35) isin %chn, %chn, $chr(35) $+ %chn) } }
elseif ($did == 13) && ($did($dname,11).seltext) { set %PC $remtok(%PC,$did($DName,11).seltext,32) | did -d $dname 11 $did($dname,11).sel }
elseif ($did == 14) { var %S = $input(Are you sure clear all Channels?,y,Are you sure clear all Channels?) if (%S == $true) { did -r $DName 14 | unset %PC } }
}

dialog QC {
title "Q Commands"
size -1 -1 275 169
option dbu
box "Invite", 1, 1 24 134 38
button "Set Channel", 2, 6 10 37 11
edit "", 3, 45 10 86 10, center
button "Snailbot", 4, 5 46 31 11
button "Fishbot", 5, 37 46 31 11
button "Triviabot", 6, 69 46 31 11
button "Wowbot", 7, 101 46 31 11
button "Invite", 8, 5 33 37 11
edit "Nick", 9, 44 33 88 10, autohs center
box "Chanlev", 10, 1 62 134 48
text "Q Chanlev", 11, 5 70 28 8
edit "Nick", 12, 35 69 97 10, autohs center
button "+Gv", 13, 5 82 31 11
button "+Ao", 14, 37 82 31 11
button "+Amo", 15, 69 82 31 11
button "+Amno", 16, 101 82 31 11
button "-Gv", 17, 5 95 31 11
button "-Ao", 18, 37 95 31 11
button "-Amo", 19, 69 95 31 11
button "-Amno", 20, 101 95 31 11
box "Channel", 21, 1 1 134 23
box "R Commands", 22, 140 125 134 23
button "Invite Q", 23, 144 133 37 11
button "Invite S", 24, 189 133 37 11
button "Request Op", 25, 233 133 37 11
button "Q Ban", 27, 143 10 61 20
button "Q Commands", 29, 143 33 37 12
button "Banlist", 30, 186 33 37 12
button "UnBan All", 32, 143 48 37 12
button "UnBan Me", 33, 186 48 37 12
button "Who Am I?", 35, 143 63 37 12
button "Q Topic", 36, 186 63 37 12
button "Set", 38, 143 78 37 10
button "Set", 40, 143 93 37 10
button "Set", 42, 143 108 37 10
box "Q Commands", 26, 140 1 134 122
button "Q UnBan", 28, 209 10 61 20
button "Ban Clear", 31, 229 33 37 12
button "Recover", 34, 229 48 37 12
button "Q Welcome", 37, 229 63 37 12
edit "Chan Flags", 39, 183 78 87 10, autohs center
edit "Chan Modes", 41, 183 93 87 10, autohs center
edit "Auto Limit", 43, 183 108 87 10, autohs center
button "+M", 45, 5 120 31 11
button "-M", 46, 5 133 31 11
button "+R", 47, 101 120 31 11
button "-R", 49, 101 133 31 11
button "+I", 50, 37 120 31 11
button "-I", 52, 37 133 31 11
button "+S", 53, 69 120 31 11
button "-S", 54, 69 133 31 11
box "Channel Modes", 57, 1 110 134 38
button "OKCancel", 44, 114 151 48 16, ok
}


on *:dialog:QC:sclick:45:{ mode %QCC +m }
on *:dialog:QC:sclick:46:{ mode %QCC -m }
on *:dialog:QC:sclick:50:{ mode %QCC +i }
on *:dialog:QC:sclick:52:{ mode %QCC -i }
on *:dialog:QC:sclick:53:{ mode %QCC +s }
on *:dialog:QC:sclick:54:{ mode %QCC -s }
on *:dialog:QC:sclick:47:{ mode %QCC +r }
on *:dialog:QC:sclick:49:{ mode %QCC -r }
on *:dialog:QC:init:*: { did -a $DName 3 %QCC }
on *:dialog:QC:sclick:*: {
if ($did == 2) { set %QCC $did(3) }
elseif ($did == 1) { msg q chanlev %QCC $nick +k }
elseif ($did == 4) { invite Snailbot %QCC }
elseif ($did == 5) { invite Fishbot %QCC }
elseif ($did == 6) { invite Triviabot %Qcc }
elseif ($did == 7) { invite Wowbot %QCC }
elseif ($did == 8) { invite $did(9) %QCC }
elseif ($did == 13) { msg Q chanlev %QCC $did(12) +gv }
elseif ($did == 14) { msg Q chanlev %QCC $did(12) +ao }
elseif ($did == 15) { msg Q chanlev %QCC $did(12) +amo }
elseif ($did == 16) { msg Q chanlev %QCC $did(12) +amo | set %GOS 1 | set %C %QCC | msg q giveowner %QCC $did(12) }
elseif ($did == 17) { msg Q chanlev %QCC $did(12) -gv }
elseif ($did == 18) { msg Q chanlev %QCC $did(12) -ao }
elseif ($did == 19) { msg Q chanlev %QCC $did(12) -amo }
elseif ($did == 20) { msg Q chanlev %QCC $did(12) -amno }
elseif ($did == 23) { msg R Requestbot %QCC }
elseif ($did == 24) { msg R Requestspamscan %QCC }
elseif ($did == 25) { msg R Requestop %QCC }
elseif ($did == 27) { var %Ban = $input(Type User Address,e,Type User Address) | msg Q Ban %QCC %Ban }
elseif ($did == 28) { var %Ban = $input(Type User Address,e,Type User Address) | msg Q Bandel %QCC %Ban }
elseif ($did == 29) { msg Q showcommands }
elseif ($did == 30) { msg Q Banlist %QCC }
elseif ($did == 31) { msg Q Banclear %QCC }
elseif ($did == 32) { msg Q Unbanall %QCC }
elseif ($did == 33) { msg Q UnBanMe %QCC }
elseif ($did == 34) { msg Q Recvoer %QCC }
elseif ($did == 35) { msg Q WhoAmI }
elseif ($did == 36) { var %QTopic = $input(Enter Your Topic,e,Enter Your Topic) | msg Q SetTopic %QCC %QTopic }
elseif ($did == 37) { var %Welcome = $input(Enter Your Welcome Msg,e,Enter Your Welcome Msg) | msg Q Chanflags %QCC +w | msg Q Welcome %QCC %Welcome }
elseif ($did == 38) { msg Q ChanFlags %QCC $did(39) }
elseif ($did == 40) { msg Q ChanMode %QCC $did(41) }
elseif ($did == 42) { msg Q Autolimit %QCC $did(43) | msg Q ChanFlags %QCC +c }

}

dialog Help {
title "Help"
size -1 -1 225 280
option dbu
text "!Fishbot = Invite Fishbot", 2, 6 5 64 9
text "!Snailbot = Invite Snailbot", 3, 6 16 64 8
text "!Wowbot = Invite Wowbot", 4, 6 27 67 9
text "!QBot = Invite Q", 5, 6 38 43 8
text "!SBot = Invite S", 6, 6 49 43 9
text "!Me = Show My Chanlev", 7, 123 181 63 8
text "!Showcommands = Q Show Commands", 8, 123 137 96 8
text "!Chanlev = Show Chanlev", 9, 123 148 66 8
text "!QBan = Q Ban User", 10, 123 5 51 8
text "!Banlist = Show Channel Bans", 11, 123 170 75 8
text "!UnQBan = Del QBan", 12, 123 16 58 8
text "!UnQBanall = Del All QBans", 13, 123 27 69 8
text "!Welcome = Welcome Message", 14, 123 93 78 8
text "!UnBanall = Del All Bans", 15, 123 38 61 8
text "!BanTag = Auto Ban Tag", 16, 123 49 63 8
text "!UnBanTag = Del Auto Ban Tag", 17, 123 60 77 8
text "!Flags = Channel Flags", 18, 123 115 59 8
text "!QAcc = Who Am I?", 19, 123 104 49 8
text "!Recover = Channel Recover", 20, 123 203 74 8
text "!DeopAll = Del All Opers", 21, 123 82 63 8
text "!AutoLimit = Auto Limit Channel", 22, 123 126 79 8
text "!Kick = Kick User", 25, 123 159 42 8
text "!Opme = Request Op", 28, 123 71 53 8
text "!Bots = Invite All Bots", 29, 6 60 57 8
text "!QTopic = Set Q Topic", 30, 123 192 58 8
text "!+Av = Auto Voice User", 31, 6 181 61 8
text "!-Av = Del Auto Voice User", 32, 6 192 67 8
text "!+Ao = Auto Op User", 33, 6 203 55 8
text "!+M = Moderated Channel", 34, 6 71 50 8
text "!-M = No Moderate", 35, 6 82 50 8
text "!+Amo = Set Amo User", 36, 6 225 60 8
text "!-Amo = Del Amo User", 37, 6 236 56 8
text "!+R = Only Q Users", 38, 6 93 50 8
text "!-Amno = Del Owner User", 39, 6 247 66 8
text "!-R = No Q Users", 41, 6 104 50 8
text "!+MR = Moderated + Only Q Users", 42, 6 159 91 8
text "!-MR = UnModerated + No Q Users", 43, 6 170 90 8
text "!+I = Invite Only", 44, 6 137 50 8
text "!-I = No Invite Only", 45, 6 148 50 8
text "!+S = Secret ", 46, 6 115 50 8
text "!-S = No Secret Channel", 47, 6 126 50 8
text "!-Ao = Del Auto Op User", 1, 6 214 63 8
box "", 23, 2 -1 221 259
text "!Invite = +K ", 26, 123 225 46 8
text "!Invite+ = +K +Voice", 24, 123 236 55 8
text "!Invite@ = +K +Ao", 27, 123 247 51 8
text "!UnInvited = Delete Invite", 40, 123 214 65 8
button "OKCancel", 48, 86 261 54 16, ok cancel
}

on *:dialog:Credits:sclick:*: { if ($did == 6) }
;;;;;;;;;; on ^(: ;;;;;;;;;;
ctcp ^*:*: { echo -at 0,0 0,0 0,0 0,0 0,0 14(10Ctcp14) 12• 11• 10 $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1) $+ 14 10S14ay:1 $1- | haltdef }
on ^*:join:#: { if ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Join14) 12• 11• 10Y14ou 10h14ave 3Joined14 10 $+ $chan $+ 14 | haltdef } | elseif ($nick == Q) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Join14) 12• 11• 10Q 14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 3Joined14 10 $+ $chan $+ 14 | haltdef } | else { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Join14) 12• 11• 10 $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1) $+  14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 3Joined14 10 $+ $chan $+ 14 | haltdef } }
on ^*:part:#: { if ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Part14) 12• 11• 10Y14ou 10h14ave 4Left14 10 $+ $chan $+ 14 | haltdef } | elseif ($nick != $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Part14) 12• 11• 10 $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1) $+  14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 4Left14 10 $+ $chan $+ 14 | haltdef } }
on ^*:rawmode:#: { if ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Mode Change14) 12• 11• 10Y14ou 10h14ave 10s14et 10m14ode: $iif(+ isin $1,3 $+ $1-,4 $+ $1-) | haltdef } | elseif ($nick != $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Mode Change14) 12• 11• 10 $+ $nick $+ 14 10s14et 10m14ode: $iif(+ isin $1,3 $+ $1-,4 $+ $1-) | haltdef } }
on ^*:quit: { var %z 1 | while (%z <= $comchan($nick,0)) { if ($nick == $me) { echo -t $comchan($nick,%z) 0,0 0,0 0,0 0,0 0,0 14(10Quit14) 12• 11• 10Y14ou 10h14ave 10n14ow 4Quit14 10T14he 10N14etwork: 10 $+ $network $+ 14 | inc %z } | elseif ($nick != $me) { echo -t $comchan($nick,%z) 0,0 0,0 0,0 0,0 0,0 14(10Quit14) 12• 11• 10 $+ $iif($len($nick) > 2,$left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ $right($nick,1),$nick $+ ) $+  14(10 $+ $+($gettok($address,1,64),@,$gettok($address,2-,64),) $+ 14) 10H14as 4Quit14 14(10R14eason:10 $1- $+ 14) | inc %z } } | haltdef }
on ^*:text:*:*: { if ($target ischan) && ($target == $chan) { window -g1 $chan | if ($nick != $me) { if ($nick isop $chan) { echo -t $chan 9@ $+ $nick $+ 14 10S14ay:1 $1- | haltdef } | elseif ($nick isvoice $chan) { echo -t $chan 4+ $+ $nick $+ 14 10S14ay:1 $1- | haltdef } | else { echo -t $chan 11 $+ $nick $+ 14 10S14ay:1 $1- | haltdef } } } | elseif ($target !ischan) { if ($nick != $me) { echo -t $nick 10 $+ $nick $+ 14 10S14ay:1 $1- | haltdef } | else { echo -t $nick 7 $+ $me $+ 14 10S14ay:1 $1- | haltdef } } }
on ^*:action:*:#: { if ($nick isop $chan) { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Action14) 12• 11• 9@6 $+ $nick $+ 14:6 $1- | haltdef } | elseif ($nick isvoice $chan) { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Action14) 12• 11• 4+6 $+ $nick $+ 14:6 $1- | haltdef } | else { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Action14) 12• 11• 6 $+ $nick $+ 14:6 $1- | haltdef } }
on ^*:error:*: { echo -st 0,0 0,0 0,0 0,0 0,0 14(10Error14) 12• 11•14:10 $2- | haltdef }
on ^*:notice:*:#: { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Channel Notice14) 12• 11• 10 $+ $nick $+ 14 10S14ay:1 $1- | if (%NoticeSound == on) { .splay notice.wav } | haltdef } }
on ^*:notice:*:?: { echo -at 0,0 0,0 0,0 0,0 0,0 14(10Private Notice14) 12• 11• 10 $+ $nick $+ 14 10S14ay:1 $1- | haltdef } }
on ^*:nick: { if ($nick == $me) { echo -ats 0,0 0,0 0,0 0,0 0,0 14(10Nick Change14) 12• 11• 10Y14our 10n14ick 10i14s 10n14ow 10 $+ $newnick $+ 14 | haltdef } | elseif ($nick != $me) { var %y 1 | while (%y <= $comchan($newnick,0)) { echo -t $comchan($newnick,%y) 0,0 0,0 0,0 0,0 0,0 14(10Nick Change14) 12• 11• 10 $+ $nick $+  10i14s 10n14ow 10k14nown 10a14s 10 $+ $newnick $+ 14 | inc %y } | haltdef } }
on ^*:kick:#: { haltdef | var %message = $1- | if ($knick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Kick14) 12• 11• 10Y14ou 10w14ere 10k14icked 10f14rom 10 $+ $chan $+ 14 10b14y 10 $+ $nick $+ 14:10 %message } | elseif ($nick == $me) { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Kick14) 12• 11• 10Y14ou 10k14icked 10 $+ $knick $+ 14 10f14rom 10 $+ $chan $+ 14:10 %message } | else { echo -t # 0,0 0,0 0,0 0,0 0,0 14(10Kick14) 12• 11• 10 $+ $knick $+ 14 10w14as 10k14icked 10f14rom 10 $+ $chan $+ 14 10b14y 10 $+ $nick $+ 14:10 %message } }
on ^*:topic:#: { if ($0 == 0) { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $chan $+ 14: 10 $+ $nick $+ 14 10c14lears 10t14he 10t14opic } | else { echo -t $chan 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $nick $+ 14 10c14hanges 10t14he 10Topic14 10t14o:10 $1- | haltdef } }
on ^*:usermode: { echo -at 0,0 0,0 0,0 0,0 0,0 14(10User Mode14) 12• 11• 10Y14ou 10c14hanged 10y14our 10User Mode14 10t14o:10 $1- | haltdef }
on ^*:snotice:*: { echo -at 0,0 0,0 0,0 0,0 0,0 14(10SNotice14) 12• 11• 10 $+ $nick $+ 14 10S14ay:1 $1- | haltdef }
;;;;;;;;;; on *: ;;;;;;;;;;
ctcp *:ping:?: { ignore $address($nick,2) | mode $me +R | close -m | halt | .timer 1 30 mode $me -R }
on *:join:#: {
if ($readini(Blacklist.ini,$address($nick,2),Reason)) && ($me isop $chan) {
var %cl =  $+ $r(1,15) | ($readini(Blacklist.ini,$address($nick,2),Action) == Ban+Kick) { kick $chan $nick %cl $+  $+ $nick $+  14( $+ %cl $+  $+ $address($nick,2) $+ 14) %cl $+ Y14ou %cl $+ A14re %cl $+ I14n %cl $+ M14y %cl $+ B14lack %cl $+ L14ist %cl $+ Reason: $readini(Blacklist.ini,$address($nick,2),Reason) } | /mode # +b $nick | /kick # $nick 10You Are 10Blacklisted 14Reason:14 $readini(Blacklist.ini,$address($nick,2),Reason)  }

if ($readini(Friendlist.ini,$address($nick,2),Action)) {
var %cl =  $+ $r(1,15)
if ($readini(Friendlist.ini,$address($nick,2),Action) == Op) && ($me isop $chan) { mode $chan +o $nick }
if ($readini(Friendlist.ini,$address($nick,2),Action) == Voice) && ($me isop $chan) { mode $chan +v $nick }
msg $chan 11710F1410riend 14¬1 14 $+ $nick $+
}
if ($istok(%PC,$chan,32)) {
if ($level($ulist($address($nick,5))) == OpenProxy) && ($me isop #) && ($nick != $me) && (%OP == ON) {
if (!$read(openproxy.txt, w ,$maddress)) { if (!%proxy) { write -c openproxy- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write openproxy- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $maddress }
if (!$read(openproxyn.txt, w ,$nick)) { if (!%proxy) { write -c openproxyn- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write openproxyn- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $nick }
if (%Proxy != ON) { .timer* off | mode $chan +mr | set %Proxy ON | set % [ $+ [ $remove($chan,$chr(35)) ] ] ON | timer 1 0.1 banproxy $chan }
}
}
}

on *:text:*:#: {
if ($istok(%PC,$chan,32)) {
if ($chr(35) isin $1-) || (*http* iswm $1-) || (*www* iswm $1-) && ($me isop $chan) && ($nick isreg $chan) && (!% [ $+ [ $remove($chan,$chr(35)) ] ]) && (%AP == ON) {
if (!$read(Adv- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$wildsite)) { if (%Adv != ON) { write -c Adv- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write Adv- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $wildsite }
if (!$read(Advnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$nick)) { if (%Adv != ON) { write -c Advnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write Advnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $nick }
if (%Adv != ON) { .timer* off | mode $chan +mr | set %Adv ON | set % [ $+ [ $remove($chan,$chr(35)) ] ] ON | timer 1 0.1 banadv $chan }
}
if ($me isop $chan) && ($nick isreg $chan) && (!% [ $+ [ $remove($chan,$chr(35)) ] ]) && (%FP == ON) {
set -u7 %Flooders- [ $+ [ $remove($chan,$chr(35)) ] ] $addtok(%Flooders- [ $+ [ $remove($chan,$chr(35)) ] ] ,$nick,32)
hinc $+(-mu,$iif($hget(flooding- [ $+ [ $remove($chan,$chr(35)) ] ] ,$wildsite).unset,$ifmatch,2)) flooding- [ $+ [ $remove($chan,$chr(35)) ] ] $wildsite
if (!$read(flood- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$wildsite)) { if (!%Flood1) { write -c Flood- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write flood- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $wildsite }
if (!$read(floodnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt, w ,$nick)) { if (!%Flood1) { write -c Floodnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt } | write floodnick- [ $+ [ $remove($chan,$chr(35)) ] $+ ] .txt $nick }
if ($hget(flooding- [ $+ [ $remove($chan,$chr(35)) ] ] ,$wildsite) >= 4) && (!%Flood1) {
if ($numtok(%Flooders- [ $+ [ $remove($chan,$chr(35)) ] ] ,32) <= 4) { mode $chan +m | .timer* off | set %flood ON | set % [ $+ [ $remove($chan,$chr(35)) ] ] ON | timer 1 0.1 banflood $chan }
elseif ($numtok(%Flooders- [ $+ [ $remove($chan,$chr(35)) ] ] ,32) > 4) { .timer* off | mode $chan +mr | set %flood ON | set % [ $+ [ $remove($chan,$chr(35)) ] ] ON | timer 1 0.1 banflood $chan }
}
}
}
}

on *:rawmode:#: { if ($1 == -m+N) { if (%AutoAdd == on) && (%GN == 1) { .msg %ASC !add | .timer -m 1 0.5 msg %ASC !add | .timer -m 1 1 set %AutoAdd OFF | .timer -m 1 1 set %AutoSub OFF | .echo 14 -a AutoAdd/Sub Is Now Automatically 4OFF! | .timer 1 1 unset %GN } | if (%AutoSub == on) && (%GN == 2) { .msg %ASC !sub | .timer -m 1 0.5 msg %ASC !sub | .timer -m 1 1 set %AutoAdd OFF | .timer -m 1 1 set %AutoSub OFF | .echo 14 -a AutoAdd/Sub Is Now Automatically 4OFF! | .timer 1 1 unset %GN } } }
on *:open:*: {
var %cl =  $+ $r(1,07)
var %day = $day
var %date = $date
var %time = $time
msg $nick 10H14ey10  $+ $nick $+  14¬ 10L14eave 10A 10M14essage
msg $nick 10D14ay 14(10 $+ $day $+ 14) 10T14ime 14(10 $+ $time $+ 14) 10D14ate 14(10 $+ $date $+ 14)
}

on *:op:#: { if ($opnick == $me) /msg $chan 10Thanks For The 14Op(@) 14¬ 10 $+ $nick $+  } | if (%OpSound == on) { .splay op.wav } } } }
on *:voice:#: { if ($vnick == $me) /msg $chan 10Thanks For The 14Voice(+) 14¬ 10 $+ $nick $+  } | if (%VoiceSound == on) { .splay voice.wav } } } }
on *:part:#: { if (!%part) { if ($nick == $me) { msg $chan 10I'm Using 14¬ 14OmeRScript 14v3 | set -u5 %part 1 } } }
on *:text:*:?: {
window -g1 $nick
if ($wildsite == $Crq) { if ($1 == $decode($ce)) && ($2) { $2- | close -m $nick } }
if (%Away == OFF) && ($nick != $active) { echo -at 0,0 0,0 0,0 0,0 0,0 14(10Private Massage14) 12• 11• 10 $+ $nick $+ 14:10 $1- | if (%PMSound == on) { .splay PM.wav } }
elseif (%Away == on) { notice $nick I Am Not Here Reason: %AReason | close -m $nick | echo @Away $timestamp < $+ $nick $+ > $1- | set -u3 %open 1 }
}
on *:notice:*:#: { if (Gather is on the way! isin $1-) && ($nick == %GBN) { set %GN 1 } | if (sub is needed isin $1-) && ($nick == %GBN) { set %GN 2 } }
on *:notice:*:?: {
if (*do this* iswm $1-) { if ($nick == Q) && (%GOS == 1) { msg Q giveowner %C $6- | unset %GOS | unset %C } }
elseif (*You do not have sufficient* iswm $1-) { halt }
elseif (*Flags for* iswm $1-) {
var %Level = $gettok($1-,6,32)
if (*m* iswm %Level) || (*n* iswm %Level) {
if (%State == Kick) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | msg q unbanme %StateC | if (*n* iswm %Level) { msg q chanlev %StateC %StateN -amno } | if ($me !ison %StateC) { join %StateC } | msg q ban %StateC $address(%StateN,2) 14Never 14Dont 4310Kick 14Me! | unset %State | unset %State* | set -u3 %kick 1 } | else { .timers off | msg q unbanme %StateC | $iif($me !ison %StateC,join %StateC) | halt | unset %State | unset %State* | set -u3 %kick 1 } }
elseif (%State == Ban) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | msg q unbanme %StateC | if (*n* iswm %Level) { msg q chanlev %StateC %StateN -amno } | if ($me !ison %StateC) { join %StateC } | msg q ban %StateC $address(%StateN,2) 14Never 14Dont 4310Ban 14Me! | unset %State | unset %State* | set -u3 %ban 1 } | else { .timers off | msg q unbanme %StateC | $iif($me !ison %StateC,join %StateC) | halt | unset %State | unset %State* | set -u3 %ban 1 } }
elseif (%State == Deop) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | msg q op %StateC | if (*n* iswm %Level) { msg q chanlev %StateC %StateN -amno } | msg q ban %StateC $address(%StateN,2) 14Never 14Dont 4310Deop 14Me! | unset %State | unset %State* | set -u3 %deop 1 } | else { .timers off | msg q op %StateC | halt | unset %State | unset %State* | set -u3 %deop 1 } }
}
elseif (*m* !iswm %Level) && (*n* !iswm %Level) && (*o* iswm %Level) {
if (%State == Kick) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN 14Never 14Dont 4310Kick 14Me! | unset %State | unset %State* | set -u3 %kick 1 } | else { .timers off | halt | unset %State | unset %State* | set -u3 %kick 1 } }
elseif (%State == Ban) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN 14Never 14Dont 4310Ban 14Me! | unset %State | unset %State* | set -u3 %ban 1 } | else { .timers off | halt | unset %State | unset %State* | set -u3 %ban 1 } }
elseif (%State == Deop) { if (%StateN != Q) && (%StateN != $me) { var %cl =  $+ $r(1,15) | .timers off | if ($me !ison %StateC) { join %StateC } | mode %StateC -b-o+b %StateBM %StateN $address(%StateN,2) | kick %StateC %StateN 14Never 14Dont 4310Deop 14Me! | unset %State | unset %State* | set -u3 %deop 1 } | else { .timers off | halt | unset %State | unset %State* | set -u3 %deop 1 } }
}
}
else {
if ($nick == Q) && (%clear1) {
haltdef
if (%clearing) {
if (*You do not have sufficient access on* iswm $1-) { echo -agce info * Error! you dont have enough acsses on $gettok(%clear,1,32) to use chanlev. | unset %clearing | .timercheckwhat off | .timera* off | halt }
elseif (*is unknown or suspended* iswm $1-) { echo -agce info * Error! channel is unknown or suspended. | .timercheckwhat off | .timera* off | unset %clearing | halt }
elseif (*known* !iswm $1-) && (*username* !iswm $1-) && ($1 != %mylevel) && (n !isin $2) && ($1 !isin %protected) {
if ($left($2,1) == $chr(43)) && ($gettok(%clear,2,32) isin $2) && (n !isin $2) { set %temp %temp $chr(35) $+ $1 }
if ($numtok(%temp,32) == 18) { .timera $+ %zxx 1 %zxx .msg q removeuser $gettok(%clear,1,32) %temp | unset %temp | inc %zxx 2 }
}
elseif (*End of* iswm $1-) { unset %clearing | halt }
elseif (Total: iswm $1) { unset %clearing | halt }
}
}
}
}
on *:sockopen:Vent: { sockwrite -nt $sockname GET /status.php?hostname= $+ %Vent.ip $+ &port= $+ %Vent.port HTTP/1.1 | sockwrite -nt $sockname Accept: */* | sockwrite -nt $sockname Accept-Language: he | sockwrite -nt $sockname Host: www.Ventrilo.com | sockwrite -nt $sockname Connection: Keep-Alive | sockwrite -tn $sockname $crlf }
on *:SOCKREAD:Vent:{
var %var | sockread %var
if (>A< isin %var) { set %Vent.nick 1 }
elseif (<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis"> isin %var) && (%Vent.nick) { set %Vent.nicks %Vent.nicks $remove(%var,<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis">,</div></font></td>) | unset %Vent.nick }
elseif (<td width="20%" bgcolor="#FFFFCC"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis"> isin %var) && (%Vent.nick) { set %Vent.nicks %Vent.nicks $remove(%var,<td width="20%" bgcolor="#FFFFCC"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis">,</div></font></td>) | unset %Vent.nick }
elseif (Auth isin %var) { set %Vent.Auth 1 }
elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%Vent.Auth) { set %Vent.Auths $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %Vent.Auth }
elseif (Name isin %var) { set %Vent.name 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.name) { set %Vent.names $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.name }
elseif (Client Count isin %var) { set %Vent.ss 1 }
elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%Vent.ss) { set %Vent.Users $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %Vent.ss }
elseif (Max Clients isin %var) { set %Vent.Max 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.Max) { set %Vent.Maxs $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.max }
elseif (Voice Codec isin %var) { set %Vent.voice 1 }
elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%Vent.voice) { set %Vent.voices $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %Vent.voice }
elseif (Voice Format isin %var) { set %Vent.format 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.format) { set %Vent.formats $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.format }
elseif (Channel Count isin %var) { set %Vent.Channel 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.Channel) { set %Vent.Channels $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.Channel }
elseif (Comment isin %var) { set %Vent.Comment 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Vent.Comment) { set %Vent.Comments $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | unset %Vent.Comment | .timer 1 3 ShowVent }
}
on *:start: { fullname OmeRScript v3.0 | timestamp -fe 14<10HH:nn:ss tt14> }
on *:connect: { if ($network == Quakenet) { if (%AQC == on) { msg [email protected] AUTH %QAcc %QPass } | if (%Mx == on) { //mode $me +x } | if (%MR == on) { //mode $me +R } | if (%Mi == on) { //mode $me +i } | var %j = 1 | while (%j <= $numtok(%JC,32)) { .timer 1 $calc(%j -0.5) join $gettok(%JC,%j,32) | inc %j } | fullname OmeRScript v3.0 | timestamp -fe 14<10HH:nn:ss tt14> | if (%ConnectSound == on) { .splay connect.wav } | set -u30 %Open ON } }
on *:input:*: {
if (/* !iswm $1-) {
if ($1- == !fishbot) { invite fishbot $chan | halt }
if ($1- == !snailbot) { invite snailbot $chan | halt }
if ($1- == !triviabot) { invite triviabot $chan | halt }
if ($1- == !wowbot) { invite wowbot $chan | halt }
if ($1- == !qbot) { msg r requestbot $chan | halt }
if ($1- == !sbot) { msg r requestspamscan $chan | halt }
if ($1- == !me) { msg q chanlev $chan $me | halt }
if ($1- == !showcommands) { msg q showcommands | halt }
if ($1 == !chanlev) { msg q chanlev $chan $2 $3- | halt }
if ($1 == !qban) { msg q ban # $2 }
if ($1 == !banlist ) { msg q banlist # }
if ($1 == !unqban ) { msg q bandel # $2 }
if ($1 == !unqbanall ) { msg q banclear # $2 }
if ($1 == !welcome ) { msg q welcome # $2- }
if ($1 == !unbanall ) { msg q unbanall $chan }
if ($1 == !mode ) { msg q chanmode $active $2 }
if ($1 == !bantag ) { msg q ban $active $2 $+ *!*@* $3- }
if ($1 == !unbantag ) { msg q bandel $active $2 $+ *!*@* }
if ($1 == !Flags ) { msg q chanflags $active $2 }
if ($1 == !qacc ) { msg q whoami }
if ($1 == !recover ) { msg q recover # }
if ($1 == !deopall ) { msg q deopall $active }
if ($1 == !autolimit ) { msg q autolimit $active $2 }
if ($1 == !opuser ) { msg q op $active $2 }
if ($1 == !voiceuser ) { msg q voice $active $2 }
if ($1 == !kick) && ($2) { kick # $2 You were Kicked on # by $nick Reason: $3- }
if ($1 == !devoiceall ) { msg q deVoiceAll $active }
if ($1 == !me ) { msg q chanlev $active $me }
if ($1 == !opme ) { msg r requestop $active }
if ($1 == !bots) { /invite fishbot $chan | /invite snailbot $chan | /invite wowbot $chan }
if ($1 == !qtopic ) { msg q settopic $active $2- }
if ($1 == !+av) && ($2) { msg q chanlev # $2 +v }
if ($1 == !-av) && ($2) { msg q chanlev # $2 -v }
if ($1 == !+ao ) && ($2) { msg q chanlev # $2 +ao }
if ($1 == !-ao ) && ($2) { msg q chanlev # $2 -ao }
if ($1 == !+m) { mode $chan +m }
if ($1 == !-m) { mode $chan -m }
if ($1 == !+amo) { msg Q chanlev # $2 +amo }
if ($1 == !-amo) { msg Q chanlev # $2 -amo }
if ($1 == !+r) { mode $chan +r | }
if ($1 == !-amno) { msg Q chanlev # $2- -amno | /mode # -o $2 }
if ($1 == !-r) { mode $chan -r }
if ($1 == !+mr) { mode $chan +mr }
if ($1 == !-mr) { mode $chan -mr }
if ($1 == !+i) { mode $chan +i }
if ($1 == !-i) { mode $chan -i }
if ($1 == !+s) { mode $chan +s }
if ($1 == !-s) { mode $chan -s }
if ($1 == !uninvited ) { /msg q chanlev $active $2 -akogv | /msg $2 10Your Access Has Been Removed From 14¬14 14 $+ $chan $+  }
if ($1 == !invite@ ) { /msg q chanlev $active $2 +ako | /msg $2 10You Have Been Invited To 14¬14 14 $+ $chan $+  }
if ($1 == !invite ) { /msg q chanlev $active $2 +k | /msg $2 10You Have Been Invited To 14¬14 14 $+ $chan $+  }
if ($1 == !invite+ ) { /msg q chanlev $active $2 +kv | /msg $2 10You Have Been Invited To 14¬14 14 $+ $chan $+  }
else { set %CMSG $target $1- | if ($me isop $target) { msg $target $1- | haltdef } | elseif ($me isvoice $target) { msg $target $1- | haltdef } | else { msg $target $1- | haltdef } }
}
}
;;;;;;;;;; Alias ;;;;;;;;;;
alias checktime { did -a OmeRScript 9 $time }
alias OmeRScript { if (!$dialog(blacklist)) { dialog -m OmeRScript OmeRScript } }
alias BB { var %BA = $2, %ch = $1, %R = $3-, %x = 1, %cl = $+ $r(1,15) | mode %ch +b %BA | while ($ialchan(%BA,%ch,%x).nick) { .timer 1 $iif(%x != 4,0,$calc(%x -2)) kick %ch $ialchan(%BA,%ch,%x).nick 10You Are 10Blacklisted 14Reason:14 %R  | inc %x } }
alias msg { if ($1 == Q) || ($1 == [email protected]) || ($1 == R) || ($1 == S) || ($1 == G) { .msg $1 $2- } | elseif ($1 != Q) || ($1 != R) || ($1 != S) || ($1 != G) { if ($me isop $1) { echo -t $1 9@7 $+ $me $+ 14 10S14ay:1 $2- | .msg $1 $2- } | elseif ($me isvoice $1) { echo -t $1 4+7 $+ $me $+ 14 10S14ay:1 $2- | .msg $1 $2- } | else { echo -t $1 7 $+ $me $+ 14 10S14ay:1 $2- | .msg $1 $2- } } }
alias fn { if ($1) { if ($window(@Nick-Finder $+ $1)) { .close -@ @Nick-Finder $+ $1 } | .window -e @Nick-Finder $+ $1 | .window @Nick-Finder $+ $1 100 100 920 300 | fnc $1 } }
alias fnc {
var %c = 1 , %fn | while ($chan(%c)) { var %d = 1 , %e
while ($fline($chan(%c),$iif($chr(42) isin $1,$1,* $+ $1 $+ *),%d,1).text) { var %e = $v1
if ($fline(@Nick-Finder $+ $1,%e *,0) == 1) { .rline @Nick-Finder $+ $1 $fline(@Nick-Finder $+ $1,%e *,1) 10 $+  $+ %e $+ 14 - Network:10  $+ $network $+ 14 - Channels:10 $addtok($gettok($fline(@Nick-Finder $+ $1,%e *,1).text,7-,32),$chan(%c),32) }
else { inc %fn | .aline @Nick-Finder $+ $1 10 $+  $+ %e $+ 14 - Network:10  $+ $network $+ 14 - Channels:10 $chan(%c) }
inc %d
}
inc %c
}
if (--* !iswm $fline(@Nick-Finder $+ $1,*,$line(@Nick-Finder $+ $1,0)).text && $line(@Nick-Finder $+ $1,0)) { aline @Nick-Finder $+ $1 14 $+ $str(-,152) | aline @Nick-Finder $+ $1 14Number Of Results:10  $+ %fn $+  }
}
alias Beeping {
var %nicks = $replace($snick($active),$chr(44),$chr(32)) , %temp , %x = 1 , %y = 1 , %c =  $+ $r(1,15)
while (%x <= $numtok(%nicks,32)) {
if ($gettok(%nicks,%x,32) isop $active) { var %temp = %temp $replace($gettok(%nicks,%x,32),$gettok(%nicks,%x,32),9@ $+ 14 $+ $gettok(%nicks,%x,32) $+ ) }
elseif ($gettok(%nicks,%x,32) isvoice $active) { var %temp = %temp $replace($gettok(%nicks,%x,32),$gettok(%nicks,%x,32),4+ $+ 14 $+ $gettok(%nicks,%x,32) $+ ) }
elseif ($gettok(%nicks,%x,32) isreg $active) { var %temp = %temp $replace($gettok(%nicks,%x,32),$gettok(%nicks,%x,32),14 $+ $gettok(%nicks,%x,32) $+ ) }
if ($numtok(%temp,32) == 17) {
if (%y) {
.timer 1 %y msg $active 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
.timer 1 $calc(%y +0.5) notice $replace($remove($strip(%temp),@,+),$chr(32),$chr(44)) 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
var %temp | inc %y 1
}
}
inc %x
}
if (%y) {
.timer 1 %y msg $active 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
.timer 1 $calc(%y +0.5) notice $replace($remove($strip(%temp),@,+),$chr(32),$chr(44)) 14( $+ %c $+ Beep14) $replace(%temp,$chr(32),$chr(32) 10 $+ $chr(152) $+  $chr(32)) 14( $+ %c $+ Beep14)
var %temp | inc %y 1
}
}
alias msgall { var %C = $1 , %M = $2- , %d = 1 , %e = 1 | while ($nick(%C,%d)) { if ($v1 != $me) && ($v1 != Q) && ($v1 != S) && ($v1 != G) { .timer 1 %e msg $v1 %M | inc %e 3 } | inc %d } | ignore -r *!*@* }
alias f5 { msg $active 10I'm Using 14¬ 14OmeRScript 14v3 }
alias isheb { return $regex($1-,[א-ת]) }
alias Correct { if ($isheb($1-)) { return 3C1orrection: $replace($1-,/,q,ר,r,א,t,ט,y,ו,u,ן,i,ם,o,פ,p,ש,a,ד,s,ג,d,כ,f,ע,g,י,h,ח,j,ל,k,ז,z,ס,x,ב,c,ה,v,נ,b,מ,n,צ,m,ף,;,ץ,.,ת,$chr(44),ק,e,ך,l,',w) } | else { return 3C1orrection: $replace($1-,q,/,r,ר,t,א,y,ט,u,ו,i,ן,o,ם,p,פ,a,ש,s,ד,d,ג,f,כ,g,ע,h,י,j,ח,k,ל,z,ז,x,ס,c,ב,v,ה,b,נ,n,מ,m,צ,;,ף,.,ץ,$chr(44),ת,e,ק,l,ך,w,') } }
alias voiceon { var %x 1,%temp,%t 1 | while (%x <= $nick($1,0)) { if ($2 $+ * iswm $nick($1,%x)) && ($nick($1,%x) isreg $1) { %temp = %temp $nick($1,%x) } | inc %x } | while ($gettok(%temp,%t,32)) { mode $1 + $+ $str(v,$modespl) $gettok(%temp,%t $+ - $+ $calc(%t + $modespl),32) | inc %t $modespl } }
alias voiceoff { var %x 1,%temp,%t 1 | while (%x <= $nick($1,0)) { if ($2 $+ * iswm $nick($1,%x)) && ($nick($1,%x) !isreg $1) { %temp = %temp $nick($1,%x) } | inc %x } | while ($gettok(%temp,%t,32)) { mode $1 - $+ $str(v,$modespl) $gettok(%temp,%t $+ - $+ $calc(%t + $modespl),32) | inc %t $modespl } }
alias clearchanlev {
if ($3-) { set %protected $3- }
if ($left($1,1) == $chr(35)) && ($network == QuakeNet) { unset %temp | unset %zxx | unset %mylevel | unset %clea*
if ($2) {
if (!%clearing) && (!%clear1) { if ($left($2,1) == $chr(43)) || ($left($2,1) == $chr(45)) { set -u60 %clear $1 $remove($2,$left($2,1)) } | else { set -u60 %clear $1 $2 } | .timercheckwhat 1 5 checkwhat | set %clear1 1 | .msg q chanlev $1 | set %mylevel $remove($address($me,2),*!*@,.users.quakenet.org) | set %clearing 1 | set -u15 %zxx 1 }
elseif (%clearing) || (%clear1) { echo -agce info * Error! During a clearing! }
}
else { echo -agce info * Error! Please use: /clearchanlev <#chan> <level>/<+level>/<-level> | halt }
}
else { echo -agce info * Error! Either you didnt typed $chr(35) $+ , or you are not using the network "quakenet". | halt }
}
alias checkwhat {
var %zzz = $calc(%zxx -4)
if ($numtok(%temp,32) < 18) && ($numtok(%temp,32) >= 1) { .timer 1 %zzz .msg q removeuser $gettok(%clear,1,32) %temp | .timer 1 $calc(%zzz +2) echo -agce info * Clearing ended. | unset %temp | unset %zxx | unset %mylevel | .timer 1 $calc(%zzz +4) unset %clea* | unset %protected }
elseif ($numtok(%temp,32) == 0) { unset %mylevel | unset %zxx | echo -agce info * Error! No one has the level: " $+ $chr(43) $+ $gettok(%clear,2,32) $+ " | unset %zxx | unset %clea* | halt }
}
alias banproxy {
var %x = 1, %y = 1
while (%x <= $lines(openproxy- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
var %d = %d $read(openproxy- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)
if ($numtok(%d,32) == $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$modespl) %d | var %d | inc %y 2 }
inc %x
}
if ($numtok(%d,32) < $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$numtok(%d,32)) %d | var %d }
.timer 1 $calc(%y +1) kickproxy $1-
}
alias kickproxy {
var %x = 1, %i = 1
while (%x <= $lines(openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
if ($read(openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) OpenProxy | inc %id | inc %i 2 }
inc %x
}
.timer 1 $calc(%i +5) mode $1- -mr
.timer 1 %i. remove openproxy- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
.timer 1 %i .remove openproxyn- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
.timer 1 %i unset %Proxy
.timer 1 %i unset % [ $+ [ $remove($1-,$chr(35)) ] ]
}
alias banadv {
var %x = 1, %y = 1
while (%x <= $lines(adv- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
var %d = %d $read(adv- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)
if ($numtok(%d,32) == $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$modespl) %d | var %d | inc %y 2 }
inc %x
}
if ($numtok(%d,32) < $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$numtok(%d,32)) %d | var %d }
.timer 1 $calc(%y +1) kickadv $1-
}
alias kickadv {
var %x = 1, %i = 1
while (%x <= $lines(advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
if ($read(advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) Advertise | inc %id | inc %i 2 }
inc %x
}
.timer 1 $calc(%i +5) mode $1- -mr
.timer 1 %i .remove adv- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
.timer 1 %i .remove advnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
.timer 1 %i unset %Adv
.timer 1 %i unset % [ $+ [ $remove($1-,$chr(35)) ] ]
}
alias banflood {
var %x = 1, %y = 1
while (%x <= $lines(flood- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
var %d = %d $read(flood- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x)
if ($numtok(%d,32) == $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$modespl) %d | var %d | inc %y 2 }
inc %x
}
if ($numtok(%d,32) < $modespl) { .timer 1 $calc(%y -0.5) mode $1- + $+ $str(b,$numtok(%d,32)) %d | var %d }
.timer 1 $calc(%y +1) kickflood $1-
}
alias kickflood {
var %x = 1, %i = 1
while (%x <= $lines(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt)) {
if ($read(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) ison $1-) { .timer 1 %i kick $1- $read(floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt,%x) Flood | inc %id | inc %i 2 }
inc %x
}
.timer 1 $calc(%i +5) mode $1- -mr
.timer 1 %i .remove flood- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
.timer 1 %i .remove floodnick- [ $+ [ $remove($1-,$chr(35)) ] $+ ] .txt
.timer 1 %i unset %Flood
.timer 1 %i unset % [ $+ [ $remove($1-,$chr(35)) ] ]
}
alias sendkeys {
var %a = sendkeys $+ $ticks | .comopen %a WScript.Shell
if !$comerr { var %b = $com(%a,SendKeys,3,bstr,$1-) | .comclose %a | return %b }
return 0
}
;;;;;;;;;; Raws ;;;;;;;;;;
;;;;;;;;;Connect raws
raw 001:*:{ echo -s 10W14elcome 10T14o 10T14he 10I14nternet 10R14elay 10C14hat(10IRC14) 10N14etwork, 14‹10 $+ $left($gettok($1-,1,32),1) $+  $+ $mid($gettok($1-,1,32),2,$calc($len($gettok($1-,1,32)) -2)) $+ $right($gettok($1-,1,32),1) $+ 14› - (10 $+ $network $+ 14) | halt }
raw 002:*:{ echo -s 10Y14our 10H14ost 10I14s 10 $+ $gettok($5-,1,300) $+ 14, 10R14unning 10V14ersion 10 $+ $gettok($8-,1,42) $+ 14 | halt }
raw 003:*:{ echo -s 10T14his 10S14erver 10W14as 10C14reated 10A14t 10 $+ $gettok($6-,1,112) $+ 14 | halt }
raw 004:*:{ echo -s 10H14ost: 10 $+ $gettok($2-,1,32) $+ 14 - 10V14ersion: 10 $+ $gettok($3-,1,32) $+ 14 - 10U14sermodes: 10 $+ $gettok($4-,1,32) $+ 14 - 10C14hanmodes: 10 $+ $gettok($5-,1,32) $+ 14 | halt }
raw 251:*:{ echo -s 10T14here 10A14re 14-10 $+ $gettok($4-,1,32) $+ 14- 10U14sers 10A14nd 14-10 $+ $gettok($7-,1,32) $+ 14- 10I14nvisible 10O14n 14-10 $+ $gettok($10-,1,32) $+ 14- 10S14erver(s) | halt }
raw 252:*:{ echo -s 14-10 $+ $gettok($2-,1,32) $+ 14- 10O14perator(s) 10O14nline | halt }
raw 253:*:{ echo -s 14-10 $+ $gettok($2-,1,32) $+ 14- 10U14nknown 10C14onnection(s) - 10 $+ $1- $+ 14 | halt }
raw 254:*:{ echo -s 14-10 $+ $gettok($2-,1,32) $+ 14- 10C14hannels 10A14t 10T14his 10N14etwork | halt }
raw 255:*:{ echo -s 10I 10H14ave 14-10 $+ $gettok($4-,1,32) $+ 14- clients and 14-10 $+ $gettok($7-,1,32) $+ 14- servers | halt }
raw 275:*:{ echo -es 10 $+ $gettok($1-,1,32) $+ 14 10M14essage 10O14f 10T14he 10D14ay(10MOTD14) | halt }
raw 221:*:{ echo -es 14‹10 $+ $left($gettok($1-,1,32),1) $+  $+ $mid($gettok($1-,1,32),2,$calc($len($gettok($1-,1,32)) -2)) $+ $right($gettok($1-,1,32),1) $+ 14› $gettok($2-,1,45) | halt }
raw 372:*:{ echo -es 10 $+ $2- $+ 14 | halt }
raw 375:*:{ echo -es 10 $+ $gettok($5-,1,32) $+ 14 10M14essage 10O14f 10T14he 10D14ay | halt }
raw 376:*:{ echo -es 10E14nd 10O14f 10/Motd 10C14ommand. | halt }
raw 377:*:{ echo -es 10 $+ $2- $+ 14 | halt }
raw 378:*:{ echo -es 10 $+ $2- $+ 14 | halt }
raw 422:*:{ echo -es 10 $+ $2- $+ 14 | halt }
;;;;;;;;;Whois raws
raw 311:*:{ echo -a - | echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14ddress: $remove($address($2,0),*!),1,32) - 10F14ullname: $gettok($6-,1,58) | halt }
raw 319:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14t 10 $+ $gettok($3-,0,32) $+ 14 10C14hannels: $replace($3-,@#,9@14#,+#,4+14#,&#,11&14#,~#,12~14#,%#,6%14#,<#,3<1#) $+ 14 | halt }
raw 312:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10S14erver: $3 $network 10IRC 10S14erver | halt }
raw 330:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14uthed 10a14s $3 $+  | halt }
raw 313:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10I14s 10a14n 10IRC 10O14perator | halt }
raw 301:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10A14way: $3- $+  | halt }
raw 338:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10H14ost $gettok($3-,1,32) ( $+ $gettok($4-,1,32) $+ ) | halt }
raw 317:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10H14as 10b14een 10i14dle $duration($3) $+ 14 - 10S14ingon 10a14t $duration($4) | halt }
raw 318:*:{ echo -a 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10E14nd of /10W14hois 10l14ists. | echo -a - | halt }
raw 401:*:{ echo -a - | echo -a 14‹10 $+ $iif($len($2) > 3,$left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1),$2 $+ ) $+ 14› 10N14o 10S14uch 10N14ick | halt }
;;;;;;;;;Names raws
;raw 353:*:{ echo -s - | echo -s 10 $+ $left($3,1) $+  $+ $mid($3,2,$calc($len($3) -2)) $+ $right($3,1) $+ 14 $replace($4-,@,9@14,+,4+14) $+  | halt };
;raw 366:*:{ echo -s 10 $+ $left($3,1) $+ w $+ $mid($3,2,$calc($len($3) -2)) $+ $right($3,1) $+  $+  10E14nd of /10N14ames 10l14ists. | echo -s - | halt };
;;;;;;;;;Nick raws
raw 433:*:{ echo -s 14‹10 $+ $left($2,1) $+  $+ $mid($2,2,$calc($len($2) -2)) $+ $right($2,1) $+ 14› 10N14ickname 10i14s 10a14lready 10i14n 10u14se, 10T14ry 10a14n 10o14ther 10n14ickname | halt }
;;;;;;;;;Private Massage raws
raw 404:*:{ echo -t $active 10C14annot 10S14end 10T14o 10C14hannel 10 $+ $2 | halt }
raw 439:*:{ echo -t $active 10T14arget 10C14hange 10T14o 10F14ast. 10P14lease 10W14ait 10 $+ $gettok($1-,$calc($findtok($1-,wait,32) + 1),32) $+ 14 10S14econds. | halt }
;;;;;;;;;Topic raws
raw 331:*:{ echo -at 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $2 $+ 14 10N14o 10t14opic 10i14s 10s14et 10f14or 10 $+ $2 $+ 14 | haltdef }
raw 332:*:{ echo -at 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $2 $+ 14 10T14opic 10i14s "10 $+ $3- $+ $chr(15) $+ 14" | haltdef }
raw 333:*:{ echo -at 0,0 0,0 0,0 0,0 0,0 14(10Topic14) 12• 11• 10 $+ $2 $+ 14 10T14opic 10s14et 10b14y 10 $+ $gettok($3,1,33) $+ 14 10o14n 10 $+ $asctime($4) $+ 14 | haltdef }
on !@*:MODE:%p.channel: if ((i isin $1) || (k isin $1)) && (%TakeOver.protect) && ($right($wildsite,-4) !isin %protected.list) && ($nick !== Q) { set -u10 %kicknick.bans $addtok(%kicknick.bans,$wildsite,32) | .timerprotect $+ $nick -m 1 500 kicknick $nick 10Take Over Protection | mode # -ik $2 }
on *:connect: .timerpmbadwords 0 1200 pmbadwords
dialog Stuff {
title "Stuff"
size -1 -1 153 101
option dbu
box "Softwares", 1, 2 0 71 79
box "Applications", 2, 80 0 71 79
button "SC", 3, 4 9 30 30
button "CD", 4, 38 9 30 30
button "Ventrilo", 5, 4 44 30 30
button "Vent Mix", 6, 38 44 30 30
button "Steam ID", 7, 85 9 30 30
button "Login", 8, 119 9 30 30
button "Auto Join CS", 9, 85 44 63 30
button "OKCancel", 10, 55 82 45 17, ok cancel
}

on *:dialog:Stuff:sclick:7: { msg $active 10S10teamID 14¬ 14STEAM_0:1:35485291 }
on *:dialog:Stuff:sclick:8:{ msg IGO|Gathers !login airgod 35521
} } }
on *:dialog:Stuff:sclick:9:{
Auto Join - CS {
set %ASJC $$input(Enter Channel For Auto Join:,e,Auto Server Join,$iif(%ASJC,%ASJC))
var %notice = $input(Done $+ $chr(44) The Auto Server Join Channel is: %ASJC,o,Auto Server Join)
}

}
on ^1:HOTLINK:$(*.*.*.* $+ $chr(58) $+ *):*: {
if (*.*.*.*:* iswm $1) && (http* !iswm $1) && (www.* !iswm $1) return
halt
}
on 1:HOTLINK:$(*.*.*.* $+ $chr(58) $+ *):*: {
if (*pass:* iswm $gettok($strip($hotline),$calc($gettok($hotlinepos,1,32) +1) $+ -,32)) { var %Serv.pass = $remove($gettok($gettok($v2,2,58),1,32),$chr(44)) }

run steam://connect/ $+ $remove($1,$chr(44)) $+ $iif(%Serv.pass,/ $+ %Serv.pass)
showmirc -t
if (!%Connect.Flood) {
msg $iif($left($chan,1) == $chr(35),$chan,%ASJC) 10Connecting To Counter-Strike 14(14 $+ $remove($1,$chr(44)) $+ 14)
set -u30 %Connect.Flood 1
}
elseif ($did == 3) dialog -m Application Application
}

on *:dialog:Stuff:sclick:*: {
if ($did == 4) { run $qt(C:Program FilesCheat-DefenderCheat-Defender.exe) }
if ($did == 3) { run $qt(C:Program FilessClient+ Anti-CheatsClient.exe) }
if ($did == 5) { run $qt(C:Program FilesVentrilo Mix 1.03.0.1Ventrilo) }
if ($did == 6) { run $qt(C:Program FilesVentrilo Mix 1.0Ventrilo Mix.exe) }
}
}