GTA Közösség - A magyar GTA fórum

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => Segítségkérés => A témát indította: BoSS - 2012. április 13. - 17:47:15

Cím: Autóbérlés 2 errort ír rá
Írta: BoSS - 2012. április 13. - 17:47:15

Sziasztok, Script kérésnél kértem ezt a scriptet amit meg kaptam így ott lezártam,mert ide többen néznek be és háth elõbb kapok segítséget
Script:
[pawn]#include <a_samp>
forward BerlesVege(playerid, kocsi);
CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid))) return SendClientMessage(playerid, -1, \"Nem ülsz bérlõs kocsiban!\");
       if(GetPlayerMoney(playerid) < 1500) return  return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, kocsi);
        return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
}
stock BerlosKocsi(v)
{
      if(v >= ELSÕKOCSIID && v <= UTOLSÓKOCSIID) return 1;
      return 0;
}
public BerlesVege(playerid, kocsi)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
}[/pawn]
2 error:
[pawn]C:\\Documents and Settings\\Rendszergazda\\Asztal\\Modtesztelés\\Fejlesztés\\pc.pwn(2637) : error 029: invalid expression, assumed zero
C:\\Documents and Settings\\Rendszergazda\\Asztal\\Modtesztelés\\Fejlesztés\\pc.pwn(2638) : error 017: undefined symbol \"kocsi\"[/pawn]
sorok ahova mutat:
[pawn]   if(GetPlayerMoney(playerid) < 1500) return  return SendClientMessage(playerid, -1, \"A bérlés     ára 1500$!\");
SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, kocsi);[/pawn]
a segítségeteket elõre is köszönöm.

Cím: Autóbérlés 2 errort ír rá
Írta: $uRí - 2012. április 13. - 17:57:53

A második erorhoz ird ezt new kocsi; mod elejére!

Cím: Autóbérlés 2 errort ír rá
Írta: BoSS - 2012. április 13. - 18:04:06

Másik errort kijavítottam én köszi.
Most az a baj hogy beülök a kocsiban meg adtam hogy 8 -tól 18-as id-ig a bérelhetõ kocsik idjei de ugyan úgy elindulnak és úgy kéne hogy ne induljon el  ha nem bérlem ki
Valaki tud benne segíteni????

---

Dupla hozzászólás automatikusan összefûzve. ( 2012. április 13. - 20:13:07 )

---

Senki nem tud helpelni? :/

Cím: Autóbérlés 2 errort ír rá
Írta: szabyxxx - 2012. április 14. - 12:02:23

[pawn]
CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid))) return SendClientMessage(playerid, -1, \"Nem ülsz bérlõs kocsiban!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, kocsi);
        return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
}
stock BerlosKocsi(v)
{
      if(v >= ELSÕKOCSIID && v <= UTOLSÓKOCSIID) return 1;
      return 0;
}
public BerlesVege(playerid, kocsi)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
}[/pawn]
Tessék Kijavítva! 
Hiba:
if(GetPlayerMoney(playerid) < 1500) return return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
A Dublavisszatérés miatt volt!

Cím: Autóbérlés 2 errort ír rá
Írta: BoSS - 2012. április 14. - 12:31:35

Õ azt tudom én azt ki is vettem,de ugyan úgy beindulnak a kocsik ha beülnek úgy kéne hogy neinduljanak be...hanem mondjuk kiírja hogy bérlési díj 1500$ (/berles)

Cím: Autóbérlés 2 errort ír rá
Írta: $uRí - 2012. április 14. - 13:23:33

Tessék hibátlan, remélem megyen:
 

#include <a_samp>
#include <zcmd>
new kocsi;
new ELSOKOCSIID;
new UTOLSOKOCSIID;
forward BerlesVege(playerid, kocsi);
CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid))) return SendClientMessage(playerid, -1, \"Nem ülsz bérlõs kocsiban!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\")   return  TogglePlayerControllable(playerid,0);
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, kocsi);
       return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\") return TogglePlayerControllable(playerid,1);
}
stock BerlosKocsi(v)
{
      if(v >= ELSOKOCSIID && v <= UTOLSOKOCSIID) return 1;
      return 0;
}
public BerlesVege(playerid)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
}

Cím: Autóbérlés 2 errort ír rá
Írta: BoSS - 2012. április 14. - 18:50:50

Nem jó.Ugyan úgy el indul ha nem bérelik ki a kocsit , úgy kéne h bese indul a motor és ha beírom h /berles (annak ellenére h elindul az nélkül is :D )  szóval ha beírom h berles akkor lese von pénzt.
 

