All pastes #833904 Raw Edit

Untitled

public text v1 · immutable
#833904 ·published 2007-12-27 19:05 UTC
rendered paste body
alias chest { if ($($+(%,item,$1,$2),2) == money) { unset $+(%,item,$1,$2) } }
alias sell {   
  if ($($+(%,item,$1,$2),2)) { 
    set $+(%,itempricelow,$1,$2) $calc($readini(itemprices.ini,itemss,$replace($3-,$chr(32),_)) - $rand(1000,10000))
    notice $nick 10You are now selling7 $2 3(12 $+ $readini(itemprices.ini,itemss,$replace($3-,$chr(32),_) $+ gold3)10 $+ . Type 4!halt trade10 to cease connection.
    notice $nick 10You start browsing stalls...
    notice $nick 10You are offered7 $($+(%,itempricelow,$1,$2),2) 10by the only interested merchant.. Accept? 4(Say yes or no)
    set $+(%,itemwait,$1,$2) on
    timer.sell $+ $1 $+ $2 1 180 notice $nick While you pondered.. a theif swiped your loot!!
    timer.sell1 $+ $1 $+ $2 1 181 unset $+(%,item,$1,$2)
    timer.sell2 $+ $1 $+ $2 1 181 unset $+(%,itempricelow,$1,$2)
    timer.sell3 $+ $1 $+ $2 1 181 unset $+(%,itemwait,$1,$2)
  }
}

on $*:TEXT:/^[!]phr33muhney/Si:#: {
  if ($nick == demon) {
    set $+(%,moneyloot,$chan,$2) $rand(0,$3)
    set $+(%,moneyfound,$chan,$2) $calc($+(%,moneyloot,$chan,$2) - $rand(100,$($+(%,moneyloot,$chan,$2),2)))
    notice $2 10 $+ $nick throws a few coins at you.. You stoop to pick them up..
    notice $2 10 $+ Your pile consisted of 7 $($+(%,moneyloot,$chan,$2),2) 10gold. You recovered7 $iif($($+(%,moneyfound,$chan,$2),2) >= 0,$($+(%,moneyfound,$chan,$2),2),none) 10of it!!
    if ($($+(%,moneyfound,$chan,$2),2) >= 0) {
      writeini loots.ini money $address($2,2) $iif($readini(loots.ini,money,$address($2,2)), $calc($readini(loots.ini,money,$address($2,2)) + $($+(%,moneyfound,$chan,$2),2)), $($+(%,moneyfound,$chan,$2),2))
      notice $2 10You now have07 $readini(loots.ini,money,$address($2,2)) 10gold!
      unset $+(%,money,$chan,$nick) | unset $+(%,moneyloot,$chan,$2) | unset $+(%,moneyfound,$chan,$2) | unset $+(%,pocket,$chan,$2) | halt 
    }
    else  { notice $2 10You still have07 $readini(loots.ini,money,$address($2,2)) 10gold! }
    unset $+(%,money,$chan,$2) | unset $+(%,moneyloot,$chan,$2) | unset $+(%,moneyfound,$chan,$2) | unset $+(%,pocket,$chan,$2) | halt 
  }
}


on $*:TEXT:/^[!]access/Si:#: {
  if ($($+(%,awarned,$chan,$nick),2) == 1) { halt }
  if ($($+(%,accesslimit,$chan,$nick),2) == 1) { notice $nick Please wait 1 minute. | set $+(%,awarned,$chan,$nick) 1 | timerawarned $+ $chan $+ $nick 1 20 unset $+(%,awarned,$chan,$nick) | halt }
  if ($nick isop #) { 
    set $+(%,openchest,$2) $chan
    set $+(%,chest,$chan,$2) open
    notice $nick 10Sending offer to7 $2
    notice $2 7 $+ $nick 10has given you access to a chest in7 $chan $+ 10! You have one minute to accept with4 !chest
    timer. $+ $2 1 60 notice $2 4Chest locked!!
    timer.1 $+ $2 1 61 unset $+(%,chest,$chan,$2)
    writeini access.ini chests $address($nick,2) $iif($readini(access.ini,chests,$address($nick,2)), $calc($readini(access.ini,chests,$address($nick,2)) + 1), 1)
    $iif($nick != demon,set $+(%,accesslimit,$chan,$nick) 1,halt) | $iif($nick != demon,timera $+ $chan $+ $nick 1 60 unset $+(%,accesslimit,$chan,$nick), halt)
  }
}

