[Pamoka] Darbo kūrimas

[bebras]

Sveiki, mačiau jau ne vieną ir ne du(ir net ne tris) prašymus sukurti pamoką apie darbus.... Tai štai.

Pirmiausia, darbai tai ne tai ką jūs galvojat, nėra taip: "CreateDarbas("Mechanikai");"...

Kaip ir viskas Pawn pasaulyje, daroma per kintamuosius, sąlygas....

Moralo šiandien tiek, einame prie darbo. Darbas bus - mechanikai.

Sukurkime kintamuosius kurių mums reikės:

new Darbas[MAX_PLAYERS]; // Čia bus tikrinimas ar žaidėjas yra nurodytame darbe, šiaip žmonės paprastai jį deda į žaidėjo informacijos masyvą, bet pas mane jo nėra...
new Transportas[5]; // Bus 5 mechanikų transporto priemonės.

Galima sakyti kad darbas jau yra....

Kuriame įsidarbinimą, kadangi pickup patingėjau galvoti koordinates, mano atveju bus komanda:

CMD:isidarbinti(playerid,params[])
{
 if(Darbas[playerid] != 0) return SendClientMessage(playerid,0xFF0000FF,"Tu jau turi darbą!");
// else if(IsPlayerInRangeOfPoint( Darbovietė, mano atveju jos nėra.
Darbas[playerid] = 1;
SendClientMessage(playerid,0x00FF00FF,"Jūs įsidarbinote pas mechanikus!");
return 1;
}

Ir žaidėjas jau dirba! Nors jam nėra ką ar su kuo dirbti....

Sukurkime jam komandą mašinos remontui už 500Litų:

CMD:remontuoti(playerid)
{
if(Darbas[playerid] != 1) return SendClientMessage(playerid,0xFF0000FF,"Tu ne mechanikas!"); //Čia ir visa "darbo" sistemos esmė, jeigu vienas kintamasis neatitinka sąlygos, reiškia žmogus ten nedirba.
else if(!IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid,0xFF0000Ff,"Tu turi būti transporto priemonėje!");
else if(GetPlayerMoney(playerid) < 500) return SendClientMessage(playerid,0x00FF00FF,"Tau neužtenka pinigų"); // Baisu, žmogui neužtenka pinigų kad galėtų dirbti... O negali gauti daugiau pinigų nes negali dirbti, uždaras ratas....
GivePlayerMoney(playerid,-500);
RepairVehicle(GetPlayerVehicleID(playerid)); // Sutaisome tr.priemonę kurioje yra žaidėjas.
return 1;
}

Puiku! Bet kažką minėjau apie transportą...

// X - X koordinatė kur bus tr priemonė
//Y - Y koordinatė kur bus tr.priemonė
//Z - Z koordinatė kur bus tr.priemonė
//Angle - tr.priemonės pasisukimo kampas(0-360);

Transportas[0] = CreateVehicle(525, X, Y, Z, Angle, random(255), random(255), -1);
Transportas[1] = CreateVehicle(525, X, Y, Z, Angle, random(255), random(255), -1);
Transportas[2] = CreateVehicle(525, X, Y, Z, Angle, random(255), random(255), -1);
Transportas[3] = CreateVehicle(525, X, Y, Z, Angle, random(255), random(255), -1);
Transportas[4] = CreateVehicle(525, X, Y, Z, Angle, random(255), random(255), -1);

Kyla klausimas, kas per "random(255)"? Pagalvojau kad mechanikai yra liūdnas darbas, tai nusprendžiau jų transportui suteikti atsitiktinę spalvą!

Paskutinis parametras yra laikas po kurio transporto priemonė atsistatys į vietą( laikas prasideda išlipus žmonėms).Aš įvedžiau -1, todėl transporto priemonė nesirespawn'ins.

Dabar reikia mašinomis leisti naudotis tik mechanikams...

public OnPlayerStateChange(playerid,newstate,oldstate)
{
if(newstate == PLAYER_STATE_DRIVER)
{
 for(new i; i < sizeof(Transportas); i++)
 {
		 if(GetPlayerVehicleID(playerid) == Transportas[i]) // Jeigu tai mechanikų transporto priemonė.
		 {
if(Darbas[playerid] != 1) // Visa esmė. Jeigu žaidėjas nedirba mechanikuose.
{
				 RemovePlayerFromVehicle(playerid);
}
		 }
	 }
}
return 1;
}

"sizeof" žodelis, pats išmatuos masyvą "Transportas", tai reiškia, kad jeigu padidinsite jį, čia kodo keisti nereikės.

Lygtais nieko nepamiršau.... Aišku čia daug ką galima(ir reiktų) tobulinti.... Bet esmė yra tokia. Darbas nėra stebuklas, tai tėra žaidimas su kintamaisiais ir sąlygomis.

Pamoką rašiau aš. Radę klaidų, sakykit. Pasiūlymus taipat priimu.... Lauksiu nuomonių!

Redaguota Rugsėjo 6, 2013, nario Dusk

[champion]

Nu kodus pagrinde davei, šaunuolis :I

[nesigilink]

šaunu labai reikėjo panašios pamokos, bet esmė tame, jeigu darau kaip ir nuo 0, ir tai būtų pirmas darbas daromas, tai reiktu prie registracijos įrašyti kažka tokio kaip darbas=0 ? (nu kad į failą šita įrašytu tipo..) ?

P.S jei gali padaryk v2 šitos pamokos, kad kai mechanikas savo mašinoje ir važinėja, gauna (kažkiek) lt / min.. ačiū.

