Text only | Text with Images

Vice City Multiplayer

VC:MP => mIRC/pawn Scripting => Topic started by: Cristian on October 12, 2008, 03:35:45 PM

Title: Help in prop for script v10.0 !!!
Post by: Cristian on October 12, 2008, 03:35:45 PM
hi,
     My icon is proposed as a bug when I was unemployed in me, says no information on the prop, and if I can buy apart when I go out and buy, and entered The Game and not have it over, it's like that is not Saved , Please help, leaving them few images:

(http://img518.imageshack.us/img518/1536/propiconozy5.th.png)

(http://img147.imageshack.us/img147/6673/propicono1ut8.th.png)

I'm using the script of http://forum.vicecitymultiplayer.com/index.php?topic=727.0 (http://forum.vicecitymultiplayer.com/index.php?topic=727.0), because this all good, but I did not jump that what I want to read and to exit The Game is not saved ...
Title: Re: Help in prop for script v10.0 !!!
Post by: Cristian on October 12, 2008, 05:30:43 PM
creck have my script:

Quote
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

Quote
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

}

Quote
;-----------------------------
;-------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(8)) !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
}


Quote
;-----------------------------
;------------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) $1
alias vcmp.getip !return $iif($readini(vcmp.getip.ini,NAMES,$1),$v1,Unknown)



Quote
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(8) isin $vcmp.area(%id)) {
      $iif($hget(BuyPropHashTable,8), vcmp.msg %id Property: $vcmp.propname(8) - Owner: $hget(BuyPropHashTable,8), vcmp.msg %id Property: $vcmp.propname(8) - ID: 8 $chr(13) Cost: $ $+ $bytes($vcmp.costprop($vcmp.propname(8)),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))
    }
  }

}


the "  8) " is for 8 )
Title: Re: Help in prop for script v10.0 !!!
Post by: Chezor on October 12, 2008, 06:33:24 PM
yes ur right rulk
Title: Re: Help in prop for script v10.0 !!!
Post by: Cristian on October 12, 2008, 08:35:55 PM
please explain better

   
I do not understand that you mean

Please help me
Title: Re: Help in prop for script v10.0 !!!
Post by: thijn on October 12, 2008, 08:36:02 PM
open mirc and type /set %prop.dir $mircdir
OR
open mirc and open the script editor, open the tab variables and add %prop.dir $mircdir  ;)
Title: Re: Help in prop for script v10.0 !!!
Post by: Mattz on October 12, 2008, 08:39:37 PM
/me slaps Cristian

Use this...

Code Select
;-----------------------------
;------------ALIAS------------
;-----------------------------

set %prop.dir $mircdir

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) $1
alias vcmp.getip !return $iif($readini(vcmp.getip.ini,NAMES,$1),$v1,Unknown)


Title: Re: Help in prop for script v10.0 !!!
Post by: Cristian on October 12, 2008, 08:49:57 PM
   
I did what you told me, but I am still the same thing happening

help, I can not find the problem
Title: Re: Help in prop for script v10.0 !!!
Post by: Cristian on October 13, 2008, 03:26:32 PM
give me a better explanation, where he has to go etc ... and where to put everything ...
Title: Re: Help in prop for script v10.0 !!!
Post by: thijn on October 13, 2008, 08:15:27 PM
maby he didnt ad the pickups fully up?
Then the pickup signal need dont read it, because $2 != 1, if im right?
Title: Re: Help in prop for script v10.0 !!!
Post by: Cristian on October 13, 2008, 11:46:45 PM
continues to misfire
Title: Re: Help in prop for script v10.0 !!!
Post by: Cristian on October 13, 2008, 11:48:33 PM
in an old script poneme the locations of the script buyprop and everything in the script and then see if this Entertainment well or badly because mine
Title: Re: Help in prop for script v10.0 !!!
Post by: Cristian on October 15, 2008, 03:33:19 PM
help rulk
Text only | Text with Images