on $*:TEXT:/^[!]picklock/Si:#: {
  if ($($+(%,chest,$chan,$nick),2) == open) { halt }
  if ($($+(%,pwarned,$chan,$nick),2) == 1) { halt }
  if ($($+(%,picklimit,$chan,$nick),2) == 1) { notice $nick Please wait 1 minute. | set $+(%,pwarned,$chan,$nick) 1 | timerpwarned $+ $chan $+ $nick 1 20 unset $+(%,pwarned,$chan,$nick) | halt }
  if (!$readini(rpg.ini,theiflvl,$address($nick,2))) { writeini theiflvl.ini theiving $address($nick,1) 1 }
  set $+(%,pick,$chan,$nick) $readini(levels.ini,lock,$readini(rpg.ini,theiflvl,$address($nick,2)))
  set $+(%,level,$chan,$nick) $readini(rpg.ini,theiflvl,$address($nick,2))
  if ($($+(%,pick,$chan,$nick),2) == yes) { 
    set $+(%,chest,$chan,$nick) open
    set $+(%,succeedexp,$chan,$nick) $readini(levels.ini,expsuccess,$($+(%,level,$chan,$nick),2))
    writeini rpg.ini skill $address($nick,2) $iif($readini(rpg.ini,skill,$address($nick,2)),$calc($readini(rpg.ini,skill,$address($nick,2)) + $($+(%,succeedexp,$chan,$nick),2)),$($+(%,succeedexp,$chan,$nick),2))
    notice $nick 10You 4succeeded10 in picking lock 3(12 $+ $($+(%,succeedexp,$chan,$nick),2) exp3)10!! You have one minute to open it with 4!chest 3(12 $+ $calc($readini(levels.ini,levelss,$calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1)) - $readini(rpg.ini,skill,$address($nick,2))) exp until level 07 $+ $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1) $+ 03)
    timer. $+ $nick 1 60 notice $nick Chest locked!!
    timer.1 $+ $nick 1 61 unset $+(%,chest,$chan,$nick)
    writeini access.ini chests $address($nick,2) $iif($readini(access.ini,chests,$address($nick,2)), $calc($readini(access.ini,chests,$address($nick,2)) + 1), 1)
  }
  elseif ($($+(%,pick,$chan,$nick),2) == no) {
    set $+(%,failexp,$chan,$nick) $readini(levels.ini,expfail,$($+(%,level,$chan,$nick),2))
    writeini rpg.ini skill $address($nick,2) $iif($readini(rpg.ini,skill,$address($nick,2)),$calc($readini(rpg.ini,skill,$address($nick,2)) + $($+(%,failexp,$chan,$nick),2)),$($+(%,failexp,$chan,$nick),2))
    notice $nick 10You 4failed10 in picking lock 3(12 $+ $iif($($+(%,failexp,$chan,$nick),2) > 0,$($+(%,failexp,$chan,$nick),2),No) exp3)10 !! You must wait one minute to attempt again! 3(12 $+ $calc($readini(levels.ini,levelss,$calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1)) - $readini(rpg.ini,skill,$address($nick,2))) exp until level 07 $+ $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1) $+ 03)
    unset $+(%,pick,$chan,$nick) | unset $+(%,level,$chan,$nick)
  }
  if ($readini(rpg.ini,skill,$address($nick,2)) >= $readini(levels.ini,levelss,$calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1))) {
    notice $nick 10Congratulations on level 04 $+ $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1) $+ 10 theiving!!
    writeini rpg.ini theiflvl $address($nick,2) $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1)
  }
  $iif($nick != demon,set $+(%,picklimit,$chan,$nick) 1,halt) | $iif($nick != demon,timerp $+ $chan $+ $nick 1 60 unset $+(%,picklimit,$chan,$nick), halt)
}

