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 <]::.\ }
}