Pagrindinis diskusijų puslapis Grand Theft Auto multiplayer Pamokos SA-MP Kelios kuro rusys + degaline[ATNAUJINTA]

Kelios kuro rusys + degaline[ATNAUJINTA]

Pamokos sa-mp modifikacijai. Serverio kūrimo pamokos, skriptai.
Standartinė Liepa 23rd, 2011, 10:01 pm
markis95 Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 325
Miestas: Vilnius
Padėkojo: 6 kartus
Gavo padėkų: 13 kartus
Skype: djtarakaska
Mano serveris: 78.56.184.62:7777
Atsiliepimai: 9
Zodziu buvo pamoka, bet kaip pastebejau ji buvo neveiksminga ir su daug klaidu. Taigi padariau scripta ir dabar perdarau pamoka.

Taigi pradzioje scripto parasome:
enum Kuras
{
    benzas[MAX_VEHICLES],
   dizelis[MAX_VEHICLES],
   dujos[MAX_VEHICLES],
   bool:usedizelis[MAX_VEHICLES],
   bool:usebenzas[MAX_VEHICLES],
   bool:usedujos[MAX_VEHICLES],
   bool:yradujos[MAX_VEHICLES],
   bool:pilam
};
new vKuras[MAX_VEHICLES][Kuras];
new dujumontavimas;
new degaline;


i OnGameModeInit sukuriame duju montavimo pickupa ir deglines pickupa:
dujumontavimas = CreatePickup( model, type, Float:X, Float:Y, Float:Z, Virtualworld );
degaline = CreatePickup( model, type, Float:X, Float:Y, Float:Z, Virtualworld );


bei timeri:
SetTimer("mazeja",15000,1);


tada susirandam OnPlayerPickUpPickup ir irasom kas bus kai uzeis ant degalines is montavimo pickupu:
if(dujumontavimas)
   {
      if(IsPlayerInAnyVehicle(playerid))
      {
          new VehicleID = GetPlayerVehicleID(playerid);
         {
            vKuras[VehicleID][yradujos] = true;
         }
      }
   }
   if(degaline)
   {
       if(IsPlayerInAnyVehicle(playerid))
      {
          new VehicleID = GetPlayerVehicleID(playerid);
          new iSeat = GetPlayerVehicleSeat(playerid);
          if(iSeat == 0)
          {
            vPilam(VehicleID);
              vKuras[VehicleID][pilam] = true;
           }
      }
   }


Padarom kad kuras mazetu:
forward mazeja(vehicleid);
public mazeja(vehicleid)
{
for(new i=0;i<MAX_PLAYERS;i++)
{
if(IsPlayerConnected(i))
{
if(IsPlayerInAnyVehicle(i))
{
if(vKuras[vehicleid][benzas] <1 || vKuras[vehicleid][dizelis] <1 || vKuras[vehicleid][dujos] <1)
{
TogglePlayerControllable(vehicleid,0);
return 1;
}
if(vKuras[vehicleid][usedizelis])
{
vKuras[vehicleid][dizelis][GetPlayerVehicleID(i)] -=5;
}else if(vKuras[vehicleid][usebenzas]){
vKuras[vehicleid][benzas][GetPlayerVehicleID(i)] -=5;
} else if(vKuras[vehicleid][usedujos]){
vKuras[vehicleid][dujos][GetPlayerVehicleID(i)] -=5;
}
rodom(vehicleid);
}
}
}
return 1;
}


padarom kad rodytu:
forward rodom(vehicleid);
public rodom(vehicleid)
{
for(new i=0;i<MAX_PLAYERS;i++)
{
if(IsPlayerConnected(i) && GetPlayerState(i) == 2)
{
new info[128];
if(vKuras[vehicleid][usedizelis])
{
format(info,sizeof(info),"Dizelis: %d",vKuras[vehicleid][dizelis][GetPlayerVehicleID(i)]);
}else if(vKuras[vehicleid][usebenzas])
{
format(info,sizeof(info),"Benzinas: %d",vKuras[vehicleid][benzas][GetPlayerVehicleID(i)]);
}else if(vKuras[vehicleid][usedujos])
{
format(info,sizeof(info),"Dujos: %d",vKuras[vehicleid][dujos][GetPlayerVehicleID(i)]);
}
SendClientMessage(i,0xFFFFFFF,info);
}
}
}


