Főoldal
Fórum
Bejelentkezés
Regisztráció
Friss hírek
Információ
GTA Közösség – Megszokott arculattal.
Keresés a fórumon
GTA Közösség - A magyar GTA fórum
»
San Andreas Multiplayer (SA-MP)
»
SA-MP: Szerverfejlesztés
»
Szkript kérések
»
Fizetés bug
« előző
következő »
Nyomtatás
Oldalak: [
1
]
Le
Szerző
Téma: Fizetés bug (Megtekintve 706 alkalommal)
sz18k
87
Fizetés bug
«
Dátum:
2011. augusztus 21. - 09:46:28 »
0
Voters list:
Van egy fizetés rendszerem, de nem mûködik, más játékmódokban hasonlóan van megcsinálva, és ott tökéletesen mûködik minden, kérlek segítsetek!
Ez a fizetésrendszer:
[pawn]public PayDay()
{
new string[128];
new account,interest;
new rent = 0;
for(new i = 0; i < MAX_PLAYERS; i++)
{
if(IsPlayerConnected(i) && !IsPlayerNPC(i))
{
if(PlayerInfo
[pLevel] > 0)
{
if(MoneyMessage
==1)
{
new bank = PlayerInfo
[pAccount];
SendClientMessage(i, COLOR_LIGHTRED, \"Nem tudtad kifizetni a tartozásod, ezért börtönbe kerültél.\");
GameTextForPlayer(i, \"~r~Letartóztattak!\", 2000, 1);
SafeSetPlayerInterior(i, 6);
SafeSetPlayerPos(i, 264.6288,77.5742,1001.0391);
PlayerInfo
[pJailed] = 1;
SafeResetPlayerWeapons(i);
SafeResetPlayerMoney(i);
SafeGivePlayerMoney(i, 1);
WantedPoints
= 0;
PlayerInfo
[pAccount] = (bank + DebtMoney
);
DebtMoney
= 0;
PlayerInfo
[pJailTime] = 240;
TextDrawShowForPlayer(i, Textdraw1
);
format(string, sizeof(string), \"Börtönbe zártak %d másodpercre. Óvadék: Nincs\", PlayerInfo
[pJailTime]);
SendClientMessage(i, COLOR_WHITE, string);
}
new playername2[MAX_PLAYER_NAME];
GetPlayerName(i, playername2, sizeof(playername2));
account = PlayerInfo
[pAccount];
new key = PlayerInfo
[pPhousekey];
if(key != 9999)
{
rent = HouseInfo[key][hRent];
if(strcmp(playername2, HouseInfo[key][hOwner], true) == 0)
{
rent = 0;
}
else if(rent > GetPlayerMoney(i))
{
PlayerInfo
[pPhousekey] = 9999;
SendClientMessage(i, COLOR_WHITE, \"Kilakoltattak.\");
rent = 0;
}
HouseInfo[key][hTakings] = HouseInfo[key][hTakings]+rent;
}
new tmpintrate;
if (key != 999 && strcmp(playername2, HouseInfo[key][hOwner], true) == 0)
{
if(PlayerInfo
[pRegularRank] > 0) { tmpintrate = intrate+4; }
else { tmpintrate = intrate+2; }//HouseInfo[key][hLevel]
}
else
{
if(PlayerInfo
[pRegularRank] > 0) { tmpintrate = 3; }
else { tmpintrate = 1; }
}
if(PlayerInfo
[pPayDay] >= 5)
{
Tax += TaxValue;//Should work for every player online
PlayerInfo
[pAccount] -= TaxValue;
new checks = PlayerInfo
[pPayCheck] / 5;
if(PlayerInfo
[pRegularRank] > 0)
{
new bonus = PlayerInfo
[pPayCheck] / 10;
checks += bonus;
}
new ebill = (PlayerInfo
[pAccount]/10000)*(PlayerInfo
[pLevel]);
account += checks;
if(PlayerInfo
[pAccount] > 0)
{
PlayerInfo
[pAccount] -= ebill;
SBizzInfo[4][sbTill] += ebill;
}
else
{
ebill = 0;
}
interest = (PlayerInfo
[pAccount]/1000)*(tmpintrate);
PlayerInfo
[pExp]++;
PlayerPlayMusic(i);
PlayerInfo
[pAccount] = account+interest;
SendClientMessage(i, COLOR_GREEN, \"|___BANKI NYILATKOZAT___|\");
format(string, sizeof(string), \" Fizetés: $%d Adó: -$%d\", checks, TaxValue);
SendClientMessage(i, COLOR_WHITE, string);
if(PlayerInfo
[pPhousekey] != 9999 || PlayerInfo
[pPbiskey] != 9999)
{
format(string, sizeof(string), \" Villanyszámla: -$%d\", ebill);
SendClientMessage(i, COLOR_GRAD1, string);
}
format(string, sizeof(string), \" Egyenleg: $%d\", account - checks);
SendClientMessage(i, COLOR_WHITE, string);
format(string, sizeof(string), \" Kamatláb: 0.%d százalék\",tmpintrate);
SendClientMessage(i, COLOR_GRAD2, string);
format(string, sizeof(string), \" Kamatozott összeg: $%d\", interest);
SendClientMessage(i, COLOR_GRAD3, string);
SendClientMessage(i, COLOR_GREEN, \"|--------------------------------------|\");
format(string, sizeof(string), \" Új egyenleg: $%d\", PlayerInfo
[pAccount]);
SendClientMessage(i, COLOR_GRAD5, string);
format(string, sizeof(string), \" Bérlés: -$%d\", rent);
SendClientMessage(i, COLOR_GRAD5, string);
format(string, sizeof(string), \"~y~Fizetés~n~~w~Csekkek fizetve a számládra\");
GameTextForPlayer(i, string, 5000, 1);
rent = 0;
PlayerInfo
[pPayDay] = 0;
PlayerInfo
[pPayCheck] = 0;
PlayerInfo
[pConnectSeconds] += 1;
if(FarmerVar
== 0)
{
FarmerPickup
= 0;
}
if(DrugFarmerVar
== 0)
{
DrugFarmerPickup
= 0;
}
if(SmugglerWork
== 0)
{
PayDaySecure
= 0;
}
if(PlayerInfo
[pRegularRank] > 0)
{
PlayerInfo
[pPayDayHad] += 1;
if(PlayerInfo
[pPayDayHad] >= 5)
{
PlayerInfo
[pExp]++;
PlayerInfo
[pPayDayHad] = 0;
}
}
}
else
{
SendClientMessage(i, COLOR_WHITE, \"* Nem játszottál eleget, hogy fizetést kapj.\");
}
}
}
}
SaveAccounts();
new rand = random(2500); rand += 1245;
Jackpot += rand;
SaveStuff();
SaveAnticheat();
format(string, sizeof(string), \"Lottó hírek: Az nyereményösszeg $%d-ra emelkedett.\", Jackpot);
OOCOff(COLOR_WHITE, string);
return 1;
}[/pawn]
Plusz még ami hozzá kapcsolódik:
[pawn]public SyncTime()
{
new string[128];
new tmphour;
new tmpminute;
new tmpsecond;
gettime(tmphour, tmpminute, tmpsecond);
FixHour(tmphour);
tmphour = shifthour;
if ((tmphour > ghour) || (tmphour == 0 && ghour == 23))
{
// format(string, sizeof(string), \"Szerver: Az idõ most %d:00 óra\",tmphour);
// BroadCast(COLOR_WHITE,string);
ghour = tmphour;
PayDay();
if (realtime)
{
SetWorldTime(tmphour);
}
format(string, sizeof(string), \"~y~Lottó!! ~n~~w~Válassz számot ~n~~p~/lotto 1-80 ~g~($100) ~n~~r~Nyeremény: ~g~$%d\", Jackpot);
if(TD3D == 1)
{
KillTimer(HideTD4Timer);
TextDrawHideForAll(TD3);
TextDrawSetString(TD3, string);
TextDrawShowForAll(TD3);
HideTD4Timer = SetTimer(\"HideTD4\", 8500, false);
}
else
{
TextDrawSetString(TD3, string);
TextDrawShowForAll(TD3);
TD3D = 1;
HideTD4Timer = SetTimer(\"HideTD4\", 8500, false);
}
SetTimer(\"StartLotto\",20000,false);
}
}
[/pawn]
[pawn]public Production()
{
new string[128];
for(new i = 0; i < MAX_PLAYERS; i++)
{
if(IsPlayerConnected(i))
{
<
Naplózva
[HUN]0.3c Scripter
403
Fizetés bug
«
Válasz #1 Dátum:
2011. augusztus 22. - 08:56:01 »
0
Voters list:
Elsõ Pawn:(PayDay)
[pawn]
D:\\GTA SERVER\\PAYDAY.pwn(1) : warning 235: public function lacks forward declaration (symbol \"PayDay\")
D:\\GTA SERVER\\PAYDAY.pwn(6) : error 017: undefined symbol \"MAX_PLAYERS\"
D:\\GTA SERVER\\PAYDAY.pwn(
: error 017: undefined symbol \"IsPlayerConnected\"
D:\\GTA SERVER\\PAYDAY.pwn(10) : error 017: undefined symbol \"PlayerInfo\"
D:\\GTA SERVER\\PAYDAY.pwn(10) : warning 215: expression has no effect
D:\\GTA SERVER\\PAYDAY.pwn(10) : error 001: expected token: \";\", but found \"]\"
D:\\GTA SERVER\\PAYDAY.pwn(10) : error 029: invalid expression, assumed zero
D:\\GTA SERVER\\PAYDAY.pwn(10) : fatal error 107: too many error messages on one line
Compilation aborted.Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase
6 Errors.[/pawn]
Itt valami nem jó ...
\
Naplózva
sz18k
87
Fizetés bug
«
Válasz #2 Dátum:
2011. augusztus 22. - 11:52:20 »
0
Voters list:
Ha külön SF-be próbálod meg persze, hogy nem jó, mivel ez a Raven\'s-ben van...
Dupla hozzászólás automatikusan összefûzve. ( 2011. augusztus 24. - 09:05:18 )
Megjavítva, zárok!!
«
Utoljára szerkesztve: 2011. augusztus 24. - 09:05:18 írta konorbi
»
Naplózva
Nyomtatás
Oldalak: [
1
]
Fel
« előző
következő »
GTA Közösség - A magyar GTA fórum
»
San Andreas Multiplayer (SA-MP)
»
SA-MP: Szerverfejlesztés
»
Szkript kérések
»
Fizetés bug
ePrivacy and GPDR Cookie Consent by CookieConsent.com
SimplePortal 2.3.7 © 2008-2024, SimplePortal