Suggest A World: 
(Command)
on *:text:!suggest*:#:{ if ($3 == $null) { notice $nick You did not suggest a reason why, therefore your suggestion has been ignored. | halt } else {
    set %suggestnick $nick
    set %suggestworld $2
    msg #fastpcwstaff 13|World Suggestion| 12From:7 $nick 12World:7 $2 12Reason:7 $3- 1| 4If this is abuse, type "10!asaw $nick $+ 4" in here and it will kick. (3 Kicks = Ban)1 8,1 to accept this suggestion, type: 7 !accept 12 if not type: 7 !decline 
    notice $nick Thank you for your suggestion, we will look into it.
} }

on *:text:!accept*:#:{
  if ($nick isop #fastpcwstaff) || ($nick ishop #fastpcwstaff) {
    set %pcc $ctime
    set %pc %suggestworld
    set %suggestednick %suggestnick
    set %pcwnick $nick
    /notice $nick 12 PCworld updated, if someone else suggested this world, type 7!suggestchange nick12.
    /notice $suggestnick 12 your suggestion has been accepted, please type: 7!pcw12.
  msg #fastpcw 1[4PC-World Update1] 12Type 7"!pcw"12( suggested by 7 %suggestnick $+ 1) }
} }

on *:text:!decline*:#:{
  if ($nick isop #fastpcwstaff) || ($nick ishop #fastpcwstaff) {
    /notice %suggestnick your suggestion has been declined.
  /msg #fastpcw 7 %suggestnick 's 12 world suggestion has been declined by7 $nick }
}


} }
(Abuse Kicker)
on *:TEXT:!asaw*:#fastpcwstaff:{
  if ($nick isop #fastpcwstaff) {
    if (!$($+(%,sawkick.,$2),2)) {
      /set $+(%,sawkick.,$2) 1
      /kick #fastpcw $2 4Don't abuse the Suggest-A-World command! (1/3 Warnings)
    }
    elseif ($($+(%,sawkick.,$2),2) == 1) {
      /inc $+(%,sawkick.,$2)
      /kick #fastpcw $2 4Don't abuse the Suggest-A-World command! (2/3 Warnings)
    }
    elseif ($($+(%,sawkick.,$2),2) == 2) {
      /mode #fastpcw +b $address($2,2) | /kick #fastpcw $2 4Don't abuse the Suggest-A-World command! (3/3 Warnings)
    /unset $+(%,sawkick.,$2) }
  }
}

Status Kick - Complaining Kick - Advertise Kick - Uknown Kick (!sk/ck/ak/uk NICK)
on *:text:!uk*:#:{ if ($nick isop #fastpcwstaff) { kick $chan $2 4Please change your nick. We don't accept unknowns in #fastpcw. 12 7 } }
on *:text:!sk*:#:{ if ($nick isop #fastpcwstaff) { kick $chan $2 4Don't ask for status. 12read the rules, type: 7!rules. } }
on *:text:!wk*:#:{ if ($nick isop #fastpcwstaff) { kick $chan $2 4Don't complain about a world. 12read the rules, type: 7!rules. } }
off *:text:!ak*:#:{ if ($nick isop #fastpcwstaff) { kick $chan $2 4Don't advertise. 12read the rules, type: 7!rules. } }
on *:text:!lk*:#:{ if ($nick isop #fastpcwstaff) { kick $chan $2 4Don't talk any other language then english. 12read the rules, type: 7!rules. } }
}

on *:Text:!pcw*:#:{  
  inc %pcwcount
  /notice $nick 13- 12The current pc-world is:7 %pc 13- 12Last update:7 $duration($calc($ctime - %pcc)) 12ago 13- 12 updated by:7 %pcwnick 12 suggested by:7 %suggestednick 13-12 ... The "!pcw" command count:7 %pcwcount 1-
}

Set a PCW:

on $*:text:/^[!@]setworld */Si:#fastpcwstaff: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $2-
    set %suggestednick -
    set %pcwnick $nick
    msg #fastpcw 1[4PC-World Update1] 12Type 7"!pcw" 1(12 $+ $nick $+ 1)
    /notice $nick 6if someone suggested this world, please use "7!suggestchange nick12"
} }

on $*:text:/^[!@]setpcw */Si:#fastpcwstaff: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $2-
    set %suggestednick -
    set %pcwnick $nick
    msg #fastpcw 1[4PC-World Update1] 12Type 7"!pcw" 1(12 $+ $nick $+ 1)
    /notice $nick 6if someone suggested this world, please use "7!suggestchange nick12"
} }

on $*:text:/^[!@]setworld */Si:#elite-debby: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $2-
    set %suggestednick -
    set %pcwnick $nick
    msg #fastpcw 1[4PC-World Update1] 12Type 7"!pcw" 1(12 $+ $nick $+ 1)
    /notice $nick 6if someone suggested this world, please use "7!suggestchange nick12"
} }



on $*:text:/^[!@]setpcw */Si:#elite-debby: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $2-
    set %suggestednick -
    set %pcwnick $nick
    msg #fastpcw 1[4PC-World Update1] 12Type 7"!pcw" 1(12 $+ $nick $+ 1)
    /notice $nick 6if someone suggested this world, please use "7!suggestchange nick12"
} }
---------------

on $*:text:/^[!@]change */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcwnick $2-
    /notice $nick  pcw nick has been changed to $2-
} }

on $*:text:/^[!@]suggestchange */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %suggestednick $2-
    /notice $nick  suggest nick has been changed to $2-
} }


Leading !world Script:
on *:text:!world*:#:{ 
  inc %pcwcount
  /notice $nick 13- 12The current pc-world is:7 %pc 13- 12Last update:7 $duration($calc($ctime - %pcc)) 12ago 13- 12 updated by:7 %pcwnick 12 suggested by:7 %suggestednick 13-12 ... The "!pcw" command count:7 %pcwcount 1-
}
---------------


---------------

!k Eragonj..BOOM!
on *:text:!k elite-debby*:#:{ msg $chan $nick 12D4o12n4'12t 4t12r4y 12t4o 12k4i12c4k 12D4e12b4b12y4!!!12!!! 4y12o4u 12b4i12z4n12a4t12c4h12.4.12.4.12. }
-