ir dabar du degalines callbackai:
forward vPilam(vehicleid);
public vPilam(vehicleid)
{
if(vKuras[vehicleid][pilam] == true)
{
SetTimer("pilti",1000,false);
}
}

forward pilti(playerid, vehicleid);
public pilti(playerid, vehicleid)
{
new vid = GetPlayerVehicleID(playerid);
if(IsPlayerConnected(playerid))
{
if(IsPlayerInAnyVehicle(playerid))
{
if(vKuras[vehicleid][benzas] < 100 || vKuras[vehicleid][dizelis] < 100 || vKuras[vehicleid][dujos] < 100 )
{
if(vKuras[vehicleid][usedizelis])
{
vKuras[vehicleid][dizelis][vid] +=1;
SendClientMessage(playerid,0xFFFFFFF,"Ipiltas 1 litras.");
}else if(vKuras[vehicleid][usebenzas]){
vKuras[vehicleid][benzas][vid] +=1;
SendClientMessage(playerid,0xFFFFFFF,"Ipiltas 1 litras.");
} else if(vKuras[vehicleid][usedujos]){
vKuras[vehicleid][dujos][vid] +=1;
SendClientMessage(playerid,0xFFFFFFF,"Ipiltas 1 litras.");
}
}else{
vKuras[vehicleid][pilam] = false;
}
vPilam(vehicleid);
}
}
}


Ir padarom komanda kad nelauktu kol pripils pilna baka:
CMD:nebepilti(playerid,params[])
{
   new vehicleid = GetPlayerVehicleID(playerid);
    vKuras[vehicleid][pilam] = false;
    GameTextForPlayer(playerid,"~W~Degalu pilimas nutrauktas",5000,5);
}


Dekui Stuneriui uz pagalba :)

Compiliavau ir jokiu erroru nerode.

Jei bus kokiu nors nesuprantamu dalyku ar siaip klausymu - rasykit.
Paskutinį kartą redagavo markis95 Liepa 26th, 2011, 10:19 am. Iš viso redaguota 8 kartus.


Už šią žinutę autorius markis95 gavo 5 padėkojimus
Dovydux (Rugpjūtis 1st, 2011, 3:43 pm), FushioN-LT (Liepa 24th, 2011, 12:14 pm), Nierka123 (Liepa 25th, 2011, 9:56 pm), TehMiEDiSe (Liepa 27th, 2011, 9:18 am), Westen (Liepa 23rd, 2011, 10:34 pm)
Vertinimas: 55.56%
 

Reklama

Standartinė Liepa 23rd, 2011, 10:08 pm
Stuneris Vartotojo avataras
Forumo Dievas
Forumo Dievas

Pranešimai: 1401
Padėkojo: 0 kartą
Gavo padėkų: 109 kartus
Skype: kristupas19
Atsiliepimai: 12

woooo-hoooo gooooooood leasoooon (:mldc)

EDIT:

negeriau būtu su vienu timeriu kurt mazejima ir rodyma juk laikas taspats :?
Paskutinį kartą redagavo Stuneris Liepa 23rd, 2011, 10:19 pm. Iš viso redaguota 1 kartą.

Standartinė Liepa 23rd, 2011, 10:14 pm
Marius<WiP Vartotojo avataras
Didelis žinovas
Didelis žinovas

Pranešimai: 676
Miestas: Marijampolė
Padėkojo: 2 kartus
Gavo padėkų: 17 kartus
Atsiliepimai: 15
Na šaunu jog sukūrei tokią pamoką,naujokams pravers :)
Paveikslėlis


M-RPG Server Is Comming 50%

Standartinė Liepa 23rd, 2011, 10:31 pm
Westen Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 498
Miestas: Alytus.
Padėkojo: 32 kartus
Gavo padėkų: 18 kartus
Skype: xrazorx1
Mano serveris: Kuriamas.
Atsiliepimai: 12