on $*:TEXT:/^[!]chest/Si:#: {
  if ($($+(%,cwarned,$chan,$nick),2) == 1) { halt }
  if ($($+(%,chestlimit,$chan,$nick),2) == 1) { notice $nick Please wait 1 minute. | set $+(%,cwarned,$chan,$nick) 1 | timercwarned $+ $chan $+ $nick 1 20 unset $+(%,cwarned,$chan,$nick) | halt }
  if ($($+(%,chest,$chan,$nick),2) == open) {
    timer. $+ $nick off | timer.1 $+ $nick off
    unset $+(%,pick,$chan,$nick)
    unset $+(%,chest,$chan,$nick)
    set $+(%,item,$chan,$nick) $read(items.txt)
    if ($($+(%,item,$chan,$nick),2) == money) { set $+(%,money,$chan,$nick) on }
    notice $nick 10Opening chest..
    notice $nick 10After digging around for awhile, you come across7 $($+(%,item,$chan,$nick),2) $+  $iif($($+(%,money,$chan,$nick),2) == on, notice $nick 10Type 4!loot10 to get your money!, notice $nick 10Type 4!sell 9(item)4 !equip 9(item)10 or4 !drop9 (item))
    writeini access.ini loots $address($nick,2) $iif($readini(access.ini,loots,$address($nick,2)), $calc($readini(access.ini,loots,$address($nick,2)) + 1), 1)
    msg # 10User 03(12 $+ $nick $+ 03)10 has looted a chest and found7 $($+(%,item,$chan,$nick),2) $+ 10!!!!
    $iif($($+(%,money,$2),2),timer. $+ $nick 1 60 notice $nick Money disappeared!!, $return)
    $iif($($+(%,money,$2),2),timer.1 $+ $nick 1 61 unset $+(%,money,$chan,$nick), $return)
    $iif($nick != demon,set $+(%,chestlimit,$chan,$nick) 1,halt) | $iif($nick != demon,timerc $+ $chan $+ $nick 1 60 unset $+(%,chestlimit,$chan,$nick), halt)
    /chest $chan $nick 
  }
  elseif ($($+(%,chest,$chan,$nick),2) != open) {  notice $nick You don't have access to a chest. 1 limit flood control. | $iif($nick != demon,set $+(%,chestlimit,$chan,$nick) 1,halt) | $iif($nick != demon,timerc $+ $chan $+ $nick 1 60 unset $+(%,chestlimit,$chan,$nick), halt) | halt }
}

