rendered paste bodyalias c1 { return $+($chr(3) $+ $iif(%color1,%color1,4),$1-) }
alias c2 { return $+($chr(3) $+ $iif(%color2,%color2,4),$1-) }
ON *:TEXT:`DisChan*:#:{
if ($readini(PCSCRIPT.ini,$chan,Status) == Off) {
notice $nick Pestcontrol is not activated for this channel, `EnChan to start it :D
halt
}
if ($address($nick,2) == $address($me,2) || $nick isop $chan || $nick ishop $chan) {
remini PCSCRIPT.ini $chan
writeini PCSCRIPT.ini $chan Status OFF
msg $chan PestControl services Has been for Disabled for $chan by $nick $+ .
halt
}
else {
notice $nick You must be Halfop+ To Disable PC for this channel.
}
}
ON *:TEXT:`EnChan*:#: {
if ($readini(PCSCRIPT.ini,$chan,Status) == On) {
notice $nick Pestcontrol is not activated for this channel, `ConChan to start it :D
halt
}
if ($address($nick,2) == $address($me,2) || $nick isop $chan || $nick ishop $chan) {
remini PCSCRIPT.ini $chan
writeini PCSCRIPT.ini $chan Status On
msg $chan PestControl services Has been Enabled for $chan by $nick $+ .
halt
}
else {
notice $nick You must be Halfop+ To Enable PC for this channel.
}
}
ON $*:TEXT:/^[!@.](SetPCW|SetWorld)/Si:#:{
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) {
notice $nick Please Type `EnChan to enable the Pestcontrol Services.
halt
}
else {
if ($2 isnum 2-138) && ($nick ishop $chan) || ($nick isop $chan) {
set %curpcw [ $+ [ $chan ] ] $2
set %curnick [ $+ [ $chan ] ] $nick
set %curtime [ $+ [ $chan ] ] $time(hh:nn:ss)
set %curchan [ $+ [ $chan ] ] $chan
msg $chan $c1(New world has been set by:) $c2(%curnick) $c1(at) $c2(%curtime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To view world.)
}
}
}
ON $*:TEXT:/^[!@.](PCW|World)/Si:#:{
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) {
notice $nick Please Type `EnChan to enable the Pestcontrol Services.
halt
}
else {
if ($nick isvoice $chan) || ($nick isop $chan) || ($nick ishop $chan) {
notice $nick $c1(The current) $c2(PestControl) $c1(world is) $c2(%curpcw) $c1(Set by) $c2(%curnick) $c1(at) $c2(%curtime) $+ .
}
}
}
ON $*:TEXT:/^[!@.](SetPCW|SetWorld)/Si:?:{
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) {
notice $nick Please Type `EnChan to enable the Pestcontrol Services.
halt
}
else {
if ($2 == $null || $3 == $null) {
msg $nick Please use this Format:!setpcw #channel world
halt }
else {
if ($nick isop $2 || $nick ishop $2) {
set %curpcw [ $+ [ $chan ] ] $2
set %curnick [ $+ [ $chan ] ] $nick
set %curtime [ $+ [ $chan ] ] $time(hh:nn:ss)
set %curchan [ $+ [ $chan ] ] $chan
msg $2 $c1(New world has been set by:) $c2(%curnick) $c1(at) $c2(%curtime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To view world.)
}
}
}
}
ON $*:TEXT:/^[!@.](Suggest|SWorld)/Si:?:{
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { halt }
else {
if ($2 == $null || $3 == $null) {
msg $nick Please use this Format:!Suggest #channel world
halt }
else {
if ($nick isop $2 || $nick ishop $2) {
set %sspcw [ $+ [ $chan ] ] $2
set %ssnick [ $+ [ $chan ] ] $nick
set %sstime [ $+ [ $chan ] ] $time(hh:nn:ss)
set %sschan [ $+ [ $chan ] ] $chan
msg $2 $c1(New world has been set by:) $c2(%ssnick) $c1(at) $c2(%sstime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To view world.)
}
}
}
}
ON $*:TEXT:/^[!@.](Suggest|SugWorld)/Si:#:{
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) {
notice $nick Please Type `EnChan to enable the Pestcontrol Services.
halt
}
else {
if ($2 isnum 2-138) && ($nick ishop $chan) || ($nick isop $chan) {
set %sspcw [ $+ [ $chan ] ] $2
set %ssnick [ $+ [ $chan ] ] $nick
set %sstime [ $+ [ $chan ] ] $time(hh:nn:ss)
set %curchan [ $+ [ $chan ] ] $chan
msg $chan $c1(New world has been suggested by:) $c2(%ssnick) $c1(at) $c2(%sstime) $c1(Type) $c2(!SW) $c1(or) $c2(!suggessted) $c1(To view suggested world.)
}
}
}
ON $*:TEXT:/^[!@.]SW|SWorld)/Si:#:{
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) {
notice $nick Please Type `EnChan to enable the Pestcontrol Services.
halt
}
else {
if ($nick isvoice $chan || $nick isop $chan || $nick ishop $chan) {
notice $nick $c2([>SUGGESTED<]) $c1(The current) $c2(Suggested) $c1(world is) $c2(%sspcw) $c1(Set by) $c2(%ssnick) $c1(at) $c2(%sstime) $+ .
}
}
}
on *:text:!color1*:#:{ set %color1 [ $+ [ $chan ] ] $2 | notice $nick $c1(Color1) $c2(has been set) }
on *:text:!color2*:#:{ set %color2 [ $+ [ $chan ] ] $2 | notice $nick $c2(Color2) $c1(has been set) }
alias PestControl {
dialog -m PestControl PestControl
}
menu * {
PestControl:/dialog -m PestControl PestControl
}
dialog PestControl {
title "PestControl V1.0 By BloodSain"
size -1 -1 226 67
option dbu
box "", 26, 17 1 186 23
button "Set A PCW", 27, 7 30 68 33
button "Suggest A PCW", 28, 150 30 68 33
box "", 29, 3 27 76 38
box "", 30, 146 27 76 38
button "ULTIMATE PESTCONTROL", 31, 20 4 180 17
text "Made By BloodSain", 32, 90 56 47 8
button "Cancel", 33, 94 35 37 12
box "", 34, 92 33 41 16
}
ON *:Dialog:PestControl:sclick:27: {
/dialog -x PestControl PestControl
/dialog -m PestControl2 PestControl2
}
ON *:Dialog:PestControl:sclick:28: {
/dialog -x PestControl PestControl
/dialog -m Suggested Suggested
}
ON *:Dialog:PestControl:sclick:33: {
/dialog -x PestControl PestControl
/dialog -m yesorno3 yesorno3
}
dialog yesorno3 {
title "Quit?"
size -1 -1 97 48
option dbu
text "Do you want to quit?", 9, 22 3 53 11
button "YES", 10, 3 16 42 27
button "No", 11, 51 16 42 27
}
ON *:Dialog:yesorno3:sclick:10: {
/dialog -x yesorno3 yesorno3
}
ON *:Dialog:yesorno3:sclick:11: {
/dialog -x Yesorno3 yesorno3
/dialog -m PestControl PestControl
}
dialog PestControl2 {
title "PestControl"
size -1 -1 149 98
option dbu
box "PestControl", 1, 3 1 143 91
text "Made By BloodSain ©", 2, 45 91 60 10
edit "", 3, 88 29 50 11
edit "", 4, 10 29 50 11
button "Channel", 5, 94 16 37 10
button "World", 6, 17 15 37 10
button "Finished", 7, 10 72 123 15
button "Set World", 8, 52 48 37 18
box "", 9, 50 46 41 22
box "", 10, 8 70 127 19
box "", 11, 92 14 41 14
box "", 12, 15 13 41 14
}
ON *:Dialog:PestControl2:sclick:8: {
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) {
notice $nick Please Type `EnChan to enable the Pestcontrol Services.
halt
}
else {
set %curchan ($did($dname,3)
set %curpcw $did(4).text
/msg %curchan $did(3).text $c1(New world has been set by:) $c2(%curnick) $c1(at) $c2(%curtime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To veiw world.)
}
}
ON *:Dialog:PestControl2:sclick:7: {
/dialog -x PestControl2 PestControl2
/dialog -m yesorno yesorno
}
dialog yesorno {
title "Quit?"
size -1 -1 97 48
option dbu
text "Do you want to quit?", 9, 22 3 53 11
button "YES", 10, 3 16 42 27
button "No", 11, 51 16 42 27
}
ON *:Dialog:yesorno:sclick:10: {
/dialog -x yesorno yesorno
}
ON *:Dialog:yesorno:sclick:11: {
/dialog -x Yesorno yesorno
/dialog -m PestControl PestControl
}
dialog Suggested {
title "Suggest"
size -1 -1 149 98
option dbu
box "Suggest World", 12, 3 1 143 91
text "Made By BloodSain ©", 13, 45 91 60 10
edit "", 3, 88 29 50 11
edit "", 4, 10 29 50 11
button "Channel", 14, 94 16 37 10
button "World", 16, 17 15 37 10
button "Finished", 17, 10 72 123 15
button "Set World", 18, 52 48 37 18
box "", 19, 50 46 41 22
box "", 20, 8 70 127 19
box "", 21, 92 14 41 14
box "", 22, 15 13 41 14
}
ON *:Dialog:suggested:sclick:18: {
if ($readini(PCSCRIPT.ini,$chan,Status) == OFF) { halt }
else {
set %curchan ($did($dname,3)
set %sspcw $did(4).text
msg %sschan $did(3).text $c1(New world has been Suggested by:) $c2(%ssnick) $c1(at) $c2(%sstime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To veiw world.)
}
}
ON *:Dialog:suggested:sclick:17: {
/dialog -x suggested suggested
/dialog -m yesorno2 yesorno2
}
dialog yesorno2 {
title "Quit?"
size -1 -1 97 48
option dbu
text "Do you want to quit?",23, 22 3 53 11
button "YES", 24, 3 16 42 27
button "No", 25, 51 16 42 27
}
ON *:Dialog:yesorno2:sclick:24: {
/dialog -x yesorno2 yesorno2
}
ON *:Dialog:yesorno2:sclick:25: {
/dialog -x Yesorno2 yesorno2
/dialog -m PestControl PestControl
}
ON *:TEXT:`AV*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
writeini AVLIST.ini ADRESSES $address($2,2) $2
msg $chan added $2 to auto voice list
/mode $chan +v $2
}
}
on *:join:#:{
if ($readini(AVLIST.ini,ADRESSES,$address($nick,2))) {
/mode $chan +v $nick
}
}
ON *:TEXT:`DAV*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
.remini AVLIST.ini ADRESSES $address($2,2) $2
writeini DAVLIST.ini ADRESSES $address($2,2) $2
msg $chan $2 has been deleted from auto voice list.
/mode $chan +v $2
}
}
on *:join:#:{
if ($readini(DAVLIST.ini,ADRESSES,$address($nick,2))) {
/mode $chan -v $nick
}
}