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: Bajnok - 2012. November 15. - 19:41:40

Cím: Hó Filterszkript
Írta: Bajnok - 2012. November 15. - 19:41:40

Sziasztok!!

Ebben, egy jó kis hó filterszkriptet hoztam el nem tudom, van e ilyen téma ha van elnézést kérek.

Szóval információk:

Nem magyar

Készítette: Kwarde

Eredeti téma linkje: http://forum.sa-mp.com/showthread.php?t=296904

Parancsok:

1. /snow

2. /allsnowon

3. /allsnowoff

Letöltés((Pastebin.com)):

((pwn)) http://pastebin.com/Dw7f4PCB

Pawno Tag:

#include <a_samp>
#include <streamer>
#include <zcmd>
#undef MAX_PLAYERS
#define MAX_SLOTS           -1
#define MAX_SNOW_OBJECTS    8
#define UPDATE_INTERVAL     750
#if MAX_SLOTS == -1
#error Change MAX_SLOTS to the max players of your server! (At line 6)
#endif
#define ploop(%0)         for(new %0 = 0; %0 < MAX_SLOTS; %0++) if(IsPlayerConnected(%0))
#define CB:%0(%1)           forward %0(%1); public %0(%1)
new bool:snowOn[MAX_SLOTS char],
snowObject[MAX_SLOTS][MAX_SNOW_OBJECTS],
updateTimer[MAX_SLOTS char]
;
public OnFilterScriptExit()
{
ploop(i)
{
    if(snowOn{i})
    {
        for(new j = 0; j < MAX_SNOW_OBJECTS; j++) DestroyDynamicObject(snowObject[j]);
   KillTimer(updateTimer{i});
}
}
return 1;
}
public OnPlayerDisconnect(playerid)
{
if(snowOn{playerid})
{
    for(new i = 0; i < MAX_SNOW_OBJECTS; i++) DestroyDynamicObject(snowObject[playerid]);
snowOn{playerid} = false;
KillTimer(updateTimer{playerid});
}
return 1;
}
CB:UpdateSnow(playerid)
{
if(!snowOn{playerid}) return 0;
new Float:pPos[3];
GetPlayerPos(playerid, pPos[0], pPos[1], pPos[2]);
for(new i = 0; i < MAX_SNOW_OBJECTS; i++) SetDynamicObjectPos(snowObject[playerid], pPos[0] + random(25), pPos[1] + random(25), pPos[2] - 5 + random(10));
return 1;
}
stock CreateSnow(playerid)
{
if(snowOn{playerid}) return 0;
new Float:pPos[3];
GetPlayerPos(playerid, pPos[0], pPos[1], pPos[2]);
for(new i = 0; i < MAX_SNOW_OBJECTS; i++) snowObject[playerid] = CreateDynamicObject(18864, pPos[0] + random(25), pPos[1] + random (25), pPos[2] - 5 + random(10), random(280), random(280), 0, -1, -1, playerid);
snowOn{playerid} = true;
updateTimer{playerid} = SetTimerEx(\"UpdateSnow\", UPDATE_INTERVAL, true, \"i\", playerid);
return 1;
}
stock DeleteSnow(playerid)
{
if(!snowOn{playerid}) return 0;
for(new i = 0; i < MAX_SNOW_OBJECTS; i++) DestroyDynamicObject(snowObject[playerid]);
KillTimer(updateTimer{playerid});
snowOn{playerid} = false;
return 1;
}
CMD:snow(playerid, params[])
{
if(snowOn{playerid})
{
    DeleteSnow(playerid);
    SendClientMessage(playerid, 0x00FF00AA, \"* It\'s not snowing anymore now.\");
}
else
{
    CreateSnow(playerid);
    SendClientMessage(playerid, 0x00FF00AA, \"* Let it snow, let it snow, let it snow!\");
}
return 1;
}
CMD:allsnowon(playerid, params[])
{
    if(!IsPlayerAdmin(playerid)) return 0;
    ploop(i) //This is included in my FS! It\'s the \'#define ploop(%0)\' thing.
    {
        if(snowOn{i}) continue;
        CreateSnow(i);
    }
    return 1;
}
CMD:allsnowoff(playerid, params[])
{
    if(!IsPlayerAdmin(playerid)) return 0;
    ploop(i)
    {
        if(!snowOn{i}) continue;
        DeleteSnow(i);
    }
    return 1;
}

 
 
Remélem, tetszik valakinek!!

Sok szerencsét kívánok a hó filterszkripthez!!

Üdvözlettel: Bajnok!!

Cím: Hó Filterszkript
Írta: Amf - 2012. November 15. - 20:49:56

Ezt nem Y-Less készítette? :hmmm:

Cím: Hó Filterszkript
Írta: b1s - 2012. November 15. - 21:22:28

Teszteltem, mûködik :)

Cím: Hó Filterszkript
Írta: Bajnok - 2012. November 15. - 21:28:47

Ezt nem Y-Less készítette?[/quote]
Nem tudom...

Én úgy tudom nem õ készítette!!

Cím: Hó Filterszkript
Írta: JackBronson - 2012. November 16. - 09:21:36

Ezt tavaly hasznaltam :D

Cím: Hó Filterszkript
Írta: pisti525 - 2012. November 16. - 22:48:23

Ez mindenkinek látszódik vagy csak magamnak látszódik ?

Cím: Hó Filterszkript
Írta: ObiWan - 2012. November 18. - 22:04:37

Nekem errort ír a 12. sorra :S
Valaki valami megoldás?

Cím: Hó Filterszkript
Írta: Axe9 - 2012. November 19. - 00:26:31

a 12sorra nekem is errort ír. :S Help pls
Erroros sor:
 

        #error MAX_SLOTS to the max players of your server! (At line 6)

 
Error:
 

snows.pwn(12) : fatal error 111: user error: MAX_SLOTS to the max players of your server! (At line 6)

Cím: Hó Filterszkript
Írta: JackBronson - 2012. November 19. - 06:25:59

#error MAX_SLOTS IDE egy számot irj pl 30
Ahány slotos a szeród annyit írj oda.

Cím: Hó Filterszkript
Írta: Jippy - 2012. November 19. - 11:19:58

Ezt tavaly használtam, amikor ismerõsömmel játszottam házi szerón. Nagyon jó kis script, köszi hogy felraktad mert eltûnt..   :thumbsup:

Cím: Hó Filterszkript
Írta: Axe9 - 2012. November 19. - 22:37:42

Error::S
 

D:\\Játékdvd-cd\\GTA SA SCRIPT\\samp03e_svr_R2_win32\\pawno\\snows.pwn(12) : fatal error 111: user error: MAX_SLOTS 200
 
Compilation aborted.Pawn compiler 3.2.3664           Copyright (c) 1997-2006, ITB CompuPhase
 
1 Error.

Cím: Hó Filterszkript
Írta: Jippy - 2012. November 20. - 21:44:20

A szervered 200 slotos összesen?
Mert úgy kell oda írni ahány slotos
Nekem 10 slotos házi szerveren így van: MAX_SLOTS 10
és mûködik..

Cím: Hó Filterszkript
Írta: ZyZu. - 2012. November 21. - 15:15:33

Idézetet írta: Axe9 date=1353361062\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"29874\" data-ipsquote-contentclass=\"forums_Topic

Error::S
 

D:\\Játékdvd-cd\\GTA SA SCRIPT\\samp03e_svr_R2_win32\\pawno\\snows.pwn(12) : fatal error 111: user error: MAX_SLOTS 200
 
Compilation aborted.Pawn compiler 3.2.3664           Copyright (c) 1997-2006, ITB CompuPhase
 
1 Error.

 

Szerintem nagy számot írtál oda amennyi a szervered férõhelye anyit írj oda..

Cím: Hó Filterszkript
Írta: ~DuMBasS - 2012. November 21. - 17:00:17

200 Slottos a szerverem.