alias clr1 return $+($chr(3),07,$chr(44),05,$chr(2),$1-,$chr(3),$chr(2)) 
alias clr2 return $+($chr(3),14,$chr(44),05,$chr(2),$1-,$chr(3),$chr(2))
;;script by RussellReal -- #scripts SwiftIRC <-- NetWork.
on $*:TEXT:/^[!@]((set)?cw|pm)/Si:#c--wars:{
  var %disp = $iif($left($1,1) == !,notice $nick,msg $chan )
  if (cw isin $1) {
    var %style = $iif(set isin $1,set,display)
    if (%style == set) {
      if ($nick($chan,$nick,oh)) {
        if ($2 isnum) {
          writeini cwworld.ini $chan lastworld $iif($readini(cwworld.ini,$chan,world),$v1,NA)
          writeini cwworld.ini $chan world $2
          if ($readini(cwworld.ini,$chan,set)) %disp $clr1(new world set! duration of last world:) $clr2($duration($calc($ctime - $v1))) $clr1(Setter of New World:) $clr2($nick)
          else %disp $clr1(a cw world has been set by:) $clr2($nick) $clr1(type) $clr2(!cw) $clr1(to view the world!!)
          writeini cwworld.ini $chan set $ctime
          writeini cwworld.ini $chan setter $nick
        }
        else %disp $clr1(sorry) $clr2($nick) $clr1(you need to specify a world..)
      }
      else %disp $clr1(sorry) $clr2($nick) $clr1(you need to be op or halfop to use that command..)
    }
    else {
      if ($nick($chan,$nick,ohv)) {
        var %disp = $iif($gettok(%disp,1,32) == msg,$iif($nick($chan,$nick,oh),msg $chan,notice $nick),notice $nick)
        if ($readini(cwworld.ini,$chan,world)) {
          var %a = cwworld.ini, %b = $chan, %c = $readini(%a,%b,set), %d = $readini(%a,%b,setter), %e = $readini(%a,%b,world), %f = $readini(%a,%b,lastworld), %g = $readini(%a,%b,used)
          inc %g
          writeini %a %b used %g
          %disp $clr1(The current world is:) $clr2(%e) $clr1(Set:) $clr2($duration($calc($ctime - %c)) ago) $clr1(by:) $clr2(%d) $clr1(::: Last world:) $clr2(%f) $clr1(command used:) $clr2(%g Times)
        }
        else %disp $clr1(sorry) $clr2($nick) $clr1(there is no world set at this moment..)
      }
      else notice $nick $clr1(Sorry) $clr2($nick) $clr1(you need voice to use this command..)
    } 
  }
  else {
    if ($nick($chan,$nick,oh)) msg $chan $clr1(for +v please pm INGAME) $clr2(welsh_ownage) $clr1(or) $clr2(I_try_i_me_i)
  }
}
on *:JOIN:#c--wars:notice $nick $clr1(for +v please pm INGAME) $clr2(welsh_ownage) $clr1(or) $clr2(I_try_i_me_i)