M
mariomako
Гостин
Програмира некој во pawno?
еве некои мои скриптички
за тие што незнаат pawno е програмски јазик за програмирање гејм мод скрипти скрипти за Сан Андреас Мулти Плејер
еве некои мои скриптички
Код:
// Kupi oruzje by: Mario Velickovski //
#include <a_samp>
#define COLOR_LIGHTGREEN 0x9ACD32AA
#define COLOR_GREEN 0x33AA33AA
forward oruzjezatvori();
new oruzje;
new oruzjekapija;
public OnFilterScriptInit()
{
Create3DTextLabel("Napisete /oruzje za da kupite oruzje",COLOR_LIGHTGREEN,1295.7725,-985.9200,32.6953,10.0, 0);
Create3DTextLabel("Za da gi otvorite vrata napisete /oo",COLOR_LIGHTGREEN,1284.7528,-964.9398,34.6328,10.0, 0);
oruzjekapija = CreateObject(11313, 1287.8620605469, -966.70947265625, 34.456932067871, 0, 0, 268.69067382813);
CreateObject(1508, 1288.1148681641, -1005.7972412109, 31.47639465332, 0, 0, 268.69067382813);
CreateObject(2567, 1294.5422363281, -980.01519775391, 33.622913360596, 0, 0, 0);
CreateObject(3576, 1286.4056396484, -990.49786376953, 33.187984466553, 0, 0, 272.66064453125);
CreateObject(3577, 1286.6195068359, -986.44213867188, 32.477821350098, 0, 0, 0);
CreateObject(939, 1295.6900634766, -991.65991210938, 34.138538360596, 0, 0, 0);
CreateObject(931, 1297.3397216797, -985.93072509766, 31.705368041992, 0, 0, 85.3544921875);
CreateObject(2035, 1297.24609375, -985.03704833984, 32.800601959229, 0, 0, 356.03002929688);
CreateObject(2036, 1297.2840576172, -985.47943115234, 32.810089111328, 0, 0, 358.01501464844);
CreateObject(2044, 1297.5191650391, -985.85437011719, 32.803699493408, 0, 0, 0);
CreateObject(2034, 1296.8255615234, -986.17193603516, 32.806983947754, 0, 0, 0);
CreateObject(2035, 1297.1436767578, -986.46319580078, 32.800601959229, 0, 0, 0);
CreateObject(2037, 1297.2557373047, -986.86755371094, 32.848526000977, 0, 0, 15.8798828125);
return 1;
}
public OnPlayerCommandText(playerid, cmdtext[])
{
if(strcmp(cmdtext, "/oruzje", true) == 0)
{
if(IsPlayerInRangeOfPoint(playerid, 5.0,1295.7725,-985.9200,32.6953))
{
ShowPlayerDialog(playerid,oruzje, DIALOG_STYLE_LIST, "Odberete oruzje:", "SDPistol 100$\nDeagle 100$\nSawnOff 200$\nM4 250$\nAK47 250$\nRifle 300$\nTec9 150$\nUZI 150$\nMp5 150$\nC4 bomba 500$", "Kupi", "Otkazi");
}
return 1;
}
if (strcmp("/oo", cmdtext, true, 10) == 0)
{
MoveObject(oruzjekapija,1287.8620605469, -966.70947265625, 31.206932067871, 2.00);
SetTimer("oruzjezatvori", 2000, 0);
SendClientMessage(playerid,COLOR_GREEN,"Strazarot vi gi otvori vratata, mozete da vlezete...");
return 1;
}
return 0;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == oruzje)
{
if(response)
{
if(listitem == 0)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte SDPistol so 100 kursumi za 100$.");
GivePlayerWeapon(playerid,23,100);
GivePlayerMoney(playerid,-100);
}
if(listitem == 1)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte Deagle so 100 kursumi za 100$.");
GivePlayerWeapon(playerid,24,100);
GivePlayerMoney(playerid,-100);
}
if(listitem == 2)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte SawnOff so 100 kursumi za 200$.");
GivePlayerWeapon(playerid,26,100);
GivePlayerMoney(playerid,-200);
}
if(listitem == 3)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte M4 so 100 kursumi za 250$.");
GivePlayerWeapon(playerid,31,100);
GivePlayerMoney(playerid,-250);
}
if(listitem == 4)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte AK47 so 100 kursumi za 250$.");
GivePlayerWeapon(playerid,30,100);
GivePlayerMoney(playerid,-250);
}
if(listitem == 5)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte Rifle so 100 kursumi za 300$.");
GivePlayerWeapon(playerid,33,100);
GivePlayerMoney(playerid,-300);
}
if(listitem == 6)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte Tec9 so 100 kursumi za 150$.");
GivePlayerWeapon(playerid,32,100);
GivePlayerMoney(playerid,-150);
}
if(listitem == 7)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte UZI so 100 kursumi za 150$.");
GivePlayerWeapon(playerid,28,100);
GivePlayerMoney(playerid,-150);
}
if(listitem == 8)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte Mp5 so 100 kursumi za 150$.");
GivePlayerWeapon(playerid,29,100);
GivePlayerMoney(playerid,-150);
}
if(listitem == 9)
{
SendClientMessage(playerid,COLOR_GREEN,"Kupivte C4 Bomba za 500$.");
GivePlayerWeapon(playerid,39,1);
GivePlayerWeapon(playerid,40,1);
GivePlayerMoney(playerid,-500);
}
}
}
return 1;
}
public oruzjezatvori()
{
MoveObject(oruzjekapija,1287.8620605469, -966.70947265625, 34.456932067871, 2.00);
return 1;
}за тие што незнаат pawno е програмски јазик за програмирање гејм мод скрипти скрипти за Сан Андреас Мулти Плејер
)
