on $*:TEXT:/^[!.](pkw|pw)/Si:#:{ if ($chan == #PC) { HALT } 
  inc %pcwused 1 
notice $nick 7The Pking World for $chan is currently 4 9[4 $readini(pcw.ini,worlds,$chan) 9] 7set by 1 $readini(pcws.ini,Chansetter,$chan) 7approximately 1 $duration($calc($ctime - %pcwTime $chan)) 7 ago. } 

on $*:TEXT:/^[!@.]set(pkw|pw)/Si:#:{ if ($nick isop $chan) { 
    writeini pcw.ini Worlds $chan $2- 
    set %pcwTime $ctime $chan 
    writeini pcws.ini ChanSetter $chan $nick 
    msg $chan 7The Pking World has been changed to4 9[4 $2- 9] 7by 1 $nick $+ . 
  } 
} 

on $*:TEXT:/^[!@.](wsuggest|suggest)/Si:#:{ if ($readini(pcw.ini,$chan,sscript) == on) { 
    /writeini suggested.ini $chan $2 $calc($readini(suggested.ini,$2,suggested) + 1) 
    if ($readini(nicksuggested.ini,suggestppl,$nick)) { notice $nick You have allready suggested! } { HALT } 
    /timer10 1 300 /remini suggested.ini $chan $2 $calc($readini(suggestd.ini,$2,suggested) - 1) 
    if ($readini(suggested.ini,$2,suggested) >= 15) { 
      /remove suggested.ini 
      /remove nicksuggested.ini 
      writeini pcw.ini Worlds $chan $2 
      msg $chan The world has been changed to %world $+ 
      halt 
    } 
    else { 
      /writeini nicksuggested.ini SuggestPpl $nick 1 | notice $nick Thank you for suggesting! 
    } 
  }  
} 

on *:TEXT:!view*:#:{ if ($readini(suggest.ini,$2,suggested) == $null) { notice $nick $2 has not been suggested! | halt } 
  notice $nick $readini(suggested.ini,$2,suggested) 
} 

on *:TEXT:!pkin*:#:{ if ($nick !isreg $chan) || ($readini(click.ini,click,$address($nick,2)) == staff) || ($readini(click.ini,click,$address($nick,2)) == admin) { 
    if (*on* iswm $2) { writeini pcw.ini $chan sscript on | msg $chan Suggest script now on. | halt } 
    if (*off* iswm $2) { remini pcw.ini $chan sscript | msg $chan Suggest script now off. | halt } 
  } 
} 
on *:TEXT:!used*:#:{ notice $nick The !pcw command has been used %pcwused times. }