;@@@ Blazing Hearts scripts created by Spida (c) 


on *:TEXT:!set 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) {
      set %pcwoff off
      notice $chan the pcw script is now off
    }
  }
}
on *:TEXT:!set 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) {
      set %pcwoff on
      notice $chan the pcw script is now on
    }
  }
}
on *:TEXT:!world:#:{ 
  if ($chan == #blazing_hearts) || ($chan == #bh_ops) {
    inc %times 
    if (%pcwoff == off) { notice $nick 4ERROR:the pcw script is OFF | halt }
    if *pc|* iswm $nick || *pc-* iswm $nick || *{{pc}}* iswm $nick || *-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 (%pcwoff == 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~)~~::.. 
    } 
  } 
}

on *:TEXT:!pcw:#blazing_hearts:{ 
  if (%pcwoff == off) { notice $nick 4ERROR:the pcw script is OFF | halt }
  notice $nick 9,1 Please use the command !world 
} 

on *:TEXT:!bhw:#blazing_hearts:{
  if (%pcwoff == off) { notice $nick 4ERROR:the pcw script is OFF | halt } 
  notice $nick $+ 9,1 Please use the command !world 
} 

on *:TEXT:!level*:#:{ 
  if ($chan == #irchelp) || ($chan == #mIRC) { halt }
  set %var $2-
  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 }
  set %var $2-
  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:!bh report*:*:{
  if ($3- == $null) { notice $nick Please specify a username and a reason eg> !bh report nick <reason> } 
  else {
    if ($4- == $null) { notice $nick Please specify a username and a reason eg> !bh report nick <reason> } 
    else {
      set %var $3-
      notice #bh_ops $nick has sent in a report on $2 for the reason $3-
      notice $nick Thank you $nick your abuse report on $3 has been recieved and will be viewed promptly
    }
  }
}

on *:TEXT:!new*:?: { 
  if (%pcwoff == off) {
    notice $nick The current setting of pcw worlds has been turned off, Please contact your ops and tell them to turn it on, then try again 
    halt 
  }
  if (%reports [ $+ [ $nick ] ] == on) { 
    notice $nick This command may only be used once evry 2 mintes! 
    halt 
  }
  if (%world == $2) { 
    notice $nick $2 is already set as the current world! 
    halt 
  }
  if *pc|* iswm $nick || *pc-* iswm $nick || *{{pc}}* iswm $nick || *-pc* iswm $nick || *{pc}* iswm $nick && ($nick ison #blazing_hearts) { 
    msg #blazing_hearts 12 $nick - 4You have sent a request for a new pc world to bh ops. DO NOT ABUSE THIS OR YOU WILL BE KB! 
    msg $nick 12 $+ Thank you for your suggested world, we will check it out. =)) 
    msg #bh_ops 4 $+ Can you please change the current pest control world to $2- requested from $nick (Please scout out this world before setting it ~Thanks~
    set %reports $+ $nick ON | timer1 1 120 unset %reports $+ $nick 
  }
  else {
    notice $nick Sorry, you are eitha not on the channel #blazing_hearts and or do not have pc| infront of your name.
  }
}
on *:TEXT:!appbh:#:{
  if ($chan == #irchelp) || ($chan == #mIRC) { halt }
  if ($nick ishop #blazing_hearts || $nick isop #blazing_hearts) {
    msg #blazing_hearts 4,1if you havent posted an application for autovoice on blazing hearts forums not runescape go to http://z10.invisionfree.com/BlazingHearts/index.php?showforum=13  and post an application. IF you have trouble seeing that message type /mode yournick -f
  }
}
on *:TEXT:^pm*:#:{
  if ($nick isop #blazing_hearts) || ($nick ishop #blazing_hearts) {
    if ($2 isreg $chan) {
      if ($2 !ison #blazing_hearts) { halt }
      msg $2 4,1 PLEASE PM $nick IN GAME FOR VOICE YOU HAVE 2 MINUTES
      notice $nick You've sent a pm request to $2.
    }
  }
}