API tools faq
paste
Guest User

HELP!!

a guest
Nov 10th, 2017
137
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.72 KB | None | 0 0
raw download clone embed print report
  1.  
  2. #include <a_samp>
  3.  
  4. #if defined FILTERSCRIPT
  5. #define MAX_VERSLAI 500 // Maksimalus verslu skaicius, keiskit pagal poreikius
  6. #define VERSLU_SPALVA 0x00FF00FF //Tai nera butinybe, tai tik spalva kuria naudosiu visoms žinutems bei label.
  7. #define DIALOG_ACCEPT_VERSLA 5154 // Tai GUI lenteles ID(dialogid). Pas jus neturetu buti lenteles su tokiu ID, jei yra - pakeiskit ši.
  8.  
  9. enum v_info {
  10.  
  11. ORM:Ormid,
  12.  
  13. Id,
  14.  
  15. Savininkas[MAX_PLAYER_NAME],
  16.  
  17. Pavadinimas[101],
  18.  
  19. Float:EnX,
  20.  
  21. Float:EnY,
  22.  
  23. Float:EnZ,
  24.  
  25. InterjeroNr,
  26.  
  27. Kaina,
  28.  
  29. PelnasH,
  30.  
  31. Pelnas,
  32.  
  33. Locked,
  34.  
  35. Text3D:Label
  36.  
  37. };
  38.  
  39. new Verslai[MAX_VERSLAI][v_info]; //Masyvas kuriame laikysime informacija veikimo metu
  40. new i; i < MAX_VERSLAI; i++)
  41.  
  42. enum interior_info {
  43.  
  44. Float:x,
  45.  
  46. Float:y,
  47.  
  48. Float:z,
  49.  
  50. Int
  51.  
  52. };
  53.  
  54. // Tai antrasis masyvas skirtas interjerams
  55.  
  56. // Pirmieji trys skaiciai yra iejimo koordinates, o ketvirtasis tikrasis interjero ID
  57.  
  58. //Galite ju pridet neribota skaiciu
  59.  
  60. static const Interiors[][interior_info] = {
  61.  
  62. {-25.8844,-185.8689,1003.5499,17}, // 24/7 parduotves interjeras
  63.  
  64. {2233.8032,1712.2303,1011.7632,1} // Caligula kazino interjeras
  65.  
  66. };
  67.  
  68.  
  69. public OnFilterScriptInit()
  70. {
  71. print("\n--------------------------------------");
  72. print(" Blank Filterscript by your name here");
  73. print("--------------------------------------\n");
  74. return 1;
  75. }
  76.  
  77. #else
  78.  
  79. #endif
  80.  
  81. public OnGameModeInit()
  82. {
  83. // Don't use these lines if it's a filterscript
  84. SetGameModeText("Blank Script");
  85. AddPlayerClass(0, 1958.3783, 1343.1572, 15.3746, 269.1425, 0, 0, 0, 0, 0, 0);
  86. SetTimer("VersluPelnas",60*60*1000,true);
  87. return 1;
  88. }
  89.  
  90. public OnGameModeExit()
  91. {
  92. return 1;
  93. }
  94.  
  95. public OnPlayerRequestClass(playerid, classid)
  96. {
  97. SetPlayerPos(playerid, 1958.3783, 1343.1572, 15.3746);
  98. SetPlayerCameraPos(playerid, 1958.3783, 1343.1572, 15.3746);
  99. SetPlayerCameraLookAt(playerid, 1958.3783, 1343.1572, 15.3746);
  100. return 1;
  101. }
  102.  
  103. public OnPlayerConnect(playerid)
  104. {
  105. return 1;
  106. }
  107.  
  108. public OnPlayerDisconnect(playerid, reason)
  109. {
  110. return 1;
  111. }
  112.  
  113. public OnPlayerSpawn(playerid)
  114. {
  115. return 1;
  116. }
  117.  
  118. public OnPlayerDeath(playerid, killerid, reason)
  119. {
  120. return 1;
  121. }
  122.  
  123. public OnVehicleSpawn(vehicleid)
  124. {
  125. return 1;
  126. }
  127.  
  128. public OnVehicleDeath(vehicleid, killerid)
  129. {
  130. return 1;
  131. }
  132.  
  133. public OnPlayerText(playerid, text[])
  134. {
  135. return 1;
  136. }
  137.  
  138. public OnPlayerCommandText(playerid, cmdtext[])
  139. {
  140. if (strcmp("/mycommand", cmdtext, true, 10) == 0)
  141. {
  142. // Do something here
  143. return 1;
  144. }
  145. return 0;
  146. }
  147.  
  148. public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
  149. {
  150. return 1;
  151. }
  152.  
  153. public OnPlayerExitVehicle(playerid, vehicleid)
  154. {
  155. return 1;
  156. }
  157.  
  158. public OnPlayerStateChange(playerid, newstate, oldstate)
  159. {
  160. return 1;
  161. }
  162.  
  163. public OnPlayerEnterCheckpoint(playerid)
  164. {
  165. return 1;
  166. }
  167.  
  168. public OnPlayerLeaveCheckpoint(playerid)
  169. {
  170. return 1;
  171. }
  172.  
  173. public OnPlayerEnterRaceCheckpoint(playerid)
  174. {
  175. return 1;
  176. }
  177.  
  178. public OnPlayerLeaveRaceCheckpoint(playerid)
  179. {
  180. return 1;
  181. }
  182.  
  183. public OnRconCommand(cmd[])
  184. {
  185. return 1;
  186. }
  187.  
  188. public OnPlayerRequestSpawn(playerid)
  189. {
  190. return 1;
  191. }
  192.  
  193. public OnObjectMoved(objectid)
  194. {
  195. return 1;
  196. }
  197.  
  198. public OnPlayerObjectMoved(playerid, objectid)
  199. {
  200. return 1;
  201. }
  202.  
  203. public OnPlayerPickUpPickup(playerid, pickupid)
  204. {
  205. return 1;
  206. }
  207.  
  208. public OnVehicleMod(playerid, vehicleid, componentid)
  209. {
  210. return 1;
  211. }
  212.  
  213. public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
  214. {
  215. return 1;
  216. }
  217.  
  218. public OnVehicleRespray(playerid, vehicleid, color1, color2)
  219. {
  220. return 1;
  221. }
  222.  
  223. public OnPlayerSelectedMenuRow(playerid, row)
  224. {
  225. return 1;
  226. }
  227.  
  228. public OnPlayerExitedMenu(playerid)
  229. {
  230. return 1;
  231. }
  232.  
  233. public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
  234. {
  235. return 1;
  236. }
  237.  
  238. public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
  239. {
  240. if((newkeys & KEY_SECONDARY_ATTACK) && !(oldkeys & KEY_SECONDARY_ATTACK)) // Patikriname ar žaidejas paspaude "KEY_SECONDARY_ATTACK", tai yra ENTER mygtukas. Galite keisti
  241. {
  242. for(new i; i < MAX_VERSLAI; i++)
  243. {
  244. if(Verslai[i]][Id] == 0) continue; // Jeigu tai tušcia verslo masyvo dalis, praleidžiame koda apacioje ,grižtame prie ciklo.
  245. if(IsPlayerInRangeOfPoint(playerid,5.0,Verslai[i][EnX],Verslai[i][EnY],Verslai[i][EnZ])) // Jeigu žaidejas yra prie verslo iejimo
  246. {
  247. if(IsPlayerInAnyVehicle(playerid)) return 0; // Jeigu žaidejas transporto priemoneje, jam ieiti neleisime.
  248. if(Verslai[i][Locked] == 1) //Jei užrakinta
  249. {
  250. SendClientMessage(playerid,VERSLU_SPALVA,"Verslas užrakintas,pabandykite veliau");
  251. return 0;
  252. }
  253. // Dabar ir naudosime masyva "Interiors". Placiau bus po kodu.
  254. SetPlayerInterior(playerid,Interiors[Verslai[i][InterjeroNr]][Int]); //Nustatome žaidejo interjera
  255. SetPlayerPos(playerid,Interiors[Verslai[i][InterjeroNr]][x],Interiors[Verslai[i][InterjeroNr]][y],Interiors[Verslai[i][InterjeroNr]][z]);
  256. SetPlayerVirtualWorld(playerid,Verslai[i][Id]); // Nustatome virtualuuji pasauli i unikalu tam verslui skaiciu
  257. return 0;
  258. }
  259. if(GetPlayerVirtualWorld(playerid) == Verslai[i][Id]) // Jeigu žaidejo virtualusis pasaulis lygus verslo ID. (Pora eiluciu i viršu tai nustatome)
  260. {
  261. if(IsPlayerInRangeOfPoint(playerid,5.0,Interiors[Verslai[i][InterjeroNr]][x],Interiors[Verslai[i][InterjeroNr]][y],Interiors[Verslai[i][InterjeroNr]][z])) // Jeigu žaidejas yra prie išejimo
  262. {
  263. if(Verslai[i][Locked] == 1) //Jei užrakinta
  264. {
  265. SendClientMessage(playerid,VERSLU_SPALVA,"Verslas užrakintas");
  266. return 0;
  267. }
  268. SetPlayerInterior(playerid,0);
  269. SetPlayerPos(playerid,Verslai[i][EnX],Verslai[i][EnY],Verslai[i][EnZ]);
  270. SetPlayerVirtualWorld(playerid,0);
  271. return 0;
  272. }
  273. }
  274. }
  275. }
  276. return 1;
  277. }
  278.  
  279. public OnRconLoginAttempt(ip[], password[], success)
  280. {
  281. return 1;
  282. }
  283.  
  284. public OnPlayerUpdate(playerid)
  285. {
  286. return 1;
  287. }
  288.  
  289. public OnPlayerStreamIn(playerid, forplayerid)
  290. {
  291. return 1;
  292. }
  293.  
  294. public OnPlayerStreamOut(playerid, forplayerid)
  295. {
  296. return 1;
  297. }
  298.  
  299. public OnVehicleStreamIn(vehicleid, forplayerid)
  300. {
  301. return 1;
  302. }
  303.  
  304. public OnVehicleStreamOut(vehicleid, forplayerid)
  305. {
  306. return 1;
  307. }
  308.  
  309. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  310. {
  311.  
  312. if(dialogid == DIALOG_ACCEPT_VERSLA) // Jeigu tai lentele kuria parodeme komandoje
  313.  
  314. {
  315.  
  316. if(response) // Jeigu paspausta mygtukas "Pirkti"
  317.  
  318. {
  319.  
  320. if(GetPVarInt(playerid,"VersloKaina") < GetPlayerMoney(playerid)) SendClientMessage(playerid,VERSLU_SPALVA,"Jums neuztenka pinigu"); // Jeigu žaidejui neužtenka pinigu
  321.  
  322. else
  323.  
  324. {
  325.  
  326. new name[MAX_PLAYER_NAME],index = GetPVarInt(playerid,"VersloIndeksas"),str[128];
  327.  
  328. GetPlayerName(playerid,name,sizeof(name));
  329.  
  330. format(Verslai[index][Savininkas],24,name); // Perrašome savininko varda
  331.  
  332. format(str,sizeof(str),"%s\nSavininkas:%s",Verslai[index][Pavadinimas],Verslai[index][Savininkas]);
  333.  
  334. Update3DTextLabelText(Verslai[index][Label],VERSLU_SPALVA,str); //Atnaujinama teksto etikete(3D Text Label)
  335.  
  336. format(str,sizeof(str),"%s nupirko jusu versla uz %d",GetPVarInt(playerid,"KasSiuloVersla"),GetPVarInt(playerid,"VersloKaina"));
  337.  
  338. SendClientMessage(GetPVarInt(playerid,"KasSiuloVersla"),VERSLU_SPALVA,str);
  339.  
  340. }
  341.  
  342. }
  343.  
  344. //Ištriname žaidejo kintamuosius, nes kitaip jie liks atmintyje.
  345.  
  346. DeletePVar(playerid,"KasSiuloVersla");
  347.  
  348. DeletePVar(playerid,"VersloIndeksas");
  349.  
  350. DeletePVar(playerid,"VersloKaina");
  351.  
  352. return 1;
  353.  
  354. }
  355.  
  356. return 0;
  357.  
  358. }
  359.  
  360. public OnPlayerClickPlayer(playerid, clickedplayerid, source)
  361. {
  362. return 1;
  363.  
  364. }
  365.  
  366. stock RakintiVersla(versloid,bool:status)
  367. {
  368. Verslai[versloid][Locked] = (status) ? (1):(0);
  369. orm_update(Verslai[versloid][Ormid]);
  370. return 1;
  371. }
  372.  
  373. stock KrautiVerslus()
  374.  
  375. {
  376.  
  377. Db = mysql_connect("localhost","root","testas","");
  378.  
  379. mysql_tquery(Db,"SELECT * FROM `verslai`","OnVerslaiLoad",""); //Išsiunciame užklausa i duomenu baze, ir nurodome kad grižus užklausa iškviestu funkcija "OnVerslaiLoad"
  380.  
  381. return 1;
  382.  
  383. }
  384.  
  385. forward VersluPelnas();
  386. public VersluPelnas()
  387. {
  388. for(new i; i < MAX_VERSLAI; i++)
  389. {
  390. if(Verslai[i][Id] != 0) continue;
  391. Verslai[i][Pelnas] += Verslai[i][PelnasH]; // Prideda pelna
  392. orm_update(Verslai[i][Ormid]); // Išsaugo viska i duomenu baze
  393. }
  394. }
  395.  
  396. forward OnVerslaiLoad();
  397.  
  398. public OnVerslaiLoad()
  399.  
  400. {
  401.  
  402. new str[128];
  403.  
  404. for(new i; i < cache_get_row_count(); i++) // cache_get_row_count reiškia eiluciu skaiciu
  405.  
  406. {
  407.  
  408. Verslai[i][Ormid] = orm_create("verslai"); // Sukuriame orm ryši su verslu lentele
  409.  
  410. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Id],"Id"); //Pridedame stulpeli "id" prie ryšio
  411.  
  412. orm_setkey(Verslai[i][Ormid],"Id"); // Nustatome kad eilutes duomenu bazeje bus skiriamos pagal ši sulpeli
  413.  
  414. orm_addvar_string(Verslai[i][Ormid],Verslai[i][Savininkas],MAX_PLAYER_NAME,"Savininkas"); // Pridedame stulpeli "savininkas" prie ryšio
  415.  
  416. orm_addvar_string(Verslai[i][Ormid],Verslai[i][Pavadinimas],101,"Pavadinimas");
  417.  
  418. orm_addvar_float(Verslai[i][Ormid],Verslai[i][EnX],"EnX");
  419.  
  420. orm_addvar_float(Verslai[i][Ormid],Verslai[i][EnY],"EnY");
  421.  
  422. orm_addvar_float(Verslai[i][Ormid],Verslai[i][EnZ],"EnZ");
  423.  
  424. orm_addvar_int(Verslai[i][Ormid],Verslai[i][InterjeroNr],"InterjeroNr");
  425.  
  426. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Kaina],"Kaina");
  427.  
  428. orm_addvar_int(Verslai[i][Ormid],Verslai[i][PelnasH],"PelnasH");
  429.  
  430. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Pelnas],"Pelnas");
  431.  
  432. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Locked],"Locked");
  433.  
  434. //Eilutes prie šia neturi komentaru kadangi veiksmas kartojasi. Dvi eilutes yra pakomentuotos
  435.  
  436.  
  437.  
  438. orm_apply_cache(Verslai[i][Ormid],i); // Tai užkraus duomenis i kintamuosius susietus višuje.
  439.  
  440. if(isnull(Verslai[i][Savininkas])) format(str,sizeof(str),"Verslas parduodamas\nKaina:%d\nValandos pelnas:%d",
  441.  
  442. Verslai[i][Kaina],Verslai[i][PelnasH]);
  443.  
  444. else format(str,sizeof(str),"%s\nSavininkas:%s",Verslai[i][Pavadinimas],Verslai[i][Savininkas]);
  445.  
  446. //Kodas viršuje nustatys ar verslas turi savininka ar ne, atitinkamai pagal tai suformatuos žinute teksto etiketei(3DTextLabel)
  447.  
  448.  
  449.  
  450. Verslai[i][Label] = Create3DTextLabel(str,VERSLU_SPALVA,Verslai[i][EnX],Verslai[i][EnY],Verslai[i][EnZ],25.0,0,1);//Sukuriame mineta etikete. Parametras po Z koordinates reiškia atsuma kuriuo bus matoma etikete
  451.  
  452. }
  453.  
  454. return 1;
  455.  
  456. }
  457.  
  458. //Funkcija tikrins ar žaidejas yra prie verslo iejimo.
  459.  
  460. stock IsPlayerInRangeOfVerslas(playerid,Float:distance=5.0) // Antras parametras nebutinas, jei jo nebus vietoj jo naudosime skaiciu 5.0
  461.  
  462. {
  463.  
  464. for(new i; i < MAX_VERSLAI; i++)
  465.  
  466. {
  467.  
  468. if(Verslai[i][Id] == 0) continue;
  469.  
  470. if(IsPlayerInRangeOfPoint(playerid,distance,Verslai[i][EnX],Verslai[i][EnY],Verslai[i][EnZ])) return i; // Jeigu žaidejas yra nurodytu atstumu prie verslo iejimo gražinsime masyvo indeksa
  471.  
  472. }
  473.  
  474. return -1; // Jeigu žaidejas nera prie jokio iejimo gražiname -1, kas yra netinkamas masyvo indeksas.
  475.  
  476. }
  477.  
  478. //Funkcija patikrins ar žaidejas yra verslo savininkas.
  479.  
  480. //Atkreipkite demesi jog duodame ne verslo unikalu Id, o verslo masyvo indeksa.
  481.  
  482. stock VersloSavininkas(playerid,vid)
  483.  
  484. {
  485.  
  486. new name[MAX_PLAYER_NAME];
  487.  
  488. GetPlayerName(playerid,name,sizeof(name));
  489.  
  490. if(!isnull(Verslai[vid][Savininkas]) && !strcmp(Verslai[vid][Savininkas],name)) return true; // Jeigu masyvo dalis "savininkas" ne tušcias ir sutampa su žaidejo vardu, reiškia jis savininkas
  491.  
  492. return false;
  493.  
  494. }
  495.  
  496.  
  497. //Komandos
  498. CMD:rakintiversla(playerid)
  499.  
  500. {
  501.  
  502. new verslas = IsPlayerInRangeOfVerslas(playerid,5.0);
  503.  
  504. if(verslas == -1) return SendClientMessage(playerid,VERSLU_SPALVA,"Turite buti prie verslo iejimo");
  505.  
  506. if(!VersloSavininkas(playerid,verslas)) return SendClientMessage(playerid,VERSLU_SPALVA,"Tai ne jusu verslas!");
  507.  
  508. if(Verslai[verslas][Locked] == 0) // Jei atrakinta
  509.  
  510. {
  511.  
  512. RakintiVersla(verslas,true);
  513.  
  514. SendClientMessage(playerid,VERSLU_SPALVA,"Verslas uzrakintas");
  515.  
  516. return 1;
  517.  
  518. }
  519.  
  520. if(Verslai[verslas][Locked] == 1) //Jei užrakinta
  521.  
  522. {
  523.  
  524. RakintiVersla(verslas,false);
  525.  
  526. SendClientMessage(playerid,VERSLU_SPALVA,"Verslas atrakintas");
  527.  
  528. return 1;
  529.  
  530. }
  531.  
  532. return 1;
  533.  
  534. }
  535.  
  536. CMD:keistipavadinima(playerid,params[])
  537.  
  538. {
  539.  
  540. new verslas = IsPlayerInRangeOfVerslas(playerid,5.0),pav[101];
  541.  
  542. if(verslas == -1) return SendClientMessage(playerid,VERSLU_SPALVA,"Turite buti prie verslo iejimo");
  543.  
  544. if(!VersloSavininkas(playerid,verslas)) return SendClientMessage(playerid,VERSLU_SPALVA,"Tai ne jusu verslas!");
  545.  
  546. if(sscanf(params,"s[101]",pav)) return SendClientMessage(playerid,VERSLU_SPALVA,"Naudojimas /keistipavadinima [Naujas pavadinimas]");
  547.  
  548. strdel(Verslai[verslas][Pavadinimas],0,101); //Ištriname senaji pavadinima
  549.  
  550. strins(Verslai[verslas][Pavadinimas],pav,0,101); // Irašome nauja pavadinima
  551.  
  552. format(pav,sizeof(pav),"%s\nSavininkas:%s",Verslai[verslas][Pavadinimas],Verslai[verslas][Savininkas]);
  553.  
  554. Update3DTextLabelText(Verslai[verslas][Label],VERSLU_SPALVA,pav); //Atnaujiname teksto etikte(3DTextLabel)
  555.  
  556. orm_update(Verslai[verslas][Ormid]);//Atnaujiname duomenis duomenu bazeje.
  557.  
  558. return 1;
  559.  
  560. }
  561.  
  562. CMD:pridetiversla(playerid,params[])
  563.  
  564. {
  565.  
  566. new interjeras,kaina,pelnas,Float:pos[3],query[150];
  567.  
  568. if(sscanf(params,"ddd",interjeras,kaina,pelnas)) return SendClientMessage(playerid,VERSLU_SPALVA,"Naudojimas /pridetiversla [InterjeroNr] [Kaina] [Valandos pelnas]");
  569.  
  570. if(interjeras > sizeof(Interiors) || interjeras < 0) return SendClientMessage(playerid,VERSLU_SPALVA,"Tokio interjero nera!"); // Jeigu masyve interjero su nurodytu numeriu nera
  571.  
  572. GetPlayerPos(playerid,pos[0],pos[1],pos[2]);
  573.  
  574. format(query,sizeof(query),"INSERT INTO `verslai` (EnX,EnY,EnZ,InterjeroNr,Kaina,PelnasH)VALUES(%f,%f,%f,%d,%d,%d)",
  575.  
  576. pos[0],pos[1],pos[2],interjeras,kaina,pelnas); // formatuojame užklausa: iašyti duomenis i lentele "verslai"
  577.  
  578. mysql_tquery(Db,query,"OnPridejusVersla",""); // Išsiunciame užklausa, ir jai gryžus nurodome iškviesti funkcija "OnPridejusVersla"
  579.  
  580. return 1;
  581.  
  582. }
  583.  
  584. forward OnPridejusVersla();
  585.  
  586. public OnPridejusVersla()
  587.  
  588. {
  589.  
  590. new i = GetFreeVersloIndex(),str[100]; //Ka daro funkcija "GetFreeVersloIndex" žiurekite žemiau
  591.  
  592. Verslai[i][Id] = cache_insert_id(); // Ši funkcija gražina sekanti "Auto incremented" stulpelio skaiciu.
  593.  
  594.  
  595.  
  596. //Atliekame tuos pacius veiksmus kaip kraunant, todel ju nekomentuosiu.
  597.  
  598. //Na gerai, tik pagrindinius dalykus
  599.  
  600. Verslai[i][Ormid] = orm_create("verslai"); // Sukuriame ryši su lentele "verslai"
  601.  
  602. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Id],"Id");
  603.  
  604. orm_setkey(Verslai[i][Ormid],"Id"); // Nustatome kad eilutes skirsime pagal stulpeli "Id"
  605.  
  606. orm_addvar_string(Verslai[i][Ormid],Verslai[i][Savininkas],MAX_PLAYER_NAME,"Savininkas");
  607.  
  608. orm_addvar_string(Verslai[i][Ormid],Verslai[i][Pavadinimas],101,"Pavadinimas");
  609.  
  610. orm_addvar_float(Verslai[i][Ormid],Verslai[i][EnX],"EnX");
  611.  
  612. orm_addvar_float(Verslai[i][Ormid],Verslai[i][EnY],"EnY");
  613.  
  614. orm_addvar_float(Verslai[i][Ormid],Verslai[i][EnZ],"EnZ");
  615.  
  616. orm_addvar_int(Verslai[i][Ormid],Verslai[i][InterjeroNr],"InterjeroNr");
  617.  
  618. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Kaina],"Kaina");
  619.  
  620. orm_addvar_int(Verslai[i][Ormid],Verslai[i][PelnasH],"PelnasH");
  621.  
  622. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Pelnas],"Pelnas");
  623.  
  624. orm_addvar_int(Verslai[i][Ormid],Verslai[i][Locked],"Locked");
  625.  
  626.  
  627.  
  628. orm_apply_cache(Verslai[i][Ormid],i);//Užkrauname duomenis i nurodytas masyvo dalis.
  629.  
  630.  
  631.  
  632. format(str,sizeof(str),"Verslas parduodamas\nKaina:%d\nValandos pelnas:%d",Verslai[i][Kaina],Verslai[i][PelnasH]);
  633.  
  634. Verslai[i][Label] = Create3DTextLabel(str,VERSLU_SPALVA,Verslai[i][EnX],Verslai[i][EnY],Verslai[i][EnZ],25,0,1);
  635.  
  636. return 1;
  637.  
  638. }
  639.  
  640. //Funkcija suranda laisva "Verslai" masyvo dali naujiems irašams.
  641.  
  642. stock GetFreeVersloIndex()
  643.  
  644. {
  645.  
  646. for(new i; i < MAX_VERSLAI; i++)
  647.  
  648. {
  649.  
  650. if(Verslai[i][Id] == 0) return i; // Jeigu Id yra nulis (ko naudojamoje dalyje buti negali) gražiname ji.
  651.  
  652. }
  653.  
  654. return -1;
  655.  
  656. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!