Pcw script

/var %world

on $*:TEXT:/^[!@]setpcw|world */Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    /set %setpc $calc( $readini( setpcw.ini, $nick, Set ) +1)
    /writeini setpcw.ini $nick Set %setpc
    if ($2 == 2) || ($2 == 6) || ($2 == 9) || ($2 == 12) || ($2 == 18) || ($2 == 22) || ($2 == 23) || ($2 == 24) || ($2 == 26) || ($2 == 27) || ($2 == 28) || ($2 == 31) || ($2 == 36) || ($2 == 42) || ($2 == 44) || ($2 == 48) || ($2 == 53) || ($2 == 54) || ($2 == 56) || ($2 == 58) || ($2 == 59) || ($2 == 60) || ($2 == 64) || ($2 == 65) || ($2 == 66) || ($2 == 69) || ($2 == 70) || ($2 == 71) || ($2 == 76) || ($2 == 77) || ($2 == 78) || ($2 == 79) || ($2 == 82) || ($2 == 83) || ($2 == 84) || ($2 == 88) || ($2 == 89) || ($2 == 91) || ($2 == 92) || ($2 == 97) || ($2 == 98) || ($2 == 99) || ($2 == 100) || ($2 == 103) || ($2 == 104) || ($2 == 110) || ($2 == 111) || ($2 == 112) || ($2 == 114) || ($2 == 115) || ($2 == 116) || ($2 == 120) || ($2 == 121) || ($2 == 123) || ($2 == 124) || ($2 == 129) || ($2 == 130) || ($2 == 131) || ($2 == 132) || ($2 == 137) || ($2 == 138)  {
      if ($2 == %world) { notice $nick 14That 7world14 is already set!
        halt
      }      
      set %world $2
      set %nic $nick
      set %pcsettime. [ $+ [ $chan ] ] $ctime
      /msg $chan 14 $nick has set the 7Pc World15 - 14Type 7!pcw 14or 7!world 14to see the world.
    }
  }
}


on $*:TEXT:/^[@!.](pcw|world)*$/Si:#:{ 
  /set %used $calc( ( %used ) + 1)
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan)) {
    /notice $nick 14The 7PC World 14is 7 %world 14 set by 7 %nic 14- 4Set $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) Ago.14 - Used %used Times. To change the World type !setpcw ***
  }
  else {
    /notice $nick 14The 7PC World 14is 7 %world 14 set by 7 %nic 14- 4Set $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) Ago.14 - Used %used Times.
  }
}

on 1:TEXT:!suggest*:#pcelites,#tribute,#tribute-bot:{
  if ($2 == %worlds) { 
    /notice $nick That world has already been suggested!
    halt
  }
  set %worlds $2 $3 $4 $5 $6 $7 $8
  set %suggest $nick
  /msg $chan 14 Thank you for the 7world14 suggestion7 $nick
}

on 1:TEXT:!viewpcw*:#pcelites,#tribute:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice %chan) {
    /notice $nick %suggest Suggested world %worlds 
  }
  else {
    halt
  }
}