[bebras]

šaunu labai reikėjo panašios pamokos, bet esmė tame, jeigu darau kaip ir nuo 0, ir tai būtų pirmas darbas daromas, tai reiktu prie registracijos įrašyti kažka tokio kaip darbas=0 ? (nu kad į failą šita įrašytu tipo..) ?

P.S jei gali padaryk v2 šitos pamokos, kad kai mechanikas savo mašinoje ir važinėja, gauna (kažkiek) lt / min.. ačiū.

//v2
SetTimer("PaydayTimer",60000,true)

forward PaydayTimer();
public PaydayTimer()
{
  for(new i; i < MAX_PLAYERS; i++)
  {
    if(!IsPlayerConnected(i)) continue;
   if(Darbas[i] == 1)
   {
		 GivePlayerMoney(playerid,kažkiek");
  }
}
return 1;
}

O kodėl reikia įrašinėt į failą 0? Jei naudoji mysql apskritai naudok "default"...

[nesigilink]

mhm, kolkas naudoju dini. Nu nes galvojau dabar kai kode tikrini, ar darbo id toks ir toks tai...

[bebras]

Nereikia saugoti nulių. Ką tik patikrinau, jeigu nėra jokios reikšmės faile, ar net nėra to pavadinimo(key), tau vistiek gražins nulį.

[nesigilink]

Tai man registracijoje nieko nereikia rašyti asr kaip čia? susipainiojau

[bebras]

Tai man registracijoje nieko nereikia rašyti asr kaip čia? susipainiojau

//Registracija:
dini_IntSet(failas,"Darbas",0); // Šito nereikia..
// Krovime. jei NEbus tos eilutės viršuje.
new int = dini_Int(failas,"Darbas")
// int bus vistiek 0. Net jei nebus ir to "Darbas" faile.

[nesigilink]

a, dabar viskas aiškiau dq..

[nesigilink]

Mhm, tada krovime kaip supratau įrašyti pvž: new darbas = dini_Int(file,"darbas");

ir saugojime darbas = pInfo[darbas]

Ir bėja, aš turiu sūsikuręs enum gamemode viršuje su visais darbas, admin,vip, piniga, xp, lt, bet kam jis tiksliai reikalingas? Jeigu aš kaip ir turiu kintamuosius (krovime) ir su jų pagalba pvž tikrinu ar žaidėjęs vip ir t.t. ?

[bebras]

Mhm, tada krovime kaip supratau įrašyti pvž: new darbas = dini_Int(file,"darbas");

ir saugojime darbas = pInfo[darbas]

Ir bėja, aš turiu sūsikuręs enum gamemode viršuje su visais darbas, admin,vip, piniga, xp, lt, bet kam jis tiksliai reikalingas? Jeigu aš kaip ir turiu kintamuosius (krovime) ir su jų pagalba pvž tikrinu ar žaidėjęs vip ir t.t. ?

Krovime, tiesiog krauk kaip tau reikia

Saugojime net nesupratau tavo pavyzdžio...

enum, padeda susiprasti masyve, nes šiaip masyvai turi indeksus(skaičiais)....

[nesigilink]

aišku.

Bet aš kaip ir nenaudoju niekur to pInfo ir panašiai, kadangi aš krovime į kintamajį pvž į kintamajį vip išgaunu skaičių, ir tikrinu ten pvž vip komandas, ar gali naudot ar ne ir t.t.

[renaldasj]

//v2
SetTimer("PaydayTimer",60000,true)

forward PaydayTimer();
public PaydayTimer()
{
  for(new i; i < MAX_PLAYERS; i++)
  {
       if(!IsPlayerConnected(i)) continue;
      if(Darbas[i] == 1)
      {
            GivePlayerMoney(playerid,kažkiek");
     }
}
return 1;
}

O kodėl reikia įrašinėt į failą 0? Jei naudoji mysql apskritai naudok "default"...

Galima į timeri idėti tikrinima koks darbas, pvž switch ( Darbas[playerid] )case 1 t.t ir duot alga

[DumonT]

Čia kaip suprantu , Mysql?

[bebras]

Čia kaip suprantu , Mysql?

Ir iš ko tu taip supratai?

[Alex :)]

Labai dėkui,viskas išsamiai ir suprantamai paaiškinta

[Funkis]

O dabar dar padaryk /paliktidarba

[wuPoR]

O dabar dar padaryk /paliktidarba

CMD:paliktidarba(playerid)
{
Darbas[playerid] = 0;
SendClientMesage(playerid, -1,"Palikai savo svajonių darbą");
}

paprasčiausias variantas, kurkis tikrinimus ar dirba ar kažką tokio, nes čia jei ir nedirba vistiek eis naudot šią nesąmonę

[HJones]

C:\Users\Dominykas\Desktop\gm\gamemodes\test.pwn(1329) : error 028: invalid subscript (not an array or too many subscripts): "Darbas"

C:\Users\Dominykas\Desktop\gm\gamemodes\test.pwn(1329) : warning 215: expression has no effect

C:\Users\Dominykas\Desktop\gm\gamemodes\test.pwn(1329) : error 001: expected token: ";", but found "]"

C:\Users\Dominykas\Desktop\gm\gamemodes\test.pwn(1329) : error 029: invalid expression, assumed zero

C:\Users\Dominykas\Desktop\gm\gamemodes\test.pwn(1329) : fatal error 107: too many error messages on one line

[bebras]

1329 eilutė?