on $*:TEXT:/^[!@.](drive|travel)/Si:#Rpg: {
  if ($me == Brycean9) { Halt }
  var %gasvar $rand(5,100)
  if (%gas [ $+ [ $nick ] ] < %vargas) {
    notice $nick You don't have enough gas to go to $2 $+ ... Type !buy gas (amount of gas in gallions) to buy gas
  }
  Elseif ($readini(Rpg.ini,$nick,car)) {
    if (!$2) {
      notice $nick 10Please select a location by typing: $1 <location>
    }
    else {
      dec %gas [ $+ [ $nick ] ] %gasvar
      writeini -n Rpg.ini $nick location $2-
      var %temp $rand($int($calc($readini(Rpg.ini,$nick,drivexp) + 10)),$int($calc(($readini(Rpg.ini,$nick,drivexp) + 10) / 1.2))))
      var %tempexp $readini(Rpg.ini,$nick,drivexp)
      inc %tempexp %temp
      //writeini -n Rpg.ini $nick drivexp %tempexp
      //writeini -n Rpg.ini $nick drivelvl $int($calc( ( %tempexp / 10000 ) + 1 ))
      notice $nick 10You have traveled to4 $2- 10by car. You gained [4 $+ $bytes(%temp,bd) $+ ]10 driving experience. You now have [4 $+ $bytes($readini(Rpg.ini,$nick,drivexp),bd) $+ ]10 driving experience. Your driving skill is [4 $+ $bytes($readini(Rpg.ini,$nick,drivelvl),bd) $+ ]10.
      notice $nick You also have %gas [ $+ [ $nick ] ] Left...
    }
  }
  else {
    notice $nick 10You don't have a car! How else you gonna get there... Walking? Type !buycar <car> to buy one. They cost $500,000.
  }
}
on $*:TEXT:/^[!@.]buy/Si:#Rpg: {
  if ($me == Brycean9) { Halt }
  if (!$2) {
    notice $nick 10You can buy:4 Gun $chr(124) Bullets $chr(124) Rocket
  }
  if ($2 == gas) {
    var %gas [ $+ [ $nick ] ]
    dec %gold [ $+ [ $nick ] ] $calc($3 * 100)
    inc %gas [ $+ [ $nick ] ] $3
    notice $nick You buy $3 gallions of gas for $ $+ 100 a gallion (Expensive gas).  You now have $bytes(%gold [ $+ [ $nick ] ],bd) $+ ] and %gas [ $+ [ $nick ] ] gallions of gas
  } 
  if ($2 == gun) {
    writeini -n Rpg.ini $nick item gun
    dec %gold [ $+ [ $nick ] ] 1500000
    notice $nick 10You buy a gun for [4$1,500,000]10. You now have [4 $+ $ $+ $bytes(%gold [ $+ [ $nick ] ],bd) $+ ] 10.
  }
  if (*bullet* iswm $2) {
    if ($readini(Rpg.ini,$nick,item) == gun) {
      writeini -n Rpg.ini $nick gun $calc($gettok(%var,2,32) + 20) ammo
      dec %gold [ $+ [ $nick ] ] 100000
      notice $nick 10You buy a 20-pack bag of bullets for [4$100,000]10. You load it into your gun and walk out of the store. You now have [4 $+ $ $+ $bytes(%gold [ $+ [ $nick ] ],bd) $+ ]10.
    }
    else {
      notice $nick 10You don't got no gun...You don't need no bullets. Get outa my store 'fore I shoot ye.
    }
  }
  if ($2 == rocket) {
    if ($readini(Rpg.ini,$nick,shootlvl) > 499999) {
      if (%gold [ $+ [ $nick ] ] > 499999999) {
        dec %gold [ $+ [ $nick ] ] 500000000
        notice $nick 10You buy a rocket for [4$500,000,000]10. You now have [4 $+ $ $+ $bytes(%gold [ $+ [ $nick ] ],bd) $+ ]10.
        if (*gun* iswm $readini(Rpg.ini,$nick,item)) {
          notice $nick 10The store owner snatches back your gun and bullets with a nasty look.
          var %var $readini(Rpg.ini,$nick,item)
          remini Rpg.ini $nick item %var
        }
        writeini -n Rpg.ini $nick item rocket
      }
      else {
        notice $nick 10You don't got enough money you lil cheat...
      }
    }
    else {
      notice $nick 10The storekeeper glares at you. "You ain't got enough skill to use that thing." Looks like you need 1,000,000 shooting skill. You need to start training...
    }
  }
}