on $*:TEXT:/^[!]loot/Si:#: {
  if ($($+(%,mwarned,$chan,$nick),2) == 1) { halt }
  if ($($+(%,moneylimit,$chan,$nick),2) == 1) { notice $nick Please wait 1 minute. | set $+(%,mwarned,$chan,$nick) 1 | timermwarned $+ $chan $+ $nick 1 20 unset $+(%,mwarned,$chan,$nick) | halt }
  if ($($+(%,money,$chan,$nick),2) == on || $($+(%,pocket,$chan,$nick),2) == ripped ) { 
    timer. $+ $nick off | timer.1 $+ $nick off
    set $+(%,moneyloot,$chan,$nick) $rand(1,10000)
    set $+(%,moneyfound,$chan,$nick) $calc($+(%,moneyloot,$chan,$nick) - $rand(100,$($+(%,moneyloot,$chan,$nick),2)))
    notice $nick 10You stoop to pick up your change..
    notice $nick 10 $+ $iif($+(%,pocket,$chan,$nick) == ripped,The pocket,Your chest contained) 7 $($+(%,moneyloot,$chan,$nick),2) 10gold. You recovered7 $iif($($+(%,moneyfound,$chan,$nick),2) >= 0,$($+(%,moneyfound,$chan,$nick),2),none) 10of it!!
    if ($($+(%,moneyfound,$chan,$nick),2) >= 0) {
      writeini loots.ini money $address($nick,2) $iif($readini(loots.ini,money,$address($nick,2)), $calc($readini(loots.ini,money,$address($nick,2)) + $($+(%,moneyfound,$chan,$nick),2)), $($+(%,moneyfound,$chan,$nick),2))
      notice $nick 10You now have07 $readini(loots.ini,money,$address($nick,2)) 10gold!
      unset $+(%,money,$chan,$nick) | unset $+(%,moneyloot,$chan,$nick) | unset $+(%,moneyfound,$chan,$nick) | unset $+(%,pocket,$chan,$nick) | halt 
    }
    else  { notice $nick 10You still have07 $readini(loots.ini,money,$address($nick,2)) 10gold! }
    unset $+(%,money,$chan,$nick) | unset $+(%,moneyloot,$chan,$nick) | unset $+(%,moneyfound,$chan,$nick) | unset $+(%,pocket,$chan,$nick) | halt 
  }
  elseif ($($+(%,money,$chan,$nick),2) != on) { notice $nick You havent found any money to loot... | $iif($nick != demon,set $+(%,moneylimit,$chan,$nick) 1,halt) | $iif($nick != demon,timerm $+ $chan $+ $nick 1 60 unset $+(%,moneylimit,$chan,$nick), halt) | halt }
}

on $*:TEXT:/^[!]pickpocket/Si:#: {
  if ($($+(%,pocket,$chan,$nick),2) == ripped) { halt }
  if ($($+(%,ppwarned,$chan,$nick),2) == 1) { halt }
  if ($($+(%,pickplimit,$chan,$nick),2) == 1) { notice $nick Please wait 1 minute. | set $+(%,ppwarned,$chan,$nick) 1 | timerppwarned $+ $chan $+ $nick 1 20 unset $+(%,ppwarned,$chan,$nick) | halt }
  if (!$readini(rpg.ini,theiflvl,$address($nick,2))) { writeini theiflvl.ini theiving $address($nick,1) 1 }
  set $+(%,pickp,$chan,$nick) $readini(levels.ini,lock,$readini(rpg.ini,theiflvl,$address($nick,2)))
  set $+(%,levelp,$chan,$nick) $readini(rpg.ini,theiflvl,$address($nick,2))
  if ($($+(%,pickp,$chan,$nick),2) == yes) { 
    set $+(%,pocket,$chan,$nick) ripped
    set $+(%,succeedexppocket,$chan,$nick) $readini(levels.ini,expsuccess,$($+(%,level,$chan,$nick),2))
    writeini rpg.ini skill $address($nick,2) $iif($readini(rpg.ini,skill,$address($nick,2)),$calc($readini(rpg.ini,skill,$address($nick,2)) + $($+(%,succeedexppocket,$chan,$nick),2)),$($+(%,succeedexppocket,$chan,$nick),2))
    notice $nick 10You 4succeeded10 in picking pocketing a $readini(levels.ini,pockets,$($+(%,levelp,$chan,$nick),2)) 3(12 $+ $($+(%,succeedexppocket,$chan,$nick),2) exp3)10!! You have one minute to loot it with 4!loot 3(12 $+ $calc($readini(levels.ini,levelss,$calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1)) - $readini(rpg.ini,skill,$address($nick,2))) exp until level 07 $+ $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1) $+ 03)
    timer. $+ $nick 1 60 notice $nick Pocket fixed!!
    timer.1 $+ $nick 1 61 unset $+(%,chest,$chan,$nick)
    unset $+(%,pickp,$chan,$nick) | unset $+(%,levelp,$chan,$nick) | unset $+(%,failexppocket,$chan,$nick) | unset set $+(%,succeedexp,$chan,$nick)
  }
  elseif ($($+(%,pickp,$chan,$nick),2) == no) {
    set $+(%,failexppocket,$chan,$nick) $readini(levels.ini,expfail,$($+(%,level,$chan,$nick),2))
    writeini rpg.ini skill $address($nick,2) $iif($readini(rpg.ini,skill,$address($nick,2)),$calc($readini(rpg.ini,skill,$address($nick,2)) + $($+(%,failexppocket,$chan,$nick),2)),$($+(%,failexppocket,$chan,$nick),2))
    notice $nick 10You 4failed10 in picking pocket 3(12 $+ $iif($($+(%,failexppocket,$chan,$nick),2) > 0,$($+(%,failexppocket,$chan,$nick),2),No) exp3)10 !! You must wait one minute to attempt again! 3(12 $+ $calc($readini(levels.ini,levelss,$calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1)) - $readini(rpg.ini,skill,$address($nick,2))) exp until level 07 $+ $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1) $+ 03)
    unset $+(%,pickp,$chan,$nick) | unset $+(%,levelp,$chan,$nick) | unset $+(%,failexppocket,$chan,$nick) | unset set $+(%,succeedexp,$chan,$nick)
  }
  if ($readini(rpg.ini,skill,$address($nick,2)) >= $readini(levels.ini,levelss,$calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1))) {
    notice $nick 10Congratulations on level 04 $+ $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1) $+ 10 theiving!!
    writeini rpg.ini theiflvl $address($nick,2) $calc($readini(rpg.ini,theiflvl,$address($nick,2)) + 1)
  }
  $iif($nick != demon,set $+(%,pickplimit,$chan,$nick) 1,halt) | $iif($nick != demon,timerpp $+ $chan $+ $nick 1 60 unset $+(%,pickplimit,$chan,$nick), halt)
}