Geras dalykas. Reikėtų šį bei tą koreguot, bet tuos tinginius, kurie neišmasto ir tingi bandyt išmastyt užvesi ant kelio.
Šaunu.
Gauni + nuo manęs ;)
No pain, no game.
Понял?

Standartinė Liepa 24th, 2011, 12:05 am
markis95 Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 325
Miestas: Vilnius
Padėkojo: 6 kartus
Gavo padėkų: 13 kartus
Skype: djtarakaska
Mano serveris: 78.56.184.62:7777
Atsiliepimai: 9
Na stuneri, tame ir yra reikalas kaip Westen sake kad reikia juos pacius uzvest ant mastymo kelio, tegu patys sugalvoja kaip padaryt maziau laginanti scripta is sito. :)

Westen, dekui uz rep.

Mariau, aciu kad pagyrei :D As visada galiu pakurt pamokas kurias pats moku. Tuo labiau kad cia mastyt net nereikejo.

Standartinė Liepa 24th, 2011, 8:23 am
Marius<WiP Vartotojo avataras
Didelis žinovas
Didelis žinovas

Pranešimai: 676
Miestas: Marijampolė
Padėkojo: 2 kartus
Gavo padėkų: 17 kartus
Atsiliepimai: 15
Nėra už ką tiesiog retai yra tokių žmonių kurie daro pamokas nesusijusias su GRP, todėl ir pagyriau, be to kiek žinau tu GRP hater.
Paveikslėlis


M-RPG Server Is Comming 50%

Standartinė Liepa 24th, 2011, 8:34 am
TehMiEDiSe Skripteris
Skripteris

Pranešimai: 295
Padėkojo: 4 kartus
Gavo padėkų: 4 kartus
Atsiliepimai: 2
Gera pamoka . Man praverte

Standartinė Liepa 24th, 2011, 12:11 pm
markis95 Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 325
Miestas: Vilnius
Padėkojo: 6 kartus
Gavo padėkų: 13 kartus
Skype: djtarakaska
Mano serveris: 78.56.184.62:7777
Atsiliepimai: 9
Mariau, jo as nekenciu GRP, LRG ir visu kitu editu.

EDiS, viskas pavyko? nes as cia tiesiai rasiau ir net nebandziau sucompiliuoti. Keista nes dazniausiai klaidu palieku taip rasydamas.

Standartinė Liepa 24th, 2011, 12:14 pm
FushioN-LT Naujokas
Naujokas

Pranešimai: 35
Padėkojo: 1 kartą
Gavo padėkų: 0 kartą
Mano serveris: Neturiu
Atsiliepimai: 0
Gera pamoka marki +R3P ;)
Paveikslėlis
/* Nutrindamas kreditus, script'o autoriumi netapsi ;) */

[hr][/hr]
SCRIPT'AI
ConnectedPlayer
mValdymas

Standartinė Liepa 24th, 2011, 12:21 pm
markis95 Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 325
Miestas: Vilnius
Padėkojo: 6 kartus
Gavo padėkų: 13 kartus
Skype: djtarakaska
Mano serveris: 78.56.184.62:7777
Atsiliepimai: 9

Standartinė Liepa 24th, 2011, 12:32 pm
FushioN-LT Naujokas
Naujokas

Pranešimai: 35
Padėkojo: 1 kartą
Gavo padėkų: 0 kartą
Mano serveris: Neturiu
Atsiliepimai: 0
markis95 rašė:
fushion, dekui, bet ar kas nors bandet scripta? ar viskas veikia?


nebandžiau, bet kaip patyręs, matau iš script'o, kad turi veikti :)
Paveikslėlis
/* Nutrindamas kreditus, script'o autoriumi netapsi ;) */

[hr][/hr]
SCRIPT'AI
ConnectedPlayer
mValdymas

Standartinė Liepa 24th, 2011, 2:08 pm
Regal Naujokas
Naujokas

Pranešimai: 10
Padėkojo: 0 kartą
Gavo padėkų: 0 kartą
Skype: neturiu.lt
Mano serveris: www.lrpg.lt
Atsiliepimai: 0
gera pamoka (:Aš stiprus)

Standartinė Liepa 24th, 2011, 6:48 pm
Nierka123 Naujokas
Naujokas

