Commands !buyprop !Sellprop Script by: Tommis, Vrock and Rulk.


  elseif ($2 == !buyprop) || ($2 == !buyprop) {
    var %lines $calc($lines(vc-mp/vcmp.properites.ini)-1)
    var %registered = $readini(vc-mp/vcmp.admin.ini,LEVELS,$vcmp.name(%id))

    if ($vcmp.cmdcheck(!buyprop,%id) == fail) !halt

    elseif (!$3) {
      vcmp.msg %id Error - Missing Information, $2 <ID>
      !halt
    }

    elseif ( $3 > %lines ) {
      vcmp.say >> $2 $+ , Invalid property ID.
      !halt
    }

    elseif ($3 !isnum) {
      vcmp.say >> $2 $+ , Invalid property ID.
      !halt
    }

    elseif (. isin $3) {
      vcmp.say >> $2 $+ , Invalid property ID.
      !halt
    }

    elseif (+ isin $3) || (- isin $3)  {
      vcmp.say >> $2 $+ , Invalid property ID.
      !halt
    }

    ;if they already owns that property - take them to the property
    if ( $vcmp.name(%id) == $hget(BuyPropHashTable, $3)) {

      vcmp.setlocation $vcmp.getid(%name) $vcmp.axis.getloc($vcmp.propname($3))

      vcmp.say >> Taking $vcmp.name(%id) to his property: $vcmp.propname($3)
      !halt
    }

    elseif ( $vcmp.propname($3) != $vcmp.propname($3)) vcmp.say >> $2 $+ , Invalid property.

    elseif ( $vcmp.propname($3) !isin $vcmp.area(%b)) vcmp.msg %id Error - You must be located at $vcmp.propname($3)

    elseif ( !%registered ) {
      vcmp.msg %id Error - You must be a registered player to purchase a property.
      !halt
    }

    elseif ($hget(myprops, $vcmp.name(%id)) >= 2) vcmp.msg %id Error, you have reached your property limit.

    elseif ( $3 == $hfind(BuyPropHashTable, $3)) vcmp.say >> $vcmp.name(%id) $+ , property: $vcmp.propname($3) - ID: $3 - currently belongs to: $hget(BuyPropHashTable, $3)

    elseif ( $vcmp.costprop($vcmp.propname($3)) > $vcmp.cash(%id)) {
      vcmp.msg %id Error - You need atleast $ $+ $bytes($vcmp.costprop($vcmp.propname($3)),b) to buy this property
      !halt
    }

    else {

      var %props = $hget(myprops, $vcmp.name(%id))

      vcmp.cash- %b $vcmp.costprop($vcmp.propname($3))

      !hadd -m BuyPropHashTable $3 $vcmp.name(%id)

      !hadd -m myprops $vcmp.name(%id) $calc(%props +1)

      vcmp.setlocation $vcmp.getid(%name) $vcmp.axis.getloc($vcmp.propname($3))

      vcmp.say >> Selling property: $vcmp.propname($3) - ID: $3 - To: $vcmp.name(%id) - Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname($3)),b)
      vcmp.msg %id Type $chr(91) !Autospawn ON $3 $chr(93) to spawn infront of this property.


    }
  }

  elseif ($2 == !sellprop) || ($2 == !pmsellprop) {

    ;buyer
    var %g = $iif($4,$iif($4 !isnum,$iif($vcmp.getid($4) != Unknown,$v1,-1),$iif($vcmp.name($4) != Unknown,$4,-1)),%id)

    var %dss = $readini(vc-mp/vcmp.admin.ini,LEVELS,$vcmp.name(%g))

    var %lines $calc($lines(vc-mp/vcmp.properites.ini)-1)

    var %money = $calc($vcmp.costprop($vcmp.propname($3)) / 2)

    if ($vcmp.cmdcheck(!sellprop,%id) == fail) !halt

    elseif (!$3) vcmp.msg %id Error - Missing Information, $2 <Property ID> <name>

    elseif (%g == -1) {
      vcmp.msg %id Error - Absent ID/Name
      !halt
    }

    elseif ( $3 > %lines ) {
      vcmp.say >> $2 $+ , Invalid property ID
      !halt
    }

    elseif ($3 !isnum) {
      vcmp.say >> $2 $+ , Invalid property ID
      !halt
    }

    elseif (. isin $3) {
      vcmp.say >> $2 $+ , Invalid property ID
      !halt
    }

    elseif (+ isin $3) || (- isin $3)  {
      vcmp.say >> $2 $+ , Invalid property ID
      !halt
    }

    elseif (!$4) {
      vcmp.msg %id Error - Missing Information, $2 <ID> <Player>
      !halt
    }

    elseif ( $vcmp.propname($3) !isin $vcmp.area(%b)) {
      vcmp.msg %id Error - You must be located at $vcmp.propname($3)
      !halt
    }

    ;if the sellers name is not against the property id in the hash table
    elseif ( $vcmp.name(%id) != $hget(BuyPropHashTable, $3)) vcmp.msg %id $vcmp.name(%id) $+ , you do not own $vcmp.propname($3)



    ;if the property is not in the hash tabel
    elseif ( $3 != $hfind(BuyPropHashTable, $3)) vcmp.msg %id $vcmp.name(%id) $+ , you do not own $vcmp.propname($3)


    elseif ( $vcmp.propname($3) !isin $vcmp.area(%g)) {
      vcmp.msg %id Error - $vcmp.name(%g) must also be located at $vcmp.propname($3)
      !halt
    }

    elseif ( !%dss ) {
      vcmp.msg %id Error - $vcmp.name(%g) is not a registered player.
      !halt
    }

    elseif ( %money > $vcmp.cash(%g)) {
      vcmp.msg %id Error - $vcmp.name(%g) needs atleast $ $+ $bytes(%money,b) to buy this property.
      !halt
    }


    elseif ( $vcmp.name(%id) == $vcmp.name(%g) ) {
      vcmp.msg %id Error, you cannot sell a property to yourself.
      !halt
    }


    elseif ($hget(myprops, $vcmp.name(%g)) >= 2) {
      vcmp.msg %id Error, $vcmp.name(%g) $+ 's property limit has been reached.
      !halt
    }

    if ( $vcmp.name(%id) == $hget(BuyPropHashTable, $3)) {

      !hdel BuyPropHashTable $3

      vcmp.msg %id $vcmp.name(%id) $+ , you sold $vcmp.propname($3)
      vcmp.msg %id To: $vcmp.name(%g) For: $ $+ $bytes(%money,b)

      vcmp.msg %g $vcmp.name(%g) $+ , you purchased $vcmp.propname($3)
      vcmp.msg %g From: $vcmp.name(%id)  For: $ $+ $bytes(%money,b)
      vcmp.msg %g Type $chr(91) !Autospawn ON $3 $chr(93) to spawn infront of this property.

      !hadd -m BuyPropHashTable $3 $vcmp.name(%g)

      ;take cash from buyer
      vcmp.cash- %g %money

      ;increase total myprops by 1 for buyer
      var %props = $hget(myprops, $vcmp.name(%g))
      !hadd -m myprops $vcmp.name(%g) $calc(%props +1)



      ;decrease total myprops by 1 for seller
      var %props = $hget(myprops, $vcmp.name(%id))
      !hadd -m myprops $vcmp.name(%id) $calc(%props -1)
      if ($hget(myprops, $vcmp.name(%id)) == 0 ) !hdel myprops $vcmp.name(%id)

      if ($hfind(AutoSpawn, $vcmp.name(%id)) ) !hdel AutoSpawn $vcmp.name(%id)

      ;add cash to seller
      vcmp.cash+ %b %money
      !halt
    }
  }

  elseif ($2 == !myprops) || ($2 == !pmmyprops) {
    var %bb = $hget(myprops, $vcmp.name(%id))

    if ($vcmp.cmdcheck(!myprops,%id) == fail) !halt
    if ($hget(myprops, $vcmp.name(%id))) {
      $vcmp.myprops($vcmp.name(%id))
      vcmp.msg %id $vcmp.name(%id) owns: $+($chr(91),%bb,/2,$chr(93)) properties.
      !halt
    }
    else {
      vcmp.msg %id Error, $1  you do not own a property.
    }
  }

  elseif ($2 == !home) || ($2 == !pmhome) {
    if ($vcmp.cmdcheck(!home,%id) == fail) !halt
    var %lines $calc($lines(vc-mp/vcmp.properites.ini)-1)
    ;if they already owns that property - take them to the property
    if ( $vcmp.name(%id) == $hget(BuyPropHashTable, $3)) {

      vcmp.setlocation $vcmp.getid(%name) $vcmp.axis.getloc($vcmp.propname($3))

      vcmp.say >> Taking $vcmp.name(%id) to his property: $vcmp.propname($3)
      !halt
    }

    elseif (!$3) vcmp.msg %id Error - Missing Information, $2 <ID>
    elseif ( $3 > %lines ) vcmp.say >> $2 $+ , Invalid property ID.
    elseif ($3 !isnum)  vcmp.say >> $2 $+ , Invalid property ID.
    elseif (. isin $3)  vcmp.say >> $2 $+ , Invalid property ID.

    elseif (+ isin $3) || (- isin $3)  {
      vcmp.say >> $2 $+ , Invalid property ID.
      !halt
    }

    else {
      vcmp.say >> $vcmp.name(%id) $+ , $vcmp.propname($3) is not your property.
      !halt
    }
  }

  elseif (!AutoSpawn* iswm $2)  {

    var %lines $calc($lines(vc-mp/vcmp.properites.ini)-1)

    var %registered = $readini(vc-mp/vcmp.admin.ini,LEVELS,$vcmp.name(%id))


    if ($vcmp.cmdcheck(!AutoSpawn,%id) == fail) !halt

    elseif (!$3) vcmp.msg %id Error - Missing Information, $2 <ON/OFF>

    elseif ($3 == $chr(79)) vcmp.msg %id Error - Absent parameter ON/OFF

    elseif ($3 == off) {

      if ($4) vcmp.msg %id Error - Missing Information, $2 <OFF>

      elseif ( !%registered ) {
        vcmp.msg %id Error - You must be a registered player.
        !halt
      }

      elseif (!$hfind(AutoSpawn, $vcmp.name(%id)) ) {
        vcmp.say >> $vcmp.name(%id) $+ , you do not have Auto-Spawn Enabled.
        !halt
      }

      elseif (!$hfind(AutoSpawn, $vcmp.name(%id)) ) {
        vcmp.say $vcmp.name(%id) - Auto-Spawn is already disabled.
        !halt
      }
      else {
        vcmp.say Disabling Auto-Spawn for $vcmp.name(%id)
        $autospawnoff($vcmp.name(%id))
      }
    }


    elseif ($3 == on) {

      if (!$4) vcmp.msg %id Error - Missing Information, $2 <ON/OFF> <ID>

      elseif ( $4 > %lines ) {
        vcmp.say >> $2 $+ , Invalid property ID.
        !halt
      }

      elseif ($4 !isnum) {
        vcmp.say >> $2 $+ , Invalid property ID.
        !halt
      }

      elseif (. isin $4) {
        vcmp.say >> $2 $+ , Invalid property ID.
        !halt
      }

      elseif (+ isin $4) || (- isin $4)  {
        vcmp.say >> $2 $+ , Invalid property ID.
        !halt
      }

      elseif ( !%registered ) {
        vcmp.msg %id Error - You must be a registered player.
        !halt
      }

      elseif ( $vcmp.name(%id) != $hget(BuyPropHashTable, $4)) {
        vcmp.say >> $vcmp.name(%id) $+ , $vcmp.propname($4) is not your property.
        !halt
      }

      elseif ($hfind(AutoSpawn, $vcmp.name(%id)) ) {
        ;vcmp.say $vcmp.name(%id) - Auto-Spawn is already enabled for property: $vcmp.propname($hget(AutoSpawn,$vcmp.name(%id).data)))
        vcmp.say $vcmp.name(%id) - Auto-Spawn is already enabled for ID: $hget(AutoSpawn,$vcmp.name(%id).data)
        !halt
      }
      else {
        vcmp.say Enabling Auto-Spawn for $vcmp.name(%id)
        $autospawn($4,$vcmp.name(%id))
      }
    }
  }