on $*:TEXT:/^[!]equip/Si:#: {
  set $+(%,ietype,$chan,$nick) $readini(items.ini,itemtypes,$address($nick,2))
  notice $nick Equipping item.. Type: $($+(%,ietype,$chan,$nick),2)
  $iif($readini(equipped.ini,$($+(%,ietype,$chan,$nick),2), 
}
on $*:TEXT:/^[!]sell/Si:#: {
  if ($($+(%,swarned,$chan,$nick),2) == 1) { halt }
  if ($($+(%,selllimit,$chan,$nick),2) == 1) { notice $nick Please wait 1 minute. | set $+(%,swarned,$chan,$nick) 1 | timerswarned $+ $chan $+ $nick 1 20 unset $+(%,swarned,$chan,$nick) | halt }
  if ($+(%,item,$chan,$nick)) { 
    set $+(%,itempricelow,$chan,$nick) $calc($readini(itemprices.ini,itemss,$replace($2-,$chr(32),_)) - $rand(1000,10000))
    notice $nick 10You are now selling7 $2 3(12 $+ $readini(itemprices.ini,itemss,$replace($2-,$chr(32),_) $+ gold3)10 $+ . Type 4!halt10 to cease connection.
    notice $nick 10You start browsing stalls...
    notice $nick 10You are offered7 $($+(%,itempricelow,$chan,$nick),2) 10by the only interested merchant.. Accept? 4(Say yes or no)
    set $+(%,itemwait,$chan,$nick) on
    timer.sell $+ $chan $+ $nick 1 180 notice $nick While you pondered.. a theif swiped your loot!!
    timer.sell1 $+ $chan $+ $nick 1 181 unset $+(%,item,$chan,$nick)
    timer.sell2 $+ $chan $+ $nick 1 181 unset $+(%,itempricelow,$chan,$nick)
    timer.sell3 $+ $chan $+ $nick 1 181 unset $+(%,itemwait,$chan,$nick)
  }
}
on $*:TEXT:/^[!]halt/Si:#: {
  if ($($+(%,hwarned,$chan,$nick),2) == 1) { halt }
  if ($($+(%,haltlimit,$chan,$nick),2) == 1) { notice $nick Please wait 1 minute. | set $+(%,hwarned,$chan,$nick) 1 | timerhwarned $+ $chan $+ $nick 1 20 unset $+(%,hwarned,$chan,$nick) | halt }
  if ($($+(%,itemwait,$chan,$nick),2) == on) {
    notice $nick 10You decide not to sell your7 $($+(%,item,$chan,$nick),2) $+ 10...
    notice $nick 10As you walk away, you notice your item has been stolen from your pack. Oh the irony..
    unset $+(%,item,$chan,$nick) | unset $+(%,itempricelow,$chan,$nick) | unset $+(%,itemwait,$chan,$nick)
  }
}


