$randweapons
Posted by HellRaz0r
Tuesday, January 09, 2007
Description: Title says it all
;$randweapons Or $randweapons(Num,Num) Or $randweapons(Num)
alias randweapons {
var %weapon1 shotgun, %weapon2 = crossbow, %weapon3 = sword, %weapon4 = mac10
var %weapon5 glock, %weapon6 = paperclip, %weapon7 = stick, %weapon8 = knife
var %weapon9 deagle, %weapon10 = pencil, %weapon11 = ak47, %weapon12 = brick
var %weapon13 dagger, %weapon14 = 9mm-pistol, %weapon15 = crowbar
if ($2) {
var %total $r($1,$2)
if (!%weapon [ $+ [ $1 ] ]) || (!%weapon [ $+ [ $2 ] ]) {
echo -a Error: One or more of the numbers you entered doesnt correspond with any of your weapons.
halt
}
}
elseif ($1) {
var %total $1
if (!%weapon [ $+ [ $1 ] ]) {
echo -a Error: The number you entered doesnt correspond with any of your weapons.
halt
}
}
else var %total 5
var %x 1
while (%x <= %total) {
var %num $r(1,10), %weapon = %weapon [ $+ [ %num ] ]
if %x != 1 && $istok(%weapons,%weapon,32) {
while (1) {
var %num $r(1,10), %weapon = %weapon [ $+ [ %num ] ]
if (!$istok(%weapons,%weapon,32)) {
var %weapons = %weapons %weapon
var %skip 1
break
}
}
}
if (!%skip) var %weapons = %weapons %weapon
else unset %skip
inc %x
}
if (%weapons) return $v1
}