stock BerlosKocsi(v)
{
      if(v >= 8 && v <= 18) return 1;
      return 0;
}

 
E: ÉS kétwarning is van
[pawn]
C:\\Documents and Settings\\Rendszergazda\\Asztal\\Modtesztelés\\Fejlesztés\\pc.pwn(4970) : warning 203: symbol is never used: \"ELSOKOCSIID\"
C:\\Documents and Settings\\Rendszergazda\\Asztal\\Modtesztelés\\Fejlesztés\\pc.pwn(4970) : warning 203: symbol is never used: \"UTOLSOKOCSIID\"[/pawn]

Cím: Autóbérlés 2 errort ír rá
Írta: $uRí - 2012. április 14. - 19:15:54

Ez így meni -e kell modosítottam probáld meg így
 

#include <a_samp>
#include <zcmd>
new kocsi;
new ELSOKOCSIID;
new UTOLSOKOCSIID;
forward BerlesVege(playerid, kocsi);
CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid)))
       if(RemovePlayerFromVehicle(playerid)) return SendClientMessage(playerid,-1,\"Nem bérelted ki a kocsit!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, kocsi);
       return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
}
stock BerlosKocsi(v)
{
      if(v >= ELSOKOCSIID && v <= UTOLSOKOCSIID) return 1;
      return 0;
}
public BerlesVege(playerid)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
      RemovePlayerFromVehicle(playerid);
}

 
Nekem hibátlan:
 

Pawn compiler 3.2.3664           Copyright (c) 1997-2006, ITB CompuPhase

Cím: Autóbérlés 2 errort ír rá
Írta: BoSS - 2012. április 14. - 19:36:17

Sajnos nálam nem jó be ágyaztam a módba....ha beülök bérlés nélkül eltudok indulni de ha beírom h /berles akkor lese vo lovét . Nekem sajnos nem megy :(

Cím: Autóbérlés 2 errort ír rá
Írta: $uRí - 2012. április 14. - 19:48:03

De ne a modba tedd bele hanem FS -ként!

Cím: Autóbérlés 2 errort ír rá
Írta: BoSS - 2012. április 14. - 20:01:34

Idézetet írta: $uRí date=1334425683\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"20111\" data-ipsquote-contentclass=\"forums_Topic

De ne a modba tedd bele hanem FS -ként!
 

Meg történt úgy se jó.... :/
fsbe beraktam így:
[pawn]#include <a_samp>
#include <zcmd>
new kocsi;
new ELSOKOCSIID;
new UTOLSOKOCSIID;
forward BerlesVege(playerid, kocsi);
CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid)))
       if(RemovePlayerFromVehicle(playerid)) return SendClientMessage(playerid,-1,\"Nem bérelted ki a kocsit!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, kocsi);
       return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
}
stock BerlosKocsi(v)
{
      if(v >= 8 && v <= 18) return 1;
      return 0;
}
public BerlesVege(playerid)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
      RemovePlayerFromVehicle(playerid);
}[/pawn]
ÉS nem jó,ráadásul nekem 2 warningot add ki.
[pawn]C:\\Documents and Settings\\Rendszergazda\\Asztal\\Ghost.pwn(31) : warning 203: symbol is never used: \"ELSOKOCSIID\"
C:\\Documents and Settings\\Rendszergazda\\Asztal\\Ghost.pwn(31) : warning 203: symbol is never used: \"UTOLSOKOCSIID\"
Pawn compiler 3.2.3664           Copyright © 1997-2006, ITB CompuPhase
2 Warnings.[/pawn]
31.sor nicns az fsben.

Cím: Autóbérlés 2 errort ír rá
Írta: Gabor.. - 2012. április 14. - 20:07:02