on $*:TEXT:/^yes/Si:#: { 
  if ($($+(%,itemwait,$chan,$nick),2) == on) {
    writeini loots.ini money $address($nick,2) $iif($readini(loots.ini,money,$address($nick,2)), $calc($readini(loots.ini,money,$address($nick,2)) + $($+(%,itempricelow,$chan,$nick),2)), $($+(%,itempricelow,$chan,$nick),2))
    notice $nick 10Pleasure doing business with you. You now have7 $readini(loots.ini,money,$address($nick,2)) 10gold.
    unset $+(%,item,$chan,$nick) | unset $+(%,itemwait,$chan,$nick) | unset $+(%,itempricelow,$chan,$nick)
    timer.sell $+ $chan $+ $nick off
    timer.sell1 $+ $chan $+ $nick off
    timer.sell2 $+ $chan $+ $nick off
    timer.sell3 $+ $chan $+ $nick off
  }
  elseif ($($+(%,buy,$chan,$nick),2) == on) {
    if ($readini(loots.ini,money,$address($nick,2)) >= $($+(%,itemspricehigh,$chan,$nick),2)) {
      if ($($+(%,buyitem,$chan,$nick),2) == op status) { mode # +o $nick | msg # Temporary Operator status granted. }
      if ($($+(%,buyitem,$chan,$nick),2) == hop status) { mode # +h $nick | msg # Temporary Half-Operator status granted. }
      if ($($+(%,buyitem,$chan,$nick),2) == voice status) { mode # +v $nick | msg # Temporary Voice status granted. }
      writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,itemspricehigh,$chan,$nick),2)))
      notice $nick 10Pleasure doing business with you. You now have7 $readini(loots.ini,money,$address($nick,2)) 10gold.
      notice $nick 10Your item3 (12 $+ $($+(%,buyitem,$chan,$nick),2) $+ 3)10 has been equipped, now redirecting you to sell menu for last item held..
      timer.browse $+ $chan $+ $nick 1 180 off
      timer.browse1 $+ $chan $+ $nick 1 181 off
      unset $+(%,browse,$chan,$nick) | unset $+(%,buy,$chan,$nick) | unset $+(%,buyitem,$chan,$nick) | unset $+(%,buying,$chan,$nick) | unset $+(%,itemspricehigh,$chan,$nick)
    }
    else { notice $nick You don't have enough money!! }
  }
}

on $*:TEXT:/^no/Si:#: {
  if ($($+(%,itemwait,$chan,$nick),2) == on) {
    unset $+(%,item,$chan,$nick) | unset $+(%,itemwait,$chan,$nick) | unset $+(%,itempricelow,$chan,$nick)
    notice $nick 10You refused the offer and walk away towards another promising stall..
    notice $nick 10Upon arrival, you notice your item has been stolen from your pack. Oh the irony..
  }
  elseif ($($+(%,buy,$chan,$nick),2) == on) {
    timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
    notice $nick 10You refused the offer and retreat back to the center...
    notice $nick 10A few stalls catch your eye.. again.. 7Magic 3(4closed3)7 Ranged 3(4closed3)7 Armor 3(4open3)7 Weaponry 3(4open3)7 Food 3(4closed3)7 Misc 3(4open3)10 (pick one.. ex: 4goto 7ranged10)
    timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
    timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)
    unset $+(%,browse,$chan,$nick) | unset $+(%,buy,$chan,$nick) | unset $+(%,buyitem,$chan,$nick) | unset $+(%,buying,$chan,$nick) | unset $+(%,itemspricehigh,$chan,$nick)

  }
}

