13.09.2013, 16:40
Код:
#include <a_samp>
/*
Credits to DracoBlue for the dcmd function.
*/
#define dcmd(%1,%2,%3) if ((strcmp((%3)[1], #%1, true, (%2)) == 0) && ((((%3)[(%2) + 1] == 0) && (dcmd_%1(playerid, "")))||(((%3)[(%2) + 1] == 32) && (dcmd_%1(playerid, (%3)[(%2) + 2]))))) return 1
#define yellow 0xFFFF00FF
#define MAX_HIRE_VEHICLES 100
enum hiredata
{
Hired,
Hiree,
HirePrice,
HireTime,
Temptime
}
new hData[MAX_HIRE_VEHICLES][hiredata], HireID = -1, Hire[MAX_HIRE_VEHICLES] = {-1,...} , HT[MAX_PLAYERS], pHire[MAX_PLAYERS], pHired[MAX_PLAYERS],str[128];
stock CreateRentVehicle(Modelid, Float:x, Float:y, Float:z, Float:a, Color1, Color2, price, Hiretime)
{
HireID++;
hData[HireID][HirePrice] = price;
hData[HireID][HireTime] = Hiretime;
hData[HireID][Temptime] = 0;
hData[HireID][Hiree] = 501;
hData[HireID][Hired] = 0;
Hire[HireID] = CreateVehicle(Modelid, x, y, z, a, Color1, Color2, -1);
return 1;
}
public OnFilterScriptInit()
{
print("\n--------------------------------------");
print(" Vehicle Hire System by 'Joe_' Loaded!");
print("--------------------------------------\n");
/*CreateVehicle(ModelID, X, Y, Z, Rotation, Color1, Color2, Price, Hiretime (IN MINUTES!!!!!));*/
CreateRentVehicle(451, 524.259704, -1290.022094, 16.948589, 310.302642, 15, 15, 3000, 30); // Grotti ~ Turismo Hire
CreateRentVehicle(451, 534.313842, -1290.038574, 16.948661, 314.290283, 15, 15, 3000, 30); // Grotti ~ Turismo Hire
CreateRentVehicle(506, 552.631225, -1289.209838, 16.835329, 1.806509, 15, 15, 2800, 30); // Grotti ~ SuperGT Hire
CreateRentVehicle(415, 564.112976, -1277.986083, 17.014154, 102.518310, 15, 15, 2500, 2); // Grotti ~ Cheetah Hire
for(new a = 0, b = GetMaxPlayers(); a < b; a++)
{
pHire[a] = 0;
pHired[a] = -1;
}
return 1;
}
public OnFilterScriptExit()
{
print("\n--------------------------------------");
print(" Vehicle Hire System by 'Joe_' Unloaded!");
print("--------------------------------------\n");
for(new a = 0, b = GetMaxPlayers(); a < b; a++)
{
if(pHire[a] == 1)
{
pHire[a] = 0;
pHired[a] = -1;
KillTimer(HT[a]);
}
}
for(new v; v < MAX_HIRE_VEHICLES; v++)
{
hData[v][HirePrice] = 0;
hData[v][Hiree] = 501;
hData[v][Hired] = 0;
hData[v][HireTime] = 0;
hData[v][Temptime] = 0;
if(Hire[v] == -1) continue;
else { DestroyVehicle(Hire[v]); }
}
return 1;
}
public OnPlayerConnect(playerid)
{
pHire[playerid] = 0;
pHired[playerid] = -1;
return 1;
}
public OnPlayerDisconnect(playerid, reason)
{
for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
{
if(hData[a][Hiree] == playerid)
{
hData[a][Hired] = 0;
hData[a][Hiree] = 501;
hData[a][Temptime] = 0;
pHire[playerid] = 0;
pHired[playerid] = -1;
KillTimer(HT[playerid]);
SetVehicleToRespawn(a);
}
return 1;
}
return 1;
}
public OnPlayerStateChange(playerid, newstate, oldstate)
{
if(newstate == PLAYER_STATE_DRIVER)
{
new v = GetPlayerVehicleID(playerid);
for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
{
if(v != Hire[a]) continue;
else
{
switch(hData[a][Hired])
{
case 0:
{
TogglePlayerControllable(playerid, false);
format(str,sizeof(str),"You can rent this vehicle for $%d, You will have it for %d Minutes.", hData[a][HirePrice], hData[a][HireTime]);
SendClientMessage(playerid, yellow, " ");
SendClientMessage(playerid, yellow, str);
SendClientMessage(playerid, yellow, "If you would like to rent this vehicle, type '/rent'.");
SendClientMessage(playerid, yellow, "You will have the vehicle until you type '/unrent' Or your rent time runs out.");
SendClientMessage(playerid, yellow, "If you would not like to rent this vehicle, type '/exitveh'.");
SendClientMessage(playerid, yellow, " ");
//return 1;
}
case 1:
{
if(hData[a][Hiree] == playerid)
{
SendClientMessage(playerid, yellow, "This is your rented vehicle, to unrent, type '/unrent'.");
format(str,sizeof(str),"You have %d Minutes left until your rent vehicle is returned.", hData[a][HireTime] - hData[a][Temptime]);
SendClientMessage(playerid, yellow, str);
return 1;
}
else
{
RemovePlayerFromVehicle(playerid);
SendClientMessage(playerid, yellow, "This rent vehilce does not belong to you, you've been removed from the vehicle.");
return 1;
}
}
}
return 1;
}
return 1;
}
return 1;
}
return 1;
}
forward HireTimer(playerid);
public HireTimer(playerid)
{
for(new a = 0; a < MAX_HIRE_VEHICLES; a++)
{
if(pHired[playerid] != Hire[a]) continue;
else
{
hData[a][Temptime]++;
new calc = hData[a][HireTime]-hData[a][Temptime];
if(hData[a][HireTime] >= 2 && calc == 1)
{
format(str,sizeof(str),"You have %d Minute left until your rent vehicle will be returned.", calc);
SendClientMessage(playerid, yellow, str);
}
else if(hData[a][Temptime]*60000 == hData[a][HireTime]*60000)
{
SetVehicleToRespawn(pHired[playerid]);
hData[a][Hired] = 0;
hData[a][Hiree] = 501;
hData[a][Temptime] = 0;
pHire[playerid] = 0;
pHired[playerid] = -1;
KillTimer(HT[playerid]);
TogglePlayerControllable(playerid, true);
SendClientMessage(playerid, yellow, "Your rent time has expired! You have returned the vehicle.");
return 1;
}
return 1;
}
}
return 1;
}
dcmd_hireveh(playerid, params[])
{
if(IsPlayerAdmin(playerid))
{
if(IsPlayerInAnyVehicle(playerid))
{
new Price, Color1, Color2, Time;
if(!sscanf(params, "dddd", Price, Color1, Color2, Time))
{
new Model, Float:x, Float:y, Float:z, Float:a, v = GetPlayerVehicleID(playerid);
GetVehiclePos(v, x, y, z); GetVehicleZAngle(v, a); Model = GetVehicleModel(v);
new File:hvf = fopen("HireVehicles.pwn",io_append);
format(str,sizeof(str),"CreateRentVehicle(%d, %f, %f, %f, %f, %d, %d, %d, %d);\r\n", Model, x, y, z, a, Color1, Color2, Price, Time);
SendClientMessage(playerid, yellow, "Rent vehicle saved to 'Scriptfiles/HireVehicles.pwn");
fwrite(hvf, str);
fclose(hvf);
return 1;
}
else return SendClientMessage(playerid, yellow, "Usage: /hireveh <Price> <Color1> <Color2> <Time>");
}
else return SendClientMessage(playerid, yellow, "You are not in a vehicle!");
}
return 0;
}
dcmd_exitveh(playerid, params[])
{
#pragma unused params
if(IsPlayerInAnyVehicle(playerid))
{
RemovePlayerFromVehicle(playerid);
TogglePlayerControllable(playerid, true);
}
return 1;
}
dcmd_hire(playerid, params[])
{
#pragma unused params
if(IsPlayerInAnyVehicle(playerid))
{
new v = GetPlayerVehicleID(playerid);
for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
{
if(v != Hire[a]) continue;
else
{
if(pHire[playerid] == 0)
{
if(GetPlayerMoney(playerid) >= hData[a][HirePrice])
{
GivePlayerMoney(playerid, -hData[a][HirePrice]);
hData[a][Hired] = 1;
hData[a][Hiree] = playerid;
pHire[playerid] = 1;
pHired[playerid] = v;
format(str,sizeof(str),"You have now rented this vehicle for %d Minutes for $%d.",hData[a][HireTime], hData[a][HirePrice]);
SendClientMessage(playerid, yellow, " ");
SendClientMessage(playerid, yellow, str);
SendClientMessage(playerid, yellow, "To unrent your vehicle type '/unrent'.");
SendClientMessage(playerid, yellow, "When you disconnect, you will no longer be renting this vehicle.");
SendClientMessage(playerid, yellow, "When your Rent Time runs out, you will automaticly return this vehicle.");
SendClientMessage(playerid, yellow, "Have fun with your new vehicle.");
SendClientMessage(playerid, yellow, " ");
HT[playerid] = SetTimerEx("HireTimer", 60000, 1, "i", playerid);
TogglePlayerControllable(playerid, true);
return 1;
}
else return SendClientMessage(playerid, yellow, "You don't have enough cash!");
}
else return SendClientMessage(playerid, yellow, "You already have a rent vehicle, type '/unrent' to unhire it.");
}
}
return 1;
}
else return SendClientMessage(playerid, yellow, "You are not in a Rent vehicle!");
}
dcmd_unhire(playerid, params[])
{
#pragma unused params
if(IsPlayerInAnyVehicle(playerid))
{
if(pHire[playerid] == 0)
{
SendClientMessage(playerid, yellow, "You are not renting a vehicle!");
return 1;
}
new v = GetPlayerVehicleID(playerid);
for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
{
if(v != Hire[a]) continue;
else
{
if(v == pHired[playerid])
{
hData[a][Hired] = 0;
hData[a][Hiree] = 501;
hData[a][Temptime] = 0;
pHire[playerid] = 0;
SetVehicleToRespawn(pHired[playerid]);
pHired[playerid] = -1;
TogglePlayerControllable(playerid, true);
KillTimer(HT[playerid]);
SendClientMessage(playerid, yellow,"You have returned your rent vehicle.");
}
return 1;
}
}
return 1;
}
else return SendClientMessage(playerid, yellow, "You are not in a rent vehicle!");
}
public OnVehicleDeath(vehicleid, killerid)
{
if(hData[vehicleid][Hired] == 1)
{
hData[vehicleid][Hired] = 0;
hData[vehicleid][Hiree] = 501;
hData[vehicleid][Temptime] = 0;
pHire[hData[vehicleid][Hiree]] = 0;
pHired[hData[vehicleid][Hiree]] = -1;
SetVehicleToRespawn(vehicleid);
KillTimer(HT[hData[vehicleid][Hiree]]);
SendClientMessage(hData[vehicleid][Hiree], yellow, "You have destroyed your Rent vehicle! It has been returned.");
return 1;
}
return 1;
}
public OnPlayerCommandText(playerid, cmdtext[])
{
dcmd(hireveh, 7, cmdtext);
dcmd(hire, 4, cmdtext);
dcmd(unhire, 6, cmdtext);
dcmd(exitveh, 7, cmdtext);
return 0;
}
public OnVehicleRespray(playerid, vehicleid, color1, color2)
{
for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
{
if(vehicleid != Hire[a]) continue;
else { return 0;}
}
return 1;
}
/*
Credits to ****** for the sscanf function.
*/
stock sscanf(stringx[], format[], {Float,_}:...)
{
#if defined isnull
if (isnull(stringx))
#else
if (stringx[0] == 0 || (stringx[0] == 1 && stringx[1] == 0))
#endif
{
return format[0];
}
#pragma tabsize 4
new
formatPos = 0,
stringPos = 0,
paramPos = 2,
paramCount = numargs(),
delim = ' ';
while (stringx[stringPos] && stringx[stringPos] <= ' ')
{
stringPos++;
}
while (paramPos < paramCount && stringx[stringPos])
{
switch (format[formatPos++])
{
case '\0':
{
return 0;
}
case 'i', 'd':
{
new
neg = 1,
num = 0,
ch = stringx[stringPos];
if (ch == '-')
{
neg = -1;
ch = stringx[++stringPos];
}
do
{
stringPos++;
if ('0' <= ch <= '9')
{
num = (num * 10) + (ch - '0');
}
else
{
return -1;
}
}
while ((ch = stringx[stringPos]) > ' ' && ch != delim);
setarg(paramPos, 0, num * neg);
}
case 'h', 'x':
{
new
num = 0,
ch = stringx[stringPos];
do
{
stringPos++;
switch (ch)
{
case 'x', 'X':
{
num = 0;
continue;
}
case '0' .. '9':
{
num = (num << 4) | (ch - '0');
}
case 'a' .. 'f':
{
num = (num << 4) | (ch - ('a' - 10));
}
case 'A' .. 'F':
{
num = (num << 4) | (ch - ('A' - 10));
}
default:
{
return -1;
}
}
}
while ((ch = stringx[stringPos]) > ' ' && ch != delim);
setarg(paramPos, 0, num);
}
case 'c':
{
setarg(paramPos, 0, stringx[stringPos++]);
}
case 'f':
{
new changestr[16], changepos = 0, strpos = stringPos;
while(changepos < 16 && stringx[strpos] && stringx[strpos] != delim)
{
changestr[changepos++] = stringx[strpos++];
}
changestr[changepos] = '\0';
setarg(paramPos,0,_:floatstr(changestr));
}
case 'p':
{
delim = format[formatPos++];
continue;
}
case '\'':
{
new
end = formatPos - 1,
ch;
while ((ch = format[++end]) && ch != '\'') {}
if (!ch)
{
return -1;
}
format[end] = '\0';
if ((ch = strfind(stringx, format[formatPos], false, stringPos)) == -1)
{
if (format[end + 1])
{
return -1;
}
return 0;
}
format[end] = '\'';
stringPos = ch + (end - formatPos);
formatPos = end + 1;
}
case 'u':
{
new
end = stringPos - 1,
id = 0,
bool:num = true,
ch;
while ((ch = stringx[++end]) && ch != delim)
{
if (num)
{
if ('0' <= ch <= '9')
{
id = (id * 10) + (ch - '0');
}
else
{
num = false;
}
}
}
if (num && IsPlayerConnected(id))
{
setarg(paramPos, 0, id);
}
else
{
#if !defined foreach
#define foreach(%1,%2) for (new %2 = 0; %2 < MAX_PLAYERS; %2++) if (IsPlayerConnected(%2))
#define __SSCANF_FOREACH__
#endif
stringx[end] = '\0';
num = false;
new
n[MAX_PLAYER_NAME];
id = end - stringPos;
foreach (Player, playerid)
{
GetPlayerName(playerid, n, sizeof (n));
if (!strcmp(n, stringx[stringPos], true, id))
{
setarg(paramPos, 0, playerid);
num = true;
break;
}
}
if (!num)
{
setarg(paramPos, 0, INVALID_PLAYER_ID);
}
stringx[end] = ch;
#if defined __SSCANF_FOREACH__
#undef foreach
#undef __SSCANF_FOREACH__
#endif
}
stringPos = end;
}
case 's', 'z':
{
new
i = 0,
ch;
if (format[formatPos])
{
while ((ch = stringx[stringPos++]) && ch != delim)
{
setarg(paramPos, i++, ch);
}
if (!i)
{
return -1;
}
}
else
{
while ((ch = stringx[stringPos++]))
{
setarg(paramPos, i++, ch);
}
}
stringPos--;
setarg(paramPos, i, '\0');
}
default:
{
continue;
}
}
while (stringx[stringPos] && stringx[stringPos] != delim && stringx[stringPos] > ' ')
{
stringPos++;
}
while (stringx[stringPos] && (stringx[stringPos] == delim || stringx[stringPos] <= ' '))
{
stringPos++;
}
paramPos++;
}
do
{
if ((delim = format[formatPos++]) > ' ')
{
if (delim == '\'')
{
while ((delim = format[formatPos++]) && delim != '\'') {}
}
else if (delim != 'z')
{
return delim;
}
}
}
while (delim > ' ');
return 0;
}