0 Members and 3 Guests are viewing this topic.
on *:SIGNAL:vcmp.connected:{ vcmp.say Server Argentino VCMP MULTIPLAYER - Connected echo @Action Server Argentino VCMP MULTIPLAYER - Connected ;.timer 1 3 vcmp.pickup.deleteall .timer 1 10 vcmp.pickup.addall .timerhfree 0 600 vcmp.players2 vcmp.players if (%first == yes) { .timer 1 5 vcmp.check.allnick set %first no }} $iif($hget(BuyPropHashTable) != $null,, !hmake BuyPropHashTable) if ($isfile(%prop.dir $+ vcmp.BuyPropHashTable.txt)) !hload BuyPropHashTable %prop.dir $+ vcmp.BuyPropHashTable.txt $iif($hget(myprops) != $null,, !hmake myprops) if ($isfile(%prop.dir $+ vcmp.myprops.txt)) !hload myprops %prop.dir $+ vcmp.myprops.txt $iif($hget(AutoSpawn) != $null,, !hmake AutoSpawn) if ($isfile(%prop.dir $+ vcmp.AutoSpawn.txt)) !hload AutoSpawn %prop.dir $+ vcmp.AutoSpawn.txt vcmp.SaveProperties vcmp.Savemyprops vcmp.SaveAutoSpawn
on 1:EXIT:{ /hsave -os BuyPropHashTable %prop.dir $+ vcmp.BuyPropHashTable.txt /hsave -os myprops %prop.dir $+ vcmp.myprops.txt /hsave -os AutoSpawn %prop.dir $+ vcmp.AutoSpawn.txt}
;-----------------------------;-------COST ALIAS's----------;-----------------------------alias vcmp.cost { if ($vcmp.cash($1) >= 500000) !return 2500 elseif ($vcmp.cash($1) >= 100000) !return 1500 elseif ($vcmp.cash($1) >= 50000) !return 750 elseif ($vcmp.cash($1) >= 10000) !return 400 elseif ($vcmp.cash($1) >= 5000) !return 250 else !return 100}alias vcmp.reward { if ($vcmp.cash($1) >= 500000) !return 500 elseif ($vcmp.cash($1) >= 100000) !return 500 elseif ($vcmp.cash($1) >= 50000) !return 500 elseif ($vcmp.cash($1) >= 10000) !return 500 elseif ($vcmp.cash($1) >= 5000) !return 500 else !return 500}alias vcmp.rewardmin { if ($vcmp.cash($1) >= 500000) !return 250 elseif ($vcmp.cash($1) >= 100000) !return 250 elseif ($vcmp.cash($1) >= 50000) !return 250 elseif ($vcmp.cash($1) >= 10000) !return 250 elseif ($vcmp.cash($1) >= 5000) !return 250 else !return 250}alias vcmp.costprop { if ($1 == $vcmp.propname(1)) !return 2000000 if ($1 == $vcmp.propname(2)) !return 1000000 if ($1 == $vcmp.propname(3)) !return 1000000 if ($1 == $vcmp.propname(4)) !return 1000000 if ($1 == $vcmp.propname(5)) !return 1000000 if ($1 == $vcmp.propname(6)) !return 1000000 if ($1 == $vcmp.propname(7)) !return 4000000 if ($1 == $vcmp.propname() !return 2000000 if ($1 == $vcmp.propname(9)) !return 5000000 if ($1 == $vcmp.propname(10)) !return 1500000 if ($1 == $vcmp.propname(11)) !return 1200000 if ($1 == $vcmp.propname(12)) !return 2500000 if ($1 == $vcmp.propname(13)) !return 20000000 if ($1 == $vcmp.propname(14)) !return 2000000 if ($1 == $vcmp.propname(15)) !return 1200000 if ($1 == $vcmp.propname(16)) !return 1500000 if ($1 == $vcmp.propname(17)) !return 995000 if ($1 == $vcmp.propname(18)) !return 35000000 if ($1 == $vcmp.propname(19)) !return 25000000 if ($1 == $vcmp.propname(20)) !return 2500000 if ($1 == $vcmp.propname(21)) !return 1200000 if ($1 == $vcmp.propname(22)) !return 1200000 if ($1 == $vcmp.propname(23)) !return 1200000 else !return 1250}
;-----------------------------;------------ALIAS------------;-----------------------------set %prop.dir vc-mp/alias vcmp.propname !return $readini(%prop.dir $+ vcmp.properites.ini,PROPERTIES,$1)alias vcmp.myprops { var %x = 1 while (%x <= $hget(BuyPropHashTable,0).item) { if ( $hget(BuyPropHashTable,%x).data == $1) vcmp.msg $vcmp.getid($1) Property: $vcmp.propname($hget(BuyPropHashTable,%x).item) - ID: $hget(BuyPropHashTable,%x).item inc %x }}alias autospawn { var %propid = $1 var %name = $2 $iif(%name == $hget(BuyPropHashTable,%propid), !hadd -m AutoSpawn %name %propid, vcmp.say >> %name $vcmp.propname(%propid) is not your property.)}alias autospawnoff { var %name = $1 $iif($hfind(AutoSpawn, %name), !hdel AutoSpawn %name, vcmp.say >> %name you do not have Auto-Spawn Enabled)}alias vcmp.alias !return $readini(vcmp.alias.ini,IPS,$1)alias vcmp.add.alias { if ($2 !isin $vcmp.alias($1)) !writeini -n vcmp.alias.ini IPS $1 $iif($vcmp.alias($1),$v1 $+ $chr(44) $+ $chr(32) $+ $2,$2)}alias vcmp.join.alias { vcmp.add.alias $gettok($vcmp.ip($1),1-2,46) $1 vcmp.add.alias $gettok($vcmp.ip($1),1-3,46) $1 vcmp.add.alias $vcmp.ip($1) $1}alias vcmp.add.getip !writeini -n vcmp.getip.ini NAMES $1 $vcmp.ip($1)alias vcmp.add.getname !writeini -n vcmp.getip.ini IPS $vcmp.ip($1) $1alias vcmp.getip !return $iif($readini(vcmp.getip.ini,NAMES,$1),$v1,Unknown)
on *:SIGNAL:vcmp.pickup:{ var %name = $vcmp.name($1) var %name2 = $replace($replace($vcmp.name($1),[,~),],~) var %id = $1 if ($3 == 337) { set %a $rand(100,200) vcmp.cash+ %id %a vcmp.msg %id Picked Up Cash - Amount: $ $+ %a $+ , Location: $vcmp.area(%id) } elseif ($3 == 383) { %a = $rand(10,20) vcmp.msg %id Death Pickup - HP Lost: %a $+ , Location: $vcmp.area(%id) vcmp.sethp %id $calc($vcmp.hp(%id) - %a) } elseif ($3 == 408) vcmp.msg %id Your Money Information - Cash: $ $+ $bytes($vcmp.cash(%id),b) $+ , Bank: $ $+ $bytes($vcmp.bank(%id),b) $+ , Total Interest: $ $+ $bytes($vcmp.interest(%id),b) elseif ($3 == 506) { var %x = $gettok($vcmp.location(%id,x),1,46) var %y = $gettok($vcmp.location(%id,y),1,46) var %n = $iif($ini(vcmp.packages.ini,%name2,0) != $null,$ini(vcmp.packages.ini,%name2,0),0) var %xy = $left(%x,$calc($len(%x) - 1)) $+ , $+ $left(%y,$calc($len(%y) - 1)) var %xy1 = $calc($left(%x,$calc($len(%x) - 1)) + 1) $+ , $+ $calc($left(%y,$calc($len(%y) - 1)) + 1) var %xy2 = $calc($left(%x,$calc($len(%x) - 1)) + 1) $+ , $+ $calc($left(%y,$calc($len(%y) - 1)) - 1) var %xy3 = $calc($left(%x,$calc($len(%x) - 1)) - 1) $+ , $+ $calc($left(%y,$calc($len(%y) - 1)) + 1) var %xy4 = $calc($left(%x,$calc($len(%x) - 1)) - 1) $+ , $+ $calc($left(%y,$calc($len(%y) - 1)) - 1) ;if ($readini(vcmp.packages.ini,%name,%xy) == 1) || ($readini(vcmp.packages.ini,%name,%xy1) == 1) || ($readini(vcmp.packages.ini,%name,%xy2) == 1) || ($readini(vcmp.packages.ini,%name,%xy3) == 1) || ($readini(vcmp.packages.ini,%name,%xy4) == 1) vcmp.msg %id Error - You have Already Found this Secret Package! if ($readini(vcmp.packages.ini,%name,%xy) == 1) vcmp.msg %id Error - You have Already Found this Secret Package! else { %a = $calc(%n * 1000) !writeini -n vcmp.packages.ini %name %xy 1 vcmp.cash+ %id %a vcmp.msg %id Found Secret Package - Number: %n $+ , Packages Found: %n $+ / $+ $vcmp.pickup.amount(506) $+ , Reward: $ $+ $bytes(%a,b) $+ , Location: $vcmp.area(%id) .timer 1 1 vcmp.msg %id Information - For Every Secret Package you Discover, Reward Increases $ $+ 1,000 $+ ! } } elseif ($3 == 407) { if ($vcmp.propname(1) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,1), vcmp.msg %id Property: $vcmp.propname(1) - Owner: $hget(BuyPropHashTable,1), vcmp.msg %id Property: $vcmp.propname(1) - ID: 1 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(1)),b)) } elseif ($vcmp.propname(2) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,2), vcmp.msg %id Property: $vcmp.propname(2) - Owner: $hget(BuyPropHashTable,2), vcmp.msg %id Property: $vcmp.propname(2) - ID: 2 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(2)),b)) } elseif ($vcmp.propname(3) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,3), vcmp.msg %id Property: $vcmp.propname(3) - Owner: $hget(BuyPropHashTable,3), vcmp.msg %id Property: $vcmp.propname(3) - ID: 3 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(3)),b)) } elseif ($vcmp.propname(4) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,4), vcmp.msg %id Property: $vcmp.propname(4) - Owner: $hget(BuyPropHashTable,4), vcmp.msg %id Property: $vcmp.propname(4) - ID: 4 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(4)),b)) } elseif ($vcmp.propname(5) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,5), vcmp.msg %id Property: $vcmp.propname(5) - Owner: $hget(BuyPropHashTable,5), vcmp.msg %id Property: $vcmp.propname(5) - ID: 5 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(5)),b)) } elseif ($vcmp.propname(6) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,6), vcmp.msg %id Property: $vcmp.propname(6) - Owner: $hget(BuyPropHashTable,6), vcmp.msg %id Property: $vcmp.propname(6) - ID: 6 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(6)),b)) } elseif ($vcmp.propname(7) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,7), vcmp.msg %id Property: $vcmp.propname(7) - Owner: $hget(BuyPropHashTable,7), vcmp.msg %id Property: $vcmp.propname(7) - ID: 7 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(7)),b)) } elseif ($vcmp.propname( isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,8), vcmp.msg %id Property: $vcmp.propname( - Owner: $hget(BuyPropHashTable,8), vcmp.msg %id Property: $vcmp.propname( - ID: 8 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(),b)) } elseif ($vcmp.propname(9) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,9), vcmp.msg %id Property: $vcmp.propname(9) - Owner: $hget(BuyPropHashTable,9), vcmp.msg %id Property: $vcmp.propname(9) - ID: 9 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(9)),b)) } elseif ($vcmp.propname(10) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,10), vcmp.msg %id Property: $vcmp.propname(10) - Owner: $hget(BuyPropHashTable,10), vcmp.msg %id Property: $vcmp.propname(10) - ID: 10 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(10)),b)) } elseif ($vcmp.propname(11) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,11), vcmp.msg %id Property: $vcmp.propname(11) - Owner: $hget(BuyPropHashTable,11), vcmp.msg %id Property: $vcmp.propname(11) - ID: 11 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(11)),b)) } elseif ($vcmp.propname(12) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,12), vcmp.msg %id Property: $vcmp.propname(12) - Owner: $hget(BuyPropHashTable,12), vcmp.msg %id Property: $vcmp.propname(12) - ID: 12 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(12)),b)) } elseif ($vcmp.propname(13) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,13), vcmp.msg %id Property: $vcmp.propname(13) - Owner: $hget(BuyPropHashTable,13), vcmp.msg %id Property: $vcmp.propname(13) - ID: 13 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(13)),b)) } elseif ($vcmp.propname(14) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,14), vcmp.msg %id Property: $vcmp.propname(14) - Owner: $hget(BuyPropHashTable,14), vcmp.msg %id Property: $vcmp.propname(14) - ID: 14 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(14)),b)) } elseif ($vcmp.propname(15) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,15), vcmp.msg %id Property: $vcmp.propname(15) - Owner: $hget(BuyPropHashTable,15), vcmp.msg %id Property: $vcmp.propname(15) - ID: 15 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(15)),b)) } elseif ($vcmp.propname(16) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,16), vcmp.msg %id Property: $vcmp.propname(16) - Owner: $hget(BuyPropHashTable,16), vcmp.msg %id Property: $vcmp.propname(16) - ID: 16 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(16)),b)) } elseif ($vcmp.propname(17) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,17), vcmp.msg %id Property: $vcmp.propname(17) - Owner: $hget(BuyPropHashTable,17), vcmp.msg %id Property: $vcmp.propname(17) - ID: 17 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(17)),b)) } elseif ($vcmp.propname(18) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,18), vcmp.msg %id Property: $vcmp.propname(18) - Owner: $hget(BuyPropHashTable,18), vcmp.msg %id Property: $vcmp.propname(18) - ID: 18 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(18)),b)) } elseif ($vcmp.propname(19) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,19), vcmp.msg %id Property: $vcmp.propname(19) - Owner: $hget(BuyPropHashTable,19), vcmp.msg %id Property: $vcmp.propname(19) - ID: 19 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(19)),b)) } elseif ($vcmp.propname(20) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,20), vcmp.msg %id Property: $vcmp.propname(20) - Owner: $hget(BuyPropHashTable,20), vcmp.msg %id Property: $vcmp.propname(20) - ID: 20 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(20)),b)) } elseif ($vcmp.propname(21) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,21), vcmp.msg %id Property: $vcmp.propname(21) - Owner: $hget(BuyPropHashTable,21), vcmp.msg %id Property: $vcmp.propname(21) - ID: 21 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(21)),b)) } elseif ($vcmp.propname(22) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,22), vcmp.msg %id Property: $vcmp.propname(22) - Owner: $hget(BuyPropHashTable,22), vcmp.msg %id Property: $vcmp.propname(22) - ID: 22 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(22)),b)) } elseif ($vcmp.propname(23) isin $vcmp.area(%id)) { $iif($hget(BuyPropHashTable,23), vcmp.msg %id Property: $vcmp.propname(23) - Owner: $hget(BuyPropHashTable,23), vcmp.msg %id Property: $vcmp.propname(23) - ID: 23 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(23)),b)) } }}
;-----------------------------;------------ALIAS------------;-----------------------------set %prop.dir $mircdiralias vcmp.propname !return $readini(%prop.dir $+ vcmp.properites.ini,PROPERTIES,$1)alias vcmp.myprops { var %x = 1 while (%x <= $hget(BuyPropHashTable,0).item) { if ( $hget(BuyPropHashTable,%x).data == $1) vcmp.msg $vcmp.getid($1) Property: $vcmp.propname($hget(BuyPropHashTable,%x).item) - ID: $hget(BuyPropHashTable,%x).item inc %x }}alias autospawn { var %propid = $1 var %name = $2 $iif(%name == $hget(BuyPropHashTable,%propid), !hadd -m AutoSpawn %name %propid, vcmp.say >> %name $vcmp.propname(%propid) is not your property.)}alias autospawnoff { var %name = $1 $iif($hfind(AutoSpawn, %name), !hdel AutoSpawn %name, vcmp.say >> %name you do not have Auto-Spawn Enabled)}alias vcmp.alias !return $readini(vcmp.alias.ini,IPS,$1)alias vcmp.add.alias { if ($2 !isin $vcmp.alias($1)) !writeini -n vcmp.alias.ini IPS $1 $iif($vcmp.alias($1),$v1 $+ $chr(44) $+ $chr(32) $+ $2,$2)}alias vcmp.join.alias { vcmp.add.alias $gettok($vcmp.ip($1),1-2,46) $1 vcmp.add.alias $gettok($vcmp.ip($1),1-3,46) $1 vcmp.add.alias $vcmp.ip($1) $1}alias vcmp.add.getip !writeini -n vcmp.getip.ini NAMES $1 $vcmp.ip($1)alias vcmp.add.getname !writeini -n vcmp.getip.ini IPS $vcmp.ip($1) $1alias vcmp.getip !return $iif($readini(vcmp.getip.ini,NAMES,$1),$v1,Unknown)