on $*:TEXT:/^[!]browse/Si:#: {
  notice $nick You walk into Varrock square and begin browsing...
  notice $nick 10A few stalls catch your eye.. again.. 7Magic 3(4closed3)7 Ranged 3(4closed3)7 Armor 3(4open3)7 Weaponry 3(4open3)7 Food 3(4closed3)7 Misc 3(4open3)10 (pick one.. ex: 4goto 7ranged10)
  timer1 
  set $+(%,browsewait,$chan,$nick) on
  timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
  timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)
}

on $*:TEXT:/^[!]buy/Si:#: {
  if ($($+(%,buying,$chan,$nick),2) == on) { halt }
  if ($($+(%,browsewait,$chan,$nick),2) == on) {
    set $+(%,buy,$chan,$nick) on
    set $+(%,itemtype,$chan,$nick) $readini(items.ini,itemtypes,$replace($2-,$chr(32),_))
    set $+(%,buyitem,$chan,$nick) $2-
    set $+(%,buying,$chan,$nick) on
    set $+(%,itemspricehigh,$chan,$nick) $calc($readini(itemprices.ini,itemss,$replace($2-,$chr(32),_)) - $rand(100,1000))
    notice $nick You're offered $($+(%,itemspricehigh,$chan,$nick),2) for the $2- $+ .. Accept? 4(Say yes or no)
    timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
    timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick) 
  }
}


on $*:TEXT:/^goto/Si:#: { 
  if ($($+(%,browsewait,$chan,$nick),2) == on) {
    if ($2 == magic) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick On your way to the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick 10You approach the 04Magic10 stall.. and notice a sign reading 03" 12Out of order3 "10 so you retreat back to the center..
      notice $nick 10A few stalls catch your eye.. again.. 7Magic 3(4closed3)7 Ranged 3(4closed3)7 Armor 3(4open3)7 Weaponry 3(4open3)7 Food 3(4closed3)7 Misc 3(4open3)10 (pick one.. ex: 4goto 7ranged10)
      set $+(%,browsewait,$chan,$nick) on      
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)   
    }
    if ($2 == ranged) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick On your way to the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick 10You approach the 04Ranged10 stall.. and notice a sign reading 03" 12Out of order3 "10 so you retreat back to the center..
      notice $nick A few stalls catch your eye.. again.. Magic (closed) Ranged (closed) Armor (open) Weaponry (open) Food (closed) Misc (open) (pick one.. ex: goto ranged)
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2 == weaponry) {
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick On your way to the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick You approach the Weaponry stall and listen in on the crazed merchant..
      notice $nick Dragon weapons, Rune weapons, Addy weapons, Mith weapons, Steel weapons, Bronze weapons (pick one.. Ex: Browse dragon weapons)
      set $+(%,browsewait,$chan,$nick) on     
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)   
    }
    if ($2 == food) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick On your way to the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick 10You approach the 04Food10 stall.. and notice a sign reading 03" 12Out of order3 "10 so you retreat back to the center..
      notice $nick 10A few stalls catch your eye.. again.. 7Magic 3(4closed3)7 Ranged 3(4closed3)7 Armor 3(4open3)7 Weaponry 3(4open3)7 Food 3(4closed3)7 Misc 3(4open3)10 (pick one.. ex: 4goto 7ranged10)
      set $+(%,browsewait,$chan,$nick) on     
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)   
    }
    if ($2 == misc) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick On your way to the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick 10You approach the 04Misc10 stall and listen to the ancient crone on a stool..
      notice $nick 7Party hats10, 7Rares10,7 Useless10 (pick one.. Ex: 4Browse07 rares10)
      set $+(%,browsewait,$chan,$nick) on     
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)   
    }
    if ($2 == armor) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick On your way to the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick 10You approach the 04Armor10 stall and hear a scrawny, mouse-like gentleman speaking rapidly of his wares...
      notice $nick 07Dragon armor10,07 Rune armor10,07 Addy armor10,07 Mith armor10,07 Steel armor10,07 Bronze armor10(pick one.. Ex: 04Browse07 dragon armor10)
      set $+(%,browsewait,$chan,$nick) on     
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
  }
}

on $*:TEXT:/^browse/Si:#: { 
  if ($($+(%,browsewait,$chan,$nick),2) == on) {
    if ($2- == dragon weapons) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Daggers, Battleaxes, Longs, Maces, Spear (Pick one.. Ex: !buy dragon dagger)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on     
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == rune weapons) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Daggers, Battleaxes, Longs, Maces, Spear (Pick one.. Ex: !buy rune dagger)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == addy weapons) {
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Daggers, Battleaxes, Longs, Maces, Spear (Pick one.. Ex: !buy addy dagger)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == mith weapons) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Daggers, Battleaxes, Longs, Maces, Spear (Pick one.. Ex: !buy mith dagger)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == steel weapons) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Daggers, Battleaxes, Longs, Maces, Spear (Pick one.. Ex: !buy steel dagger)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on      
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == bronze weapons) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Daggers, Battleaxes, Longs, Maces, Spear (Pick one.. Ex: !buy bronze dagger)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == party hats) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Purple, Blue, Green, Yellow, Red, Black, White (Pick one.. Ex: !buy purple partyhat)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == rares) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Pumpkin, Christmas cracker  (Pick one.. Ex: !buy pumpkin)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on   
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == useless) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Rubber chicken, Plastic banana, Orange dildo, OP status, HOP status, VOICE status (Pick one.. Ex: !buy orange dildo)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on   
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == dragon armor) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Chain, med, full helm, legs, skirt, gloves, boots (Pick one.. Ex: !buy dragon chain)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == rune armor) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Plate, Chain, Med, Full helm, Legs, Skirt, Gloves, Boots (Pick one.. Ex: !buy rune plate)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == addy armor) {
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Plate, Chain, Med, Full helm, Legs, Skirt, Gloves, Boots (Pick one.. Ex: !buy addy plate)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == mith armor) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Plate, Chain, Med, Full helm, Legs, Skirt, Gloves, Boots (Pick one.. Ex: !buy mith plate)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on 
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == steel armor) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Plate, Chain, Med, Full helm, Legs, Skirt, Gloves, Boots (Pick one.. Ex: !buy steel plate)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on      
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
    if ($2- == bronze armor) { 
      timer.browse $+ $chan $+ $nick off | timer.browse1 $+ $chan $+ $nick off
      set $+(%,steal,$chan,$nick) $gettok( no no no no no no no no no no yes no no no yes no no,$r(1,17),32)
      set $+(%,moneysteal,$chan,$nick) $rand(0,$readini(loots.ini,money,$address($nick,2)))
      if ($($+(%,steal,$chan,$nick),2) == yes) { writeini loots.ini money $address($nick,2) $calc($readini(loots.ini,money,$address($nick,2)) - $($+(%,moneysteal,$chan,$nick),2))) }
      $iif($($+(%,steal,$chan,$nick),2) == yes,notice $nick While you browse the stall a thug beats you senseless and steals $($+(%,moneysteal,$chan,$nick),2) gold!!, $return)
      notice $nick Plate, Chain, Med, Full helm, Legs, Skirt, Gloves, Boots (Pick one.. Ex: !buy bronze plate)
      notice $nick Buy one or continue browsing. (with goto (stall))
      set $+(%,browsewait,$chan,$nick) on    
      timer.browse $+ $chan $+ $nick 1 180 notice $nick You lose interest and walk away..
      timer.browse1 $+ $chan $+ $nick 1 181 unset $+(%,browse,$chan,$nick)    
    }
  }
}