Szerző Téma: Pokemon Rendszer (Megtekintve 2878 alkalommal)

ғαιιοцт · « **Dátum:** 2012. október 30. - 20:34:18 »

$\"ball.gif\"$

Sziasztok!!

Elhoztam egy jó kis aranyos filterszkriptet bevallóm ezt volt régen, kedvenc rajzfilmem

Parancsok:

/Buyturtle buy teknõs

/Sellturtle eladó teknõs

/Getturtle kap teknõs a Pokemon labda

/Goturtle hívás teknõs egy Pokémon labdát (fog követni)

/Buycow buy tehén

/Sellcow eladni tehén

/Getcow kap tehén a Pokemon labda

/Gocow hívás tehén egy Pokémon labdát (fog követni)

azonos papagáj

Készítette: wumpyc

Nyelv: Angol ((Párnapon belül Magyar verzió is lesz))!!

Tartalmaz:

ZCMD

A_SAMP

Code Tag:

#include \"a_samp\"
#include <zcmd>
new Squirtle[MAX_PLAYERS];
new SquirtleTime[MAX_PLAYERS];
new GotATurtle[MAX_PLAYERS];
new PokemonTurtle[MAX_PLAYERS];
new Cow[MAX_PLAYERS];
new CowTime[MAX_PLAYERS];
new GotACow[MAX_PLAYERS];
new PokemonCow[MAX_PLAYERS];
new Parrot[MAX_PLAYERS];
new ParrotTime[MAX_PLAYERS];
new GotAParrot[MAX_PLAYERS];
new PokemonParrot[MAX_PLAYERS];
forward Squirtle_I_Choose_Youuuuu(playerid);
public Squirtle_I_Choose_Youuuuu(playerid)
{
       new Float:phrr[4];
       new playerstate = GetPlayerState(playerid);
        if (playerstate == PLAYER_STATE_DRIVER
        || playerstate == PLAYER_STATE_PASSENGER)
        {
        if(IsPlayerAttachedObjectSlotUsed(playerid,4))
        {
        SendClientMessage(playerid, 0xFF0000FF,\"Are you crazy?..Turtle can\'t follow you when you\'re driving.\");
        SendClientMessage(playerid, 0xFF0000FF,\"Turtle is in your pokè ball!\");
KillTimer(SquirtleTime[playerid]);
        DestroyObject(Squirtle[playerid]);
GotATurtle[playerid] = 0;
}
        }
        if (playerstate == PLAYER_STATE_ONFOOT)
        {
        GetPlayerPos(playerid, phrr[0],phrr[1],phrr[2]);
         GetPlayerFacingAngle(playerid, phrr[3]);
        SetObjectRot(Squirtle[playerid],0.0, 0.0, phrr[3]);
        MoveObject(Squirtle[playerid], phrr[0]-3,phrr[1],phrr[2],10);
        }
        return 1;
}
COMMAND:goturtle(playerid,params[])
{
    new Float:x1,Float:y1,Float:z1,Float:a;
    if(IsPlayerAttachedObjectSlotUsed(playerid,4))
    {
if (GotATurtle[playerid] == 0)
{
GetPlayerPos(playerid,x1,y1,z1);
    GetPlayerFacingAngle(playerid, a);
    Squirtle[playerid] = CreateObject(1609,x1,y1,z1-1,a,0.0,0.0);
    SquirtleTime[playerid] = SetTimerEx(\"Squirtle_I_Choose_Youuuuu\",1,true, \"i\", playerid);
    SendClientMessage(playerid, 0x00FF00FF,\"TURTLE I CHOOSE YOUU , GO!\");
      SendClientMessage(playerid, 0xFFFF00FF,\"Now use /getturtle to get it back to pokè ball!\");
    GotATurtle[playerid] = 1;
}
else
{
SendClientMessage(playerid, 0xFF0000FF,\"Are you blind?!?!\");
}
}
    else
    {
    SendClientMessage(playerid, 0xFF0000FF,\"You dont have a turtle!\");
    }
return 1;
}
COMMAND:getturtle(playerid,params[])
{
if(IsPlayerAttachedObjectSlotUsed(playerid,4))
       {
if (GotATurtle[playerid] == 1)
{
        SendClientMessage(playerid, 0xFFFF00FF,\"Come back in pokè ball, turtle!\");
        KillTimer(SquirtleTime[playerid]);
        DestroyObject(Squirtle[playerid]);
        GotATurtle[playerid] = 0;
}
else
{
SendClientMessage(playerid, 0xFF0000FF,\"First you have to call it from your pokè ball!\");
}
}
       else
       {
       SendClientMessage(playerid, 0xFF0000FF,\"You dont have a turtle!\");
       }
    return 1;
}
 
public OnPlayerDisconnect(playerid)
{
        KillTimer(SquirtleTime[playerid]);
        GotATurtle[playerid] = 0;
        KillTimer(CowTime[playerid]);
        GotACow[playerid] = 0;
        KillTimer(ParrotTime[playerid]);
        GotAParrot[playerid] = 0;
return 1;
}
COMMAND:buyturtle(playerid,params[])
{
        if (IsPlayerAttachedObjectSlotUsed(playerid, 4) == 0)
        {
if (GetPlayerMoney(playerid) >= 20000)
{
SetPlayerAttachedObject(playerid, 4, 1609, 10, 0.0, 0.0,0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0);
        SendClientMessage(playerid, 0x00FF00FF,\"You have bought a turtle\");
       SendClientMessage(playerid, 0x00FF00FF,\"Now use /goturtle to call it from pokè ball!\");
        GivePlayerMoney(playerid, -20000);
GotATurtle[playerid] = 0;
        PokemonTurtle[playerid] = 1;
}
}
{
SendClientMessage(playerid,0xFF0000FF,\"You don\'t have enough cash!\");
}
return 1;
}
COMMAND:sellturtle(playerid,params[])
{
        if(IsPlayerAttachedObjectSlotUsed(playerid,4))
        {
        RemovePlayerAttachedObject(playerid,4);
        DestroyObject(Squirtle[playerid]);
        SendClientMessage(playerid, 0x00FF00FF,\"You have sold a turtle\");
       GivePlayerMoney(playerid, 19000);
        GotATurtle[playerid] = 0;
        PokemonTurtle[playerid] = 0;
}
        return 1;
}
forward Cow_I_Choose_Youuuuu(playerid);
public Cow_I_Choose_Youuuuu(playerid)
{
       new Float:phrr[4];
       new playerstate = GetPlayerState(playerid);
        if (playerstate == PLAYER_STATE_DRIVER
        || playerstate == PLAYER_STATE_PASSENGER)
        {
        if(PokemonCow[playerid] == 1)
        {
        SendClientMessage(playerid, 0xFF0000FF,\"Are you crazy?..Cow can\'t follow you when you\'re driving.\");
        SendClientMessage(playerid, 0xFF0000FF,\"Cow is in your pokè ball!\");
KillTimer(CowTime[playerid]);
        DestroyObject(Cow[playerid]);
GotACow[playerid] = 0;
}
        }
        if (playerstate == PLAYER_STATE_ONFOOT)
        {
        GetPlayerPos(playerid, phrr[0],phrr[1],phrr[2]);
         GetPlayerFacingAngle(playerid, phrr[3]);
        SetObjectRot(Cow[playerid],0.0, 0.0, phrr[3]);
        MoveObject(Cow[playerid], phrr[0]-10,phrr[1],phrr[2],10);
        }
        return 1;
}
COMMAND:gocow(playerid,params[])
{
    new Float:x1,Float:y1,Float:z1,Float:a;
    if(PokemonCow[playerid] == 1)
    {
if (GotACow[playerid] == 0)
{
GetPlayerPos(playerid,x1,y1,z1);
    GetPlayerFacingAngle(playerid, a);
    Cow[playerid] = CreateObject(16442,x1-10,y1,z1-1,a,0.0,0.0);
    CowTime[playerid] = SetTimerEx(\"Cow_I_Choose_Youuuuu\",1,true, \"i\", playerid);
    SendClientMessage(playerid, 0x00FF00FF,\"COW I CHOOSE YOUU , GO!\");
      SendClientMessage(playerid, 0xFFFF00FF,\"Now use /getcow to get it back to pokè ball!\");
    GotACow[playerid] = 1;
}
else
{
SendClientMessage(playerid, 0xFF0000FF,\"Are you blind?!?!\");
}
}
    else
    {
    SendClientMessage(playerid, 0xFF0000FF,\"You dont have a cow!\");
    }
return 1;
}
COMMAND:getcow(playerid,params[])
{
if (PokemonCow[playerid] == 1)
{
if (GotACow[playerid] == 1)
{
        SendClientMessage(playerid, 0xFFFF00FF,\"Come back in pokè ball, cow!\");
        KillTimer(CowTime[playerid]);
        DestroyObject(Cow[playerid]);
        GotACow[playerid] = 0;
}
else
{
SendClientMessage(playerid, 0xFF0000FF,\"First you have to call it from your pokè ball!\");
}
}
       else
       {
       SendClientMessage(playerid, 0xFF0000FF,\"You dont have a cow!\");
       }
    return 1;
}
 
COMMAND:buycow(playerid,params[])
{
        if (PokemonCow[playerid] == 0 && GetPlayerMoney(playerid) >= 20000)
        {
SendClientMessage(playerid, 0x00FF00FF,\"You have bought a cow\");
       SendClientMessage(playerid, 0x00FF00FF,\"Now use /gocow to call it from pokè ball!\");
        GivePlayerMoney(playerid, -20000);
GotACow[playerid] = 0;
        PokemonCow[playerid] = 1;
}
else
{
SendClientMessage(playerid,0xFF0000FF,\"You don\'t have enough cash or you already have a cow!\");
}
return 1;
}
COMMAND:sellcow(playerid,params[])
{
        if(PokemonCow[playerid] == 1)
        {
        DestroyObject(Cow[playerid]);
        SendClientMessage(playerid, 0x00FF00FF,\"You have sold a cow\");
       GivePlayerMoney(playerid, 19000);
        GotACow[playerid] = 0;
        PokemonCow[playerid] = 0;
}
        return 1;
}
forward Parrot_I_Choose_Youuuuu(playerid);
public Parrot_I_Choose_Youuuuu(playerid)
{
       new Float:phrr[4];
       new playerstate = GetPlayerState(playerid);
        if (playerstate == PLAYER_STATE_DRIVER
        || playerstate == PLAYER_STATE_PASSENGER)
        {
        if(PokemonParrot[playerid] == 1)
        {
        SendClientMessage(playerid, 0xFF0000FF,\"Are you crazy?..Parrot can\'t follow you when you\'re driving.\");
        SendClientMessage(playerid, 0xFF0000FF,\"Parrot is in your pokè ball!\");
KillTimer(ParrotTime[playerid]);
        DestroyObject(Parrot[playerid]);
GotAParrot[playerid] = 0;
}
        }
        if (playerstate == PLAYER_STATE_ONFOOT)
        {
        GetPlayerPos(playerid, phrr[0],phrr[1],phrr[2]);
         GetPlayerFacingAngle(playerid, phrr[3]);
        SetObjectRot(Parrot[playerid],0.0, -90.0, phrr[3]);
        MoveObject(Parrot[playerid], phrr[0]-1,phrr[1],phrr[2]+0.5,10);
        }
        return 1;
}
COMMAND:goparrot(playerid,params[])
{
new Float:x,Float:y,Float:z;
if(PokemonParrot[playerid] == 1)
    {
if (GotAParrot[playerid] == 0)
{
GetPlayerPos(playerid,x,y,z);
Parrot[playerid] = CreateObject(19079,x-1,y , z,90,0,45);
    ParrotTime[playerid] = SetTimerEx(\"Parrot_I_Choose_Youuuuu\",1,true, \"i\", playerid);
    SendClientMessage(playerid, 0x00FF00FF,\"PARROT I CHOOSE YOUU , GO!\");
      SendClientMessage(playerid, 0xFFFF00FF,\"Now use /getparrot to get it back to pokè ball!\");
    GotAParrot[playerid] = 1;
}
else
{
SendClientMessage(playerid, 0xFF0000FF,\"Are you blind?!?!\");
}
}
    else
    {
    SendClientMessage(playerid, 0xFF0000FF,\"You dont have a parrot!\");
    }
return 1;
}
COMMAND:getparrot(playerid,params[])
{
if (PokemonParrot[playerid] == 1)
{
if (GotAParrot[playerid] == 1)
{
        SendClientMessage(playerid, 0xFFFF00FF,\"Come back in pokè ball, parrot!\");
        KillTimer(ParrotTime[playerid]);
        DestroyObject(Parrot[playerid]);
        GotAParrot[playerid] = 0;
}
else
{
SendClientMessage(playerid, 0xFF0000FF,\"First you have to call it from your pokè ball!\");
}
}
       else
       {
       SendClientMessage(playerid, 0xFF0000FF,\"You dont have a parrot!\");
       }
    return 1;
}
 
COMMAND:buyparrot(playerid,params[])
{
        if (PokemonParrot[playerid] == 0 && GetPlayerMoney(playerid) >= 20000)
        {
SendClientMessage(playerid, 0x00FF00FF,\"You have bought a parrot\");
       SendClientMessage(playerid, 0x00FF00FF,\"Now use /goparrot to call it from pokè ball!\");
        GivePlayerMoney(playerid, -20000);
GotAParrot[playerid] = 0;
        PokemonParrot[playerid] = 1;
}
else
{
SendClientMessage(playerid,0xFF0000FF,\"You don\'t have enough cash or you already have a parrot!\");
}
return 1;
}
COMMAND:sellparrot(playerid,params[])
{
        if(PokemonParrot[playerid] == 1)
        {
        DestroyObject(Parrot[playerid]);
        SendClientMessage(playerid, 0x00FF00FF,\"You have sold a parrot\");
       GivePlayerMoney(playerid, 19000);
        GotAParrot[playerid] = 0;
        PokemonParrot[playerid] = 0;
}
        return 1;
}
[/pawno]
Eredeti Linkje: http://forum.sa-mp.com/showthread.php?t=293056
Letöltés:
Pastebin:
Link: http://pastebin.com/D1J9Mh6M
Mediafire:
Link: http://www.mediafire.com/error.php?errno=320
Rendszerbe szereplõ állatok:
-Teknõs
-Tehén
-Papagáj
Üdvözlettel:
ғαιιοцт[/b]

Adam_McGoldy · « **Válasz #1 Dátum:** 2012. október 30. - 20:54:43 »

Ez valami brutál jó lehet. Én tuti ki fogom próbálni

Amúgy te írtad, vagy sampforum.com-ról hoztad el nekünk?

T0ny · « **Válasz #2 Dátum:** 2012. október 30. - 20:55:32 »

Google fordítós leírás

Egyébként eredeti témának a linkjét kitehetnéd ha nem te írtad

Sramm · « **Válasz #3 Dátum:** 2012. október 30. - 21:04:55 »

(Párnapon belül Magyar verzió is lesz)[/quote]
Hát ha olyan minõségû lesz, mint a leírás, akkor inkább nem kell

kadaradam · « **Válasz #4 Dátum:** 2012. október 30. - 22:09:49 »

[mod]Eredeti téma,készítõ kirakása kötelezõ,illetve rakd ki a scripitet [code*] tagekben is.[/mod]

ғαιιοцт · « **Válasz #5 Dátum:** 2012. október 30. - 22:16:54 »

Javítva Kadaradam kérésére!!

timbaland10 · « **Válasz #6 Dátum:** 2012. október 30. - 22:18:15 »

Idézetet írta: ғαιιοцт date=1351631814\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"29273\" data-ipsquote-contentclass=\"forums_Topic

Javítva Kadaradam kérésére!!

[ pawn ] erre a codetag-ra gondolt [ /pawn ]

ғαιιοцт · « **Válasz #7 Dátum:** 2012. október 30. - 22:35:59 »

Egy moderátor oldja meg mert nekem nem megy :facepalm:

Próbáltam bárhogy!! :OO

zeteni · « **Válasz #8 Dátum:** 2012. október 30. - 22:57:18 »

[mod]Kicsit módosítottam rajta, ha nem baj. Ha másik fórumról hoztad át, akkor tedd ki a linkjét lécci! Köszi[/mod]

Dead · « **Válasz #9 Dátum:** 2012. október 31. - 09:13:12 »

http://forum.sa-mp.com/member.php?u=22897
biztos vagy ebben a névben?:
ám, nem lehet vmi nagy szám.

ғαιιοцт · « **Válasz #10 Dátum:** 2012. október 31. - 12:21:48 »

http://forum.sa-mp.com/member.php?u=22897
biztos vagy ebben a névben?:

ám, nem lehet vmi nagy szám.
[/quote]
Az az én karakterem te józan ész -,-\'\'

Dante Sanders · « **Válasz #11 Dátum:** 2012. október 31. - 15:30:12 »

Nem nyerte el nagyon a tetszésemet.