Miscellany

!setworld/set-world/ignore/unignore = You must PM the the bot 
@setworld/set-world/ignore/unignore = You must PM the the bot

!pcw/pc-world/world/pc-cash = Notices Nick 
@pcw/pc-world/world/pc-cash = Msg's Nick

alias c1 { return $+(12,$1-) } 
alias c2 { return $+(04,$1-) } 

on *:text:*:#: { if ($address($nick,2) == $readini(Ignore.ini,Ignore,$address($nick,2))) { /halt } { 

    tokenize 32 $strip($1-) 
    if ($left($1,1) !isin @!) halt 
    if ($right($1,-1) == pcw) var %style = pcworld 
    elseif ($right($1,-1) == pc-world) var %style = pcworld 
    elseif ($right($1,-1) == pcworld) var %style = pcworld 
    elseif ($right($1,-1) == world) var %style = pcworld 
    elseif ($right($1,-1) == pc-cash) var %style = pccash 

    set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $nick,notice $nick) 

    alias process { 
      var %display = $($+(%,stats.display.,%ID),2) 

      if (%style == pcworld) { 
        if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) { %display $c1(The current PC world is:) $c2($readini(PCWorld.ini,PC-World,PCWorld)) } 
        else { %display $c1(The current PC world is:) $c2(Get Voice to see!) } 
      } 
      elseif (%style == pccash) { 
        if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $address($nick,2) == $address($me,2)) { 
          if ($2 isnum 3-126) { 
            if ($3 isnum 1-50000) { 
              %display $c1(You will get) $c2($calc((10 * $$2) * $$3) $+ gp) $c1(for) $c2($$3) $c1(PC Games.) 
            } 
            else { %display $c1(Error... Please try again) } 
          } 
          else { %display $c1(Error... Please try again) } 
        } 
      } 
    } 
  }

  on *:text:*:?: { if ($nick isop #chatroom || $nick ishop #chatroom) { 

      tokenize 32 $strip($1-) 
      if ($left($1,1) !isin @!) halt 
      if ($right($1,-1) == setworld) var %style = setworld 
      elseif ($right($1,-1) == set-world) var %style = setworld 
      elseif ($right($1,-1) == ignore) var %style = ignore 
      elseif ($right($1,-1) == unignore) var %style = unignore 

      alias process { 

        if (%style == setworld) { 
          if ($2 isnum 1-132) { writeini PCWorld.ini PC-World PCWorld $replace($2,$chr(32),-) 
          amsg $c1(New PC World Type) $c2(!pcw/!pc-world/!world) $c1(to see the new World! World set by:) $c2($nick) } 
          else { msg $nick $c1(Please enter a valid world) } 
        } 
        elseif (%style == ignore) { 
          writeini Ignore.ini Ignore $address($$2,2) $replace($address($$2,2),$chr(32),-) 
          amsg $c1(The Address) $c2($address($$2,2)) $c1(has been Ignored) 
        } 
        elseif (%style == unignore) { 
          remini Ignore.ini Ignore $address($$2,2) $replace($address($$2,2),$chr(32),-) 
        } 
      } 
    } 
  }