GTA Közösség - A magyar GTA fórum

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => A témát indította: adamvok60 - 2013. szeptember 30. - 22:45:33

Cím: Teleportok
Írta: adamvok60 - 2013. szeptember 30. - 22:45:33

Sziasztok
Elhosztam egy pár teleportot ZCMD-vel!
Inkább kezdõknek szánom...
Teleportok:
/lsair
/lvair
/sfair
/chilliad
/lve
/area
/bayside
/beach
/pd
/vh
/kacc
/angelpine
Ennyi parancs lenne...
Készitette: Graduado_Cabeludo (Én)
Készitési idõ: 15-20 perc(helyek keresésével)
Tesztelve lett!
Letöltés:
PWN: http://www.solidfiles.com/d/36b834692c/
AMX: http://www.solidfiles.com/d/acdb1c09c3/
Pawn code:
 

//Te//telport-By:Graduado_Cabeludo
#include <a_samp>
#include <zcmd>
CMD:lsair(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
       format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált  Los Santos reptérre{FF0000}(/lsair)\",name);
       SendClientMessageToAll(0xFFFF00AA, string);
       if(IsPlayerInAnyVehicle(playerid))
    {
SetVehiclePos(GetPlayerVehicleID(playerid),1957.9131,-2289.7188);
    } else {
        SetPlayerPos(playerid,1957.9131,-2289.7188);
    }
    return 1;
}
CMD:lvair(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált  Las Venturas reptérre{FF0000}(/lvair)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),1521.9480,1831.4257,10.8955);
    } else {
        SetPlayerPos(playerid,1546.0148,1801.9745,10.8955);
    }
    return 1;
}
CMD:sfair(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált  San Fierro reptérre{FF0000}(/sfair)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),-1319.3417,-220.7780);
    } else {
        SetPlayerPos(playerid,-1319.3417,-220.7780);
    }
    return 1;
}
CMD:chilliad(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált  Chilliad-ra{FF0000}(/chilliad)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),-2317.1211,-1631.3965);
    } else {
        SetPlayerPos(playerid,-2317.1211,-1631.3965);
    }
    return 1;
}
CMD:lve(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált  Las Venturas elhagyatott reptérre{FF0000}(/lve)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),386.2773,2435.5281);
    } else {
        SetPlayerPos(playerid,386.2773,2435.5281);
    }
    return 1;
}
CMD:area(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált  Area-ba{FF0000}(/area)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),105.7600,1899.6545);
    } else {
        SetPlayerPos(playerid,105.7600,1899.6545);
    }
    return 1;
}
CMD:bayside(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált Bayside-ba{FF0000}(/bayside)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),8.5973,-45.0883);
    } else {
        SetPlayerPos(playerid,8.5973,-45.0883);
    }
    return 1;
}
CMD:beach(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált Beach-re{FF0000}(/beach)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),369.4176,-1861.1160);
    } else {
        SetPlayerPos(playerid,369.4176,-1861.1160);
    }
    return 1;
}
CMD:pd(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált Los Santos Rendõrségre{FF0000}(/pd)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),1542.9640,-1675.3795);
    } else {
        SetPlayerPos(playerid,1542.9640,-1675.3795);
    }
    return 1;
}
CMD:vh(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált Los Santos Városházára{FF0000}(/vh)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),1484.6520,-1742.0731);
    } else {
        SetPlayerPos(playerid,1484.6520,-1742.0731);
    }
    return 1;
}
CMD:kacc(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált K.A.C.C-ra{FF0000}(/kacc)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),2501.0391,2773.5557);
    } else {
        SetPlayerPos(playerid,2501.0391,2773.5557);
    }
    return 1;
}
CMD:angelpine(playerid, params[])
{
        new name[MAX_PLAYER_NAME+1], string[128];
       GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), \"{0000FF}%s {FFFF00}Elteleportált AngelPine-ba{FF0000}(/angelpine)\",name);
    SendClientMessageToAll(0xFFFF00AA, string);
    if(IsPlayerInAnyVehicle(playerid))
    {
        SetVehiclePos(GetPlayerVehicleID(playerid),-2055.7942,-2524.4697);
    } else {
        SetPlayerPos(playerid,-2055.7942,-2524.4697);
    }
    return 1;
}

 
Használjátok egészséggel sziasztok!