Pranešimai: 18
Padėkojo: 1 kartą
Gavo padėkų: 0 kartą
Skype: neriukas144
Mano serveris: Kuriu
Atsiliepimai: 0

O kaip reikia kad ne visos tos masinos butu tuo paciu kuru ne MAX_VEHICLES bet kokios kelios masinos butu tokiu kuru

pavz: dyzelis pilasi i kelais masinas ir kad ji galėu piltis degalinėse ant pickups ir pilasi dyzelis ir kad kaina butu kitokia

+Rep
Life-real.lt-Gyvenimas realus
Ateik pas mus

Paveikslėlis

Standartinė Liepa 24th, 2011, 7:02 pm
markis95 Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 325
Miestas: Vilnius
Padėkojo: 6 kartus
Gavo padėkų: 13 kartus
Skype: djtarakaska
Mano serveris: 78.56.184.62:7777
Atsiliepimai: 9

Standartinė Liepa 24th, 2011, 7:27 pm
DeadMan Apsipratęs narys
Apsipratęs narys

Pranešimai: 125
Padėkojo: 5 kartus
Gavo padėkų: 0 kartą
Skype: Deividas6667
Mano serveris: Neturiu
Atsiliepimai: -3
Gera pamoka :)

Standartinė Liepa 24th, 2011, 9:07 pm
Nierka123 Naujokas
Naujokas

Pranešimai: 18
Padėkojo: 1 kartą
Gavo padėkų: 0 kartą
Skype: neriukas144
Mano serveris: Kuriu
Atsiliepimai: 0

markis95 rašė:
kam per dvi temas ta pati rasai? beto jei gali aiskiau paaiskink.

I skype parasyk : neriukas144
Life-real.lt-Gyvenimas realus
Ateik pas mus

Paveikslėlis

Standartinė Liepa 25th, 2011, 4:01 pm
Pinokis Skripteris
Skripteris

Pranešimai: 274
Padėkojo: 1 kartą
Gavo padėkų: 4 kartus
Skype: augustazzz2
Atsiliepimai: 5
Nu idejau, bet meta va tokius erorus :) :
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19967) : warning 219: local variable "info" shadows a variable at a preceding level
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19968) : error 033: array must be indexed (variable "usedizelis")
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19970) : error 035: argument type mismatch (argument 1)
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19970) : error 035: argument type mismatch (argument 1)
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19971) : error 033: array must be indexed (variable "usebenzas")
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19973) : error 035: argument type mismatch (argument 1)
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19973) : error 035: argument type mismatch (argument 1)
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19975) : error 035: argument type mismatch (argument 3)
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19967) : warning 204: symbol is assigned a value that is never used: "info"
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19989) : warning 213: tag mismatch
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19994) : error 033: array must be indexed (variable "usedizelis")
C:\Documents and Settings\Augustas\Desktop\Naujas Serveris kuriamas startui\gamemodes\GRP.pwn(19997) : error 033: array must be indexed (variable "usebenzas")
Pawn compiler 3.2.3664           Copyright (c) 1997-2006, ITB CompuPhase


9 Errors.

Standartinė Liepa 25th, 2011, 4:44 pm
markis95 Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 325
Miestas: Vilnius
Padėkojo: 6 kartus
Gavo padėkų: 13 kartus
Skype: djtarakaska
Mano serveris: 78.56.184.62:7777
Atsiliepimai: 9
jo zn :D as dabar perdarineju visa scripta pas save gm'e. Darau su enum, bet kadangi su juo nesu dirbes tai kazkaip uzstrigau vienoi bietoi :D kai susitvarkysiu su scriptu viska perrasysiu sitoi pamokoi.

Pinokis Skripteris
Skripteris

Pranešimai: 274
Padėkojo: 1 kartą
Gavo padėkų: 4 kartus
Skype: augustazzz2
Atsiliepimai: 5

Bueno Vartotojo avataras
Skripteris
Skripteris

Pranešimai: 312
Padėkojo: 32 kartus
Gavo padėkų: 6 kartus
Skype: Neturiu
Mano serveris: Kuriamas
Atsiliepimai: 2
Malacius.

Kitas


  • Reklama

Grįžti į SA-MP