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...
}
}
}