Üzenetek megjelenítése

16

SA-MP: Szerverfejlesztés / Egyedi kocsi rendszer

« Dátum: 2013. június 04. - 20:42:05 »

Üdv! írtam egy olyan kocsi rendszert amibe te adhatod meg a kocsik rendszámát ahogy akarod.
remélem valakinek hasznos lesz..
itt egy példa:

CreateVehicleEx(522,-1989.9805,267.7664,34.7420,263.7278,8,82,180,0,0,\"ide valami rendszámot.\");

new   VehicleColor[MAX_VEHICLES][2],
    VehicleXX[2][MAX_VEHICLES],
    VehicleCount;
stock CreateVehicleEx(model, Float: vzX, Float: vzY, Float: vzZ, Float: vzA, resi_d, color1, color2, interior, VW, rendsz[])
{
new RE[16];
new vehid = CreateVehicle(model, vzX, vzY, vzZ, vzA, color1, color2, resi_d);
LinkVehicleToInterior(vehid, interior);
SetVehicleVirtualWorld(vehid, VW);
VehicleColor[vehid][0] = color1;
    VehicleColor[vehid][1] = color1;
    VehicleXX[0][vehid] = interior;
    VehicleXX[1][vehid] = VW;
    if(!strlen(rendsz))
    {
       if(vehid < 10) format(RE,16,\"AsD - 00%d\",vehid);//Ezt írd át.. AsDot.
    else if(vehid >= 10 && vehid < 100) format(RE,16,\"AsD - 0%d\",vehid);//Ezt írd át.. AsDot.
    else format(RE,16,\"AsD - %d\",vehid); //Ezt írd át.. AsDot.
}
else format(RE, 16, \"%s\", vehid);
SetVehicleNumberPlate(vehid, RE);
VehicleCount ++;
return vehid;
}

17

SA-MP: Szerverfejlesztés / [DM]RoBot v1 - So Easy

« Dátum: 2013. június 04. - 20:34:16 »

egész jó

18

Fórum Archívum (Témák/Fórumok) / Re:Sebességmérõ

« Dátum: 2013. június 02. - 10:59:58 »

bocs a kép télleg kimaradt :S :\'(

19

SA-MP: Szerverfejlesztés / Sebességmérõ

« Dátum: 2013. június 01. - 22:48:13 »

Üdv írtam egy kis sebesség mérõ scriptet gondoltam valakinek hasznos lesz.

kép: http://www.kepfeltoltes.hu/view/130602/screen_www.kepfeltoltes.hu_.png
bocs hogy angol de nem passzolt ide a magyar szöveg.-..-
Mérõ:
- sebesség
- Élet
.

#include <a_samp>
forward SpeedoUpdate();
new Text:box[MAX_VEHICLES],Text:speed[MAX_VEHICLES],Text:health[MAX_VEHICLES];
public OnFilterScriptInit()
{
SetTimer(\"SpeedoUpdate\",100,1);
return 1;
}
public OnPlayerConnect(playerid)
{
box[playerid] = TextDrawCreate(618,389,\"_\");
TextDrawLetterSize(box[playerid],0.5,2.599999);
TextDrawUseBox(box[playerid],1);
TextDrawBoxColor(box[playerid],0x00000060);
TextDrawTextSize(box[playerid],473,0);
speed[playerid] = TextDrawCreate(478,389,\"_\");
TextDrawLetterSize(speed[playerid],0.37,1.099999);
TextDrawSetOutline(speed[playerid],1);
health[playerid] = TextDrawCreate(478,401,\"_\");
TextDrawLetterSize(health[playerid],0.37,1.099999);
TextDrawSetOutline(health[playerid],1);
return 1;
}
public OnPlayerDisconnect(playerid, reason)
{
TextDrawDestroy(box[playerid]);
TextDrawDestroy(speed[playerid]);
TextDrawDestroy(health[playerid]);
return 1;
}
public SpeedoUpdate()
{
for(new i = 0;i<MAX_PLAYERS;i++)
{
if(IsPlayerConnected(i) && IsPlayerInAnyVehicle(i))
{
   new Float:x,Float:y,Float:z,Float:hp,string[24],vehicleid = GetPlayerVehicleID(i);
   TextDrawShowForPlayer(i,box);
   TextDrawShowForPlayer(i,speed);
   TextDrawShowForPlayer(i,health);
   GetVehicleVelocity(vehicleid,x,y,z);
   GetVehicleHealth(vehicleid,hp);
   format(string,sizeof(string),\"Speed: %dkph\",floatround(floatsqroot(((x*x)+(y*y))+(z*z))*250.666667));
   TextDrawSetString(speed,string);
   format(string,sizeof(string),\"Health: %d\",floatround(hp));
   TextDrawSetString(health,string);
}
if(!IsPlayerInAnyVehicle(i))
{
   TextDrawHideForPlayer(i,box);
   TextDrawHideForPlayer(i,speed);
   TextDrawHideForPlayer(i,health);
}
}
}

20

Segítségkérés / Ban problem

« Dátum: 2013. május 29. - 15:44:59 »

Kösszi:D

21

Segítségkérés / Ban problem

« Dátum: 2013. május 29. - 15:29:26 »

Üdv ! ebbe a /ban parancsba (én írtam) és amikor küldi az üzenetet akkor nem írja ki az indokot pls aki tud segítsen elõre is kössz.-..-.

CMD:ban(playerid, params[])
{
new Indok;
    if(GetPVarInt(playerid, \"Admin\") >= 3)
    {
if(sscanf(params, \"u\", ID, Tmp)) return SendClientMessage(playerid, Orange, \"Használat: /ban \"#Khekis\"(ID/NÉV) (Indok)\");
if(!IsPlayerConnected(ID)) return SendClientMessage(playerid, Red, \"Nincs ilyen játékos!\");
format(UzU, sizeof(UzU), \"Kilettél banolva %s által Indok: %s\", GetPlayerNameEx(playerid), Indok);
SendClientMessage(ID, Red, UzU);
Ban(ID);
//if(playerid == ID)) return SendClientMessage(playerid, Red, \"Magadat nem banolhatod ki!\");
        //if(GetPVarInt(ID, \"Admin\") >= GetPVarInt(playerid, \"Admin\")) return SendClientMessage(playerid, Red, \"Nálad nagyobb admint nem baolhatsz ki!\");
format(UzU, sizeof(UzU), \"\"#Oranges\"%s \"#Yellow\"ki lett banolva \"#Oranges\"%s \"#Yellow\"által. \"#Oranges\"Indok: %s\", GetPlayerNameEx(ID), GetPlayerNameEx(playerid), Indok);
SendClientMessageToAll(Yellow, UzU);
}
else
{
    SendClientMessage(playerid, Red, \"Ehhez a parancsohoz 3-as adminszint szükséges!\");
}
return 1;
}