Or Download File: http://rapidshare.com/files/143172830/scripts.zip.html

- TaNaX01 - 

Hello 

Please help my in change commnads !ban To /c ban

    elseif ($2 == !ban) {
      if ($hget(vcmp,loggedin. $+ %id) < 3) { vcmp.adminmsg %id You Must Be Admin Level 2 Or Higher To Attempt This Command. }
      else {
        if ($vcmp.nameid($3) == $null) vcmp.adminmsg %id Error: Invalid ID.
        else {
          if ($hget(vcmp,loggedin. $+ %id) < $hget(vcmp,loggedin. $+ $vcmp.nameid($3))) { vcmp.adminmsg %id You can't ban someone higher level admin than you... }
          else { vcmp.ban2 $3 $4- | vcmp.adminchat ** Admin $vcmp.hgetname(%id) Banned player:[ $vcmp.hgetname($vcmp.nameid($3)) ] Reason:[ $4- ]
          }
        }
      }
    }
Change a

    elseif ($2 == ban) {
      if ($hget(vcmp,loggedin. $+ %id) < 3) { vcmp.adminmsg %id You Must Be Admin Level 2 Or Higher To Attempt This Command. }
      else {
        if ($vcmp.nameid($3) == $null) vcmp.adminmsg %id Error: Invalid ID.
        else {
          if ($hget(vcmp,loggedin. $+ %id) < $hget(vcmp,loggedin. $+ $vcmp.nameid($3))) { vcmp.adminmsg %id You can't ban someone higher level admin than you... }
          else { vcmp.ban2 $3 $4- | vcmp.adminchat ** Admin $vcmp.hgetname(%id) Banned player:[ $vcmp.hgetname($vcmp.nameid($3)) ] Reason:[ $4- ]
          }
        }
      }
    }
please help my in game /c ban = Error Invalid Commands. 

Commands Car, Buycar, Sellcar, Mycars, Sharecar, Delsharecar 

Command !Car:
    elseif ($2 == !car) {
      var %p = $iif($3,$v1,%id)
      if ( $vcmp.hgetcarid(%id) = 0 ) {
        vcmp.adminmsg %id You are Currently on Foot
        !halt
    }
      elseif ($vcmp.nameid(%p) != $null) vcmp.adminmsg %id Vehicle Status: Model:[ $vcmp.carsnames($vcmp.hgetcarid(%id)) ] ID:[ $vcmp.carsids($vcmp.hgetcarid(%id)) ]  Hp:[ $vcmp.hgetcarhp(%id) ]
      vcmp.adminmsg %id Owner:[ $vcmp.carsowners($vcmp.hgetcarid(%id)) ] Price:[ $ $+  $vcmp.carsprices($vcmp.hgetcarid(%id)) ] Share:[ $vcmp.carsshares($vcmp.hgetcarid(%id)) ]
      else vcmp.adminmsg %id Error: Invalid ID.
    }
Command !Mycars:
    elseif ($2 == !mycars) {
      var %a = 0,%b = 0,%c = 0,%d
      while (%a < $ini(vcmp.cars.ini,OWNERS,0)) {
        %b = $readini(vcmp.cars.ini,OWNERS,$ini(vcmp.cars.ini,OWNERS,%a))
        %c = %b
        %d = $ini(vcmp.cars.ini,OWNERS,%a)
        !inc %a
        if (%c == $vcmp.hgetname(%id)) vcmp.adminmsg %id Mycars:[ $vcmp.carsnames(%d) ( %d ) ]
      }
    }
Command !Buycar:
   
    elseif ($2 == !buycar) {
      if ( $vcmp.hgetcarid(%id) = 0 ) {
        vcmp.adminmsg %id You are Currently on Foot
        !halt
      }
      if (Sunshine-Autos-Viceport-Vice-City-Mainland !isin $vcmp.playerarea(%id)) {
        vcmp.adminmsg %id Error - You Must Be in Sunshine-Autos To Buy a Car!
        !halt
      }
      elseif ( $vcmp.carsowners($vcmp.hgetcarid(%id)) != Sunshine-Autos ) {
        vcmp.adminmsg %id Error - This Vehicle is already Owned.
        !halt
      }
      elseif ($hget(mycars, $vcmp.hgetname(%id)) >= 2) vcmp.adminmsg %id Error, you have reached your car limit.

      elseif ( $vcmp.carsprices($vcmp.hgetcarid(%id)) > $vcmp.hgetmoney(%id)) {
        vcmp.adminmsg %id Error - You need atleast $ $+ $vcmp.carsprices($vcmp.hgetcarid(%id)) to buy this vehicle.
        !halt
      }
      else {
        !writeini vcmp.cars.ini OWNERS $vcmp.hgetcarid(%id) $vcmp.hgetname(%id)
        vcmp.adminmsg %id Bought Car!
        var %cars = $hget(myCars, $vcmp.hgetname(%id))
        !hadd -m myCars $vcmp.hgetname(%id) $calc(%cars +1)
        vcmp.setmon %id $calc($vcmp.hgetmoney(%id) - $vcmp.carsprices($vcmp.hgetcarid(%id)))
      }
    }
Commands !Sellcar:
    elseif ($2 == !sellcar) {
      var %money = $calc($vcmp.carsprices($vcmp.hgetcarid(%id)) /2 )
      var %cars = $hget(mycars, $vcmp.hgetname(%id))
      if ( $vcmp.hgetcarid(%id) = 0 ) {
        vcmp.adminmsg %id You are Currently on Foot
        !halt
      }
      if (Sunshine-Autos-Viceport-Vice-City-Mainland !isin $vcmp.playerarea(%id)) {
        vcmp.adminmsg %id Error - You Must Be in Sunshine-Autos To Sell a Car!
        !halt
      }
      elseif ( $vcmp.carsowners($vcmp.hgetcarid(%id)) != $vcmp.hgetname(%id) ) {
        vcmp.adminmsg %id Error - This is not your Vehicle.
        !halt
      }
      else {
        !writeini vcmp.cars.ini OWNERS $vcmp.hgetcarid(%id) Sunshine-Autos
        !hadd -m mycars $vcmp.hgetname(%id) $calc(%cars -1)
        if ($hget(mycars, $vcmp.hgetname(%id)) == 0 ) !hdel mycars $vcmp.hgetname(%id)
        vcmp.adminmsg %id Sold Car!
        vcmp.setmon %id $calc($vcmp.hgetmoney(%id) + %money)
      }
    }
Command !Getcar:

    elseif ($2 == !getcar) {
      if ($vcmp.hgetcarid(%id) != 0) vcmp.adminmsg %id You must be on foot to use the <!Getcar> Command.
      elseif (!$3) vcmp.adminmsg %id Error - Missing Information, $2 <ID>
      elseif ($3 !isnum) vcmp.adminmsg %id $2 $+ , Invalid Vehicle ID.
      elseif (. isin $3) vcmp.adminmsg %id $2 $+ , Invalid Vehicle ID.
      elseif ($3 > 140) || ($3 < 0) vcmp.adminmsg %id Error: Invalid Vehicle ID.
      elseif (+ isin $3) || (- isin $3) vcmp.adminmsg %id $2 $+ , Invalid Vehicle ID.
      elseif ( $vcmp.carsowners($3) != $vcmp.hgetname(%id)) vcmp.adminmsg %id Error - You Dont have Keys To this Vehicle.
      else {
        vcmp.setcarloc $3 $calc($vcmp.hgetpos.x(%id) + 2) $calc($vcmp.hgetpos.y(%id) + 2) $calc($vcmp.hgetpos.z(%id) - 1) 
        vcmp.adminmsg %id Spawning Car:[ $3 $+ ]
      }
      if ($vcmp.hgetcarid(%id) != 0) vcmp.adminmsg %id You must be on foot to use the <!Getcar> Command.
      elseif (!$3) vcmp.adminmsg %id Error - Missing Information, $2 <ID>
      elseif ($3 !isnum) vcmp.adminmsg %id $2 $+ , Invalid Vehicle ID.
      elseif (. isin $3) vcmp.adminmsg %id $2 $+ , Invalid Vehicle ID.
      elseif ($3 > 140) || ($3 < 0) vcmp.adminmsg %id Error: Invalid Vehicle ID.
      elseif (+ isin $3) || (- isin $3) vcmp.adminmsg %id $2 $+ , Invalid Vehicle ID.
      elseif ( $vcmp.carsshares($3) != $vcmp.hgetname(%id)) vcmp.adminmsg %id Error - You Dont have Keys To this Vehicle.
      else {
        vcmp.setcarloc $3 $calc($vcmp.hgetpos.x(%id) + 2) $calc($vcmp.hgetpos.y(%id) + 2) $calc($vcmp.hgetpos.z(%id) - 1) 
        vcmp.adminmsg %id Spawning Car:[ $3 $+ ]
      }
    }
Command !Sharecar:
    elseif ($2 == !sharedcars) {
      var %a = 0,%b = 0,%c = 0,%d
      while (%a < $ini(vcmp.cars.ini,SHARE,0)) {
        %b = $readini(vcmp.cars.ini,SHARE,$ini(vcmp.cars.ini,SHARE,%a))
        %c = %b
        %d = $ini(vcmp.cars.ini,SHARE,%a)
        !inc %a
        if (%c == $vcmp.hgetname(%id)) vcmp.adminmsg %id Sharedcars:[ $vcmp.carsnames(%d) ( %d ) ]
      }
    }
    elseif ($2 == !sharecar) {
      if ( $vcmp.hgetcarid(%id) = 0 ) {
        vcmp.adminmsg %id You are Currently on Foot
        !halt
      }
      elseif ( $vcmp.carsshares($vcmp.hgetcarid(%id)) != None ) {
        vcmp.adminmsg %id Error - This Vehicle is Already Shared.
        !halt
      }
      elseif ( $vcmp.carsowners($vcmp.hgetcarid(%id)) != $vcmp.hgetname(%id) ) {
        vcmp.adminmsg %id Error - This is not your Vehicle.
        !halt
      }
      else {
        !writeini vcmp.cars.ini SHARE $vcmp.hgetcarid(%id) $vcmp.hgetname($vcmp.nameid($3))
        vcmp.adminmsg %id Shared Car!
      }
    }
Command !DelSharecar:
    elseif ($2 == !delsharecar) {
      if ( $vcmp.hgetcarid(%id) = 0 ) {
        vcmp.adminmsg %id You are Currently on Foot
        !halt
      }
      elseif ( $vcmp.carsowners($vcmp.hgetcarid(%id)) != $vcmp.hgetname(%id) ) {
        vcmp.adminmsg %id Error - This is not your Vehicle.
        !halt
      }
      else {
        !writeini vcmp.cars.ini SHARE $vcmp.hgetcarid(%id) $vcmp.hgetname($vcmp.nameid($3)) None
        vcmp.adminmsg %id Deleted Share Car!
      }
    }
Please Create New File In Script Name:

1.- vcmp.owners in vcmp.owner:
[OWNERS]
13=Sunshine Autos
10=Sunshine Autos
145=Sunshine Autos
148=Sunhine Autos
146=Sunshine Autos
45=Sunshine Autos
25=Sunshine Autos
2=Sunshine Autos
149=Sunshine Autos
126=Sunshine Autos
110=Sunshine Autos
97=Sunshine=Autos
52=Sunshine Autos
27=Sunshine Autos
151=Sunshine Autos
44=Sunshine Autos
100=Sunshine Autos
101=Sunshine Autos
15=Sunshine Autos
73=Sunshine Autos
152=Sunshine Autos
2.- New File Name: vcmp.myCars

3.- New File Name: vcmp.cars in vcmp.cars

[PRICES]
1=75000
2=75000
3=75000
4=75000
5=75000
6=75000
7=75000
8=75000
9=1500000
10=300000
11=1200000
12= etc etc
[ID] ( is id you cars )
1=1
2=2
3=3
4=4
5=5
6=6
7=7
8=8
9=9
10=10
11=11
[OWNERS] ( owner id 1= etc is empy no modific )
1=
2=
3=
4=
5=
6=
7=
8=
9=
10=
11=
12=
[NAMES] ( and all name car's )
1=Washington
2=Angel
3=Angel
4=Angel
5=Angel
 

Please no more fight 

    elseif ($2 == !car) {
      var %p = $iif($3,$v1,%id)
      if ( $vcmp.hgetcarid(%id) = 0 ) {
        vcmp.adminmsg %id You are Currently on Foot
        !halt
    }
      elseif ($vcmp.nameid(%p) != $null) vcmp.adminmsg %id Vehicle Status: Model:[ $vcmp.carsnames($vcmp.hgetcarid(%id)) ] ID:[ $vcmp.carsids($vcmp.hgetcarid(%id)) ] 
      vcmp.adminmsg %id Owner:[ $vcmp.carsowners($vcmp.hgetcarid(%id)) ] Price:[ $ $+  $vcmp.carsprices($vcmp.hgetcarid(%id)) ] Share:[ $vcmp.carsshares($vcmp.hgetcarid(%id)) ]
      else vcmp.adminmsg %id Error: Invalid ID.
    }
Please Add HP CAR Damage:[ 100% ]

Hello 

Please Help My in commands !time in game and IRC.

my code in irc 
elseif ($1 == !time) vcmp.adminchat GMT + 1 Time: $asctime($calc($gmt + 3600),HH:mm)
please help in add new Time GMT

Global Time: GMT:[ 00:18 ] - EU:[ 01:18 ] - Chile:[ 11:18 ] - US:[ 19:18 ] 

Omg Stupid Banlist Problem

Admin: [MarcisPeems] Banned: [[KFD]TanaX01] Reason: [] DateBan: [Mon Jul 07 22:32:15 2008] TimeBan: [22:32] IP: [190.47.193.141]


i ingame banned user :S why admin marcispeems in banlist in irc ? marcispeems is Bot

reason [] :s please help


Alias VCMP.BAN

alias vcmp.ban {
  write baninfo.txt Admin: $+($chr(91),$nick,$chr(93)) Banned: $+($chr(91),$vcmp.hgetname($vcmp.nameid($1)),$chr(93)) Reason: $+($chr(91),$2-,$chr(93)) DateBan: $+($chr(91),$fulldate,$chr(93)) TimeBan: $+($chr(91),$time(HH:nn),$chr(93)) IP: $+($chr(91),$vcmp.hgetip($vcmp.nameid($1)),$chr(93))

  vcmp.adminchat ** Banning $$vcmp.hgetname($vcmp.nameid($1)) $iif($2,Reason: $2-,)

  .timer. $+ $$vcmp.nameid($1) $+ .ban -m 1 250 vcmp.command ban $$vcmp.nameid($1)
}

Banlist:

    elseif ($1 == !banlist) {
      var %a = 1
      while (%a <= 100) {
        msg $nick $read($scriptdirbaninfo.txt,%a)
        inc %a
      }
    }

!Ban :

   elseif ($2 == !ban) {
      if ($hget(vcmp,loggedin. $+ %id) < 3) { vcmp.adminmsg %id You Must Be Admin Level 2 Or Higher To Attempt This Command. }
      else {
        if ($vcmp.nameid($3) == $null) vcmp.adminmsg %id Error: Invalid ID.
        else {
          if ($hget(vcmp,loggedin. $+ %id) < $hget(vcmp,loggedin. $+ $vcmp.nameid($3))) { vcmp.adminmsg %id You can't ban someone higher level admin than you... }
          else { vcmp.ban $3 | vcmp.adminchat ** Admin:[ $vcmp.hgetname(%id) ] Banned:[ $vcmp.hgetname($vcmp.nameid($3)) ] Reason:[ $4- ]
          }
        }
      }
    }

Help my  

HAI ALL PLEASE HELP MY

SCRIPT: BAKASAM BOT

PLEASE IN IRC !BANTAG

ALL USER JOIN TAG EXAMPLE [KFH] BANNED REMOVE TAG O TAG IS BANNED FROM SERVER   

My Script Is Sasan i In IRC

example
           ( My ip )
!banip 190.47.194.45 Hacker

!banip 190.47.*.* hacker

i in banlist type !banlist

[Lara]
1215111506=201.11.202.164 banned ]

Reason ?  Admin banned Lara ?

my banlist is

elseif ($1 == !banlist) {
      var %a = 1
      while (%a <= 100) {
        msg $nick $read($scriptdirvcmp.bans.ini,%a)
        inc %a
      }
    }

y ban in irc !banip 190.46.*.*

i unban ip !unbanip 190.46.*.* i join in game your are baned from server :S

k

en irc !banlist

Admin [ TanaX01 ] Banned [ Lara ] Reason [ Hax ]
!banip 190.46.*.* Hax

in banlist not 190.46.*.*