on *:TEXT:!*chan:#:{
if ($nick isop #blazing_hearts || $nick ishop #blazing_hearts || $nick isop #bh_ops || $nick ishop #bh_ops) {
if ($readini(Pcw.ini,$chan,2) == $null && $1 == !Achan) { notice $nick 10[CHANNEL COMMANDS] My scripts were allready on | halt }
if ($1 == !Achan) { remini pcw.ini $chan 2 | msg $chan 10[CHANNEL COMMANDS] My scripts are now on | halt }
if ($readini(Pcw.ini,$chan,2) == OFF && $1 == !Dchan) { notice $nick 10[CHANNEL COMMANDS] My scripts were allready off | halt }
if ($1 == !Dchan) { writeini Pcw.ini $chan 2 OFF | msg $chan 10[CHANNEL COMMANDS] My scripts are now off }
}
}
on *:TEXT:!pcw off:#:{
if ($chan == #blazing_hearts) || ($chan == #bh_ops) {
if ($nick isop #blazing_hearts || $nick ishop #blazing_hearts || $nick isop #bh_ops || $nick ishop #bh_ops) {
if ($readini(Pcw.ini,$chan,2) == OFF) { notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt }
if ($readini(Pcw.ini,$chan,1) == OFF) { notice $nick 10[WORLD] The world command is allready off | halt }
writeini pcw.ini $chan 1 OFF
msg $chan 10[WORLD] The pcw script is now off
}
}
}
on *:TEXT:!pcw on:#:{
if ($chan == #blazing_hearts) || ($chan == #bh_ops) {
if ($nick isop #blazing_hearts || $nick ishop #blazing_hearts || $nick isop #bh_ops || $nick ishop #bh_ops) {
if ($readini(Pcw.ini,$chan,2) == OFF) { $notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt }
if ($readini(Pcw.ini,$chan,1) == $null) { notice $nick 10[WORLD] The world command is allready on | halt }
remini pcw.ini $chan 1
msg $chan 10[WORLD] The pcw script is now on
}
}
}
on *:TEXT:!world:#:{
if ($chan == #blazing_hearts) || ($chan == #bh_ops) {
if ($readini(Pcw.ini,$chan,2) == OFF) { halt }
if ($readini(Pcw.ini,$chan,1) == OFF) { halt }
inc %times
if (pc-* iswm $nick) || (pc|* iswm $nick) || ($nick isop $chan) || ($nick ishop $chan) {
notice $nick 12,1*~* BH *~* 4,1 The Current World is 11,1 %world 10,1 The !World command Has Been Used 4,1 %times Times, 10Last updated > > $duration($calc($ctime - %lastworldupdate)) ago 12,1*~* BH *~*
if ($nick isop $chan) || ($nick ishop $chan) {
halt
}
notice $nick 9,1 To suggest new pc world type /msg $me !new <put suggested world here>
}
else {
if ($nick !isop #blazing_hearts) || ($nick !ishop #blazing_hearts) || (*pc* !iswm $nick ) { notice $nick 9,1 Please put pc| or pc- infront of your name, then type !world for the current pc world ( Type /nick Pc| YOURNAME ~~..::Thanks::..~~
}
}
}
}
on *:TEXT:!setworld*:#bh_ops:{
if ($readini(Pcw.ini,$chan,2) == OFF) { $notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt }
if ($readini(Pcw.ini,$chan,1) == OFF) { notice $nick 10[WORLD] The world commands are off | halt }
if ($nick isop $chan) || ($nick ishop $chan) {
if (($2 >= 1) && ($2 <= 138)) || ($2 isalpha a-z) {
set %world $2-
set %worldnick $nick
set %lastworlddateset $date
set %lastworldupdate $ctime
msg #bh_ops 9,1The current pest control world has been updated, thanks $nick
msg #blazing_hearts 10..::~~The current pest control world has been updated 11 Please type !world for the world 10( You must have pc| infront of your name 2 to access 11my worlds ~thanks~)~~::..
msg #blazing_hearts 8,1 Everyone must have there chat to 9,1 off 8,1 for the first 9,1 10 mins 8,1 of the new world.
msg #bh_scouts 10..::~~The current pest control world has been updated
/timer 1 600 msg #blazing_hearts 8,1 10mins are up you may now turn your chat to 9,1 friends 8,1 only, ty.
}
}
}
on *:TEXT:!pcw:#blazing_hearts:{
if ($readini(Pcw.ini,$chan,2) == OFF) { notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt }
if ($readini(Pcw.ini,$chan,1) == OFF) { notice $nick 10[WORLD] The world commands are off | halt }
notice $nick 9,1 Please use the command !world
}
on *:TEXT:!bhw:#blazing_hearts:{
if ($readini(Pcw.ini,$chan,2) == OFF) { notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt }
if ($readini(Pcw.ini,$chan,1) == OFF) { notice $nick 10[WORLD] The world commands are off | halt }
notice $nick $+ 9,1 Please use the command !world
}
on *:TEXT:!level*:#:{
if ($chan == #irchelp) || ($chan == #mIRC) { halt }
if ($readini(Pcw.ini,$chan,2) == OFF) { notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt }
if ($readini(Pcw.ini,$chan,1) == OFF) { notice $nick 10[WORLD] The world commands are off | halt }
if ($2 == 100) || ($2 > 100) || ($2 < 2) { notice $nick Please specify a number from 1-99 $nick } { halt }
if ($2 < 99) || ($2 == 99) { msg $chan 11,1!Grats 4,1 $nick 11,1on level 4,1/.::[> $2 $3 <]::.\ }
}
on *:TEXT:!grats*:#:{
if ($chan == #irchelp) || ($chan == #mIRC) { halt }
if ($readini(Pcw.ini,$chan,2) == OFF) { notice $nick 10[CHANNEL COMMANDS] My scripts are off | halt }
if ($readini(Pcw.ini,$chan,1) == OFF) { notice $nick 10[WORLD] The world commands are off | halt }
if ($2 == 100) || ($2 > 100) || ($2 < 2) { notice $nick Please specify a number from 1-99 $nick } { halt }
if ($2 < 99) || ($2 == 99) { msg $chan 11,1!Grats 4,1 $nick 11,1on level 4,1/.::[> $2 $3 <]::.\ }
}