All pastes #401020 Raw Edit

Someone

public text v1 · immutable
·published 2007-03-19 01:41 UTC
rendered paste body
ON $*:TEXT:/[!@.](PC|Pest|World|PCW)off/Si:#:{ 
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt } 
  if ($readini(PCW.ini,$chan,Status) == OFF) { 
    notice $nick You cant turn soemthing off that is not on. 
    halt 
  } 
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) { 
    remini PCW.ini $chan 
    writeini PCW.ini $chan Status OFF 
    msg $chan The PestControl services have been halted by $nick 
    halt 
  } 
  else { 
    notice $nick You must be Halfop Plus to use this command. 
  } 
} 
ON $*:TEXT:/[!@.](PC|Pest|World|PCW)On/Si:#:{ 
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt } 
  if (($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) && ($readini(PCW.ini,$chan,Status) == OFF)) { 
    remini PCW.ini $chan 
    msg $chan The PestControl services have been continued by $nick 
    halt 
  } 
  if ($readini(PCW.ini,$chan,Status) != OFF) { 
    notice $nick You cant turn ON whats not off. 
    halt 
  } 
  else { 
    notice $nick You must be Halfop Plus to use this command. 
  } 
} 
ON $*:TEXT:/[!@.](Set|SetPCW|setWorld)/Si:#:{ 
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt } 
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt } 
  if ($3 != $null) { halt } 
  if (!$2) { 
    notice $nick Error: $1 <World> 
    halt 
  } 
  if (($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) && ($2 isnum 2-138)) { 
    writeini PCW.ini $chan World $2 
    writeini PCW.ini $chan Nick $nick 
    writeini PCW.ini $chan Time $CTime 
    msg $chan The PestControl world has been changed by $nick $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3)) 
    halt 
  } 
  if ($nick isvoice $chan || $nick isreg $chan) { 
    notice $nick You must be Halfop Plus to use this command. 
    halt 
  } 
  if ($2 >= 139) { 
    notice $nick The world must be Between 2 and 138 
    halt 
  } 
  else { 
    notice $nick A PestControl world must be a number. 

  } 
} 
ON $*:TEXT:/[!@.](PCW|World|PestWorld)/Si:#:{ 
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt } 
  if (OFF isin $1 || ON isin $1) { halt } 
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt } 
  if ($readini(PCW.ini,$chan,World) == $null) { 
    notice $nick There is no set world. 
    halt 
  } 
  if ($nick !isreg $chan) { 
    writeini PCW.ini $chan Users $calc($readini(PCW.ini,$chan,Users) + 1) 
    notice $nick The current PestControl world is $readini(PCW.ini,$chan,World) Set by $readini(PCW.ini,$chan,Nick) $+ $duration($calc($CTime - $readini(PCW.ini,$chan,Time))) ago. $+ $chr(187) $+ $+ $readini(PCW.ini,$chan,Users) $+ $+ $chr(171) $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3)) 
    halt 
  } 
  else { 
    notice $nick I only allow voices to view the PestControl World. 
  } 
} 
ON $*:TEXT:/[!@.]Stop(PC|World|PCW)/Si:#:{ 
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt } 
  if ($readini(PCW.ini,$chan,Status) == OFF) { halt } 
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) { 
    remini PCW.ini $chan 
    msg $chan All PestControl files for $chan have been deleted. 
    halt 
  } 
  if ($readini(PCW.ini,$chan,World) == $null) { 
    notice $nick You cant turn Stop whats not there. 
    halt 
  } 
  else { 
    notice $nick You must be Halfop Plus to use this command. 
  } 
} 
Alias SelfPC { 
  dialog -m PCW1337 PCW1337 
} 
menu * { 
  Self PestControl:dialog -m PCW1337 PCW1337 
}