#include <a_samp>
#include <zcmd>
new kocsi;
forward BerlesVege(playerid, kocsi);
CMD:berles(playerid, params[])
{
    if(GetPlayerMoney(playerid) <= 1500)
   {
       if(!BerlosKocsi(GetPlayerVehicleID(playerid)))
       if(RemovePlayerFromVehicle(playerid)) return SendClientMessage(playerid,-1,\"Nem bérelted ki a kocsit!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, kocsi);
       GivePlayerMoney(playerid, -1500);
       SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
    }
    else
    {
        SendClientMessage(playerid, -1, \"Nincs  $1500-od!\");
    }
}
stock BerlosKocsi(v)
{
      if(v >= 8 && v <= 18) return 1;
      return 0;
}
public BerlesVege(playerid)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
      RemovePlayerFromVehicle(playerid);
}

Így?

Cím: Autóbérlés 2 errort ír rá
Írta: Casamiro - 2012. április 14. - 20:16:49

Itt az egész hibátlanul, megcsinálva ahogy kérted:

#include <a_samp>
#include <zcmd>
forward BerlesVege(playerid, kocsi);
public OnGameModeInit()
{
      new x = 8-1;
      for(; x++ < 18;) MotorAllitas(x);
      return 1;
}
CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid))) return SendClientMessage(playerid, -1, \"Nem ülsz bérlõs kocsiban!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, GetPlayerVehicleID(playerid));
       MotorInditas(GetPlayerVehicleID(playerid));
       return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
}
stock BerlosKocsi(v)
{
      if(v >= 8 && v <= 18) return 1;
      return 0;
}
public BerlesVege(playerid, kocsi)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
      MotorAllitas(kocsi);
}
stock MotorAllitas(vehicleid)
{
new engine,lights,alarm,doors,bonnet,boot,objective;
GetVehicleParamsEx(vehicleid,engine,lights,alarm,doors,bonnet,boot,objective);
SetVehicleParamsEx(vehicleid,VEHICLE_PARAMS_OFF,lights,alarm,doors,bonnet,boot,objective);
        return 1;
}
stock MotorInditas(vehicleid)
{
new engine,lights,alarm,doors,bonnet,boot,objective;
GetVehicleParamsEx(vehicleid,engine,lights,alarm,doors,bonnet,boot,objective);
SetVehicleParamsEx(vehicleid,VEHICLE_PARAMS_ON,lights,alarm,doors,bonnet,boot,objective);
        return 1;
}

Cím: Autóbérlés 2 errort ír rá
Írta: BoSS - 2012. április 14. - 20:39:46

Idézetet írta: Casamiro date=1334427409\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"20111\" data-ipsquote-contentclass=\"forums_Topic

Itt az egész hibátlanul, megcsinálva ahogy kérted:

#include <a_samp>
#include <zcmd>
forward BerlesVege(playerid, kocsi);
public OnGameModeInit()
{
      new x = 8-1;
      for(; x++ < 18;) MotorAllitas(x);
      return 1;
}
CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid))) return SendClientMessage(playerid, -1, \"Nem ülsz bérlõs kocsiban!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, GetPlayerVehicleID(playerid));
       MotorInditas(GetPlayerVehicleID(playerid));
       return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
}
stock BerlosKocsi(v)
{
      if(v >= 8 && v <= 18) return 1;
      return 0;
}
public BerlesVege(playerid, kocsi)
{
      SendClientMessage(playerid, -1, \"Lejárt a bérlési idõ!\");
      SetVehicleToRespawn(kocsi);
      MotorAllitas(kocsi);
}
stock MotorAllitas(vehicleid)
{
new engine,lights,alarm,doors,bonnet,boot,objective;
GetVehicleParamsEx(vehicleid,engine,lights,alarm,doors,bonnet,boot,objective);
SetVehicleParamsEx(vehicleid,VEHICLE_PARAMS_OFF,lights,alarm,doors,bonnet,boot,objective);
        return 1;
}
stock MotorInditas(vehicleid)
{
new engine,lights,alarm,doors,bonnet,boot,objective;
GetVehicleParamsEx(vehicleid,engine,lights,alarm,doors,bonnet,boot,objective);
SetVehicleParamsEx(vehicleid,VEHICLE_PARAMS_ON,lights,alarm,doors,bonnet,boot,objective);
        return 1;
}

 

Kösz Casamiro megy.
Mindenkinek adtam érte + aki próbált segítséget nyújtani :)
Viszont annyi van még,hogy a pénzt nem vonja le.

Cím: Autóbérlés 2 errort ír rá
Írta: JBauer - 2012. április 14. - 20:42:06

SetPlayerMoney((GetPlayerMoney(playerid)-1500)

 Asszem, de nem biztos, teszteld le.

Cím: Autóbérlés 2 errort ír rá
Írta: Casamiro - 2012. április 14. - 20:57:58

CMD:berles(playerid, params[])
{
       if(!BerlosKocsi(GetPlayerVehicleID(playerid))) return SendClientMessage(playerid, -1, \"Nem ülsz bérlõs kocsiban!\");
       if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"A bérlés ára 1500$!\");
       SetTimerEx(\"BerlesVege\", 60*1000*20, false, \"ii\", playerid, GetPlayerVehicleID(playerid));
       MotorInditas(GetPlayerVehicleID(playerid));
       GivePlayerMoney(playerid, -1500);
       return SendClientMessage(playerid, -1, \"Jármû kibérelve! -1500$, 20 percig érvényes!\");
}

Cím: Autóbérlés 2 errort ír rá
Írta: Gabor.. - 2012. április 14. - 21:16:21

GivePlayerMoney(playerid, -1500);

 
E.: Sorry, megelõztek.