sg on join +pkw script

on *:JOIN:#: {
msg $chan 8,8K7,8 $chr(165) 4,7 $chr(165) 1,4 $chr(165) 0,1<<Welkom in $chan $+ , $nick $+ !>>1,4 $chr(165) 4,7 $chr(165) 7,8 $chr(165) 8,8 K }
}
on *:text:!setpkworld*:#:{ 
  set %pksetter $nick 
  set %pkworld [ $+ [ $chan ] ] $2- 
  notice $chan The pk world is now %pkworld [ $+ [ $chan ] ] $+ !
} 
on *:text:!pkw:#:{
  inc %pkcounter 
  notice $nick Pk world is:4,0 %pkworld [ $+ [ $chan ] ] $+ 1,0! This world has been se by %pksetter $+ . This world has been viewed %pkcounter times!
}