Public feed #603207

oojakshgsjdhkjshjh

public text v1 · immutable
Raw Edit
·published 2007-07-04 16:31 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 4PC1-10Script 4is now 10>4OFF10< 10by 4 $nick
    halt 
  } 
  else { 
    notice $nick You must be 7Halfop 5Plus 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 4PC1-10Script 4is now 10>4ON10< 10by 4 $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 
} 
dialog PCW1337 { 
  title "PCW Dialog | Made By: IrcServ Crew " 
  size -1 -1 160 60 
  option dbu 
  button "Ok", 1, 0 0 37 60, ok 
  button "Cancel", 2, 123 0 37 60, cancel 
  Box "IrcServ"  ", 3, 50 0 60 12, center 
  edit "World", 4, 50 12 60 12, center 
  edit "#Channel", 6, 50 24 60 12, center 
  button "Set World", 5, 50 36 60 24, center 
} 
on *:DIALOG:PCW1337:sclick:5:{ 
  if ($readini(PCW.ini,$did($dname,6),Status) == OFF) { 
    echo $active $timestamp The PestControl system is off for $did($dname,6) 
    halt 
  } 
  if ($me ison $did($dname,6) && $did($dname,4) isnum 2-138) { 
    writeini PCW.ini $did($dname,6) World $did($dname,4) 
    writeini PCW.ini $did($dname,6) Nick $me 
    writeini PCW.ini $did($dname,6) Time $CTime 
    msg $did($dname,6) The PestControl world has been changed by $me 
    halt 
  } 
  if ($did($dname,4) !isnum 2-138) { 
    echo $active $timestamp Dude $did($dname,4) is not a number. 
    halt 
  } 
  else { 
    echo $active $timestamp Dude your not on $did($dname,6) 
  } 
}