[Pamoka] Namų sistemos kūrimas

[Skripterissssss]

Sveiki, po ilgo laiko tarpo vėl nusprendžiau sukurti kažką naudingo. Šiandien parodysiu kaip susikurti paprastą namų sistemą.

Pamokai reikalingos bus dvi bibliotekos: Dini. Žinau, kad sena sena sistema ir veikia gana lėtai, tačiau čia jos pilnai pakaks ir ZCMD jo pagalba optimizuosime savo komandas

Taigi pradėsime:

Pirmas etapas: susikuriame enuma(kintamųjų bloką) jame talpinsime kintamuosius, susikurkime define su namu skaiciumi ir priskirkime bibliotekas

Kodas: [ Atsisiūsti ] [ Slėpti ]

• #include "Dini"
  
• #include "zcmd"
  

Kodas: [ Atsisiūsti ] [ Slėpti ]

• #define MAX_NAMU 100 // 100 - namų skaičius paprasta kaip 2x2
  

Kodas: [ Atsisiūsti ] [ Slėpti ] [ Pasirinkti ] [ Išskleisti ]

• enum namoinfo
  
  
• {
  
  
• NamoPavadinimas[60], // Saugojimui i failą
  
  
• NamoKaina, // Kaina
  
  
• NamoSavininkas[24],
  
  
• Float:PickupX, // Pickupo X'as
  
  
• Float:PickupY, // Pickup Y'ikas
  
  
• Float:PickupZ, // Pickupo Z'tas
  
  
• Float:TeleX, // Teleportavimo X
  
  
• Float:TeleY, // Teleportavimo Y
  
  
• Float:TeleZ, // Teleportavimo Z
  
  
• Interior, // namo vidus
  
  
• PardavimoKaina // Pardavimo kaina
  
  
• Nupirkta, // tikrinsime ar nupirkta
  
  
• Virtual, // Virtualus pasaulis
  
  
• };
  
  
• new HInfo[MAX_NAMU][namoinfo]; // sutalpiname į vieną kintamąjį
  
  
• // Dar keletas kintamųjų
  
  
• 
  
• 
  
• 
  
• new KiekNamu = -1; // Šiuo kintamuoju skaičiuosime kiek yra namų
  
  
• new PickupID[MAX_NAMU]; // Sukuriame kiekvienam namui po pickup
  
  
• new Namuose[MAX_PLAYERS] = -1;
  

Su kintamaisiais baigeme, dabar eisime prie stocko kitaip sakant callbacko jame panaudosime visus sukurtus kintamuosius

Kodas: [ Atsisiūsti ] [ Slėpti ] [ Pasirinkti ] [ Išskleisti ]

