Szerző Téma: Autószerelõ + kisebb tuningrendszer  (Megtekintve 2459 alkalommal)

Autószerelõ + kisebb tuningrendszer
« Dátum: 2014. január 26. - 16:04:42 »
+1 Show voters
Sziasztok! Egy kisebb tuningrendszert és munkát összedobtam..
lehet nem kell senkinek  :unsure:
Találtam egy rendszám átírot itt a sampforumon beleteszem..
de kezdõknek jól jöhet!
UPDATE
Sziasztok! Bele raktam még 4funkciót.
Mega,Switch kerekeket és Kék és Piros neont tudsz felhelyezni az autódra!
1 Verzió:
 
//includek
#include <a_samp>
#include <zcmd>
#include <dini>
//definiciók
#define TEAM_SZERELO 0
#define DIALOG_SZERELOPANEL 1
#define VEH_FILE    \"vehicles.ini\"
//szinek
#define COLOR_RED 0xFF0000FF
#define COLOR_SZERELO 0x5cd63eAA
 
public OnPlayerConnect(playerid)
{
SendClientMessage(playerid,COLOR_SZERELO,\"Tuningrendszer + Autoszerelo munka elérhetõ a szerveren!\");
SendClientMessage(playerid,COLOR_SZERELO,\"Elérhetõ tuningok: Nitró,Hidraulika\");
return 1;
}
public OnFilterScriptInit()
{
print(\"\\n--------------------------------------\");
print(\" PiCsUUU Tuningrenszer + Autoszerelo munka betöltve.\");
print(\"--------------------------------------\\n\");
return 1;
}
CMD:szerel(playerid)
{
if(GetPlayerTeam(playerid) != TEAM_SZERELO) return SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy a Szerelõ!\");
ShowPlayerDialog(playerid,DIALOG_SZERELOPANEL,DIALOG_STYLE_LIST,\"Szerelõpanel\", \"Nitro\\nHidraulika\", \"Tuningol\", \"Mégse\");
return 1;
}
CMD:szerelo(playerid)
{
SetPlayerTeam(playerid,TEAM_SZERELO);
SetPlayerColor(playerid,COLOR_SZERELO);
SetPlayerSkin(playerid,50);
SendClientMessage(playerid,COLOR_SZERELO,\"Szerelõ lettél!\");
return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
new vehicleid = GetPlayerVehicleID(playerid);
    {
        if(response)
        {
            switch(listitem)
            {
                case 0:AddVehicleComponent(vehicleid,1010);//nitró
                case 1:AddVehicleComponent(vehicleid,1087);//hidraulics
            }
        }
        return 1;
     }
}
public OnFilterScriptInit()
{
new plate[20];
    for(new i = 0; i < MAX_VEHICLES; i++) {
        format(plate, sizeof(plate), \"%d\", i);
        if(dini_Exists(VEH_FILE)) return SetVehicleNumberPlate(i, dini_Get(VEH_FILE, plate));
        SetVehicleToRespawn(i);
    }
    return 1;
}
CMD:rendszam(playerid, params[])
{
  if(GetPlayerTeam(playerid) != TEAM_SZERELO) return SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy a Szerelõ!\");
new platestr[20], string[20], vehicleid = GetPlayerVehicleID(playerid);
new Float:X, Float:Y, Float:Z, Float:A;
if(sscanf(params, \"s\", platestr)) return SendClientMessage(playerid, 0xFF0000FF, \"USAGE: /rendszam [újrendszam]\");
if(!IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid, 0xFF0000FF, \"Nem ûlsz jármûben!\");
GetPlayerPos(playerid, X, Y, Z); GetVehicleZAngle(vehicleid, A);
SetVehicleNumberPlate(vehicleid, platestr);
SetVehicleToRespawn(vehicleid);
SetVehiclePos(vehicleid, X, Y, Z);
SetVehicleZAngle(vehicleid, A);
PutPlayerInVehicle(playerid, vehicleid, 0);
format(string, sizeof(string), \"%d\", vehicleid);
if(!dini_Exists(VEH_FILE)) dini_Create(VEH_FILE);
dini_Set(VEH_FILE, string, platestr);
return 1;
}

 
2 Verzió:
 

//includek
#include <a_samp>
#include <zcmd>
#pragma tabsize 0
//definiciók
#define TEAM_SZERELO 0
#define DIALOG_SZERELOPANEL 1
//szinek
#define COLOR_RED 0xFF0000FF
#define COLOR_SZERELO 0x5cd63eAA
 
public OnPlayerConnect(playerid)
{
        SendClientMessage(playerid,COLOR_SZERELO,\"Tuningrendszer + Autoszerelo munka elérheto a szerveren!\");
        SendClientMessage(playerid,COLOR_SZERELO,\"Elérheto tuningok: Nitró,Hidraulika\");
        return 1;
}
public OnFilterScriptInit()
{
        print(\"\\n--------------------------------------\");
        print(\" PiCsUUU Tuningrenszer + Autoszerelo munka betöltve.\");
        print(\"--------------------------------------\\n\");
        return 1;
}
CMD:szerel(playerid)
{
        if(GetPlayerTeam(playerid) != TEAM_SZERELO) return SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy a Szerelő!\");
        ShowPlayerDialog(playerid,DIALOG_SZERELOPANEL,DIALOG_STYLE_LIST,\"Szerelopanel\", \"Nitro\\nHidraulika\\nSwitch Kerék\\nMega Kerék\\nNeon[Kék]\\nNeon[Piros]\", \"Tuningol\", \"Mégse\");
        return 1;
}
CMD:szerelo(playerid)
{
        SetPlayerTeam(playerid,TEAM_SZERELO);
        SetPlayerColor(playerid,COLOR_SZERELO);
        SetPlayerSkin(playerid,50);
        SendClientMessage(playerid,COLOR_SZERELO,\"Szerelő lettél!\");
        return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
new vehicleid = GetPlayerVehicleID(playerid);
    {
        if(response)
        {
            switch(listitem)
            {
                case 0:AddVehicleComponent(vehicleid,1010);//nitró
                case 1:AddVehicleComponent(vehicleid,1087);//hidraulics
                case 2:AddVehicleComponent(vehicleid,1074);//switch kerék
      case 3:AddVehicleComponent(vehicleid,1074);//mega kerék
      case 4:
      {
          new blue = CreateObject(18648,0,0,0,0,0,0,0);
          AttachObjectToVehicle(blue,vehicleid,1,0,-0.5,0.0,0.0,0.0);
                  new blue2 = CreateObject(18648,0,0,0,0,0,0,0);
          AttachObjectToVehicle(blue2,vehicleid,1,0,-0.5,0.0,0.0,0.0);
      }
      case 5:
      {
                new red = CreateObject(18647,0,0,0,0,0,0,0);
          AttachObjectToVehicle(red,vehicleid,1,0,-0.5,0.0,0.0,0.0);
                  new red2 = CreateObject(18647,0,0,0,0,0,0,0);
          AttachObjectToVehicle(red2,vehicleid,1,0,-0.5,0.0,0.0,0.0);
      }
             }
        }
        return 1;
}
« Utoljára szerkesztve: 2014. december 31. - 01:46:26 írta PiCsUUU »

Autószerelõ + kisebb tuningrendszer
« Válasz #1 Dátum: 2014. január 26. - 19:16:00 »
0 Show voters
jó, csak kicsi, 1-2 apróságot még vigyél bele, csináld meg jobban a tuningot, és csináld meg azt is hogy csak autó szerelõ használhassa és akkor fail kis script lesz rp szerverekre, önmagában így is szép adom a +-t ! :D

Autószerelõ + kisebb tuningrendszer
« Válasz #2 Dátum: 2014. január 26. - 19:36:20 »
0 Show voters
Köszönöm szépen!
De amúgy ott van hogy csak
if(GetPlayerTeam(playerid) != TEAM_SZERELO) return SendClientMessage(playerid,COLOR_RED,\"HIBA: Nem vagy a Szerelõ!\");

  ;D

Autószerelõ + kisebb tuningrendszer
« Válasz #3 Dátum: 2014. január 26. - 20:29:13 »
0 Show voters
Ez jó,csak nem tud nagyon semmit....
Megcsinálhatnád,hogy le is mentse a tuningot,meg hogy benne van a szerelõ munkába.... :)

Autószerelõ + kisebb tuningrendszer
« Válasz #4 Dátum: 2014. január 26. - 20:36:07 »
0 Show voters
Rakhattam volna bele többminent akár neont is rakhatnák, mentést én se értem, nekem is kéne a tuningmentés..

Autószerelõ + kisebb tuningrendszer
« Válasz #5 Dátum: 2014. január 26. - 20:56:41 »
0 Show voters
Meg szerintem az is jól jöhetett volna,hogy megcsinálod,hogy csak egy bizonyos helyen,meg a kocsi közelében tudjon szerelni az adott játékos....

Autószerelõ + kisebb tuningrendszer
« Válasz #6 Dátum: 2014. január 26. - 21:01:59 »
0 Show voters
Meglehet DE valaki tud segíteni tuning mentésbe? Bõvíteném! Aki tud az irjon legyenszíves!

Autószerelõ + kisebb tuningrendszer
« Válasz #7 Dátum: 2014. január 26. - 21:50:51 »
0 Show voters
Tölts le egy jármû tuning mentõ FS-t és nézd át...Mást nem tudok mondani én sem :D

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal