JamyDoger Posted June 30, 2007 Posted June 30, 2007 What is wrong with my script? i have got all the commands that i need but they dont work
JamyDoger Posted June 30, 2007 Author Posted June 30, 2007 (edited) /*///////////////////////////////////// ////// MTASA:RACE ////// ////// ////// ////// Public Race Script ////// ////// ////// ////// Version 1.3 ////// ////// ////// ////// BY: [uVA]Scooby ////// ///// Remodeled By:JamyDoger ////// ////////////////////////////////////// */ General/Script/Load and load PRS . on *:SIGNAL:mta.connect: { General/Script/Load and load PRS . if ($readini(prsdata.ini,prs,maxping)) set %max $readini(prsdata.ini,prs,maxping) else set %max 500 !.timerping 0 30 checkpings $1- set %loop $mta.server($1).cmax set %setter Autoset(Script) .timer 1 2 mta.text $1 $prs.version($1) Script Reactivated if ($readini(pgsdata.ini,pgs,itemmsg) == on) && (%pgs == on) .timeritemmsg 0 $readini(pgsdata.ini,pgs,itemmsgtime) pgs.itemmsg $1 if ($readini(prsdata.ini,prs,custommsgon)) .timershowcustommsg 0 $readini(prsdata.ini,prs,custommsgtime) showcustommsg $1 set %server $1 } alias prs.getid { var %a = 0 while (%a 0) mta.text $1 $readini(prsdata.ini,prs,custommsg) } on *:SIGNAL:mta.command: { General/Script/Load and load PRS . var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $replace($mta.race($1),$chr(32),$chr(45)) if ($3 == !name) mta.text $1 Map Name: $mta.race($1) elseif (!admin* iswm $3) admincount $1- elseif ($3 == !seen) { %a = $iif((!$4),$mta.nick($1,$2),$4) if (!$hget(prsseen,%a)) mta.pm $1 $2 ' $+ %a $+ ' Has Never Been Seen Here. elseif ($mta.nick($1,$prs.getid($1,%a))) mta.text $1 $mta.nick($1,$prs.getid($1,%a)) $+ : Here Since: $gettok($hget(prsseen,$mta.nick($1,$prs.getid($1,%a))),1,32) else mta.text $1 %a $+ : Last Seen: $hget(prsseen,%a) } elseif (!stat* iswm $3) { mta.text $1 Full Stats For $mta.nick($1,%a) .timer 1 1 mta.text $1 Races: $prs.racestarts($1,%a) - Finishes: $prs.finishes($1,%a) - Ratio: $round($calc($prs.finishes($1,%a) / $prs.racestarts($1,%a)),2) .timer 1 2 mta.text $1 Placed: 1st: $prs.rank1($1,%a) - 2nd: $prs.rank2($1,%a) - 3rd: $prs.rank3($1,%a) .timer 1 3 mta.text $1 Deathmatches: $prs.deathmatchstarts($1,%a) - Wins: $prs.totaldmwins($1,%a) - Ratio: $round($calc($prs.totaldmwins($1,%a) / $prs.deathmatchstarts($1,%a)),2) .timer 1 4 mta.text $1 TopTimes Held: $toptimes($1,$mta.nick($1,%a)) - Points: $prs.points($1,%a) } elseif (!mapstat* iswm $3) { mta.text $1 MapStats For $mta.nick($1,%a) mta.text $1 $prs.mode($1) $+ : $mta.race($1) mta.text $1 $iif($prs.mode($1) == Race,Finished $prs.mapfinishes($1,%a) Out Of $prs.mapstarts($1,%a) Times,Won $prs.dmwins($1,%a) Out Of $prs.mapstarts($1,%a) $iif($prs.mapstarts($1,%a) == 1,Time,Times)) mta.text $1 $iif($prs.mode($1) == Race,Personal Best Time: $prs.besttime($1,%a),Ratio: $round($calc($prs.dmwins($1,%a) / $prs.mapstarts($1,%a)),2)) } elseif ($3 == !help || !command* iswm $3) { prs.commands $1- } elseif ($3 == !time) || ($3 == !date) { mta.text $1 Time: $time - Date: $date } elseif (!vote* iswm $3) prs.votekick $1- elseif ($3 == !new) prs.newmap $1- elseif ($3 == !level) mta.text $1 $mta.nick($1,%a) $+ 's Level: $prs.level($1,%a) elseif ($3 == !mode) mta.text $1 Map: $mta.race($1) - Mode: $prs.mode($1) elseif ($3 == !rank) prs.rank $1- elseif ($3 == !ping) mta.text $1 $mta.nick($1,%a) $+ 's Ping: $mta.ping($1,%a) - Average: $mta.avping($1,%a) elseif ($3 == !info) mta.text $1 $prs.version($1) By [uVA]Scooby. elseif ($3 == !points) mta.text $1 $mta.nick($1,%a) $+ 's Points: $prs.points($1,%a) elseif (!max* iswm $3) mta.text $1 Max Ping: %max - Set By: %setter elseif ($3 == !toptime) mta.text $1 Top Time For $mta.race($1) By: $prs.topnick($1) - Time: $prs.toptime($1) elseif ($3 == !best) mta.text $1 $mta.nick($1,%a) $+ 's Best Time: $prs.besttime($1,%a) elseif ($3 == !players) mta.text $1 Total Players $iif($prs.mode($1) == deathmatch,Left Alive: $prs.dmcount($1),: $prs.players($1)) elseif ($3 == !wb) mta.text $1 $iif((!$4),Welcome Back,Welcome Back $mta.nick($1,%a)) elseif (!rand* iswm $3) mta.text $1 Random Race: $hget(prstemp,randomrace) elseif (!total* iswm $3) mta.text $1 Total Races Uploaded: $mta.races($1) elseif (!race* iswm $3) mta.text $1 Name: $mta.race($1) - Ran $prs.mapcount($1) $iif($prs.mapcount($1) == 1,Time.,Times.) elseif ($3 == !toptimes) { if (!$mta.nick($1,$prs.getid($1,$4))) mta.text $1 $4 Holds $toptimes($1,$4) Top $iif($toptimes($1,$4) == 1,Time.,Times.) else mta.text $1 $mta.nick($1,%a) Holds $toptimes($1,$mta.nick($1,%a)) Top $iif($toptimes($1,$mta.nick($1,%a)) == 1,Time.,Times.) } elseif ($3 == !timer) && ($prs.mode($1) == RS-Deathmatch) mta.text $1 Time Left: $duration($timer(endrsdm).secs) elseif ($3 == !sc) || ($3 == !score) { if ($prs.mode($1) != RS-Deathmatch) mta.pm $1 $2 Scores Only On RS-DM maps! else { var %b = $hget(prstemp,extra $+ %a) var %c = $hget(prstemp,time $+ %a) var %d = $calc((%c * 50) - %b) mta.text $1 $mta.nick($1,%a) $+ 's Current Map Score: %d } } elseif (!creator* iswm $3) mta.text $1 $iif($hget(prsmaprate,details $+ %race) == $null,No Details Saved.,Details: $v1) elseif ($3 == !claim) prs.reclaim $1 $mta.nick($1,$2) elseif (!rat* iswm $3) prs.ratemap $1- elseif ($3 == !upload) mta.text $1 Upload Address: $prs.url($1) elseif (!check* iswm $3) checkmap $1- elseif ($3 == !top) prs.tops $1- elseif ($3 == !top3) prs.showtop3 $1- elseif ($3 == !warnings) mta.text $1 $mta.nick($1,%a) $+ 's Warnings: $prs.warns($1,%a) $+ / $+ $prs.warnlimit($1) elseif ($3 == !dmlimit) mta.text $1 Minimum Players Needed For A DM Map: $prs.dmlimit($1) elseif ($3 == !banned) { if (!$4) mta.pm $1 $2 Error: Specify A Name else mta.pm $1 $2 $iif($hget(prsbans,$4) == $null, $4 Is Not Banned,$4 Is Banned Here.) } elseif ($prs.level($1,$2) > 0) { ;start of Admin level 1 commands. if (!alias* iswm $3 || !pma* iswm $3) { prs.alias $1- } elseif ($3 == !en) { if (!$4) mta.text $1 Please Type In English Or You Will Be Kicked else mta.text $1 $mta.nick($1,%a) $+ , You Have Been Warned - English Only! } elseif ($3 == !setupload) { if (!$4) mta.pm $1 $2 Error: Specify Upload URL. else { writeini prsdata.ini prs url $4- mta.pm $1 $2 URL Added: $4- } } elseif ($3 == !setwarnlimit) prs.setwarnlimit $1- elseif ($3 == !setdmlimit) prs.setdmlimit $1- elseif ($3 == !warn) prs.warn $1 $2 %a $5- elseif ($3 == !unwarn) prs.unwarn $1 $2 %a elseif ($3 == !exportmaps) prs.remmaps $1- elseif ($3 == !cancel) prs.endvotekick $1- elseif ($3 == !lostmaps) mta.text $1 $lostmaps($1) elseif ($3 == !addo) addo $1- elseif ($3 == !o) mta.text $1 $mta.nick($1,$2) $+ : $iif($hget(prsstats,ownage $+ $mta.nick($1,$2)) == $null,Owns!,$v1) elseif ($3 == !ip) mta.text $1 $mta.nick($1,%a) $+ 's IP: $mta.ip($1,%a) elseif ($3 == !getip) prs.alias2 $1- elseif ($3 == !redo) mta.startrace $1 $mta.races($1,$mta.race($1)) elseif ($3 == !restartscript) prs.restart $1 elseif (($3 == !addcreator) || ($3 == !ac)) { prs.addcreator $1- } elseif ($3 == !remcreator) { !hdel prsmaprate details $+ %race mta.pm $1 $2 Details Removed. } elseif ($3 == !deletetime) { if ($prs.level($1,$2) >= $prs.delete($1)) { prs.deletetime $1- } else insuf $1 $2 } elseif ($3 == !kick) { if ($prs.level($1,$2) >= $prs.kick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.kick $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !ban) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Nick elseif (%a == $2) mta.pm $1 $2 Error: Cannot Ban Self! elseif ($prs.level($1,$2) > $prs.level($1,%a)) || sco isin $mta.nick($1,$2) { !hadd prsbans $mta.nick($1,%a) $mta.ip($1,%a) !hadd prsbans $mta.ip($1,%a) $mta.nick($1,%a) mta.ban $1 %a mta.pm $1 $2 $mta.nick($1,%a) Added To Ban File. $+(,$mta.ip($1,%a),) } else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !banip) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (*.*.*.* iswm $4) { if ($hget(prsbans,$4) != $null) mta.pm $1 $2 Error: $4 Is Already Banned else { mta.addban $1 $4 !hadd prsbans $4 1 mta.pm $1 $2 IP: $4 Added To Ban File. } } else mta.pm $1 $2 Error: Specify An IP To Ban } else insuf $1 $2 } elseif ($3 == !unbanip) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (*.*.*.* iswm $4) { if ($hget(prsbans,$4) == $null) mta.pm $1 $2 Error: $4 Is Not Banned else { mta.unban $1 $4 !hdel prsbans $4 mta.pm $1 $2 IP: $4 Removed From Ban File. } } else mta.pm $1 $2 Error: Specify An IP To UnBan } else insuf $1 $2 } elseif ($3 == !banname) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Name To Ban elseif ($hget(prsbans,$4) != $null) mta.pm $1 $2 Error: Name ' $+ $4 $+ ' Is Already Banned else { !hadd prsbans $4 1 mta.pm $1 $2 The Name ' $+ $4 $+ ' Is Now Banned. } } } elseif ($3 == !unbanname) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Name To UnBan elseif ($hget(prsbans,$4) == $null) mta.pm $1 $2 Error: $4 Is Not Banned else { if ($hget(prsbans,$hget(prsbans,$4)) != $null) !hdel prsbans $hget(prsbans,$4) !hdel prsbans $4 mta.pm $1 $2 $4 $+ 's Name Removed From Ban File. } } else insuf $1 $2 } elseif ($3 == !mute) { if ($prs.level($1,$2) >= $prs.mute($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.mute $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !unmute) { if ($prs.level($1,$2) >= $prs.mute($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.unmute $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !freeze) { if ($prs.level($1,$2) >= $prs.freeze($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.freeze $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !unfreeze) { if ($prs.level($1,$2) >= $prs.mute($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.unfreeze $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif (($3 == !qm) || ($3 == !stfu)) { if ($prs.level($1,$2) >= $prs.quick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) { mta.mute $1 %a .timerunmute $+ %a 1 $prs.quickduration($1) mta.unmute $1 %a } else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !qf) { if ($prs.level($1,$2) >= $prs.quick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) { mta.freeze $1 %a .timerunfreeze $+ %a 1 $prs.quickduration($1) mta.unfreeze $1 %a } else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !setmode) && ($prs.level($1,$2) == 5) { if ($4 == deathmatch) || ($4 == dm) { !hadd prsstats mode $+ %race Deathmatch mta.text $1 $mta.nick($1,$2) Set $mta.race($1) As A Deathmatch Map } elseif ($4 == rsdm) prs.rsdm $1- elseif ($4 == race) { !hdel prsstats mode $+ %race mta.text $1 $mta.nick($1,$2) Set $mta.race($1) As A Race Map } else mta.pm $1 $2 Error: specify: Race, Deathmatch or RSDM } elseif (($3 == !nextmap) && ($prs.level($1,$2) >= $prs.startmap($1))) prs.nextmap $1- elseif ($3 == !map || $3 == !changemap) { if ($prs.level($1,$2) >= $prs.startmap($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Map Name elseif ($4 == random) { mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) } else { var %a = $mta.races($1,* $+ $4- $+ *) if (%a != $null) mta.startrace $1 %a else mta.pm $1 $2 Error: $4- Not Found } } else insuf $1 $2 } elseif ($3 == !remmap) { if ($prs.level($1,$2) >= $prs.remmap($1)) { !hadd prsstats removed $+ %race removed !hdel prstimes 1stnick $+ %race !hdel prstimes 1st $+ %race mta.text $1 $prs.mode($1) $+ : $mta.race($1) Has Now Been Removed .timer 1 3 mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) .timer 1 4 mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) } else insuf $1 $2 } elseif ($3 == !restore) { if ($prs.level($1,$2) >= $prs.remmap($1)) { if (!$4) mta.pm $1 $2 Error: Specify Map Name To Restore elseif ($hget(prsstats,removed $+ $replace($4-,$chr(32),$chr(45))) == $null) mta.pm $1 $2 Error: $4- Is Not Added As A Removed Map else { !hdel prsstats removed $+ $replace($4-,$chr(32),$chr(45)) mta.pm $1 $2 $4- Has Been Restored } } else insuf $1 $2 } elseif ($3 == !setping) { if ($prs.level($1,$2) >= $prs.setmax($1)) { if (!$4) mta.pm $1 $2 Error: Invalid Amount else { mta.text $1 $mta.nick($1,$2) Changed The Max Ping From %max To $4 set %max $4 set %setter $mta.nick($1,$2) } } else insuf $1 $2 } elseif ($3 == !addadmin) && ($prs.level($1,$2) >= 5) prs.addadmin $1 $2 %a $5 elseif (($3 == !remadmin) && ($prs.level($1,$2) >= 5) || ($3 == !deladmin) && ($prs.level($1,$2) >= 5)) { prs.remadmin $1 $2 %a } } if (%pgs == on) prs.command $1- } alias prs.command { var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)) if ($3 == !bethelp) pgs.bethelp $1- elseif ($3 == !buyhelp) pgs.buyhelp $1- elseif ($3 == !betcommands) pgs.commands $1- elseif ($3 == !itemlist) pgs.itemlist $1- elseif ($3 == !bet) pgs.bet $1- elseif ($3 == !buy) pgs.buy $1- elseif ($3 == !use) pgs.use $1- elseif ($3 == !cost) pgs.cost $1- elseif ($3 == !fund) { mta.text $1 Current Lottery Fund: $ $+ $pgs.lottofund($1) mta.text $1 Last Won By: $iif($hget(pgscash,lastlottowinner) == $null,No One,$v1) .timer 1 5 mta.pm $1 $2 The Lottery Will Be Drawn When Funds Reach $ $pgs.drawlottoat($1) } elseif (!cashstat* iswm $3) { mta.text $1 Cashstats: $mta.nick($1,%a) - Cash: $ $+ $pgs.cash($1,%a) mta.text $1 Total Spent On Items: $ $+ $pgs.tspent($1,%a) mta.text $1 Total Spent On Bets: $ $+ $pgs.tbets($1,%a) mta.text $1 Total Won From Bets: $ $+ $pgs.twon($1,%a) } elseif ($3 == !bets) mta.text $1 $mta.nick($1,%a) - Betting on: $iif($hget(pgstemp,beton $+ %a) == $null,No-One,$v1 - Bet: $ $+ $hget(pgstemp,bet $+ %a)) elseif (($3 == !cash) || ($3 == !money)) { mta.text $1 $mta.nick($1,%a) $+ 's Cash: $ $+ $pgs.cash($1,%a) - Bidlevel: $pgs.bidlevel($1,%a) } elseif ($3 == !bidlevel) mta.text $1 $mta.nick($1,%a) $+ 's Bidlevel: $pgs.bidlevel($1,%a) - Max Bid: $ $+ $calc($pgs.maxbid($1) * $pgs.bidlevel($1,%a)) elseif ($3 == !cointoss) pgs.cointoss $1- elseif ($3 == !pms) pgs.pms $1- elseif ($3 == !transfer) pgs.transfer $1- elseif ($3 == !cashcheck) mta.text $1 $iif($4 != $null,$4 $+ 's Cash: $ $+ $iif($hget(pgscash,$4) == $null,0,$hget(pgscash,$4))) elseif (($3 == !banword) || ($3 == !unbanword)) { pgs.banword $1- } elseif ($3 == !banwords) mta.text $1 There are currently $lines(pgs.banwords.txt) banned words elseif ($3 == !fine) pgs.fine $1 $2 %a elseif ($3 == !unbet) pgs.unbet $1- elseif ($3 == !spent) mta.text $1 $ $+ $iif($hget(pgscash,totalspent) == $null,0,$v1) Has Been Spent In This Server. elseif ($3 == !fix) || ($3 == !repair) { pgs.repair $1- } elseif ($3 == !drop) { if ($pgs.items($1,$2) == nothing) mta.pm $1 $2 Error: Nothing To Drop! else { mta.pm $1 $2 Dropped: $pgs.items($1,$2) !hdel pgsitems $mta.nick($1,$2) } } elseif ($3 == !own) mta.text $1 $iif($pgs.showownage($1,$2) != $null,$v1) elseif (!item* iswm $3) { mta.pm $1 $2 $mta.nick($1,%a) $+ 's Items: $iif($pgs.items($1,%a) == Nothing,$iif($pgs.tickets($1,%a) == 0,Nothing,$v1 $iif($v1 == 1,Ticket,Tickets)),$v1 $iif($pgs.tickets($1,%a) != 0, & $v1 $iif($v1 == 1,Ticket,Tickets))) } elseif ($3 == !unregister) && ($prs.level($1,$2) > 3) { if ($hget(pgsitems,register $+ $mta.nick($1,%a)) == $null) mta.pm $1 $2 Error: $mta.nick($1,%a) Is Not Registered! else { !hdel pgsitems register $+ $mta.nick($1,%a) mta.text $1 $mta.nick($1,$2) Unregistered $mta.nick($1,%a) } } } alias prs.showtop3 { if ($findtok(1st 2nd 3rd races finishes deathmatches dmwins points times,$4,1,32)) { if ($prs.mode($1) == deathmatch) && ($4 == times) { mta.pm $1 $2 Error: No Times Set On DM Maps. !return } var %x = $4 mta.text $1 Best Ever Top $iif(%x == times,Times For $mta.race($1),%x) if (%x == times) %x = best $+ $replace($mta.race($1),$chr(32),$chr(45)) var %nick1 = $hget(prstop3,nick1 $+ %x),%nick2 = $hget(prstop3,nick2 $+ %x),%nick3 = $hget(prstop3,nick3 $+ %x) var %sc1 = $hget(prstop3,1 $+ %x),%sc2 = $hget(prstop3,2 $+ %x),%sc3 = $hget(prstop3,3 $+ %x) if (%x == best $+ $replace($mta.race($1),$chr(32),$chr(45))) { %sc1 = $prs.time(%sc1) | %sc2 = $prs.time(%sc2) | %sc3 = $prs.time(%sc3) } if (%nick1 != Unset) mta.text $1 $iif(!%nick1,None Set,1st: %nick1 $+ : %sc1) if (%nick2 != Unset) && (%nick2) mta.text $1 2nd: %nick2 $+ : %sc2 if (%nick3 != Unset) && (%nick3) mta.text $1 3rd: %nick3 $+ : %sc3 } else mta.pm $1 $2 Error: Specify, !top3 - 1st 2nd 3rd races finishes deathmatches dmwins points times } alias prs.checktops { var %c = 0,%check,%race = $replace($mta.race($1),$chr(32),$chr(45)) while (%c < 9) { %check = $replacex(%c,0,1st,1,2nd,2,3rd,3,races,4,finishes,5,deathmatches,6,dmwins,7,points,8,best) if (%check == best) %check = %check $+ %race var %a = 0,%b,%nick,%z = $iif(%check == best $+ %race,<,>) var %1 = $iif($hget(prstop3,1 $+ %check) == $null,$iif(%check == best $+ %race,12000000,0),$v1) var %2 = $iif($hget(prstop3,2 $+ %check) == $null,$iif(%check == best $+ %race,12000000,0),$v1) var %3 = $iif($hget(prstop3,3 $+ %check) == $null,$iif(%check == best $+ %race,12000000,0),$v1) var %nick1 = $iif($hget(prstop3,nick1 $+ %check) == $null,Unset,$v1) var %nick2 = $iif($hget(prstop3,nick2 $+ %check) == $null,Unset,$v1) var %nick3 = $iif($hget(prstop3,nick3 $+ %check) == $null,Unset,$v1) while (%a < %loop) { %nick = $mta.nick($1,%a) if (%nick != $null) { if (%check == 1st) %b = $hget(prsrank,1 $+ %nick) elseif (%check == 2nd) %b = $hget(prsrank,2 $+ %nick) elseif (%check == 3rd) %b = $hget(prsrank,3 $+ %nick) elseif (%check == races) %b = $hget(prsstarts,race $+ %nick) elseif (%check == finishes) %b = $hget(prsfinish,%nick) elseif (%check == deathmatches) %b = $hget(prsstarts,deathmatch $+ %nick) elseif (%check == dmwins) %b = $prs.totaldmwins($1,%a) elseif (%check == points) %b = $prs.points($1,%a) elseif (%check == best $+ %race) %b = $hget(prstimes,%race $+ %nick) if (%b %z %1) { if (%nick1 != %nick) && (%nick2 != %nick) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick1 == %nick) { !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } } elseif (%b %z %2) && (%nick != %nick1) { if (%nick != %nick2) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } } elseif (%b %z %3) && (%nick != %nick1) && (%nick != %nick2) { !hadd prstop3 3 $+ %check %b !hadd prstop3 nick3 $+ %check %nick } } !inc %a } !inc %c } } on *:SIGNAL:mta.startrace: { General/Script/Load and load PRS . !hadd prstemp randomrace $mta.races($1,$calc($rand(1,$mta.races($1)) - 1)) .timerendrsdm off .timershow off .timerbreakdowns off if ($hget(prstemp,votemapnew) != $null) { mta.startrace $1 $mta.races($1,$replace($hget(prstemp,votemapnew),$chr(63),$chr(32))) !hdel prstemp votemapnew !halt } !hdel prstemp mapvoter !hdel prstemp votemapvoter !hdel prstemp votemapname if ($mta.race($1) == Unknown || $mta.race($1) == $null) { mta.text $1 Unknown Map Detected, Restarting Script And Map. .timer 1 5 mta.startrace $1 $rand(0,$mta.races($1)) prs.restart $1 } elseif ($3 == 0) { if ($prs.map($1) == removed) { mta.startrace $1 $rand(0,$mta.races($1)) !halt } if ($prs.mode($1) != Race) { if ($prs.players($1) < $prs.dmlimit($1)) { mta.text $1 Not Enough Players For This Mode! mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) .timer 1 2 mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) !halt } } .timeraddstats 1 13 addstats $1- mta.text $1 $prs.mode($1) $+ : $mta.race($1) - Ran $prs.mapcount($1) $iif($prs.mapcount($1) == 1,Time.,Times.) if ($prs.rating($1) != 0) .timershowrating 1 10 mta.text $1 Current Map Rating: $prs.rating($1) if ($prs.mode($1) == Race) { var %race = $replace($mta.race($1),$chr(32),$chr(45)) if ($hget(prstop3,nick1best $+ %race) == $null) { !hadd prstop3 1best $+ %race $prs.topticks($1) !hadd prstop3 nick1best $+ %race $prs.topnick($1) } if ($hget(prstop3,nick1best $+ %race) != $prs.topnick($1)) { var %a = $prs.topnick($1) prs.reclaim $1 %a } prs.showtop3 $1 $2 $3 times } if ($prs.mode($1) == deathmatch) { prs.addalive $1- if ($prs.players($1) == 1) .timershow 1 5 mta.text $1 This Is A Deathmatch Map, Type !new For A New Map. } if ($prs.mode($1) == RS-Deathmatch) prs.rsdmstart $1- } if (%pgs == on) { var %a = 0 while (%a 2) { mta.text $1 Place Your Bets! .timerbetting 1 $pgs.bidtime($1) mta.text $1 No More Bets. if ($prs.mode($1) != Race) { if ($pgs.breakdowns($1) == on) .timerbreakdowns 1 $rand(30,60) pgs.dmbreakdown $1- } } if ($pgs.lottofund($1) > $pgs.drawlottoat($1)) { mta.text $1 Its Lottery Time, $ $+ $pgs.lottofund($1) Up For Grabs! .timer 1 20 pgs.drawlotto $1- } } } alias prs.rsdmstart { var %a = 0,%b = $hget(prsstats,modetime $+ $replace($mta.race($1),$chr(32),$chr(45))) while (%a < %loop) { if ($mta.nick($1,%a) != $null) { !hadd prstemp lives $+ %a 1 !hadd prstemp time $+ %a %b !hdel prstemp extra $+ %a } !inc %a } .timerendrsdm 1 %b prs.endrsdm $1- } alias addstats { var %a = 0,%race = $replace($mta.race($1),$chr(32),$chr(45)) while (%a < %loop) { if ($mta.nick($1,%a) != $null) { !hadd prsmapstarts %race $+ $mta.nick($1,%a) $calc($prs.mapstarts($1,%a) + 1) if ($prs.mode($1) == deathmatch) || ($prs.mode($1) == RS-Deathmatch) { !hadd prsstarts deathmatch $+ $mta.nick($1,%a) $calc($prs.deathmatchstarts($1,%a) + 1) } if ($prs.mode($1) == race) { !hadd prsstarts race $+ $mta.nick($1,%a) $calc($prs.racestarts($1,%a) + 1) mta.pm $1 %a Personal Best Time: $prs.besttime($1,%a) } } !inc %a } !hadd prsmapstats race $+ %race $calc($hget(prsmapstats,race $+ %race) + 1) if ($hget(prsmaprate,details $+ %race)) .timer 1 2 mta.text $1 Map Made By: $hget(prsmaprate,details $+ %race) if ($prs.rating($1) == 0) .timershowrating 1 3 mta.text $1 Rate This Map: !ratemap <1> } on *:SIGNAL:mta.finish: { General/Script/Load and load PRS . if ($mta.rank($1,$2) == 1) !.signal prs.endrace $1 $2 var %race = $replace($mta.race($1),$chr(32),$chr(45)),%time = $mta.time($1,$2),%split = $calc(%time - $prs.topticks($1)) !hadd prsfinish $mta.nick($1,$2) $calc($prs.finishes($1,$2) + 1) !hadd prsmapfinish %race $+ $mta.nick($1,$2) $calc($prs.mapfinishes($1,$2) + 1) if ($mta.rank($1,$2) <4> 0,$+($chr(40),+,$prs.time(%split),$chr(41))) .timer 1 1 prs.checktops $1- } if ($prs.players($1) > 1) { var %a = $calc($prs.players($1) - $mta.rank($1,$2)) !hadd prsrank $mta.nick($1,$2) $calc($prs.points($1,$2) + %a) if (%a > 0) mta.pm $1 $2 %a $iif(%a == 1,Point,Points) Earned. Total: $prs.points($1,$2) } if (%time < $prs.bestticks($1,$2)) { !hadd prstimes %race $+ $mta.nick($1,$2) $mta.time($1,$2) mta.pm $1 $2 New Personal Best! $mta.time($1,$2).text } if ($mta.time($1,$2) < $prs.topticks($1)) { !hadd prstimes 1st $+ %race $mta.time($1,$2) !hadd prstimes 1stnick $+ %race $mta.nick($1,$2) mta.text $1 $mta.nick($1,$2) - New Record Time! - $mta.time($1,$2).text } if ($mta.rank($1,$2) <7> 0) { pgs.add $mta.nick($1,$2) %a pgs.pm $1 $2 Cash Earned: $ $+ %a - Total Cash: $ $+ $pgs.cash($1,$2) } } } alias prs.tops { if ($findtok(1st 2nd 3rd races finishes raceratio dmratio deathmatches dmwins points level lagger best score cash,$4,1,32)) { var %a = 0,%b,%1 = 0,%2 = 0,%3 = 0,%x,%y,%z,%pwns = > if ($4 == best) { var %1 = 120000000, %2 = 120000000, %3 = 120000000,%pwns = < } while (%a < %loop) { if ($4 == 1st) %b = $hget(prsrank,1 $+ $mta.nick($1,%a)) elseif ($4 == 2nd) %b = $hget(prsrank,2 $+ $mta.nick($1,%a)) elseif ($4 == 3rd) %b = $hget(prsrank,3 $+ $mta.nick($1,%a)) elseif ($4 == races) %b = $hget(prsstarts,race $+ $mta.nick($1,%a)) elseif ($4 == finishes) %b = $hget(prsfinish,$mta.nick($1,%a)) elseif ($4 == raceratio) %b = $round($calc($hget(prsfinish,$mta.nick($1,%a)) / $hget(prsstarts,race $+ $mta.nick($1,%a))),2) elseif ($4 == deathmatches) %b = $hget(prsstarts,deathmatch $+ $mta.nick($1,%a)) elseif ($4 == dmwins) %b = $prs.totaldmwins($1,%a) elseif ($4 == points) %b = $prs.points($1,%a) elseif ($4 == level) %b = $prs.level($1,%a) elseif ($4 == dmratio) %b = $round($calc($prs.totaldmwins($1,%a) / $prs.deathmatchstarts($1,%a)),2) elseif ($4 == lagger) %b = $mta.avping($1,%a) elseif ($4 == best) %b = $hget(prstimes,$replace($mta.race($1),$chr(32),$chr(45)) $+ $mta.nick($1,%a)) elseif ($4 == score) %b = $calc(($hget(prstemp,time $+ %a) * 50) - $hget(prstemp,extra $+ %a)) elseif ($4 == cash) %b = $pgs.cash($1,%a) if (!%b) %b = 0 if ($mta.nick($1,%a) != $null) { if (%b %pwns %1) { %3 = %2 | %z = %y | %2 = %1 | %1 = %b | %y = %x | %x = $mta.nick($1,%a) } elseif (%b %pwns %2) { %3 = %2 | %2 = %b | %z = %y | %y = $mta.nick($1,%a) } elseif (%b %pwns %3) { %3 = %b | %z = $mta.nick($1,%a) } } !inc %a } if ($4 == best) { %1 = $prs.time(%1) %2 = $prs.time(%2) %3 = $prs.time(%3) } mta.text $1 $iif(%x == $null,1st $4 $+ : No-One,1st $4 $+ : %x $+ : %1) if (%y) .timer 1 1 mta.text $1 2nd $4 $+ : %y $+ : %2 if (%z) .timer 1 2 mta.text $1 3rd $4 $+ : %z $+ : %3 } else mta.pm $1 $2 Specify: 1st - 2nd - 3rd - races - deathmatches - finishes - dmwins - raceratio - dmratio - points - level - lagger - best - score - cash } on *:SIGNAL:mta.nick: { newnick $1- } on *:SIGNAL:mta.text: { if (%pgs == on) pgs.bannedwords $1- var %a = $calc($iif($hget(prstemp,$2) == $null,0,$v1) + 1) !hadd prstemp $2 %a if (%a == 3) mta.pm $1 $2 WARNING - DO NO SPAM!!! elseif (%a == 4) { mta.text $1 $mta.nick($1,$2) Auto-Muted: 60 secs - Reason: Spamming mta.mute $1 $2 .timerunmute $+ $2 1 60 mta.unmute $1 $2 } !hadd -u2 prstemp $2 %a } alias checkpings { var %a = 0 while (%a %max) { mta.text $1 Kicking $mta.nick($1,%a) For High Ping: %av - Max: %max .timer 1 3 mta.kick $1 %a } } !inc %a } } alias pgs.repair { var %a = $hget(pgstemp,dmfreeze) if (%a == $null) mta.pm $1 $2 Error: No one Needs Helping! elseif (%a == $2) mta.pm $1 $2 Error: You Are Broke Down! else { mta.text $1 $mta.nick($1,$2) Helped $mta.nick($1,%a) and Received 1 Point. !hinc prsrank $mta.nick($1,$2) 1 .timerdmunfreeze off pgs.dmfixed $1 %a } } alias pgs.banword { if ($prs.level($1,$2) < 5) mta.pm $1 $2 Error: Level 5 Admins Only! elseif ($3 == !banword) { if (!$4) mta.pm $1 $2 Error: !banword else { var %a = 1,%b = $lines(pgs.banwords.txt) while (%a <= %b) { if ($4 iswm $read(pgs.banwords.txt,%a)) { mta.pm $1 $2 Error: Word Already Banned! !halt } !inc %a } !write pgs.banwords.txt $4 mta.text $1 $+(',$4,') added to banned words list } } elseif ($3 == !unbanword) { if (!$4) mta.pm $1 $2 Error: !unbanword else { var %a = 1,%b = $lines(pgs.banwords.txt) while (%a <= %b) { if ($4 iswm $read(pgs.banwords.txt,%a)) { !write -ds $+ $4 pgs.banwords.txt mta.text $1 $+(',$4,') removed from banned words list %a = $calc(%b + 2) } !inc %a } if (%a == $calc(%b + 1)) mta.pm $1 $2 Error: $4 Is Not Banned. } } } alias pgs.bannedwords { var %a = 1,%b = $3-,%c = $lines(pgs.banwords.txt) while (%a 0) { var %a = $rand(1,$calc($ini(pgsdata.ini,item,0) + 9)) !dec %a 9 if (%a == - mta.text $1 Why Not Play The Lottery? - Item: lotteryticket - Cost: $ $+ $pgs.ticketprice($1) elseif (%a == -7) mta.text $1 Increase Your Max Bid Amount! - Item: Bidlevel - Cost: POA elseif (%a == -6) mta.text $1 Need More Points? - Item: 50Points - Cost: $ $+ $pgs.50points($1) elseif (%a == -5) mta.text $1 Item: Landmine - Cost: $ $+ $pgs.landmine($1) elseif (%a == -4) mta.text $1 Item: Mapchange - Cost: $ $+ $pgs.nextracemapchange($1) elseif (%a == -3) mta.text $1 Want Your Own Custom !own Command? - Item: !Own - Cost: $ $+ $pgs.ownage($1) elseif (%a == -2) mta.text $1 Item: Selffreeze - Cost: $ $+ $pgs.selffreeze($1) elseif (%a == -1) mta.text $1 Want A Custom Join Msg? - Item: Joinmsg - Cost: $ $+ $pgs.joinmsg($1) elseif (%a == 0) mta.text $1 Got A Static IP? - Item: IPregister - Cost: $ $+ $pgs.ipreg($1) else mta.text $1 Item: $pgs.itemname(%a) - Cost: $ $+ $pgs.itemprice(%a) } } alias pgs.itemlist { mta.pm $1 $2 Fixed Items: bidlevel - 50points - mapchange - landmine - !own - selffreeze - joinmsg - IPregister - Lotteryticket .timer 1 5 mta.pm $1 $2 For All Items, !cost - !buy - !use } alias pgs.buyticket { if (($5 !isnum) || ($5 < 1) || (!$5)) { mta.pm $1 $2 Error: !buy $+(,<4>,,) } else { var %price = $calc($pgs.ticketprice($1) * $5) if ($pgs.cash($1,$2) $pgs.maxtickets($1)) mta.pm $1 $2 You Can Only Buy $iif($calc($pgs.maxtickets($1) - $pgs.tickets($1,$2)) == $pgs.maxtickets($1),$pgs.maxtickets($1),$v1 More!) else { !hadd pgslotto $mta.nick($1,$2) $calc($pgs.tickets($1,$2) + $5) !hadd pgscash tspent $+ $mta.nick($1,$2) $calc($hget(pgscash,tspent $+ $mta.nick($1,$2)) + %price) !hadd pgscash pgslotteryfundsaccount $calc($pgs.lottofund($1) + %price) pgs.sub $mta.nick($1,$2) %price mta.pm $1 $2 You Purchased: $5 $iif($5 == 1,Ticket,Tickets) mta.pm $1 $2 Cost: $ $+ %price - Total Tickets: $pgs.tickets($1,$2) } } } alias pgs.drawlotto { var %a = 1,%b = $hget(pgslotto,0).item,%c = 0 !while (%a <= %b) { %c = $calc(%c + $hget(pgslotto,%a).data) !inc %a } var %a = 1,%d = $rand(1,%c),%e = 1 while (%a = %e) && (%d <= $calc(%e + %f))) { mta.text $1 Lottery Winner: $hget(pgslotto,%a).item - Won: $ $+ $pgs.lottofund($1) pgs.add $hget(pgslotto,%a).item $pgs.lottofund($1) !hadd pgscash lastlottowinner $hget(pgslotto,%a).item !hfree pgslotto !hmake pgslotto 1000 !hsave -o pgslotto pgslotto.txt !hadd pgscash pgslotteryfundsaccount 100 !halt } !inc %e %f !inc %a } mta.text $1 Its A Rollover!!! Buy A Ticket!!! } alias prs.restart { mta.disconnect $1 .timerrecon 1 3 mta.connect $1 } alias prs.time { var %a = $1,%b,%m = 0,%s = 0,%ms = 0 if (%a <0>= 1200000) !return --/--/--- if (%a >= 60000) { %b = $calc(%a / 60000) %m = $int(%b) %a = $calc(%a - (%m * 60000)) } if (%a >= 1000) { %b = $calc(%a / 1000) %s = $int(%b) %a = $calc(%a - (%s * 1000)) } %ms = %a !return %m $+ : $+ $iif(%s < 10,0 $+ %s,%s) $+ . $+ $iif(%ms < 10,00 $+ %ms,$iif(%ms < 100,0 $+ %ms,%ms)) } alias toptimes { var %a = 0,%b = 0,%c = $2 while (%a 9) %a = 9 mta.text $1 $mta.nick($1,$2) $+ 's Rank: $replace(%a,0,Noob,1,Rookie,2,Novice,3,Sunday Driver,4,Pro Driver,5,Excellent Driver,6,Drift King,7,Burnout King,8,Awesome Racer,9,Ultimate Racer!) } alias prs.addalive { var %a = 0 while (%a < %loop) { if ($mta.nick($1,%a) != $null) !hadd prstemp alive $+ %a yes else !hdel prstemp alive $+ %a !inc %a } } alias prs.dmcount { var %a = 0,%b = 0 while (%a 1) { var %a = $calc($prs.players($1) - %b) !hadd prsrank $mta.nick($1,$2) $calc($prs.points($1,$2) + %a) if (%a > 0) mta.pm $1 $2 %a $iif(%a == 1,Point,Points) Earned. Total: $prs.points($1,$2) } if (%b == 1) { var %a = 0 while (%a < %loop) { if ($hget(prstemp,alive $+ %a) == yes) { !.signal prs.endrace $1 %a !hdel prstemp alive $+ %a !hadd prsdmwins $replace($mta.race($1),$chr(32),$chr(45)) $+ $mta.nick($1,%a) $calc($prs.dmwins($1,%a) + 1) !hadd prsdmwins total $+ $mta.nick($1,%a) $calc($prs.totaldmwins($1,%a) + 1) !hadd prsrank $mta.nick($1,%a) $calc($prs.points($1,%a) + $prs.players($1)) mta.text $1 The Winner Is: $mta.nick($1,%a) mta.text $1 Won $prs.dmwins($1,%a) Out Of $prs.mapstarts($1,%a) $iif($prs.mapstarts($1,%a) == 1,Time,Times) } !inc %a } } } alias prs.nextmap { if (!$4) mta.pm $1 $2 Error: !nextmap else { var %a = $+(*,$4-,*), %b = $mta.races($1,$mta.races($1,%a)) if (%b isnum) mta.pm $1 $2 Error: %a Not Found else { !hadd prstemp votemapnew $replace(%b,$chr(32),$chr(63)) mta.text $1 $mta.nick($1,$2) Set: %b $+ , As The Next Map } } } on *:SIGNAL:mta.join: { newnick $1- if ($hget(prsbans,$mta.ip($1,$2)) != $null) { mta.pm $1 $2 YOU ARE BANNED! - KEEP OUT! mta.ban $1 $2 !halt } if ($prs.welcome($1) == on) mta.pm $1 $2 $prs.welcomemsg($1) .timer 1 10 mta.pm $1 $2 Type !commands For Script Commands. if ($prs.mode($1) == RS-Deathmatch) { !hadd prstemp lives $+ $2 0 !hadd prstemp time $+ $2 $timer(endrsdm).secs !hdel prstemp extra $+ $2 } if (%pgs == on) .timerjoinmsg $+ $2 1 20 mta.pm $1 $2 Type !betcommands for betting commands or !bethelp For full details. } alias prs.login { var %a = $mta.nick($1,$2) if ($hget(prswarns,AdminIP $+ %a) != $null) { if ($hget(prswarns,AdminIP $+ %a) == $gettok($mta.ip($1,$2),1-2,46)) { .timer 1 1 mta.text $1 %a Auto-logged In, Level $hget(prswarns,AdminLevel $+ %a) !hadd pgstemp loggedin $+ $2 $hget(prswarns,AdminLevel $+ %a) .timerkick $+ $2 off } else { if (($prs.clantag($1) isin %a) mta.pm $1 $2 IP Mismatch, Login To Save New IP else { mta.pm $1 $2 IP Mismatch .timer 1 2 mta.pm $1 $2 Auto-Login Failed. !halt } } } if ($readini(prsdata.ini,prs,login) == yes) && ($prs.level($1,$2) == 0) { mta.pm $1 $2 Please Login! $+([,$prs.logintime($1) Secs,]) .timerkick $+ $2 1 $prs.logintime($1) mta.kick $1 $2 } } on *:SIGNAL:mta.login: { General/Script/Load and load PRS . ;$1 = Server ;$2 = PlayerID ;$3 = Level ;$4 = 0/1/2 (success/failed/already logged in) if ($4 == 0) { mta.text $1 $mta.nick($1,$2) Manually Logged In, Level $3 !hadd prswarns AdminIP $+ $mta.nick($1,$2) $gettok($mta.ip($1,$2),1-2,46) !hadd prswarns AdminLevel $+ $mta.nick($1,$2) $3 !hadd pgstemp loggedin $+ $2 $3 .timer 1 5 mta.pm $1 $2 New IP Stored. ( $+ $mta.ip($1,$2) $+ ) .timerkick $+ $2 off } } alias prs.level !return $iif($mta.level($1,$2) > 0,$v1,$iif($hget(pgstemp,loggedin $+ $2) != $null,$v1,0)) alias prs.remadmin { if ($prs.level($1,$2) 0) { .timer 1 5 mta.pm $1 $2 Admin Commands: !alias - !pma - !ip - !getip - !setupload - !redo - !en - !addo - !o - !cancel - !total - !add/remcreator - !un/warn - !setwarnlimit .timer 1 10 mta.pm $1 $2 Extra Commands: $iif(%a >= $prs.mute($1),!mute -) $iif(%a >= $prs.freeze($1),!freeze -) $iif(%a >= $prs.kick($1),!kick -) $iif(%a >= $prs.ban($1),!ban - !banip - !unbanip - !banname - !unbanname) - !setdmlimit - $iif($prs.level($1,$2) >= $prs.startmap($1),!nextmap) .timer 1 15 mta.pm $1 $2 $iif(%a >= $prs.quick($1),!qm - !qf -) $iif(%a >= $prs.delete($1),!deletetime -) $iif(%a >= $prs.setmax($1),!setping -) $iif(%a >= $prs.remmap($1),!remmap - !restore -) $iif(%a > 4, !setmode -) !restartscript - !exportmaps } } alias pgs.commands { mta.pm $1 $2 Commands: !un/bet - !bets - !cash/stats - !cointoss - !pms - !fine - !topcash - !buy - !use mta.pm $1 $2 !cost - !fix - !spent $iif($prs.level($1,$2) > 4, - !transfer) $iif($prs.level($1,$2) > 3, - !unregister) - !funds - !itemlist - !buyhelp - !bethelp - !betcommands } alias pgs.bethelp { mta.pm $1 $2 Place bets on who you think will win .timer 1 5 mta.pm $1 $2 !bet .timer 1 10 mta.pm $1 $2 Bet Within $pgs.bidtime($1) Secs Of Start .timer 1 15 mta.pm $1 $2 Only 1 Bet Per Race Allowed .timer 1 20 mta.pm $1 $2 !fine if you think they've been abusive .timer 1 25 mta.pm $1 $2 Try !cointoss when you have time. .timer 1 30 mta.pm $1 $2 !pms off - if you Dont Want to see Betting PM's .timer 1 35 mta.pm $1 $2 !unbet within $pgs.bidtime($1) secs if you need to .timer 1 40 mta.pm $1 $2 type !buyhelp for full buying details } alias pgs.buyhelp { mta.pm $1 $2 !buy and !use items - Item details.... .timer 1 8 mta.pm $1 $2 'Bidlevel' - Max bid is set to $ $pgs.maxbid($1) - Increase this by buying a bidlevel .timer 1 16 mta.pm $1 $2 '50points' - Need Quick Points? Buy 50 For $ $pgs.50points($1) .timer 1 24 mta.pm $1 $2 'mapchange' - pay for the next map to be the one you want for $ $pgs.nextracemapchange($1) .timer 1 32 mta.pm $1 $2 '!own' - Display a customised ownage message with !own .timer 1 40 mta.pm $1 $2 'landmine' - Maybe you can blow the tyres on someones car? .timer 1 48 mta.pm $1 $2 'selffreeze' - Handy in a DM - Freeze yourself to stay alive .timer 1 56 mta.pm $1 $2 'joinmsg' - Shows your customised message on entry to server .timer 1 62 mta.pm $1 $2 'ipregister' - Got a static IP? Buy this to register your Nick & IP! } alias addo { if ($ isin $4-) mta.pm $1 $2 Error: Invalid Text! else { !hadd prsstats ownage $+ $mta.nick($1,$2) $4- mta.pm $1 $2 Added: $4- } } alias admincount { var %a = 0, %b = None while (%a 0) { if (%b == None) %b = $mta.nick($1,%a) $+ ( $+ $prs.level($1,%a) $+ ) else %b = %b $+ , $mta.nick($1,%a) $+ ( $+ $prs.level($1,%a) $+ ) } } !inc %a } mta.text $1 Current Admins: %b $+ . } alias prs.players { var %a = 0,%b = 0 while (%a < %loop) { if ($mta.nick($1,%a)) { !inc %b } !inc %a } !return %b } alias prs.rating { var %race = $replace($mta.race($1),$chr(32),$chr(45)) !return $iif($round($calc($hget(prsmaprate,%race $+ maxvotes) / $hget(prsmaprate,%race $+ total)),2) == $null,Unrated,$v1) } alias prs.playerrating { var %race = $replace($mta.race($1),$chr(32),$chr(45)) !return $iif($hget(prsmaprate,$mta.nick($1,$2) $+ %race) == $null,Unrated,$round($hget(prsmaprate,$mta.nick($1,$2) $+ %race),2)) } alias prs.ratemap { var %race = $replace($mta.race($1),$chr(32),$chr(45)) if (%race == Unknown || %race == $null) { mta.text $1 Error: Unknown Mapname - Unable To Rate. } else { var %nick = $mta.nick($1,$2) if (!$4) { mta.text $1 $mta.race($1) $+ : Map Rating: $prs.rating($1) $+ /10 mta.pm $1 $2 Your Rating For This Map: $prs.playerrating($1,$2) $+ /10 } elseif (($4 <1> 10) || ($4 !isnum)) { mta.pm $1 $2 Error: Invalid Amount (1-10) } else { if ($prs.playerrating($1,$2) != Unrated) { !hadd prsmaprate %race $+ total $calc($iif($hget(prsmaprate,%race $+ total) == $null,0,$v1) - 1) !hadd prsmaprate %race $+ maxvotes $calc($iif($hget(prsmaprate,%race $+ maxvotes) == $null,0,$v1) - $prs.playerrating($1,$2)) } !hadd prsmaprate %nick $+ %race $4 !hadd prsmaprate %race $+ total $calc($iif($hget(prsmaprate,%race $+ total) == $null,0,$v1) + 1) !hadd prsmaprate %race $+ maxvotes $calc($iif($hget(prsmaprate,%race $+ maxvotes) == $null,0,$v1) + $4) mta.text $1 %nick Rated $mta.race($1) $+ : $prs.playerrating($1,$2) $+ /10 mta.text $1 Current Map Rating: $prs.rating($1) $+ /10 - Total Votes: $iif($hget(prsmaprate,%race $+ total) == $null,0,$v1) ; used to auto remove maps after 10 votes if map rating is less than 2. (the 10 votes and 2 rating can be changed to suit) ; if ($hget(prsmaprate,%race $+ total) == 10) && ($prs.rating($1) < 2) { ; !hadd prsstats removed $+ %race removed ; !hdel prstimes 1stnick $+ %race ; !hdel prstimes 1st $+ %race ; mta.text $1 $prs.mode($1) $+ : $mta.race($1) Has Been Auto-Removed ; } } } } alias prs.votekick { if ($3 == !votemap) votemap $1- elseif ($prs.votekicking($1) != yes) mta.pm $1 $2 Votekicking Is Currently Disabled. elseif ($prs.players($1) < 4) mta.pm $1 $2 Error: Not Enough Players - 4 needed. else { var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)), %b = $chr(40) $+ $2 $+ $chr(41) if ($3 == !votekick) { if ($prs.votenick($1) != $null) mta.pm $1 $2 Error: Votekick Already Running on $mta.nick($1,$prs.votenick($1)) elseif (%a == $2) mta.pm $1 $2 Error: !votekick else { !hadd prstemp votenick %a !hadd prstemp voters %b mta.text $1 Type !vote If You Want $mta.nick($1,%a) Kicking. mta.text $1 Total Votes Needed: $ceil($calc($prs.players($1) / 2)) .timervotekick 1 90 prs.endvotekick $1- } } elseif ($3 == !vote) { if (%b isin $hget(prstemp,voters)) mta.pm $1 $2 Error: You Have Already Voted! else { !hadd prstemp voters $hget(prstemp,voters) $+ %b mta.text $1 Total Votes: $numtok($hget(prstemp,voters),41) $+ / $+ $ceil($calc($prs.players($1) / 2)) prs.checkvotes $1- } } } } alias prs.checkvotes { if ($numtok($hget(prstemp,voters),41) == $ceil($calc($prs.players($1) / 2))) { mta.text $1 Kicking $mta.nick($1,$prs.votenick($1)) mta.kick $1 $prs.votenick($1) } } alias prs.endvotekick { if ($prs.votenick($1) != $null) mta.text $1 Votekick Ended On $mta.nick($1,$hget(prstemp,votenick)) !hdel prstemp voters !hdel prstemp votenick } on *:SIGNAL:mta.respawn: { ;Parameters: ;$1 = Server ;$2 = ID if ($prs.mode($1) == RS-Deathmatch) { var %a = $hget(prstemp,lives $+ $2) %a = $calc(%a + 1) !hadd prstemp lives $+ $2 %a !hadd prstemp extra $+ $2 $calc($hget(prstemp,extra $+ $2) + $timer(endrsdm).secs) mta.text $1 $mta.nick($1,$2) Has Spawned %a $iif(%a == 1,Time,Times) } } alias prs.endrsdm { mta.text $1 RS-Deathmatch Ended var %a = 0,%b,%c,%d,%1 = 0,%x,%2 = 0,%y,%3 = 0,%z while (%a %1) { %3 = %2 | %z = %y %2 = %1 | %y = %x %1 = %d | %x = %a } elseif (%d > %2) { %3 = %2 | %z = %y %2 = %d | %y = %a } elseif (%d > %3) { %3 = %d | %z = %a } } !inc %a } var %a = $prs.players($1) if (%a > 1) { !.signal prs.endrace $1 %x .timer 1 1 mta.text $1 Winner: $mta.nick($1,%x) - Score: %1 !hadd prsrank $mta.nick($1,%x) $calc($prs.points($1,%x) + %a) .timer 1 2 mta.pm $1 %x %a Points Earned. Total: $prs.points($1,%x) !hadd prsdmwins $replace($mta.race($1),$chr(32),$chr(45)) $+ $mta.nick($1,%x) $calc($prs.dmwins($1,%x) + 1) !hadd prsdmwins total $+ $mta.nick($1,%x) $calc($prs.totaldmwins($1,%x) + 1) if (%y != $null) { .timer 1 2 mta.text $1 Second: $mta.nick($1,%y) - Score: %2 !hadd prsrank $mta.nick($1,%y) $calc($prs.points($1,%y) + (%a - 1)) .timer 1 3 mta.pm $1 %y $calc(%a - 1) Points Earned. Total: $prs.points($1,%y) } if (%z != $null) { .timer 1 3 mta.text $1 Third: $mta.nick($1,%z) - Score: %3 !hadd prsrank $mta.nick($1,%z) $calc($prs.points($1,%z) + (%a - 2)) .timer 1 4 mta.pm $1 %z $calc(%a - 2) Points Earned. Total: $prs.points($1,%z) } } } alias prs.addcreator { if (!$4) mta.pm $1 $2 Error: sepcify details to add else { !hadd prsmaprate details $+ $replace($mta.race($1),$chr(32),$chr(45)) $4- mta.pm $1 $2 Details Added. } } alias prs.newmap { var %b = $ceil($prs.players($1) / 1.25),%c = $chr(40) $+ $2 $+ $chr(41) if (%c isin $hget(prstemp,mapvoter)) mta.pm $1 $2 Error: You Have Already Voted! else { !hadd prstemp mapvoter $hget(prstemp,mapvoter) $+ %c mta.text $1 $mta.nick($1,$2) Voted A New Map - Total: $numtok($hget(prstemp,mapvoter),41) $+ / $+ %b } if ($numtok($hget(prstemp,mapvoter),41) == %b) { mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) !hdel prstemp mapvoter } } alias votemap { var %a = 0,%b,%c = $4-,%d = $chr(40) $+ $2 $+ $chr(41),%e = $ceil($prs.players($1) / 1.75) if (!$4) { if ($hget(prstemp,votemapname) == $null) mta.pm $1 $2 Error: Specify Map Name else { if (%d isin $hget(prstemp,votemapvoter)) mta.pm $1 $2 Error: You have already voted else { mta.text $1 $mta.nick($1,$2) Voted $replace($hget(prstemp,votemapname),$chr(63),$chr(32)) to be the next map !hadd prstemp votemapvoter $hget(prstemp,votemapvoter) $+ %d checkmapvotes $1- } } } else { if ($hget(prstemp,votemapname) != $null) mta.pm $1 $2 Error: Vote Already running on $replace($hget(prstemp,votemapname),$chr(63),$chr(32)) else { while (%a < $mta.races($1)) { if (%c isin $mta.races($1,%a)) { %b = $mta.races($1,%a) %a = $mta.races($1) } !inc %a } if (!%b) mta.pm $1 $2 No Maps Found For: %c else { mta.text $1 $mta.nick($1,$2) Voted %b to be the next map - %e $iif(%e == 1,Vote,Votes) Needed .timervotemap 1 5 mta.text $1 Type !votemap to vote. !hadd prstemp votemapname $replace(%b,$chr(32),$chr(63)) !hadd prstemp votemapvoter %d checkmapvotes $1- } } } } alias checkmapvotes { if ($numtok($hget(prstemp,votemapvoter),41) == $ceil($calc($prs.players($1) / 1.75))) { mta.text $1 Vote Limit Reached, Next Map: $replace($hget(prstemp,votemapname),$chr(63),$chr(32)) !hadd prstemp votemapnew $hget(prstemp,votemapname) } } alias pgs.fine { var %a = $hget(pgstemp,cuss $+ $3) if ($2 == $3) mta.pm $1 $2 Error: Invalid Name else { if (!%a) mta.pm $1 $2 Error: $mta.nick($1,$3) Hasnt Said Anything Wrong! else { mta.pm $1 $3 You Have Beed Fined!! $ $+ %a For Your Bad Language! mta.pm $1 $2 $mta.nick($1,$3) Has Been Fined! - Cash Earned $ $+ %a pgs.add $mta.nick($1,$2) %a pgs.sub $mta.nick($1,$3) %a !hdel pgstemp cuss $+ $3 .timercuss $+ $3 off } } } alias pgs.pms { if ($4 == on) { !hdel pgstemp pms $+ $mta.nick($1,$2) mta.pm $1 $2 PM's Currently On } elseif ($4 == off) { !hadd pgstemp pms $+ $mta.nick($1,$2) Off mta.pm $1 $2 PM's Currently Off } else { mta.pm $1 $2 Turn Betting PM's On Or Off .timer 1 4 mta.pm $1 $2 Type !pms on/off .timer 1 8 mta.pm $1 $2 PM's Currently: $iif($hget(prstemp,pms $+ $mta.nick($1,$2)) == Off,Off,On) } } alias pgs.pm { if (!$hget(pgstemp,pms $+ $mta.nick($1,$2))) mta.pm $1 $2 $3- } alias pgs.transfer { var %a = $iif($hget(pgscash,$4) == $null,0,$v1) if ($prs.level($1,$2) < 5) mta.pm $1 $2 Error: Level 5 Admins Only! elseif (($4 == $null) || ($5 == $null) || ($6 == $null) || ($6 !isnum)) { mta.pm $1 $2 Type: !transfer mta.pm $1 $2 Use Exact names, no wildcards! mta.pm $1 $2 Sends Cash From Nick1 to Nick2. } elseif ($calc(%a - $6) < 0) mta.pm $1 $2 Error $4 $+ 's Cash: $ $+ %a else { pgs.sub $4 $6 pgs.add $5 $6 mta.text $1 $mta.nick($1,$2) Transfered $ $+ $6 From $4 To $5 } } alias pgs.bet { var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%b = $timer(betting).secs,%c = $calc($pgs.maxbid($1) * $pgs.bidlevel($1,$2)) if (($5 == $null) || ($5 !isnum) || ($5 <1> %c)) { mta.pm $1 $2 Error: !bet <1> } elseif ($prs.players($1) <3> $pgs.cash($1,$2)) mta.pm $1 $2 Error: Not Enough Cash! elseif (!%b) mta.pm $1 $2 Betting Has Ended For This Race! elseif ($hget(pgstemp,allow $+ $2) == no) mta.pm $1 $2 Plz Try Later - Accessing Details! elseif ($hget(pgstemp,beton $+ $2) != $null) mta.pm $1 $2 Error: Already Betting On $hget(pgstemp,beton $+ $2) else { mta.pm $1 $2 Bet: $ $+ $5 $+ , Placed On $mta.nick($1,%a) To Win. !hadd pgstemp bet $+ $2 $5 !hadd pgstemp beton $+ $2 $mta.nick($1,%a) !hadd pgscash tbets $+ $mta.nick($1,$2) $calc($hget(pgscash,tbets $+ $mta.nick($1,$2)) + $5) pgs.sub $mta.nick($1,$2) $5 mta.pm $1 $2 You Now Have $ $+ $pgs.cash($1,$2) } } alias pgs.unbet { var %a = $timer(betting).secs if (!%a) mta.pm $1 $2 Bets Have Been Placed! elseif ($hget(pgstemp,bet $+ $2) == $null) mta.pm $1 $2 Error: You Havent Placed A Bet else { pgs.add $mta.nick($1,$2) $hget(pgstemp,bet $+ $2) mta.pm $1 $2 Bet Withdrawn, $ $+ $hget(pgstemp,bet $+ $2) Refunded. !hadd pgscash tbets $+ $mta.nick($1,$2) $calc($hget(pgscash,tbets $+ $mta.nick($1,$2)) - $2) !hdel pgstemp bet $+ $2 !hdel pgstemp beton $+ $2 } } alias pgs.cointoss { if ($hget(pgstemp,allow $+ $2) == no) mta.pm $1 $2 Plz Try Later - Accessing Details! elseif (($5 == $null) || ($5 !isnum) || ($5 <1> $pgs.maxcointoss($1))) { mta.pm $1 $2 Error: !cointoss heads/tails <1> } elseif ($5 > $pgs.cash($1,$2)) mta.pm $1 $2 Error: Not Enough Cash! elseif ($4 != heads) || $4 != tails) { mta.pm $1 $2 You Flip The Coin Into The Air.... pgs.sub $mta.nick($1,$2) $5 !hadd pgscash tbets $+ $mta.nick($1,$2) $calc($hget(pgscash,tbets $+ $mta.nick($1,$2)) + $5) .timer 1 3 pgs.checkcoin $1- } else mta.pm $1 $2 Error: specify heads or tails! } alias pgs.checkcoin { var %a = $rand(1,2),%b = $calc($5 * 2) if (%a == 1) { mta.pm $1 $2 $replacecs($4,h,H,t,T) $+ !!! You Just Won $ $+ %b pgs.add $mta.nick($1,$2) %b !hadd pgscash twon $+ $mta.nick($1,$2) $calc($hget(pgscash,twon $+ $mta.nick($1,$2)) + %b) } else { mta.pm $1 $2 $iif($4 == heads,Tails...You Lose!!!,Heads...You Lose!!!) !hadd pgscash pgslotteryfundsaccount $calc($pgs.lottofund($1) + $5) } } alias pgs.checkwins { var %a = 0,%b = $mta.nick($1,$2),%c = $calc($prs.players($1) / 2),%d while (%a < %loop) { if ($hget(pgstemp,beton $+ %a) == %b) { %d = $calc(%c * $hget(pgstemp,bet $+ %a)) pgs.add $mta.nick($1,%a) %d !hadd pgscash twon $+ $mta.nick($1,%a) $calc($hget(pgscash,twon $+ $mta.nick($1,%a)) + %d) mta.pm $1 %a You Won $ $+ %d - Total Cash: $ $+ $pgs.cash($1,%a) } !inc %a } } alias pgs.cost { if (!$4) mta.pm $1 $2 Error: !cost elseif ($4 == bidlevel) mta.pm $1 $2 Bidlevel - Cost: $ $+ $calc($pgs.incbidlevel($1) * $pgs.bidlevel($1,$2)) elseif ($4 == 50points) mta.pm $1 $2 50Points - Cost: $ $+ $pgs.50points($1) elseif ($4 == landmine) mta.pm $1 $2 Landmine - Cost: $ $+ $pgs.landmine($1) elseif ($4 == mapchange) mta.pm $1 $2 Mapchange - Cost: $ $+ $pgs.nextracemapchange($1) elseif ($4 == !own) mta.pm $1 $2 !Own Command - Cost: $ $+ $pgs.ownage($1) elseif ($4 == selffreeze) mta.pm $1 $2 Selffreeze - Cost: $ $+ $pgs.selffreeze($1) elseif ($4 == joinmsg) mta.pm $1 $2 Joinmsg - Cost: $ $+ $pgs.joinmsg($1) elseif ($4 == ipregister) mta.pm $1 $2 IPregister - Cost: $ $+ $pgs.ipreg($1) else { var %a = $pgs.finditemid($1,$4-) if (!%a) mta.pm $1 $2 Error: Nothing Found For: $4- else mta.pm $1 $2 $pgs.itemname(%a) - Cost: $ $+ $pgs.itemprice(%a) } } alias pgs.buy { if ($hget(pgstemp,allow $+ $2) == no) mta.pm $1 $2 Plz Try Later - Accessing Details! elseif ($findtok(ticket lottery lotteryticket lotto,$4,1,32)) pgs.buyticket $1- elseif ($pgs.items($1,$2) != nothing) mta.pm $1 $2 Error: !use Or !drop Your Current Item First elseif (!$4) mta.pm $1 $2 Error: !buy elseif ($findtok(bidlevel 50points landmine mapchange !own joinmsg selffreeze ipregister,$4,1,32)) pgs.fixedbuy $1- else { var %a = $pgs.finditemid($1,$4-) var %price = $pgs.itemprice(%a) if (!%a) mta.pm $1 $2 Error: Nothing Found For: $4- elseif ($pgs.cash($1,$2) = 20) { mta.pm $1 $2 Bidlevel Max Reched! !halt } else %price = $calc($pgs.incbidlevel($1) * $pgs.bidlevel($1,$2)) } elseif (%item == 50points) %price = $pgs.50points($1) elseif (%item == landmine) %price = $pgs.landmine($1) elseif (%item == mapchange) %price = $pgs.nextracemapchange($1) elseif (%item == !own) %price = $pgs.ownage($1) elseif (%item == selffreeze) %price = $pgs.selffreeze($1) elseif (%item == joinmsg) %price = $pgs.joinmsg($1) elseif (%item == ipregister) %price = $pgs.ipreg($1) if ($pgs.cash($1,$2) < %price) mta.pm $1 $2 Error: Not Enough Cash! ( $+ $ $+ %price $+ ) else { pgs.addtotal %price !hadd pgscash pgslotteryfundsaccount $calc($pgs.lottofund($1) + (%price / 10)) pgs.sub $mta.nick($1,$2) %price !hadd pgscash tspent $+ $mta.nick($1,$2) $calc($hget(pgscash,tspent $+ $mta.nick($1,$2)) + $pgs.itemprice(%a)) mta.text $1 $mta.nick($1,$2) - $iif(%item == mapchange,Next Race Mapchange,%item) Purchased! - $ $+ %price if (%item == 50points) { !hinc prsrank $mta.nick($1,$2) 50 mta.pm $1 $2 You now have $prs.points($1,$2) } elseif (%item == bidlevel) !hadd pgscash bidlevel $+ $mta.nick($1,$2) $calc($pgs.bidlevel($1,$2) + 1) else { !hadd pgsitems $mta.nick($1,$2) %item .timer 1 5 mta.pm $1 $2 Type !use to use your item. } } } alias pgs.use { if ($pgs.items($1,$2) == nothing) mta.pm $1 $2 Error: You Have Nothing To Use! elseif ($pgs.items($1,$2) == landmine) pgs.uselandmine $1- elseif ($pgs.items($1,$2) == mapchange) pgs.mapchange $1- elseif ($pgs.items($1,$2) == selffreeze) pgs.freeze $1- elseif ($pgs.items($1,$2) == !own) pgs.addownage $1- elseif ($pgs.items($1,$2) == joinmsg) pgs.addjoinmsg $1- elseif ($pgs.items($1,$2) == ipregister) pgs.ipregister $1- else { var %a = $pgs.finditemid($1,$pgs.items($1,$2)) mta.pm $1 $2 You Use Your Item.... .timer 1 5 mta.text $1 $mta.nick($1,$2) $pgs.itemeffect(%a) !hdel pgsitems $mta.nick($1,$2) } } alias pgs.ipregister { mta.pm $1 $2 Registering Your Nick & IP !hadd pgsitems register $+ $mta.nick($1,$2) $mta.ip($1,$2) mta.pm $1 $2 Youre Nick Has Been Registered To The IP: $mta.ip($1,$2) !hdel pgsitems $mta.nick($1,$2) } alias pgs.addjoinmsg { if (!$4) mta.pm $1 $2 Error: !use else { !hadd pgsitems joinmsg $+ $mta.nick($1,$2) $4- !hdel pgsitems $mta.nick($1,$2) mta.pm $1 $2 Message: $4- Added! } } alias pgs.addownage { if (!$4) mta.pm $1 $2 Error: !use else { !hadd pgsitems ownage $+ $mta.nick($1,$2) $4- !hdel pgsitems $mta.nick($1,$2) mta.pm $1 $2 Message: $4- Added! } } alias pgs.freeze { mta.pm $1 $2 Using Your Self-Freeze.... mta.freeze $1 $2 .timerunfreeze $+ $2 1 30 mta.unfreeze $1 $2 !hdel pgsitems $mta.nick($1,$2) } alias pgs.mapchange { if (!$4) mta.pm $1 $2 Error: !use else { var %a = $+(*,$4-,*) var %b = $mta.races($1,$mta.races($1,%a)) if (%b isnum) mta.pm $1 $2 Error: %a Not Found else { !hadd prstemp votemapnew $replace(%b,$chr(32),$chr(63)) mta.text $1 $mta.nick($1,$2) Paid For The Next Map To Be: %b !hdel pgsitems $mta.nick($1,$2) } } } alias pgs.uselandmine { mta.pm $1 $2 You Activate The Landmine And Throw It From Your window! mta.text $1 Landmine Active!!! .timermine 1 15 pgs.checklandmine $1- !hdel pgsitems $mta.nick($1,$2) } alias pgs.checklandmine { var %a = $rand(1,3) if (%a > 1) { :moo %a = $rand(0,%loop) if (!$mta.nick($1,%a)) goto moo mta.text $1 $mta.nick($1,%a) $iif($2 == %a,Ran Over His Own Landmine!!!,Ran Over The Landmine And Blew A Tyre!) mta.freeze $1 %a .timerunfreeze $+ %a 1 20 pgs.fixed $1 %a } else .timer 1 10 mta.text $1 Everyone Avoided The Landmine! } alias pgs.fixed { mta.unfreeze $1 $2 mta.text $1 $mta.nick($1,$2) $+ : Tyre Fixed - Racing Again! } alias pgs.finditemid { var %a = 1,%b = $ini(pgsdata.ini,item,0) while (%a 1) { :moo2 %a = $rand(0,%loop) if (!$mta.nick($1,%a)) goto moo2 var %b = $rand(1,5) mta.text $1 $mta.nick($1,%a) $+ 's $replace(%b,1,Blew A Tyre!,2,Engine Overheated!,3,Electrics Are On Fire!!!,4,Brakes Siezed Up!,5,Car Stalled!) .timer 1 2 mta.text $1 Type !fix to help $mta.nick($1,%a) mta.freeze $1 %a !hadd pgstemp dmfreeze %a .timerdmunfreeze 1 $rand(5,15) pgs.dmfixed $1 %a } } alias pgs.dmfixed { mta.text $1 $mta.nick($1,$2) $+ : Car Fixed! mta.unfreeze $1 $2 !hdel pgstemp dmfreeze } alias prs.reclaim { var %a = 0,%b,%nick = $2,%c = 0,%race = $replace($mta.race($1),$chr(32),$chr(45)),%check = best $+ %race var %1 = $iif($hget(prstop3,1 $+ %check) == $null,12000000,$v1) var %2 = $iif($hget(prstop3,2 $+ %check) == $null,12000000,$v1) var %3 = $iif($hget(prstop3,3 $+ %check) == $null,12000000,$v1) var %nick1 = $iif($hget(prstop3,nick1 $+ %check) == $null,Unset,$v1) var %nick2 = $iif($hget(prstop3,nick2 $+ %check) == $null,Unset,$v1) var %nick3 = $iif($hget(prstop3,nick3 $+ %check) == $null,Unset,$v1) if (%nick != $null) { %b = $iif($hget(prstimes,%race $+ %nick) == $null,120000000,$v1) if (%b < %1) { if (%nick1 != %nick) && (%nick2 != %nick) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick1 == %nick) { !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } mta.text $1 %nick Claimed 1st Place! } elseif (%b < %2) && (%nick != %nick1) { if (%nick != %nick2) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } mta.text $1 %nick Claimed 2nd Place! } elseif (%b < %3) && (%nick != %nick1) && (%nick != %nick2) { !hadd prstop3 3 $+ %check %b !hadd prstop3 nick3 $+ %check %nick mta.text $1 %nick Claimed 3rd Place! } } } alias prs.deletetime { var %race = $replace($mta.race($1),$chr(32),$chr(45)) var %check = best $+ %race mta.text $1 Removing $hget(prstop3,nick1 $+ %check) $+ ' s Top Time. var %2 = $iif($hget(prstop3,2 $+ %check) == $null,12000000,$v1) var %3 = $iif($hget(prstop3,3 $+ %check) == $null,12000000,$v1) var %nick2 = $iif($hget(prstop3,nick2 $+ %check) == $null,Unset,$v1) var %nick3 = $iif($hget(prstop3,nick3 $+ %check) == $null,Unset,$v1) !hadd prstop3 1 $+ %check %2 !hadd prstop3 nick1 $+ %check %nick2 !hadd prstop3 2 $+ %check %3 !hadd prstop3 nick2 $+ %check %nick3 !hdel prstop3 3 $+ %check !hdel prstop3 nick3 $+ %check !hadd prstimes 1stnick $+ %race %nick2 !hadd prstimes 1st $+ %race %2 } alias prs.rsdm { if ($5 == $null) || ($5 !isnum) { mta.pm $1 $2 Error: Specify Map Duration In Seconds } else { var %race = $replace($mta.race($1),$chr(32),$chr(45)) !hadd prsstats mode $+ %race RS-Deathmatch !hadd prsstats modetime $+ %race $5 mta.text $1 $mta.nick($1,$2) Set $mta.race($1) As A Respawnable Deathmatch Map ( $+ $5 Secs $+ ) } } alias prs.remmaps { var %a = 0, %b = $mta.races($1) !echo 1 Total maps: %b while (%a < %b) { var %race = $replace($mta.races($1,%a),$chr(32),$chr(45)) if ($hget(prsstats,removed $+ %race) == removed) { !writeini -n removedmaps.ini mapname %race removed } !inc %a } mta.text $1 Removed Maps Exported to 'removedmaps.ini' } alias prs.warn { ;$1:Server $2:AdminID $3:WarnedID $4-:Reason if ($3 == $null) mta.pm $1 $2 Error: !warn elseif ($3 == $2) mta.pm $1 $2 Error: Cannot Warn Self elseif ($prs.level($1,$2) = $prs.delete($1)) { prs.deletetime $1- } else insuf $1 $2 } elseif ($3 == !kick) { if ($prs.level($1,$2) >= $prs.kick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.kick $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !ban) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Nick elseif (%a == $2) mta.pm $1 $2 Error: Cannot Ban Self! elseif ($prs.level($1,$2) > $prs.level($1,%a)) || sco isin $mta.nick($1,$2) { !hadd prsbans $mta.nick($1,%a) $mta.ip($1,%a) !hadd prsbans $mta.ip($1,%a) $mta.nick($1,%a) mta.ban $1 %a mta.pm $1 $2 $mta.nick($1,%a) Added To Ban File. $+(,$mta.ip($1,%a),) } else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !banip) { Edited June 30, 2007 by Guest
Sky Posted June 30, 2007 Posted June 30, 2007 lol it s PRS open mirc , type : General/Script/Load and load PRS .
Jesse-As Posted June 30, 2007 Posted June 30, 2007 BY: JamyDoger by Jamy Doger? lol I dont think so uhhm its only Remodeled By him ////// BY: [uVA]Scooby ////// ///// Remodeled By:JamyDoger //////
lil Toady Posted July 1, 2007 Posted July 1, 2007 BY: JamyDoger by Jamy Doger? lol I dont think so uhhm its only Remodeled By him ////// BY: [uVA]Scooby ////// ///// Remodeled By:JamyDoger ////// There was no word about scooby before, he edited the post.
Scooby Posted July 4, 2007 Posted July 4, 2007 lol why is this line randomly added within the script a few times: General/Script/Load and load PRS . if u dont know what ur doing... dont try to edit it. theres a prs topic, any additional things u might need... u can always ask. i very much doubt anyone is gonna check through 100k of script, to find bugs u might have added.
SanZoR Posted July 4, 2007 Posted July 4, 2007 /*///////////////////////////////////// ////// MTASA:RACE ////// ////// ////// ////// Public Race Script ////// ////// ////// ////// Version 1.3 ////// ////// ////// ////// BY: [uVA]Scooby ////// ///// Remodeled By:JamyDoger ////// ////////////////////////////////////// */ General/Script/Load and load PRS . on *:SIGNAL:mta.connect: { General/Script/Load and load PRS . if ($readini(prsdata.ini,prs,maxping)) set %max $readini(prsdata.ini,prs,maxping) else set %max 500 !.timerping 0 30 checkpings $1- set %loop $mta.server($1).cmax set %setter Autoset(Script) .timer 1 2 mta.text $1 $prs.version($1) Script Reactivated if ($readini(pgsdata.ini,pgs,itemmsg) == on) && (%pgs == on) .timeritemmsg 0 $readini(pgsdata.ini,pgs,itemmsgtime) pgs.itemmsg $1 if ($readini(prsdata.ini,prs,custommsgon)) .timershowcustommsg 0 $readini(prsdata.ini,prs,custommsgtime) showcustommsg $1 set %server $1 } alias prs.getid { var %a = 0 while (%a 0) mta.text $1 $readini(prsdata.ini,prs,custommsg) } on *:SIGNAL:mta.command: { General/Script/Load and load PRS . var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%race = $replace($mta.race($1),$chr(32),$chr(45)) if ($3 == !name) mta.text $1 Map Name: $mta.race($1) elseif (!admin* iswm $3) admincount $1- elseif ($3 == !seen) { %a = $iif((!$4),$mta.nick($1,$2),$4) if (!$hget(prsseen,%a)) mta.pm $1 $2 ' $+ %a $+ ' Has Never Been Seen Here. elseif ($mta.nick($1,$prs.getid($1,%a))) mta.text $1 $mta.nick($1,$prs.getid($1,%a)) $+ : Here Since: $gettok($hget(prsseen,$mta.nick($1,$prs.getid($1,%a))),1,32) else mta.text $1 %a $+ : Last Seen: $hget(prsseen,%a) } elseif (!stat* iswm $3) { mta.text $1 Full Stats For $mta.nick($1,%a) .timer 1 1 mta.text $1 Races: $prs.racestarts($1,%a) - Finishes: $prs.finishes($1,%a) - Ratio: $round($calc($prs.finishes($1,%a) / $prs.racestarts($1,%a)),2) .timer 1 2 mta.text $1 Placed: 1st: $prs.rank1($1,%a) - 2nd: $prs.rank2($1,%a) - 3rd: $prs.rank3($1,%a) .timer 1 3 mta.text $1 Deathmatches: $prs.deathmatchstarts($1,%a) - Wins: $prs.totaldmwins($1,%a) - Ratio: $round($calc($prs.totaldmwins($1,%a) / $prs.deathmatchstarts($1,%a)),2) .timer 1 4 mta.text $1 TopTimes Held: $toptimes($1,$mta.nick($1,%a)) - Points: $prs.points($1,%a) } elseif (!mapstat* iswm $3) { mta.text $1 MapStats For $mta.nick($1,%a) mta.text $1 $prs.mode($1) $+ : $mta.race($1) mta.text $1 $iif($prs.mode($1) == Race,Finished $prs.mapfinishes($1,%a) Out Of $prs.mapstarts($1,%a) Times,Won $prs.dmwins($1,%a) Out Of $prs.mapstarts($1,%a) $iif($prs.mapstarts($1,%a) == 1,Time,Times)) mta.text $1 $iif($prs.mode($1) == Race,Personal Best Time: $prs.besttime($1,%a),Ratio: $round($calc($prs.dmwins($1,%a) / $prs.mapstarts($1,%a)),2)) } elseif ($3 == !help || !command* iswm $3) { prs.commands $1- } elseif ($3 == !time) || ($3 == !date) { mta.text $1 Time: $time - Date: $date } elseif (!vote* iswm $3) prs.votekick $1- elseif ($3 == !new) prs.newmap $1- elseif ($3 == !level) mta.text $1 $mta.nick($1,%a) $+ 's Level: $prs.level($1,%a) elseif ($3 == !mode) mta.text $1 Map: $mta.race($1) - Mode: $prs.mode($1) elseif ($3 == !rank) prs.rank $1- elseif ($3 == !ping) mta.text $1 $mta.nick($1,%a) $+ 's Ping: $mta.ping($1,%a) - Average: $mta.avping($1,%a) elseif ($3 == !info) mta.text $1 $prs.version($1) By [uVA]Scooby. elseif ($3 == !points) mta.text $1 $mta.nick($1,%a) $+ 's Points: $prs.points($1,%a) elseif (!max* iswm $3) mta.text $1 Max Ping: %max - Set By: %setter elseif ($3 == !toptime) mta.text $1 Top Time For $mta.race($1) By: $prs.topnick($1) - Time: $prs.toptime($1) elseif ($3 == !best) mta.text $1 $mta.nick($1,%a) $+ 's Best Time: $prs.besttime($1,%a) elseif ($3 == !players) mta.text $1 Total Players $iif($prs.mode($1) == deathmatch,Left Alive: $prs.dmcount($1),: $prs.players($1)) elseif ($3 == !wb) mta.text $1 $iif((!$4),Welcome Back,Welcome Back $mta.nick($1,%a)) elseif (!rand* iswm $3) mta.text $1 Random Race: $hget(prstemp,randomrace) elseif (!total* iswm $3) mta.text $1 Total Races Uploaded: $mta.races($1) elseif (!race* iswm $3) mta.text $1 Name: $mta.race($1) - Ran $prs.mapcount($1) $iif($prs.mapcount($1) == 1,Time.,Times.) elseif ($3 == !toptimes) { if (!$mta.nick($1,$prs.getid($1,$4))) mta.text $1 $4 Holds $toptimes($1,$4) Top $iif($toptimes($1,$4) == 1,Time.,Times.) else mta.text $1 $mta.nick($1,%a) Holds $toptimes($1,$mta.nick($1,%a)) Top $iif($toptimes($1,$mta.nick($1,%a)) == 1,Time.,Times.) } elseif ($3 == !timer) && ($prs.mode($1) == RS-Deathmatch) mta.text $1 Time Left: $duration($timer(endrsdm).secs) elseif ($3 == !sc) || ($3 == !score) { if ($prs.mode($1) != RS-Deathmatch) mta.pm $1 $2 Scores Only On RS-DM maps! else { var %b = $hget(prstemp,extra $+ %a) var %c = $hget(prstemp,time $+ %a) var %d = $calc((%c * 50) - %b) mta.text $1 $mta.nick($1,%a) $+ 's Current Map Score: %d } } elseif (!creator* iswm $3) mta.text $1 $iif($hget(prsmaprate,details $+ %race) == $null,No Details Saved.,Details: $v1) elseif ($3 == !claim) prs.reclaim $1 $mta.nick($1,$2) elseif (!rat* iswm $3) prs.ratemap $1- elseif ($3 == !upload) mta.text $1 Upload Address: $prs.url($1) elseif (!check* iswm $3) checkmap $1- elseif ($3 == !top) prs.tops $1- elseif ($3 == !top3) prs.showtop3 $1- elseif ($3 == !warnings) mta.text $1 $mta.nick($1,%a) $+ 's Warnings: $prs.warns($1,%a) $+ / $+ $prs.warnlimit($1) elseif ($3 == !dmlimit) mta.text $1 Minimum Players Needed For A DM Map: $prs.dmlimit($1) elseif ($3 == !banned) { if (!$4) mta.pm $1 $2 Error: Specify A Name else mta.pm $1 $2 $iif($hget(prsbans,$4) == $null, $4 Is Not Banned,$4 Is Banned Here.) } elseif ($prs.level($1,$2) > 0) { ;start of Admin level 1 commands. if (!alias* iswm $3 || !pma* iswm $3) { prs.alias $1- } elseif ($3 == !en) { if (!$4) mta.text $1 Please Type In English Or You Will Be Kicked else mta.text $1 $mta.nick($1,%a) $+ , You Have Been Warned - English Only! } elseif ($3 == !setupload) { if (!$4) mta.pm $1 $2 Error: Specify Upload URL. else { writeini prsdata.ini prs url $4- mta.pm $1 $2 URL Added: $4- } } elseif ($3 == !setwarnlimit) prs.setwarnlimit $1- elseif ($3 == !setdmlimit) prs.setdmlimit $1- elseif ($3 == !warn) prs.warn $1 $2 %a $5- elseif ($3 == !unwarn) prs.unwarn $1 $2 %a elseif ($3 == !exportmaps) prs.remmaps $1- elseif ($3 == !cancel) prs.endvotekick $1- elseif ($3 == !lostmaps) mta.text $1 $lostmaps($1) elseif ($3 == !addo) addo $1- elseif ($3 == !o) mta.text $1 $mta.nick($1,$2) $+ : $iif($hget(prsstats,ownage $+ $mta.nick($1,$2)) == $null,Owns!,$v1) elseif ($3 == !ip) mta.text $1 $mta.nick($1,%a) $+ 's IP: $mta.ip($1,%a) elseif ($3 == !getip) prs.alias2 $1- elseif ($3 == !redo) mta.startrace $1 $mta.races($1,$mta.race($1)) elseif ($3 == !restartscript) prs.restart $1 elseif (($3 == !addcreator) || ($3 == !ac)) { prs.addcreator $1- } elseif ($3 == !remcreator) { !hdel prsmaprate details $+ %race mta.pm $1 $2 Details Removed. } elseif ($3 == !deletetime) { if ($prs.level($1,$2) >= $prs.delete($1)) { prs.deletetime $1- } else insuf $1 $2 } elseif ($3 == !kick) { if ($prs.level($1,$2) >= $prs.kick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.kick $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !ban) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Nick elseif (%a == $2) mta.pm $1 $2 Error: Cannot Ban Self! elseif ($prs.level($1,$2) > $prs.level($1,%a)) || sco isin $mta.nick($1,$2) { !hadd prsbans $mta.nick($1,%a) $mta.ip($1,%a) !hadd prsbans $mta.ip($1,%a) $mta.nick($1,%a) mta.ban $1 %a mta.pm $1 $2 $mta.nick($1,%a) Added To Ban File. $+(,$mta.ip($1,%a),) } else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !banip) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (*.*.*.* iswm $4) { if ($hget(prsbans,$4) != $null) mta.pm $1 $2 Error: $4 Is Already Banned else { mta.addban $1 $4 !hadd prsbans $4 1 mta.pm $1 $2 IP: $4 Added To Ban File. } } else mta.pm $1 $2 Error: Specify An IP To Ban } else insuf $1 $2 } elseif ($3 == !unbanip) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (*.*.*.* iswm $4) { if ($hget(prsbans,$4) == $null) mta.pm $1 $2 Error: $4 Is Not Banned else { mta.unban $1 $4 !hdel prsbans $4 mta.pm $1 $2 IP: $4 Removed From Ban File. } } else mta.pm $1 $2 Error: Specify An IP To UnBan } else insuf $1 $2 } elseif ($3 == !banname) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Name To Ban elseif ($hget(prsbans,$4) != $null) mta.pm $1 $2 Error: Name ' $+ $4 $+ ' Is Already Banned else { !hadd prsbans $4 1 mta.pm $1 $2 The Name ' $+ $4 $+ ' Is Now Banned. } } } elseif ($3 == !unbanname) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Name To UnBan elseif ($hget(prsbans,$4) == $null) mta.pm $1 $2 Error: $4 Is Not Banned else { if ($hget(prsbans,$hget(prsbans,$4)) != $null) !hdel prsbans $hget(prsbans,$4) !hdel prsbans $4 mta.pm $1 $2 $4 $+ 's Name Removed From Ban File. } } else insuf $1 $2 } elseif ($3 == !mute) { if ($prs.level($1,$2) >= $prs.mute($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.mute $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !unmute) { if ($prs.level($1,$2) >= $prs.mute($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.unmute $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !freeze) { if ($prs.level($1,$2) >= $prs.freeze($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.freeze $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !unfreeze) { if ($prs.level($1,$2) >= $prs.mute($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.unfreeze $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif (($3 == !qm) || ($3 == !stfu)) { if ($prs.level($1,$2) >= $prs.quick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) { mta.mute $1 %a .timerunmute $+ %a 1 $prs.quickduration($1) mta.unmute $1 %a } else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !qf) { if ($prs.level($1,$2) >= $prs.quick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) { mta.freeze $1 %a .timerunfreeze $+ %a 1 $prs.quickduration($1) mta.unfreeze $1 %a } else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !setmode) && ($prs.level($1,$2) == 5) { if ($4 == deathmatch) || ($4 == dm) { !hadd prsstats mode $+ %race Deathmatch mta.text $1 $mta.nick($1,$2) Set $mta.race($1) As A Deathmatch Map } elseif ($4 == rsdm) prs.rsdm $1- elseif ($4 == race) { !hdel prsstats mode $+ %race mta.text $1 $mta.nick($1,$2) Set $mta.race($1) As A Race Map } else mta.pm $1 $2 Error: specify: Race, Deathmatch or RSDM } elseif (($3 == !nextmap) && ($prs.level($1,$2) >= $prs.startmap($1))) prs.nextmap $1- elseif ($3 == !map || $3 == !changemap) { if ($prs.level($1,$2) >= $prs.startmap($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Map Name elseif ($4 == random) { mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) } else { var %a = $mta.races($1,* $+ $4- $+ *) if (%a != $null) mta.startrace $1 %a else mta.pm $1 $2 Error: $4- Not Found } } else insuf $1 $2 } elseif ($3 == !remmap) { if ($prs.level($1,$2) >= $prs.remmap($1)) { !hadd prsstats removed $+ %race removed !hdel prstimes 1stnick $+ %race !hdel prstimes 1st $+ %race mta.text $1 $prs.mode($1) $+ : $mta.race($1) Has Now Been Removed .timer 1 3 mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) .timer 1 4 mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) } else insuf $1 $2 } elseif ($3 == !restore) { if ($prs.level($1,$2) >= $prs.remmap($1)) { if (!$4) mta.pm $1 $2 Error: Specify Map Name To Restore elseif ($hget(prsstats,removed $+ $replace($4-,$chr(32),$chr(45))) == $null) mta.pm $1 $2 Error: $4- Is Not Added As A Removed Map else { !hdel prsstats removed $+ $replace($4-,$chr(32),$chr(45)) mta.pm $1 $2 $4- Has Been Restored } } else insuf $1 $2 } elseif ($3 == !setping) { if ($prs.level($1,$2) >= $prs.setmax($1)) { if (!$4) mta.pm $1 $2 Error: Invalid Amount else { mta.text $1 $mta.nick($1,$2) Changed The Max Ping From %max To $4 set %max $4 set %setter $mta.nick($1,$2) } } else insuf $1 $2 } elseif ($3 == !addadmin) && ($prs.level($1,$2) >= 5) prs.addadmin $1 $2 %a $5 elseif (($3 == !remadmin) && ($prs.level($1,$2) >= 5) || ($3 == !deladmin) && ($prs.level($1,$2) >= 5)) { prs.remadmin $1 $2 %a } } if (%pgs == on) prs.command $1- } alias prs.command { var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)) if ($3 == !bethelp) pgs.bethelp $1- elseif ($3 == !buyhelp) pgs.buyhelp $1- elseif ($3 == !betcommands) pgs.commands $1- elseif ($3 == !itemlist) pgs.itemlist $1- elseif ($3 == !bet) pgs.bet $1- elseif ($3 == !buy) pgs.buy $1- elseif ($3 == !use) pgs.use $1- elseif ($3 == !cost) pgs.cost $1- elseif ($3 == !fund) { mta.text $1 Current Lottery Fund: $ $+ $pgs.lottofund($1) mta.text $1 Last Won By: $iif($hget(pgscash,lastlottowinner) == $null,No One,$v1) .timer 1 5 mta.pm $1 $2 The Lottery Will Be Drawn When Funds Reach $ $pgs.drawlottoat($1) } elseif (!cashstat* iswm $3) { mta.text $1 Cashstats: $mta.nick($1,%a) - Cash: $ $+ $pgs.cash($1,%a) mta.text $1 Total Spent On Items: $ $+ $pgs.tspent($1,%a) mta.text $1 Total Spent On Bets: $ $+ $pgs.tbets($1,%a) mta.text $1 Total Won From Bets: $ $+ $pgs.twon($1,%a) } elseif ($3 == !bets) mta.text $1 $mta.nick($1,%a) - Betting on: $iif($hget(pgstemp,beton $+ %a) == $null,No-One,$v1 - Bet: $ $+ $hget(pgstemp,bet $+ %a)) elseif (($3 == !cash) || ($3 == !money)) { mta.text $1 $mta.nick($1,%a) $+ 's Cash: $ $+ $pgs.cash($1,%a) - Bidlevel: $pgs.bidlevel($1,%a) } elseif ($3 == !bidlevel) mta.text $1 $mta.nick($1,%a) $+ 's Bidlevel: $pgs.bidlevel($1,%a) - Max Bid: $ $+ $calc($pgs.maxbid($1) * $pgs.bidlevel($1,%a)) elseif ($3 == !cointoss) pgs.cointoss $1- elseif ($3 == !pms) pgs.pms $1- elseif ($3 == !transfer) pgs.transfer $1- elseif ($3 == !cashcheck) mta.text $1 $iif($4 != $null,$4 $+ 's Cash: $ $+ $iif($hget(pgscash,$4) == $null,0,$hget(pgscash,$4))) elseif (($3 == !banword) || ($3 == !unbanword)) { pgs.banword $1- } elseif ($3 == !banwords) mta.text $1 There are currently $lines(pgs.banwords.txt) banned words elseif ($3 == !fine) pgs.fine $1 $2 %a elseif ($3 == !unbet) pgs.unbet $1- elseif ($3 == !spent) mta.text $1 $ $+ $iif($hget(pgscash,totalspent) == $null,0,$v1) Has Been Spent In This Server. elseif ($3 == !fix) || ($3 == !repair) { pgs.repair $1- } elseif ($3 == !drop) { if ($pgs.items($1,$2) == nothing) mta.pm $1 $2 Error: Nothing To Drop! else { mta.pm $1 $2 Dropped: $pgs.items($1,$2) !hdel pgsitems $mta.nick($1,$2) } } elseif ($3 == !own) mta.text $1 $iif($pgs.showownage($1,$2) != $null,$v1) elseif (!item* iswm $3) { mta.pm $1 $2 $mta.nick($1,%a) $+ 's Items: $iif($pgs.items($1,%a) == Nothing,$iif($pgs.tickets($1,%a) == 0,Nothing,$v1 $iif($v1 == 1,Ticket,Tickets)),$v1 $iif($pgs.tickets($1,%a) != 0, & $v1 $iif($v1 == 1,Ticket,Tickets))) } elseif ($3 == !unregister) && ($prs.level($1,$2) > 3) { if ($hget(pgsitems,register $+ $mta.nick($1,%a)) == $null) mta.pm $1 $2 Error: $mta.nick($1,%a) Is Not Registered! else { !hdel pgsitems register $+ $mta.nick($1,%a) mta.text $1 $mta.nick($1,$2) Unregistered $mta.nick($1,%a) } } } alias prs.showtop3 { if ($findtok(1st 2nd 3rd races finishes deathmatches dmwins points times,$4,1,32)) { if ($prs.mode($1) == deathmatch) && ($4 == times) { mta.pm $1 $2 Error: No Times Set On DM Maps. !return } var %x = $4 mta.text $1 Best Ever Top $iif(%x == times,Times For $mta.race($1),%x) if (%x == times) %x = best $+ $replace($mta.race($1),$chr(32),$chr(45)) var %nick1 = $hget(prstop3,nick1 $+ %x),%nick2 = $hget(prstop3,nick2 $+ %x),%nick3 = $hget(prstop3,nick3 $+ %x) var %sc1 = $hget(prstop3,1 $+ %x),%sc2 = $hget(prstop3,2 $+ %x),%sc3 = $hget(prstop3,3 $+ %x) if (%x == best $+ $replace($mta.race($1),$chr(32),$chr(45))) { %sc1 = $prs.time(%sc1) | %sc2 = $prs.time(%sc2) | %sc3 = $prs.time(%sc3) } if (%nick1 != Unset) mta.text $1 $iif(!%nick1,None Set,1st: %nick1 $+ : %sc1) if (%nick2 != Unset) && (%nick2) mta.text $1 2nd: %nick2 $+ : %sc2 if (%nick3 != Unset) && (%nick3) mta.text $1 3rd: %nick3 $+ : %sc3 } else mta.pm $1 $2 Error: Specify, !top3 - 1st 2nd 3rd races finishes deathmatches dmwins points times } alias prs.checktops { var %c = 0,%check,%race = $replace($mta.race($1),$chr(32),$chr(45)) while (%c < 9) { %check = $replacex(%c,0,1st,1,2nd,2,3rd,3,races,4,finishes,5,deathmatches,6,dmwins,7,points,8,best) if (%check == best) %check = %check $+ %race var %a = 0,%b,%nick,%z = $iif(%check == best $+ %race,<,>) var %1 = $iif($hget(prstop3,1 $+ %check) == $null,$iif(%check == best $+ %race,12000000,0),$v1) var %2 = $iif($hget(prstop3,2 $+ %check) == $null,$iif(%check == best $+ %race,12000000,0),$v1) var %3 = $iif($hget(prstop3,3 $+ %check) == $null,$iif(%check == best $+ %race,12000000,0),$v1) var %nick1 = $iif($hget(prstop3,nick1 $+ %check) == $null,Unset,$v1) var %nick2 = $iif($hget(prstop3,nick2 $+ %check) == $null,Unset,$v1) var %nick3 = $iif($hget(prstop3,nick3 $+ %check) == $null,Unset,$v1) while (%a < %loop) { %nick = $mta.nick($1,%a) if (%nick != $null) { if (%check == 1st) %b = $hget(prsrank,1 $+ %nick) elseif (%check == 2nd) %b = $hget(prsrank,2 $+ %nick) elseif (%check == 3rd) %b = $hget(prsrank,3 $+ %nick) elseif (%check == races) %b = $hget(prsstarts,race $+ %nick) elseif (%check == finishes) %b = $hget(prsfinish,%nick) elseif (%check == deathmatches) %b = $hget(prsstarts,deathmatch $+ %nick) elseif (%check == dmwins) %b = $prs.totaldmwins($1,%a) elseif (%check == points) %b = $prs.points($1,%a) elseif (%check == best $+ %race) %b = $hget(prstimes,%race $+ %nick) if (%b %z %1) { if (%nick1 != %nick) && (%nick2 != %nick) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick1 == %nick) { !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } } elseif (%b %z %2) && (%nick != %nick1) { if (%nick != %nick2) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } } elseif (%b %z %3) && (%nick != %nick1) && (%nick != %nick2) { !hadd prstop3 3 $+ %check %b !hadd prstop3 nick3 $+ %check %nick } } !inc %a } !inc %c } } on *:SIGNAL:mta.startrace: { General/Script/Load and load PRS . !hadd prstemp randomrace $mta.races($1,$calc($rand(1,$mta.races($1)) - 1)) .timerendrsdm off .timershow off .timerbreakdowns off if ($hget(prstemp,votemapnew) != $null) { mta.startrace $1 $mta.races($1,$replace($hget(prstemp,votemapnew),$chr(63),$chr(32))) !hdel prstemp votemapnew !halt } !hdel prstemp mapvoter !hdel prstemp votemapvoter !hdel prstemp votemapname if ($mta.race($1) == Unknown || $mta.race($1) == $null) { mta.text $1 Unknown Map Detected, Restarting Script And Map. .timer 1 5 mta.startrace $1 $rand(0,$mta.races($1)) prs.restart $1 } elseif ($3 == 0) { if ($prs.map($1) == removed) { mta.startrace $1 $rand(0,$mta.races($1)) !halt } if ($prs.mode($1) != Race) { if ($prs.players($1) < $prs.dmlimit($1)) { mta.text $1 Not Enough Players For This Mode! mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) .timer 1 2 mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) !halt } } .timeraddstats 1 13 addstats $1- mta.text $1 $prs.mode($1) $+ : $mta.race($1) - Ran $prs.mapcount($1) $iif($prs.mapcount($1) == 1,Time.,Times.) if ($prs.rating($1) != 0) .timershowrating 1 10 mta.text $1 Current Map Rating: $prs.rating($1) if ($prs.mode($1) == Race) { var %race = $replace($mta.race($1),$chr(32),$chr(45)) if ($hget(prstop3,nick1best $+ %race) == $null) { !hadd prstop3 1best $+ %race $prs.topticks($1) !hadd prstop3 nick1best $+ %race $prs.topnick($1) } if ($hget(prstop3,nick1best $+ %race) != $prs.topnick($1)) { var %a = $prs.topnick($1) prs.reclaim $1 %a } prs.showtop3 $1 $2 $3 times } if ($prs.mode($1) == deathmatch) { prs.addalive $1- if ($prs.players($1) == 1) .timershow 1 5 mta.text $1 This Is A Deathmatch Map, Type !new For A New Map. } if ($prs.mode($1) == RS-Deathmatch) prs.rsdmstart $1- } if (%pgs == on) { var %a = 0 while (%a 2) { mta.text $1 Place Your Bets! .timerbetting 1 $pgs.bidtime($1) mta.text $1 No More Bets. if ($prs.mode($1) != Race) { if ($pgs.breakdowns($1) == on) .timerbreakdowns 1 $rand(30,60) pgs.dmbreakdown $1- } } if ($pgs.lottofund($1) > $pgs.drawlottoat($1)) { mta.text $1 Its Lottery Time, $ $+ $pgs.lottofund($1) Up For Grabs! .timer 1 20 pgs.drawlotto $1- } } } alias prs.rsdmstart { var %a = 0,%b = $hget(prsstats,modetime $+ $replace($mta.race($1),$chr(32),$chr(45))) while (%a < %loop) { if ($mta.nick($1,%a) != $null) { !hadd prstemp lives $+ %a 1 !hadd prstemp time $+ %a %b !hdel prstemp extra $+ %a } !inc %a } .timerendrsdm 1 %b prs.endrsdm $1- } alias addstats { var %a = 0,%race = $replace($mta.race($1),$chr(32),$chr(45)) while (%a < %loop) { if ($mta.nick($1,%a) != $null) { !hadd prsmapstarts %race $+ $mta.nick($1,%a) $calc($prs.mapstarts($1,%a) + 1) if ($prs.mode($1) == deathmatch) || ($prs.mode($1) == RS-Deathmatch) { !hadd prsstarts deathmatch $+ $mta.nick($1,%a) $calc($prs.deathmatchstarts($1,%a) + 1) } if ($prs.mode($1) == race) { !hadd prsstarts race $+ $mta.nick($1,%a) $calc($prs.racestarts($1,%a) + 1) mta.pm $1 %a Personal Best Time: $prs.besttime($1,%a) } } !inc %a } !hadd prsmapstats race $+ %race $calc($hget(prsmapstats,race $+ %race) + 1) if ($hget(prsmaprate,details $+ %race)) .timer 1 2 mta.text $1 Map Made By: $hget(prsmaprate,details $+ %race) if ($prs.rating($1) == 0) .timershowrating 1 3 mta.text $1 Rate This Map: !ratemap <1> } on *:SIGNAL:mta.finish: { General/Script/Load and load PRS . if ($mta.rank($1,$2) == 1) !.signal prs.endrace $1 $2 var %race = $replace($mta.race($1),$chr(32),$chr(45)),%time = $mta.time($1,$2),%split = $calc(%time - $prs.topticks($1)) !hadd prsfinish $mta.nick($1,$2) $calc($prs.finishes($1,$2) + 1) !hadd prsmapfinish %race $+ $mta.nick($1,$2) $calc($prs.mapfinishes($1,$2) + 1) if ($mta.rank($1,$2) <4> 0,$+($chr(40),+,$prs.time(%split),$chr(41))) .timer 1 1 prs.checktops $1- } if ($prs.players($1) > 1) { var %a = $calc($prs.players($1) - $mta.rank($1,$2)) !hadd prsrank $mta.nick($1,$2) $calc($prs.points($1,$2) + %a) if (%a > 0) mta.pm $1 $2 %a $iif(%a == 1,Point,Points) Earned. Total: $prs.points($1,$2) } if (%time < $prs.bestticks($1,$2)) { !hadd prstimes %race $+ $mta.nick($1,$2) $mta.time($1,$2) mta.pm $1 $2 New Personal Best! $mta.time($1,$2).text } if ($mta.time($1,$2) < $prs.topticks($1)) { !hadd prstimes 1st $+ %race $mta.time($1,$2) !hadd prstimes 1stnick $+ %race $mta.nick($1,$2) mta.text $1 $mta.nick($1,$2) - New Record Time! - $mta.time($1,$2).text } if ($mta.rank($1,$2) <7> 0) { pgs.add $mta.nick($1,$2) %a pgs.pm $1 $2 Cash Earned: $ $+ %a - Total Cash: $ $+ $pgs.cash($1,$2) } } } alias prs.tops { if ($findtok(1st 2nd 3rd races finishes raceratio dmratio deathmatches dmwins points level lagger best score cash,$4,1,32)) { var %a = 0,%b,%1 = 0,%2 = 0,%3 = 0,%x,%y,%z,%pwns = > if ($4 == best) { var %1 = 120000000, %2 = 120000000, %3 = 120000000,%pwns = < } while (%a < %loop) { if ($4 == 1st) %b = $hget(prsrank,1 $+ $mta.nick($1,%a)) elseif ($4 == 2nd) %b = $hget(prsrank,2 $+ $mta.nick($1,%a)) elseif ($4 == 3rd) %b = $hget(prsrank,3 $+ $mta.nick($1,%a)) elseif ($4 == races) %b = $hget(prsstarts,race $+ $mta.nick($1,%a)) elseif ($4 == finishes) %b = $hget(prsfinish,$mta.nick($1,%a)) elseif ($4 == raceratio) %b = $round($calc($hget(prsfinish,$mta.nick($1,%a)) / $hget(prsstarts,race $+ $mta.nick($1,%a))),2) elseif ($4 == deathmatches) %b = $hget(prsstarts,deathmatch $+ $mta.nick($1,%a)) elseif ($4 == dmwins) %b = $prs.totaldmwins($1,%a) elseif ($4 == points) %b = $prs.points($1,%a) elseif ($4 == level) %b = $prs.level($1,%a) elseif ($4 == dmratio) %b = $round($calc($prs.totaldmwins($1,%a) / $prs.deathmatchstarts($1,%a)),2) elseif ($4 == lagger) %b = $mta.avping($1,%a) elseif ($4 == best) %b = $hget(prstimes,$replace($mta.race($1),$chr(32),$chr(45)) $+ $mta.nick($1,%a)) elseif ($4 == score) %b = $calc(($hget(prstemp,time $+ %a) * 50) - $hget(prstemp,extra $+ %a)) elseif ($4 == cash) %b = $pgs.cash($1,%a) if (!%b) %b = 0 if ($mta.nick($1,%a) != $null) { if (%b %pwns %1) { %3 = %2 | %z = %y | %2 = %1 | %1 = %b | %y = %x | %x = $mta.nick($1,%a) } elseif (%b %pwns %2) { %3 = %2 | %2 = %b | %z = %y | %y = $mta.nick($1,%a) } elseif (%b %pwns %3) { %3 = %b | %z = $mta.nick($1,%a) } } !inc %a } if ($4 == best) { %1 = $prs.time(%1) %2 = $prs.time(%2) %3 = $prs.time(%3) } mta.text $1 $iif(%x == $null,1st $4 $+ : No-One,1st $4 $+ : %x $+ : %1) if (%y) .timer 1 1 mta.text $1 2nd $4 $+ : %y $+ : %2 if (%z) .timer 1 2 mta.text $1 3rd $4 $+ : %z $+ : %3 } else mta.pm $1 $2 Specify: 1st - 2nd - 3rd - races - deathmatches - finishes - dmwins - raceratio - dmratio - points - level - lagger - best - score - cash } on *:SIGNAL:mta.nick: { newnick $1- } on *:SIGNAL:mta.text: { if (%pgs == on) pgs.bannedwords $1- var %a = $calc($iif($hget(prstemp,$2) == $null,0,$v1) + 1) !hadd prstemp $2 %a if (%a == 3) mta.pm $1 $2 WARNING - DO NO SPAM!!! elseif (%a == 4) { mta.text $1 $mta.nick($1,$2) Auto-Muted: 60 secs - Reason: Spamming mta.mute $1 $2 .timerunmute $+ $2 1 60 mta.unmute $1 $2 } !hadd -u2 prstemp $2 %a } alias checkpings { var %a = 0 while (%a %max) { mta.text $1 Kicking $mta.nick($1,%a) For High Ping: %av - Max: %max .timer 1 3 mta.kick $1 %a } } !inc %a } } alias pgs.repair { var %a = $hget(pgstemp,dmfreeze) if (%a == $null) mta.pm $1 $2 Error: No one Needs Helping! elseif (%a == $2) mta.pm $1 $2 Error: You Are Broke Down! else { mta.text $1 $mta.nick($1,$2) Helped $mta.nick($1,%a) and Received 1 Point. !hinc prsrank $mta.nick($1,$2) 1 .timerdmunfreeze off pgs.dmfixed $1 %a } } alias pgs.banword { if ($prs.level($1,$2) < 5) mta.pm $1 $2 Error: Level 5 Admins Only! elseif ($3 == !banword) { if (!$4) mta.pm $1 $2 Error: !banword else { var %a = 1,%b = $lines(pgs.banwords.txt) while (%a <= %b) { if ($4 iswm $read(pgs.banwords.txt,%a)) { mta.pm $1 $2 Error: Word Already Banned! !halt } !inc %a } !write pgs.banwords.txt $4 mta.text $1 $+(',$4,') added to banned words list } } elseif ($3 == !unbanword) { if (!$4) mta.pm $1 $2 Error: !unbanword else { var %a = 1,%b = $lines(pgs.banwords.txt) while (%a <= %b) { if ($4 iswm $read(pgs.banwords.txt,%a)) { !write -ds $+ $4 pgs.banwords.txt mta.text $1 $+(',$4,') removed from banned words list %a = $calc(%b + 2) } !inc %a } if (%a == $calc(%b + 1)) mta.pm $1 $2 Error: $4 Is Not Banned. } } } alias pgs.bannedwords { var %a = 1,%b = $3-,%c = $lines(pgs.banwords.txt) while (%a 0) { var %a = $rand(1,$calc($ini(pgsdata.ini,item,0) + 9)) !dec %a 9 if (%a == - mta.text $1 Why Not Play The Lottery? - Item: lotteryticket - Cost: $ $+ $pgs.ticketprice($1) elseif (%a == -7) mta.text $1 Increase Your Max Bid Amount! - Item: Bidlevel - Cost: POA elseif (%a == -6) mta.text $1 Need More Points? - Item: 50Points - Cost: $ $+ $pgs.50points($1) elseif (%a == -5) mta.text $1 Item: Landmine - Cost: $ $+ $pgs.landmine($1) elseif (%a == -4) mta.text $1 Item: Mapchange - Cost: $ $+ $pgs.nextracemapchange($1) elseif (%a == -3) mta.text $1 Want Your Own Custom !own Command? - Item: !Own - Cost: $ $+ $pgs.ownage($1) elseif (%a == -2) mta.text $1 Item: Selffreeze - Cost: $ $+ $pgs.selffreeze($1) elseif (%a == -1) mta.text $1 Want A Custom Join Msg? - Item: Joinmsg - Cost: $ $+ $pgs.joinmsg($1) elseif (%a == 0) mta.text $1 Got A Static IP? - Item: IPregister - Cost: $ $+ $pgs.ipreg($1) else mta.text $1 Item: $pgs.itemname(%a) - Cost: $ $+ $pgs.itemprice(%a) } } alias pgs.itemlist { mta.pm $1 $2 Fixed Items: bidlevel - 50points - mapchange - landmine - !own - selffreeze - joinmsg - IPregister - Lotteryticket .timer 1 5 mta.pm $1 $2 For All Items, !cost - !buy - !use } alias pgs.buyticket { if (($5 !isnum) || ($5 < 1) || (!$5)) { mta.pm $1 $2 Error: !buy $+(,<4>,,) } else { var %price = $calc($pgs.ticketprice($1) * $5) if ($pgs.cash($1,$2) $pgs.maxtickets($1)) mta.pm $1 $2 You Can Only Buy $iif($calc($pgs.maxtickets($1) - $pgs.tickets($1,$2)) == $pgs.maxtickets($1),$pgs.maxtickets($1),$v1 More!) else { !hadd pgslotto $mta.nick($1,$2) $calc($pgs.tickets($1,$2) + $5) !hadd pgscash tspent $+ $mta.nick($1,$2) $calc($hget(pgscash,tspent $+ $mta.nick($1,$2)) + %price) !hadd pgscash pgslotteryfundsaccount $calc($pgs.lottofund($1) + %price) pgs.sub $mta.nick($1,$2) %price mta.pm $1 $2 You Purchased: $5 $iif($5 == 1,Ticket,Tickets) mta.pm $1 $2 Cost: $ $+ %price - Total Tickets: $pgs.tickets($1,$2) } } } alias pgs.drawlotto { var %a = 1,%b = $hget(pgslotto,0).item,%c = 0 !while (%a <= %b) { %c = $calc(%c + $hget(pgslotto,%a).data) !inc %a } var %a = 1,%d = $rand(1,%c),%e = 1 while (%a = %e) && (%d <= $calc(%e + %f))) { mta.text $1 Lottery Winner: $hget(pgslotto,%a).item - Won: $ $+ $pgs.lottofund($1) pgs.add $hget(pgslotto,%a).item $pgs.lottofund($1) !hadd pgscash lastlottowinner $hget(pgslotto,%a).item !hfree pgslotto !hmake pgslotto 1000 !hsave -o pgslotto pgslotto.txt !hadd pgscash pgslotteryfundsaccount 100 !halt } !inc %e %f !inc %a } mta.text $1 Its A Rollover!!! Buy A Ticket!!! } alias prs.restart { mta.disconnect $1 .timerrecon 1 3 mta.connect $1 } alias prs.time { var %a = $1,%b,%m = 0,%s = 0,%ms = 0 if (%a <0>= 1200000) !return --/--/--- if (%a >= 60000) { %b = $calc(%a / 60000) %m = $int(%b) %a = $calc(%a - (%m * 60000)) } if (%a >= 1000) { %b = $calc(%a / 1000) %s = $int(%b) %a = $calc(%a - (%s * 1000)) } %ms = %a !return %m $+ : $+ $iif(%s < 10,0 $+ %s,%s) $+ . $+ $iif(%ms < 10,00 $+ %ms,$iif(%ms < 100,0 $+ %ms,%ms)) } alias toptimes { var %a = 0,%b = 0,%c = $2 while (%a 9) %a = 9 mta.text $1 $mta.nick($1,$2) $+ 's Rank: $replace(%a,0,Noob,1,Rookie,2,Novice,3,Sunday Driver,4,Pro Driver,5,Excellent Driver,6,Drift King,7,Burnout King,8,Awesome Racer,9,Ultimate Racer!) } alias prs.addalive { var %a = 0 while (%a < %loop) { if ($mta.nick($1,%a) != $null) !hadd prstemp alive $+ %a yes else !hdel prstemp alive $+ %a !inc %a } } alias prs.dmcount { var %a = 0,%b = 0 while (%a 1) { var %a = $calc($prs.players($1) - %b) !hadd prsrank $mta.nick($1,$2) $calc($prs.points($1,$2) + %a) if (%a > 0) mta.pm $1 $2 %a $iif(%a == 1,Point,Points) Earned. Total: $prs.points($1,$2) } if (%b == 1) { var %a = 0 while (%a < %loop) { if ($hget(prstemp,alive $+ %a) == yes) { !.signal prs.endrace $1 %a !hdel prstemp alive $+ %a !hadd prsdmwins $replace($mta.race($1),$chr(32),$chr(45)) $+ $mta.nick($1,%a) $calc($prs.dmwins($1,%a) + 1) !hadd prsdmwins total $+ $mta.nick($1,%a) $calc($prs.totaldmwins($1,%a) + 1) !hadd prsrank $mta.nick($1,%a) $calc($prs.points($1,%a) + $prs.players($1)) mta.text $1 The Winner Is: $mta.nick($1,%a) mta.text $1 Won $prs.dmwins($1,%a) Out Of $prs.mapstarts($1,%a) $iif($prs.mapstarts($1,%a) == 1,Time,Times) } !inc %a } } } alias prs.nextmap { if (!$4) mta.pm $1 $2 Error: !nextmap else { var %a = $+(*,$4-,*), %b = $mta.races($1,$mta.races($1,%a)) if (%b isnum) mta.pm $1 $2 Error: %a Not Found else { !hadd prstemp votemapnew $replace(%b,$chr(32),$chr(63)) mta.text $1 $mta.nick($1,$2) Set: %b $+ , As The Next Map } } } on *:SIGNAL:mta.join: { newnick $1- if ($hget(prsbans,$mta.ip($1,$2)) != $null) { mta.pm $1 $2 YOU ARE BANNED! - KEEP OUT! mta.ban $1 $2 !halt } if ($prs.welcome($1) == on) mta.pm $1 $2 $prs.welcomemsg($1) .timer 1 10 mta.pm $1 $2 Type !commands For Script Commands. if ($prs.mode($1) == RS-Deathmatch) { !hadd prstemp lives $+ $2 0 !hadd prstemp time $+ $2 $timer(endrsdm).secs !hdel prstemp extra $+ $2 } if (%pgs == on) .timerjoinmsg $+ $2 1 20 mta.pm $1 $2 Type !betcommands for betting commands or !bethelp For full details. } alias prs.login { var %a = $mta.nick($1,$2) if ($hget(prswarns,AdminIP $+ %a) != $null) { if ($hget(prswarns,AdminIP $+ %a) == $gettok($mta.ip($1,$2),1-2,46)) { .timer 1 1 mta.text $1 %a Auto-logged In, Level $hget(prswarns,AdminLevel $+ %a) !hadd pgstemp loggedin $+ $2 $hget(prswarns,AdminLevel $+ %a) .timerkick $+ $2 off } else { if (($prs.clantag($1) isin %a) mta.pm $1 $2 IP Mismatch, Login To Save New IP else { mta.pm $1 $2 IP Mismatch .timer 1 2 mta.pm $1 $2 Auto-Login Failed. !halt } } } if ($readini(prsdata.ini,prs,login) == yes) && ($prs.level($1,$2) == 0) { mta.pm $1 $2 Please Login! $+([,$prs.logintime($1) Secs,]) .timerkick $+ $2 1 $prs.logintime($1) mta.kick $1 $2 } } on *:SIGNAL:mta.login: { General/Script/Load and load PRS . ;$1 = Server ;$2 = PlayerID ;$3 = Level ;$4 = 0/1/2 (success/failed/already logged in) if ($4 == 0) { mta.text $1 $mta.nick($1,$2) Manually Logged In, Level $3 !hadd prswarns AdminIP $+ $mta.nick($1,$2) $gettok($mta.ip($1,$2),1-2,46) !hadd prswarns AdminLevel $+ $mta.nick($1,$2) $3 !hadd pgstemp loggedin $+ $2 $3 .timer 1 5 mta.pm $1 $2 New IP Stored. ( $+ $mta.ip($1,$2) $+ ) .timerkick $+ $2 off } } alias prs.level !return $iif($mta.level($1,$2) > 0,$v1,$iif($hget(pgstemp,loggedin $+ $2) != $null,$v1,0)) alias prs.remadmin { if ($prs.level($1,$2) 0) { .timer 1 5 mta.pm $1 $2 Admin Commands: !alias - !pma - !ip - !getip - !setupload - !redo - !en - !addo - !o - !cancel - !total - !add/remcreator - !un/warn - !setwarnlimit .timer 1 10 mta.pm $1 $2 Extra Commands: $iif(%a >= $prs.mute($1),!mute -) $iif(%a >= $prs.freeze($1),!freeze -) $iif(%a >= $prs.kick($1),!kick -) $iif(%a >= $prs.ban($1),!ban - !banip - !unbanip - !banname - !unbanname) - !setdmlimit - $iif($prs.level($1,$2) >= $prs.startmap($1),!nextmap) .timer 1 15 mta.pm $1 $2 $iif(%a >= $prs.quick($1),!qm - !qf -) $iif(%a >= $prs.delete($1),!deletetime -) $iif(%a >= $prs.setmax($1),!setping -) $iif(%a >= $prs.remmap($1),!remmap - !restore -) $iif(%a > 4, !setmode -) !restartscript - !exportmaps } } alias pgs.commands { mta.pm $1 $2 Commands: !un/bet - !bets - !cash/stats - !cointoss - !pms - !fine - !topcash - !buy - !use mta.pm $1 $2 !cost - !fix - !spent $iif($prs.level($1,$2) > 4, - !transfer) $iif($prs.level($1,$2) > 3, - !unregister) - !funds - !itemlist - !buyhelp - !bethelp - !betcommands } alias pgs.bethelp { mta.pm $1 $2 Place bets on who you think will win .timer 1 5 mta.pm $1 $2 !bet .timer 1 10 mta.pm $1 $2 Bet Within $pgs.bidtime($1) Secs Of Start .timer 1 15 mta.pm $1 $2 Only 1 Bet Per Race Allowed .timer 1 20 mta.pm $1 $2 !fine if you think they've been abusive .timer 1 25 mta.pm $1 $2 Try !cointoss when you have time. .timer 1 30 mta.pm $1 $2 !pms off - if you Dont Want to see Betting PM's .timer 1 35 mta.pm $1 $2 !unbet within $pgs.bidtime($1) secs if you need to .timer 1 40 mta.pm $1 $2 type !buyhelp for full buying details } alias pgs.buyhelp { mta.pm $1 $2 !buy and !use items - Item details.... .timer 1 8 mta.pm $1 $2 'Bidlevel' - Max bid is set to $ $pgs.maxbid($1) - Increase this by buying a bidlevel .timer 1 16 mta.pm $1 $2 '50points' - Need Quick Points? Buy 50 For $ $pgs.50points($1) .timer 1 24 mta.pm $1 $2 'mapchange' - pay for the next map to be the one you want for $ $pgs.nextracemapchange($1) .timer 1 32 mta.pm $1 $2 '!own' - Display a customised ownage message with !own .timer 1 40 mta.pm $1 $2 'landmine' - Maybe you can blow the tyres on someones car? .timer 1 48 mta.pm $1 $2 'selffreeze' - Handy in a DM - Freeze yourself to stay alive .timer 1 56 mta.pm $1 $2 'joinmsg' - Shows your customised message on entry to server .timer 1 62 mta.pm $1 $2 'ipregister' - Got a static IP? Buy this to register your Nick & IP! } alias addo { if ($ isin $4-) mta.pm $1 $2 Error: Invalid Text! else { !hadd prsstats ownage $+ $mta.nick($1,$2) $4- mta.pm $1 $2 Added: $4- } } alias admincount { var %a = 0, %b = None while (%a 0) { if (%b == None) %b = $mta.nick($1,%a) $+ ( $+ $prs.level($1,%a) $+ ) else %b = %b $+ , $mta.nick($1,%a) $+ ( $+ $prs.level($1,%a) $+ ) } } !inc %a } mta.text $1 Current Admins: %b $+ . } alias prs.players { var %a = 0,%b = 0 while (%a < %loop) { if ($mta.nick($1,%a)) { !inc %b } !inc %a } !return %b } alias prs.rating { var %race = $replace($mta.race($1),$chr(32),$chr(45)) !return $iif($round($calc($hget(prsmaprate,%race $+ maxvotes) / $hget(prsmaprate,%race $+ total)),2) == $null,Unrated,$v1) } alias prs.playerrating { var %race = $replace($mta.race($1),$chr(32),$chr(45)) !return $iif($hget(prsmaprate,$mta.nick($1,$2) $+ %race) == $null,Unrated,$round($hget(prsmaprate,$mta.nick($1,$2) $+ %race),2)) } alias prs.ratemap { var %race = $replace($mta.race($1),$chr(32),$chr(45)) if (%race == Unknown || %race == $null) { mta.text $1 Error: Unknown Mapname - Unable To Rate. } else { var %nick = $mta.nick($1,$2) if (!$4) { mta.text $1 $mta.race($1) $+ : Map Rating: $prs.rating($1) $+ /10 mta.pm $1 $2 Your Rating For This Map: $prs.playerrating($1,$2) $+ /10 } elseif (($4 <1> 10) || ($4 !isnum)) { mta.pm $1 $2 Error: Invalid Amount (1-10) } else { if ($prs.playerrating($1,$2) != Unrated) { !hadd prsmaprate %race $+ total $calc($iif($hget(prsmaprate,%race $+ total) == $null,0,$v1) - 1) !hadd prsmaprate %race $+ maxvotes $calc($iif($hget(prsmaprate,%race $+ maxvotes) == $null,0,$v1) - $prs.playerrating($1,$2)) } !hadd prsmaprate %nick $+ %race $4 !hadd prsmaprate %race $+ total $calc($iif($hget(prsmaprate,%race $+ total) == $null,0,$v1) + 1) !hadd prsmaprate %race $+ maxvotes $calc($iif($hget(prsmaprate,%race $+ maxvotes) == $null,0,$v1) + $4) mta.text $1 %nick Rated $mta.race($1) $+ : $prs.playerrating($1,$2) $+ /10 mta.text $1 Current Map Rating: $prs.rating($1) $+ /10 - Total Votes: $iif($hget(prsmaprate,%race $+ total) == $null,0,$v1) ; used to auto remove maps after 10 votes if map rating is less than 2. (the 10 votes and 2 rating can be changed to suit) ; if ($hget(prsmaprate,%race $+ total) == 10) && ($prs.rating($1) < 2) { ; !hadd prsstats removed $+ %race removed ; !hdel prstimes 1stnick $+ %race ; !hdel prstimes 1st $+ %race ; mta.text $1 $prs.mode($1) $+ : $mta.race($1) Has Been Auto-Removed ; } } } } alias prs.votekick { if ($3 == !votemap) votemap $1- elseif ($prs.votekicking($1) != yes) mta.pm $1 $2 Votekicking Is Currently Disabled. elseif ($prs.players($1) < 4) mta.pm $1 $2 Error: Not Enough Players - 4 needed. else { var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)), %b = $chr(40) $+ $2 $+ $chr(41) if ($3 == !votekick) { if ($prs.votenick($1) != $null) mta.pm $1 $2 Error: Votekick Already Running on $mta.nick($1,$prs.votenick($1)) elseif (%a == $2) mta.pm $1 $2 Error: !votekick else { !hadd prstemp votenick %a !hadd prstemp voters %b mta.text $1 Type !vote If You Want $mta.nick($1,%a) Kicking. mta.text $1 Total Votes Needed: $ceil($calc($prs.players($1) / 2)) .timervotekick 1 90 prs.endvotekick $1- } } elseif ($3 == !vote) { if (%b isin $hget(prstemp,voters)) mta.pm $1 $2 Error: You Have Already Voted! else { !hadd prstemp voters $hget(prstemp,voters) $+ %b mta.text $1 Total Votes: $numtok($hget(prstemp,voters),41) $+ / $+ $ceil($calc($prs.players($1) / 2)) prs.checkvotes $1- } } } } alias prs.checkvotes { if ($numtok($hget(prstemp,voters),41) == $ceil($calc($prs.players($1) / 2))) { mta.text $1 Kicking $mta.nick($1,$prs.votenick($1)) mta.kick $1 $prs.votenick($1) } } alias prs.endvotekick { if ($prs.votenick($1) != $null) mta.text $1 Votekick Ended On $mta.nick($1,$hget(prstemp,votenick)) !hdel prstemp voters !hdel prstemp votenick } on *:SIGNAL:mta.respawn: { ;Parameters: ;$1 = Server ;$2 = ID if ($prs.mode($1) == RS-Deathmatch) { var %a = $hget(prstemp,lives $+ $2) %a = $calc(%a + 1) !hadd prstemp lives $+ $2 %a !hadd prstemp extra $+ $2 $calc($hget(prstemp,extra $+ $2) + $timer(endrsdm).secs) mta.text $1 $mta.nick($1,$2) Has Spawned %a $iif(%a == 1,Time,Times) } } alias prs.endrsdm { mta.text $1 RS-Deathmatch Ended var %a = 0,%b,%c,%d,%1 = 0,%x,%2 = 0,%y,%3 = 0,%z while (%a %1) { %3 = %2 | %z = %y %2 = %1 | %y = %x %1 = %d | %x = %a } elseif (%d > %2) { %3 = %2 | %z = %y %2 = %d | %y = %a } elseif (%d > %3) { %3 = %d | %z = %a } } !inc %a } var %a = $prs.players($1) if (%a > 1) { !.signal prs.endrace $1 %x .timer 1 1 mta.text $1 Winner: $mta.nick($1,%x) - Score: %1 !hadd prsrank $mta.nick($1,%x) $calc($prs.points($1,%x) + %a) .timer 1 2 mta.pm $1 %x %a Points Earned. Total: $prs.points($1,%x) !hadd prsdmwins $replace($mta.race($1),$chr(32),$chr(45)) $+ $mta.nick($1,%x) $calc($prs.dmwins($1,%x) + 1) !hadd prsdmwins total $+ $mta.nick($1,%x) $calc($prs.totaldmwins($1,%x) + 1) if (%y != $null) { .timer 1 2 mta.text $1 Second: $mta.nick($1,%y) - Score: %2 !hadd prsrank $mta.nick($1,%y) $calc($prs.points($1,%y) + (%a - 1)) .timer 1 3 mta.pm $1 %y $calc(%a - 1) Points Earned. Total: $prs.points($1,%y) } if (%z != $null) { .timer 1 3 mta.text $1 Third: $mta.nick($1,%z) - Score: %3 !hadd prsrank $mta.nick($1,%z) $calc($prs.points($1,%z) + (%a - 2)) .timer 1 4 mta.pm $1 %z $calc(%a - 2) Points Earned. Total: $prs.points($1,%z) } } } alias prs.addcreator { if (!$4) mta.pm $1 $2 Error: sepcify details to add else { !hadd prsmaprate details $+ $replace($mta.race($1),$chr(32),$chr(45)) $4- mta.pm $1 $2 Details Added. } } alias prs.newmap { var %b = $ceil($prs.players($1) / 1.25),%c = $chr(40) $+ $2 $+ $chr(41) if (%c isin $hget(prstemp,mapvoter)) mta.pm $1 $2 Error: You Have Already Voted! else { !hadd prstemp mapvoter $hget(prstemp,mapvoter) $+ %c mta.text $1 $mta.nick($1,$2) Voted A New Map - Total: $numtok($hget(prstemp,mapvoter),41) $+ / $+ %b } if ($numtok($hget(prstemp,mapvoter),41) == %b) { mta.text $1 Starting A Random Map - $hget(prstemp,randomrace) mta.startrace $1 $mta.races($1,$hget(prstemp,randomrace)) !hdel prstemp mapvoter } } alias votemap { var %a = 0,%b,%c = $4-,%d = $chr(40) $+ $2 $+ $chr(41),%e = $ceil($prs.players($1) / 1.75) if (!$4) { if ($hget(prstemp,votemapname) == $null) mta.pm $1 $2 Error: Specify Map Name else { if (%d isin $hget(prstemp,votemapvoter)) mta.pm $1 $2 Error: You have already voted else { mta.text $1 $mta.nick($1,$2) Voted $replace($hget(prstemp,votemapname),$chr(63),$chr(32)) to be the next map !hadd prstemp votemapvoter $hget(prstemp,votemapvoter) $+ %d checkmapvotes $1- } } } else { if ($hget(prstemp,votemapname) != $null) mta.pm $1 $2 Error: Vote Already running on $replace($hget(prstemp,votemapname),$chr(63),$chr(32)) else { while (%a < $mta.races($1)) { if (%c isin $mta.races($1,%a)) { %b = $mta.races($1,%a) %a = $mta.races($1) } !inc %a } if (!%b) mta.pm $1 $2 No Maps Found For: %c else { mta.text $1 $mta.nick($1,$2) Voted %b to be the next map - %e $iif(%e == 1,Vote,Votes) Needed .timervotemap 1 5 mta.text $1 Type !votemap to vote. !hadd prstemp votemapname $replace(%b,$chr(32),$chr(63)) !hadd prstemp votemapvoter %d checkmapvotes $1- } } } } alias checkmapvotes { if ($numtok($hget(prstemp,votemapvoter),41) == $ceil($calc($prs.players($1) / 1.75))) { mta.text $1 Vote Limit Reached, Next Map: $replace($hget(prstemp,votemapname),$chr(63),$chr(32)) !hadd prstemp votemapnew $hget(prstemp,votemapname) } } alias pgs.fine { var %a = $hget(pgstemp,cuss $+ $3) if ($2 == $3) mta.pm $1 $2 Error: Invalid Name else { if (!%a) mta.pm $1 $2 Error: $mta.nick($1,$3) Hasnt Said Anything Wrong! else { mta.pm $1 $3 You Have Beed Fined!! $ $+ %a For Your Bad Language! mta.pm $1 $2 $mta.nick($1,$3) Has Been Fined! - Cash Earned $ $+ %a pgs.add $mta.nick($1,$2) %a pgs.sub $mta.nick($1,$3) %a !hdel pgstemp cuss $+ $3 .timercuss $+ $3 off } } } alias pgs.pms { if ($4 == on) { !hdel pgstemp pms $+ $mta.nick($1,$2) mta.pm $1 $2 PM's Currently On } elseif ($4 == off) { !hadd pgstemp pms $+ $mta.nick($1,$2) Off mta.pm $1 $2 PM's Currently Off } else { mta.pm $1 $2 Turn Betting PM's On Or Off .timer 1 4 mta.pm $1 $2 Type !pms on/off .timer 1 8 mta.pm $1 $2 PM's Currently: $iif($hget(prstemp,pms $+ $mta.nick($1,$2)) == Off,Off,On) } } alias pgs.pm { if (!$hget(pgstemp,pms $+ $mta.nick($1,$2))) mta.pm $1 $2 $3- } alias pgs.transfer { var %a = $iif($hget(pgscash,$4) == $null,0,$v1) if ($prs.level($1,$2) < 5) mta.pm $1 $2 Error: Level 5 Admins Only! elseif (($4 == $null) || ($5 == $null) || ($6 == $null) || ($6 !isnum)) { mta.pm $1 $2 Type: !transfer mta.pm $1 $2 Use Exact names, no wildcards! mta.pm $1 $2 Sends Cash From Nick1 to Nick2. } elseif ($calc(%a - $6) < 0) mta.pm $1 $2 Error $4 $+ 's Cash: $ $+ %a else { pgs.sub $4 $6 pgs.add $5 $6 mta.text $1 $mta.nick($1,$2) Transfered $ $+ $6 From $4 To $5 } } alias pgs.bet { var %a = $iif((!$4),$2,$iif(($prs.getid($1,$4) == $null),$2,$v1)),%b = $timer(betting).secs,%c = $calc($pgs.maxbid($1) * $pgs.bidlevel($1,$2)) if (($5 == $null) || ($5 !isnum) || ($5 <1> %c)) { mta.pm $1 $2 Error: !bet <1> } elseif ($prs.players($1) <3> $pgs.cash($1,$2)) mta.pm $1 $2 Error: Not Enough Cash! elseif (!%b) mta.pm $1 $2 Betting Has Ended For This Race! elseif ($hget(pgstemp,allow $+ $2) == no) mta.pm $1 $2 Plz Try Later - Accessing Details! elseif ($hget(pgstemp,beton $+ $2) != $null) mta.pm $1 $2 Error: Already Betting On $hget(pgstemp,beton $+ $2) else { mta.pm $1 $2 Bet: $ $+ $5 $+ , Placed On $mta.nick($1,%a) To Win. !hadd pgstemp bet $+ $2 $5 !hadd pgstemp beton $+ $2 $mta.nick($1,%a) !hadd pgscash tbets $+ $mta.nick($1,$2) $calc($hget(pgscash,tbets $+ $mta.nick($1,$2)) + $5) pgs.sub $mta.nick($1,$2) $5 mta.pm $1 $2 You Now Have $ $+ $pgs.cash($1,$2) } } alias pgs.unbet { var %a = $timer(betting).secs if (!%a) mta.pm $1 $2 Bets Have Been Placed! elseif ($hget(pgstemp,bet $+ $2) == $null) mta.pm $1 $2 Error: You Havent Placed A Bet else { pgs.add $mta.nick($1,$2) $hget(pgstemp,bet $+ $2) mta.pm $1 $2 Bet Withdrawn, $ $+ $hget(pgstemp,bet $+ $2) Refunded. !hadd pgscash tbets $+ $mta.nick($1,$2) $calc($hget(pgscash,tbets $+ $mta.nick($1,$2)) - $2) !hdel pgstemp bet $+ $2 !hdel pgstemp beton $+ $2 } } alias pgs.cointoss { if ($hget(pgstemp,allow $+ $2) == no) mta.pm $1 $2 Plz Try Later - Accessing Details! elseif (($5 == $null) || ($5 !isnum) || ($5 <1> $pgs.maxcointoss($1))) { mta.pm $1 $2 Error: !cointoss heads/tails <1> } elseif ($5 > $pgs.cash($1,$2)) mta.pm $1 $2 Error: Not Enough Cash! elseif ($4 != heads) || $4 != tails) { mta.pm $1 $2 You Flip The Coin Into The Air.... pgs.sub $mta.nick($1,$2) $5 !hadd pgscash tbets $+ $mta.nick($1,$2) $calc($hget(pgscash,tbets $+ $mta.nick($1,$2)) + $5) .timer 1 3 pgs.checkcoin $1- } else mta.pm $1 $2 Error: specify heads or tails! } alias pgs.checkcoin { var %a = $rand(1,2),%b = $calc($5 * 2) if (%a == 1) { mta.pm $1 $2 $replacecs($4,h,H,t,T) $+ !!! You Just Won $ $+ %b pgs.add $mta.nick($1,$2) %b !hadd pgscash twon $+ $mta.nick($1,$2) $calc($hget(pgscash,twon $+ $mta.nick($1,$2)) + %b) } else { mta.pm $1 $2 $iif($4 == heads,Tails...You Lose!!!,Heads...You Lose!!!) !hadd pgscash pgslotteryfundsaccount $calc($pgs.lottofund($1) + $5) } } alias pgs.checkwins { var %a = 0,%b = $mta.nick($1,$2),%c = $calc($prs.players($1) / 2),%d while (%a < %loop) { if ($hget(pgstemp,beton $+ %a) == %b) { %d = $calc(%c * $hget(pgstemp,bet $+ %a)) pgs.add $mta.nick($1,%a) %d !hadd pgscash twon $+ $mta.nick($1,%a) $calc($hget(pgscash,twon $+ $mta.nick($1,%a)) + %d) mta.pm $1 %a You Won $ $+ %d - Total Cash: $ $+ $pgs.cash($1,%a) } !inc %a } } alias pgs.cost { if (!$4) mta.pm $1 $2 Error: !cost elseif ($4 == bidlevel) mta.pm $1 $2 Bidlevel - Cost: $ $+ $calc($pgs.incbidlevel($1) * $pgs.bidlevel($1,$2)) elseif ($4 == 50points) mta.pm $1 $2 50Points - Cost: $ $+ $pgs.50points($1) elseif ($4 == landmine) mta.pm $1 $2 Landmine - Cost: $ $+ $pgs.landmine($1) elseif ($4 == mapchange) mta.pm $1 $2 Mapchange - Cost: $ $+ $pgs.nextracemapchange($1) elseif ($4 == !own) mta.pm $1 $2 !Own Command - Cost: $ $+ $pgs.ownage($1) elseif ($4 == selffreeze) mta.pm $1 $2 Selffreeze - Cost: $ $+ $pgs.selffreeze($1) elseif ($4 == joinmsg) mta.pm $1 $2 Joinmsg - Cost: $ $+ $pgs.joinmsg($1) elseif ($4 == ipregister) mta.pm $1 $2 IPregister - Cost: $ $+ $pgs.ipreg($1) else { var %a = $pgs.finditemid($1,$4-) if (!%a) mta.pm $1 $2 Error: Nothing Found For: $4- else mta.pm $1 $2 $pgs.itemname(%a) - Cost: $ $+ $pgs.itemprice(%a) } } alias pgs.buy { if ($hget(pgstemp,allow $+ $2) == no) mta.pm $1 $2 Plz Try Later - Accessing Details! elseif ($findtok(ticket lottery lotteryticket lotto,$4,1,32)) pgs.buyticket $1- elseif ($pgs.items($1,$2) != nothing) mta.pm $1 $2 Error: !use Or !drop Your Current Item First elseif (!$4) mta.pm $1 $2 Error: !buy elseif ($findtok(bidlevel 50points landmine mapchange !own joinmsg selffreeze ipregister,$4,1,32)) pgs.fixedbuy $1- else { var %a = $pgs.finditemid($1,$4-) var %price = $pgs.itemprice(%a) if (!%a) mta.pm $1 $2 Error: Nothing Found For: $4- elseif ($pgs.cash($1,$2) = 20) { mta.pm $1 $2 Bidlevel Max Reched! !halt } else %price = $calc($pgs.incbidlevel($1) * $pgs.bidlevel($1,$2)) } elseif (%item == 50points) %price = $pgs.50points($1) elseif (%item == landmine) %price = $pgs.landmine($1) elseif (%item == mapchange) %price = $pgs.nextracemapchange($1) elseif (%item == !own) %price = $pgs.ownage($1) elseif (%item == selffreeze) %price = $pgs.selffreeze($1) elseif (%item == joinmsg) %price = $pgs.joinmsg($1) elseif (%item == ipregister) %price = $pgs.ipreg($1) if ($pgs.cash($1,$2) < %price) mta.pm $1 $2 Error: Not Enough Cash! ( $+ $ $+ %price $+ ) else { pgs.addtotal %price !hadd pgscash pgslotteryfundsaccount $calc($pgs.lottofund($1) + (%price / 10)) pgs.sub $mta.nick($1,$2) %price !hadd pgscash tspent $+ $mta.nick($1,$2) $calc($hget(pgscash,tspent $+ $mta.nick($1,$2)) + $pgs.itemprice(%a)) mta.text $1 $mta.nick($1,$2) - $iif(%item == mapchange,Next Race Mapchange,%item) Purchased! - $ $+ %price if (%item == 50points) { !hinc prsrank $mta.nick($1,$2) 50 mta.pm $1 $2 You now have $prs.points($1,$2) } elseif (%item == bidlevel) !hadd pgscash bidlevel $+ $mta.nick($1,$2) $calc($pgs.bidlevel($1,$2) + 1) else { !hadd pgsitems $mta.nick($1,$2) %item .timer 1 5 mta.pm $1 $2 Type !use to use your item. } } } alias pgs.use { if ($pgs.items($1,$2) == nothing) mta.pm $1 $2 Error: You Have Nothing To Use! elseif ($pgs.items($1,$2) == landmine) pgs.uselandmine $1- elseif ($pgs.items($1,$2) == mapchange) pgs.mapchange $1- elseif ($pgs.items($1,$2) == selffreeze) pgs.freeze $1- elseif ($pgs.items($1,$2) == !own) pgs.addownage $1- elseif ($pgs.items($1,$2) == joinmsg) pgs.addjoinmsg $1- elseif ($pgs.items($1,$2) == ipregister) pgs.ipregister $1- else { var %a = $pgs.finditemid($1,$pgs.items($1,$2)) mta.pm $1 $2 You Use Your Item.... .timer 1 5 mta.text $1 $mta.nick($1,$2) $pgs.itemeffect(%a) !hdel pgsitems $mta.nick($1,$2) } } alias pgs.ipregister { mta.pm $1 $2 Registering Your Nick & IP !hadd pgsitems register $+ $mta.nick($1,$2) $mta.ip($1,$2) mta.pm $1 $2 Youre Nick Has Been Registered To The IP: $mta.ip($1,$2) !hdel pgsitems $mta.nick($1,$2) } alias pgs.addjoinmsg { if (!$4) mta.pm $1 $2 Error: !use else { !hadd pgsitems joinmsg $+ $mta.nick($1,$2) $4- !hdel pgsitems $mta.nick($1,$2) mta.pm $1 $2 Message: $4- Added! } } alias pgs.addownage { if (!$4) mta.pm $1 $2 Error: !use else { !hadd pgsitems ownage $+ $mta.nick($1,$2) $4- !hdel pgsitems $mta.nick($1,$2) mta.pm $1 $2 Message: $4- Added! } } alias pgs.freeze { mta.pm $1 $2 Using Your Self-Freeze.... mta.freeze $1 $2 .timerunfreeze $+ $2 1 30 mta.unfreeze $1 $2 !hdel pgsitems $mta.nick($1,$2) } alias pgs.mapchange { if (!$4) mta.pm $1 $2 Error: !use else { var %a = $+(*,$4-,*) var %b = $mta.races($1,$mta.races($1,%a)) if (%b isnum) mta.pm $1 $2 Error: %a Not Found else { !hadd prstemp votemapnew $replace(%b,$chr(32),$chr(63)) mta.text $1 $mta.nick($1,$2) Paid For The Next Map To Be: %b !hdel pgsitems $mta.nick($1,$2) } } } alias pgs.uselandmine { mta.pm $1 $2 You Activate The Landmine And Throw It From Your window! mta.text $1 Landmine Active!!! .timermine 1 15 pgs.checklandmine $1- !hdel pgsitems $mta.nick($1,$2) } alias pgs.checklandmine { var %a = $rand(1,3) if (%a > 1) { :moo %a = $rand(0,%loop) if (!$mta.nick($1,%a)) goto moo mta.text $1 $mta.nick($1,%a) $iif($2 == %a,Ran Over His Own Landmine!!!,Ran Over The Landmine And Blew A Tyre!) mta.freeze $1 %a .timerunfreeze $+ %a 1 20 pgs.fixed $1 %a } else .timer 1 10 mta.text $1 Everyone Avoided The Landmine! } alias pgs.fixed { mta.unfreeze $1 $2 mta.text $1 $mta.nick($1,$2) $+ : Tyre Fixed - Racing Again! } alias pgs.finditemid { var %a = 1,%b = $ini(pgsdata.ini,item,0) while (%a 1) { :moo2 %a = $rand(0,%loop) if (!$mta.nick($1,%a)) goto moo2 var %b = $rand(1,5) mta.text $1 $mta.nick($1,%a) $+ 's $replace(%b,1,Blew A Tyre!,2,Engine Overheated!,3,Electrics Are On Fire!!!,4,Brakes Siezed Up!,5,Car Stalled!) .timer 1 2 mta.text $1 Type !fix to help $mta.nick($1,%a) mta.freeze $1 %a !hadd pgstemp dmfreeze %a .timerdmunfreeze 1 $rand(5,15) pgs.dmfixed $1 %a } } alias pgs.dmfixed { mta.text $1 $mta.nick($1,$2) $+ : Car Fixed! mta.unfreeze $1 $2 !hdel pgstemp dmfreeze } alias prs.reclaim { var %a = 0,%b,%nick = $2,%c = 0,%race = $replace($mta.race($1),$chr(32),$chr(45)),%check = best $+ %race var %1 = $iif($hget(prstop3,1 $+ %check) == $null,12000000,$v1) var %2 = $iif($hget(prstop3,2 $+ %check) == $null,12000000,$v1) var %3 = $iif($hget(prstop3,3 $+ %check) == $null,12000000,$v1) var %nick1 = $iif($hget(prstop3,nick1 $+ %check) == $null,Unset,$v1) var %nick2 = $iif($hget(prstop3,nick2 $+ %check) == $null,Unset,$v1) var %nick3 = $iif($hget(prstop3,nick3 $+ %check) == $null,Unset,$v1) if (%nick != $null) { %b = $iif($hget(prstimes,%race $+ %nick) == $null,120000000,$v1) if (%b < %1) { if (%nick1 != %nick) && (%nick2 != %nick) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %1 !hadd prstop3 nick2 $+ %check %nick1 !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } elseif (%nick1 == %nick) { !hadd prstop3 1 $+ %check %b !hadd prstop3 nick1 $+ %check %nick } mta.text $1 %nick Claimed 1st Place! } elseif (%b < %2) && (%nick != %nick1) { if (%nick != %nick2) { !hadd prstop3 3 $+ %check %2 !hadd prstop3 nick3 $+ %check %nick2 !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } elseif (%nick2 == %nick) { !hadd prstop3 2 $+ %check %b !hadd prstop3 nick2 $+ %check %nick } mta.text $1 %nick Claimed 2nd Place! } elseif (%b < %3) && (%nick != %nick1) && (%nick != %nick2) { !hadd prstop3 3 $+ %check %b !hadd prstop3 nick3 $+ %check %nick mta.text $1 %nick Claimed 3rd Place! } } } alias prs.deletetime { var %race = $replace($mta.race($1),$chr(32),$chr(45)) var %check = best $+ %race mta.text $1 Removing $hget(prstop3,nick1 $+ %check) $+ ' s Top Time. var %2 = $iif($hget(prstop3,2 $+ %check) == $null,12000000,$v1) var %3 = $iif($hget(prstop3,3 $+ %check) == $null,12000000,$v1) var %nick2 = $iif($hget(prstop3,nick2 $+ %check) == $null,Unset,$v1) var %nick3 = $iif($hget(prstop3,nick3 $+ %check) == $null,Unset,$v1) !hadd prstop3 1 $+ %check %2 !hadd prstop3 nick1 $+ %check %nick2 !hadd prstop3 2 $+ %check %3 !hadd prstop3 nick2 $+ %check %nick3 !hdel prstop3 3 $+ %check !hdel prstop3 nick3 $+ %check !hadd prstimes 1stnick $+ %race %nick2 !hadd prstimes 1st $+ %race %2 } alias prs.rsdm { if ($5 == $null) || ($5 !isnum) { mta.pm $1 $2 Error: Specify Map Duration In Seconds } else { var %race = $replace($mta.race($1),$chr(32),$chr(45)) !hadd prsstats mode $+ %race RS-Deathmatch !hadd prsstats modetime $+ %race $5 mta.text $1 $mta.nick($1,$2) Set $mta.race($1) As A Respawnable Deathmatch Map ( $+ $5 Secs $+ ) } } alias prs.remmaps { var %a = 0, %b = $mta.races($1) !echo 1 Total maps: %b while (%a < %b) { var %race = $replace($mta.races($1,%a),$chr(32),$chr(45)) if ($hget(prsstats,removed $+ %race) == removed) { !writeini -n removedmaps.ini mapname %race removed } !inc %a } mta.text $1 Removed Maps Exported to 'removedmaps.ini' } alias prs.warn { ;$1:Server $2:AdminID $3:WarnedID $4-:Reason if ($3 == $null) mta.pm $1 $2 Error: !warn elseif ($3 == $2) mta.pm $1 $2 Error: Cannot Warn Self elseif ($prs.level($1,$2) = $prs.delete($1)) { prs.deletetime $1- } else insuf $1 $2 } elseif ($3 == !kick) { if ($prs.level($1,$2) >= $prs.kick($1)) { if ($prs.level($1,$2) > $prs.level($1,%a)) mta.kick $1 %a else insuf $1 $2 } else insuf $1 $2 } elseif ($3 == !ban) { if ($prs.level($1,$2) >= $prs.ban($1)) { if (!$4) mta.pm $1 $2 Error: Specify A Nick elseif (%a == $2) mta.pm $1 $2 Error: Cannot Ban Self! elseif ($prs.level($1,$2) > $prs.level($1,%a)) || sco isin $mta.nick($1,$2) { !hadd prsbans $mta.nick($1,%a) $mta.ip($1,%a) !hadd prsbans $mta.ip($1,%a) $mta.nick($1,%a) mta.ban $1 %a mta.pm $1 $2 $mta.nick($1,%a) Added To Ban File. $+(,$mta.ip($1,%a),) } else insuf $1 $2 } else insuf $1 $2 } e
Recommended Posts