Cím: Teleportok
Írta: Lester - 2013. október 01. - 05:17:54

Fölöslegesnek tartom hogy még teleportokat is rakjunk fel, mivel ez tényleg nem munka..

De fáradtál vele így hát kapsz 1 \" + \", pár kezdõn talán segít, de ha egy teleportot nem hagyunk nekik hogy megcsináljanak, akkor nem tudom hogy mitõl fognak fejlõdni..  :noexpression:

Cím: Teleportok
Írta: ZyZu. - 2013. október 01. - 10:06:01

Ez nem szkript/sem kód mivel ez pazarlás.. aki így csinálja a módját annak nem csodálom miért laggol tele..

1. Minek annyi név lekérdezés? stockban megírod.
 

stock pName( playerid )
{
new name[ MAX_PLAYER_NAME ];
GetPlayerName( playerid, name, sizeof name );
return name;
}

 
2. Az egész kód hosszúságát is lehet röviditeni színtén egy sorra!
 

stock AddTeleport( playerid, uzenet[ ], teleneve[], Float:X, Float:Y, Float:Z, interior, world )
{
   SendClientMessage( playerid, -1, uzenet );
   format( karakterlanc, sizeof( karakterlanc ), \"{00ff09}» Teleport «  {%06x}%s {5156e8}elteleportált {ffffff}%s {5156e8}pályára!\",                                  GetPlayerColor( playerid ) >>> 8, pName( playerid ), teleneve );
   SendClientMessageToAll( -1, karakterlanc );
   SetPlayerPos( playerid, X, Y, Z+3 );
   SetPlayerInterior( playerid, interior );
   SetPlayerVirtualWorld( playerid, world );
       return 1;
}

 
Példa
 

CMD:farm( playerid, params[ ] ) return AddTeleport( playerid, \"Üdvözöllek a Farmon!\", \"/farm\", 0.0, 0.0, 0.0, 0, 0 );

 
Teljes kód
 

#include a_samp
#include zcmd
new karakterlanc[ 128 + 1 ];
CMD:farm( playerid, params[ ] ) return AddTeleport( playerid, \"Üdvözöllek a Farmon!\", \"/farm\", 0.0, 0.0, 0.0, 0, 0 );
stock AddTeleport( playerid, uzenet[ ], teleneve[], Float:X, Float:Y, Float:Z, interior, world )
{
   SendClientMessage( playerid, -1, uzenet );
   format( karakterlanc, sizeof( karakterlanc ), \"{00ff09}» Teleport «  {%06x}%s {5156e8}elteleportált {ffffff}%s {5156e8}pályára!\",                                  GetPlayerColor( playerid ) >>> 8, pName( playerid ), teleneve );
   SendClientMessageToAll( -1, karakterlanc );
   SetPlayerPos( playerid, X, Y, Z+3 );
   SetPlayerInterior( playerid, interior );
   SetPlayerVirtualWorld( playerid, world );
       return 1;
}
stock pName( playerid )
{
new name[ MAX_PLAYER_NAME ];
GetPlayerName( playerid, name, sizeof name );
return name;
}

Cím: Teleportok
Írta: ClimaCool - 2013. október 01. - 14:36:11

Off:Huh észrevettétek hogy az én mappjaim teleportjaim vannak benne :hmmm:
Konkrétan ez http://sampforum.hu/index.php?topic=44432
On:Szar lett mert mivel más szervereken más mapp van és nem ugyanaz a spawnhely kell -.-\"
Üdv

Cím: Teleportok
Írta: gyuri98 - 2013. október 02. - 16:02:05

Kezdõknek jól jöhet szerintem...

Cím: Teleportok
Írta: kizo45 - 2013. október 05. - 21:01:48

kösz lehet h kell

Cím: Teleportok
Írta: Dani99 - 2014. december 31. - 21:18:59

Ez minek? Egy atom kezdő is ír magának teleportokat!