• stock KurtiNama(FailoPavadinimas, Kaina, Float:Pickupx, Float:Pickupy, Float:Pickupz, Float:Telex, Float:Teley,Float:Telez, interior, pardavimas) // kai kursime nama panaudosime
  
  
• {
  
  
• if(!dini_Exists("Savininkai.ini")) // tikriname ar yra failas jei ne aišku, kad jį reikia sukurti
  
  
• {
  
  
• dini_Create("Savininkai.ini"); // sukuriame failą
  
  
• }
  
  
• KiekNamu ++; // pliusuojame namus
  
  
• new ID = KiekNamu; // Kintamasis namo skirtas namo ID
  
  
• format(HInfo[iD][NamoPavadinimas], 60, "%s", FailoPavadinimas); // Saugojame namo pavadinimą į kintamąjį
  
  
• HInfo[iD][NamoKaina] = Kaina; // sulyginame kintamąjį iš enum su callback kintamuoju
  
  
• HInfo[iD][PickupX] = Pickupx;
  
  
• HInfo[iD][Virtual] = 200000 + ID; // supliusuojame su ID
  
  
• Hinfo[iD][PickupY] = Pickupy;
  
  
• Hinfo[iD][PickupZ] = Pickupz;
  
  
• Hinfo[iD][TeleX] = Telex;
  
  
• Hinfo[iD][TeleY] = Teley;
  
  
• Hinfo[iD][TeleZ] = Telez;
  
  
• HInfo[iD][interior] = interior;
  
  
• HInfo[iD][PardavimoKaina] = pardavimas; // sulyginame pardavimo kainos kintamaji su callbacke esanciu
  
  
• format(HInfo[iD][NamoSavininkas], 24, "gj9043jg-er((23); // Užimame visus simbolius, kitap sakant užšifruojame
  
  
• if(strlen(dini_Get("Savininkai.ini", FailoPavadinimas))) // tikriname ar yra nors koks savininkas
  
  
• {
  
  
• format(HInfo[iD][NamoSavininkas], 24, "%s", dini_Get("Savininkai.ini", FailoPavadinimas)); // jei yra savininkas jo varda užkrauname iš failo
  
  
• HInfo[iD][Nupirkta] = 1; // nustatome, kad namas yra nupirktas
  
  
• }
  
  
• PickupID[iD] = CreatePickup(1273, 2, Pickupx, Pickupy, Pickupz, - 1); // Sukuriame pickupa
  
  
• Create3DTextLabel("Namas", 0xAA3333AA, Pickupx, Pickupy,Pickupz + 0.75, 15.0, 0, 1); // sukuriame text labeli, pickupo z koordinatę pakeliame aukštyn tam kad gautūsi nesulig pickupu
  
  
• }
  

Iš tikrųjų jau pavargau kurti pamoką, bet kaip sakoma ką pradėjai tą ir užbaik. Dabar keliaujame prie OnPlayerPickUpPickup(playerid, pickupid) callbacko

Kodas: [ Atsisiūsti ] [ Slėpti ] [ Pasirinkti ] [ Išskleisti ]

• public OnPlayerPickUpPickup(playerid, pickupid)
  
  
• {
  
  
• for(new N; N<MAX_NAMU; N++) // suskaičiuojame visus esančius namus
  
  
• {
  
  
• if(pickupid == PickupID[N]) // patikriname ar atitinka mūsų pickup'as
  
  
• {
  
  
• new String[75]; // sukuriame kintamąjį į kurį talpinsime tekstą
  
  
• if(HInfo[N][Nupirkta] == 1) // jei namas nupirktas
  
  
• {
  
  
• format(String, 75, "~g~ Namo Informacija~n~~r~Savininkas: ~w~%s", HInfo[N][NamoSavininkas]); // jeigu yra savininkas jį parodome
  
  
• }
  
  
• if(HInfo[N][Nupirkta] == 0) // jei namas nenupirktas
  
  
• {
  
  
• format(String, 75, "~g~ Namo Informacija ~n~~r~Savininkas: ~w~Nera"); // jeigu nėra savininko tai ir parašome, kad jo nėra
  
  
• SendClientMessage(playerid, 0xAA3333AA, "Šis namas parduodamas. Rašykite /pirkti kad nusipirktumėte"); // siunčiame žinutę kad namas nenupirktas
  
  
• }
  
  
• new StringA[100]; // sukuriame antrąjį kintamąjį į kurį talpinsime tekstą
  
  
• format(StringA, 100, "~g~ Pirkimo Kaina: ~w~ %i ~n~~g~Pardavimo Kaina: ~w~%i", HInfo[N][NamoKaina], HInfo[N][PardavimoKaina]);
  
  
• new StringB[175]; // kuriame dar vieną į jį sutalpinsime prieš tai buvusius
  
  
• format(StringB, 175, "%s~n~%s", String,StringA); // sutalpiname į vieną
  
  
• return 1;
  
  
• }
  
  
• GameTextForPlayer(playerid, StringB, 3500, 3); // Kai žaidėjas užlips jam atvaizduosime kaina savininka
  
  
• }
  
  
• return 1;
  
  
• }
  

Na dabar liko paskutinioji dalis komandos. Naudosime ZCMD biblioteką, komandas galite talpinti, bet kur tik ne callbacke, geriausia dėti apačioje kodo

Pirmoji komanda bus skirta pirkimui:

Kodas: [ Atsisiūsti ] [ Slėpti ] [ Pasirinkti ] [ Išskleisti ]

• COMMAND:pirkti(playerid,params[])
  
  
• {
  
  
• for(new namai; namai<MAX_NAMU; namai++) // suskaičiuojame visus namus
  
  
• {
  
  
• if(!IsPlayerInRangeOfPoint(playerid, 3, HInfo[namai][PickupX],. HInfo[namai][PickupY], HInfo[namai][PickupZ])) continue; // tikriname ar žaidėjas mūsų nustatytose koordinatese
  
  
• {
  
  
• new Vardas[MAX_PLAYER_NAME];
  
  
• GetPlayerName(playerid, Vardas,sizeof(Vardas));
  
  
• for(new i; i<MAX_NAMU; i++) // skaiciuojame vel visus namus
  
  
• {
  
  
• if(!strcmp(dini_Get("Savininkai.ini", HInfo[NamoPavadinimas]), Vardas)) return SendClientMessage(playerid, -1, " Jūs jau turite namą"); // gauname iš failo savininko vardą ir patikriname ar jau jis turi nama
  
  
• }
  
  
• if(GetPlayerMoney(playerid) < HInfo[NamoKaina]) return SendClientMessage(playerid, -1 "Jūs neturite tiek pinigų, kad galėtumėte nusipirkti namą"); // tikriname ar žaidėjas turi reikiamą sumą pinigų, jei ne siunčiame žinutę, kad pirkimas neįmanomas.
  
  
• if(HInfo[Nupirkta] == 1) return SendClientMessage(playerid, -1 " Šis namas jau yra nupirktas"); // Patikriname ar jau kas yra nupirkęs namą, jei taip neleidžiame jo pirkti.
  
  
• GivePlayerMoney(playerid, -HInfo[NamoKaina]); // atimame reikiam1 sumą pinigų
  
  
• GameTextForPlayer(playerid, "~w~Namas nupirktas!", 2500, 3); // siunčiame sveikinimo žinutes, kad namas nupirktas
  
  
• HInfo[Nupirkta] = 1; // Nustatome kintamąjį į teigiamą reiškmę, taigi jei kitas mėgins pirkti jam to neleis padaryti
  
  
• GetPlayerName(playerid, Vardas, sizeof(Vardas)); // dar kartą gauname žaidėjo vardą
  
  
• format(HInfo[NamoSavininkas], 24, "%s", Vardas); // vardą įrašome į kintamąjį
  
  
• dini_Set("Savininkai.ini", HInfo[NamoPavadinimas], Vardas); // įrašome į failą vardą
  
  
• return 1;
  
  
• }
  
  
• SendClientMessage(playerid, -1, Jūs per toli nuo namo !");
  
  
• return 1;
  
  
• }
  
  
• }
  

Pardavimo komanda

Kodas: [ Atsisiūsti ] [ Slėpti ] [ Pasirinkti ] [ Išskleisti ]

• COMMAND:parduoti(playerid, params[])
  
  
• {
  
  
• for(new namai; namai<MAX_NAMU; namai++) // suskaičiuojame namus
  
  
• {
  
  
• if(IsPlayerInRangeOfPoint(playerid, 3, HInfo[PickupX], HInfo[PickupY], HInfo[PickupZ])) // patikriname ar žaidėjas mūsų nustatytose koordinatėse
  
  
• {
  
  
• new Vardas[MAX_PLAYER_NAME]; // kuriame kintamąjį vardui išgauti
  
  
• GetPlayerName(playerid, Vardas, sizeof(Vardas)); // išgauname vardą
  
  
• if(strcmp(Vardas, HInfo[NamoSavininkas])) return SendClientMessage(playerid, -1, "Šis namas ne jūsų"); // patikriname savininką jeigu ne savininkas nori parduoti neleidžiame.
  
  
• GivePlayerMoney(playerid, HInfo[PardavimoKaina]); // duodame žaidėjui pinigus kai parduoda
  
  
• GameTextForPlayer(playerid, "~w~ Namas parduotas!", 2500 , 3); // sveikinimo žinutė, kad namą pardavė
  
  
• HInfo[Nupirkta] = 0; // nustatome kad žaidėjas namo nebeturi
  
  
• format(HInfo[NamoSavininkas], 24, "0943jt3u9*egjlfd"); // vietoj buvusio vardo bet ką parašome, užšifruojame vietą
  
  
• dini_Unset("Savininkai.ini", HInfo[NamoPavadinimas]);
  
  
• return 1;
  
  
• }
  
  
• }
  
  
• SendClientMessage(playerid, -1, "Jūs per toli nuo namo");
  
  
• return 1;
  
  
• }
  

// Įėjimo komanda

Kodas: [ Atsisiūsti ] [ Slėpti ] [ Pasirinkti ] [ Išskleisti ]

• COMMAND:ieiti(playerid,params[])
  
  
• {
  
  
• for(new namai; namai<MAX_NAMU; namai++) // suskaičiuojame visus namus
  
  
• {
  
  
• if(IsPlayerInRangeOfPoint(playerid, 3, HInfo[PickupX], HInfo[PickupY], HInfo[PickupZ])) // patikriname ar žaidėjas mūsų nustatytose koordinatese
  
  
• {
  
  
• new Vardas[MAX_PLAYER_NAME]; // kuriame kintamąjį vardui išgauti
  
  
• GetPlayerName(playerid, Vardas, sizeof(Vardas)); // gauname vardą
  
  
• if(strcmp(HInfo[NamoSavininkas])) return SendClientMessage(playerid, -1, "Šis namas ne jūsų"); // patikriname ar savininkas nori įeiti jei ne neleidžiame
  
  
• SetPlayerPos(playerid, HInfo[TeleX], HInfo[TeleY], HInfo[TeleZ]); // nustatome pozicija
  
  
• SetPlayerInterior(playerid, HInfo[interior]); // nustatome žaidėjo saloną
  
  
• Namuose[playerid] = 1; // nustatome kad žaidėjas name
  
  
• SetPlayerVirtualWorld(playerid, HInfo[Virtual]); // nustatome virtualų pasaulį
  
  
• SendClientMessage(playerid, -1, "Sveiki sugrįžę į savo namus"); // sveikinimo žinutės, kad įėjimas sėkmingas
  
  
• return 1;
  
  
• }
  
  
• }
  
  
• SendClientMessage(playerid, -1, "Jūs per toli nuo namo");
  
  
• }
  

Na ir paskutinioji komanda tai išėjimo

Kodas: [ Atsisiūsti ] [ Slėpti ] [ Pasirinkti ] [ Išskleisti ]

• COMMAND:iseiti(playerid, params[])
  
  
• {
  
  
• if(Namuose[playerid] == -1) return SendClientMessage(playerid, -1, " Jūs ne namuose"); // jeigu ne name siunčiame žinute, kad ne esate ne namuose
  
  
• SetPlayerPos(playerid, HInfo[Namuose][PickupX], HInfo[Namuose][PickupY], HInfo[Namuose][PickupZ]); // nustatome koordinatę, kad žaidėjas atsidūrtų prie savo namo
  
  
• SetPlayerInterior(playerid, 0); // nustatome 0-inį saloną, reiškia kad žaidėjas lauke
  
  
• SetPlayerVirtualWorld(playerid, 0); // nustatome pagrindinį pasaulį 0
  
  
• SendClientMessage(playerid, -1, " Išėjote iš namo "); // sveikinimo žinutės, kad išėjimas sėkmingas
  
  
• Namuose[playerid] = -1;
  
  
• return 1;
  
  
• }
  

Pamoka Kurta ne mano.Tiesiog tokios pamokos nemačiau forme ir nusprendžiau idėti Jei galit +rep dekui Sekmės

Redaguota Rugsėjo 27, 2012, nario Fusion:)

[haxelis]

Gražus copy paste

[_Dofke~]

Nekopink.

[Rivera]

Ar jis sako Kad jis kurejas nejuokinkit vaikai bled dvylikmečiai sėdi už pc laido ir primeta axujiel.

[haxelis]

Ar jis sako Kad jis kurejas nejuokinkit vaikai bled dvylikmečiai sėdi už pc laido ir primeta axujiel.

Jei pats dvylikametis, tai nespręsk apie kitus. Paskaityk pirmą sakinį kūrį jis parašė, jis teigia, jog jis kūrė šią pamoką, o taip nėra.

[Sneroq]

Ar jis sako Kad jis kurejas nejuokinkit vaikai bled dvylikmečiai sėdi už pc laido ir primeta axujiel.

O tau tipo daugiau metų, kad kita acc susikūrei ir pakomentavai čia? juk gausi BAN

[Skripterissssss]

Ko čia gazdini ??

[Marius<WiP]

Lavonas kreditus uždedi

[Marius<WiP]

Lavonas kreditus uždedi