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: $uRí - 2012. április 14. - 23:05:56

Cím: Power Tûz/Fire!
Írta: $uRí - 2012. április 14. - 23:05:56
Üdv elhoztam nektek a www.sa-mp.com fórumrol egy szépen kidolgozott szkriptet! Lényege ahányszor beírod /fire anyi tûz bombád lesz! Magyarositani nem kell mert nincsen benne szöveg :D
Erdeti Téma: http://forum.sa-mp.com/showthread.php?t=320398
Erdeti Készitõ: BRICS
Szkript:
 

#include <a_samp>
/*POWER FIRE by BRICS*/
#define POWER_FIRE_ENABLED_TEXT \"The power of fire enabled. Using the power-fire - punch\"
#define ERROR_1 \"You already have the power-fire\"
#define MESS_1 \"You do not own a power-fire\"
#define FIRE_TIMER_INTERVAL 80
#define FIRE_POWER_SOUND 1039
#define FIRE_START_DIST 13.0
#define FIRE_FINAL_DIST 90.0
#define FIRE_NEXT_DIST 3.0
#define Explosion_Rad 5
#define Explosion_Type 1
#define FIRE_CMD \"/fire\"
#define PLAYER_DAMAGE_DIST 1.5
#define VEH_DAMAGE_DIST 4.0
/*Code*/
new S[MAX_PLAYERS] = -1;
new Fires[MAX_PLAYERS];
new Float: dist[MAX_PLAYERS]/* = 100.0*/;
new Timer[MAX_PLAYERS];
new Float: PEX[3][MAX_PLAYERS];
new Float: P[4][MAX_PLAYERS];
forward Fireman(playerid);
public OnFilterScriptInit()
{
print(\"   Fire-Power by BRICS loaded.\");
for(new i; i < GetMaxPlayers(); i++)S = -1;
return 1;
}
public OnFilterScriptExit()
{
    for(new i; i < GetMaxPlayers(); i++)KillTimer(Timer);
    print(\"   Fire-Power by BRICS unloaded.\");
return 1;
}
public OnPlayerConnect(playerid)
{
    S[playerid] = -1;
    Fires[playerid] = 0;
return 1;
}
public OnPlayerCommandText(playerid, cmdtext[])
{
if (strcmp(FIRE_CMD, cmdtext, true, 10) == 0)
{
if(S[playerid] > -1)return SendClientMessage(playerid,-1,ERROR_1);
S[playerid] = 1;
Fires[playerid] = 5;
SendClientMessage(playerid,-1,POWER_FIRE_ENABLED_TEXT);
return 1;
}
return 0;
}
public Fireman(playerid)
{
if(dist[playerid] >= FIRE_FINAL_DIST)
{
KillTimer(Timer[playerid]);
//dist[playerid] = 100.0;
if(Fires[playerid] == 0)
{
               S[playerid] = -1;
               SendClientMessage(playerid,-1,MESS_1);
               return 1;
}
S[playerid] = 1;
return 1;
}
    GetXYInFrontOfPoint(P[0][playerid],P[1][playerid], PEX[0][playerid], PEX[1][playerid], P[3][playerid], dist[playerid]);
    CreateExplosion(PEX[0][playerid],PEX[1][playerid],P[2][playerid],Explosion_Type,Explosion_Rad);
    for(new i; i < GetMaxPlayers(); i ++)
    {
if(!IsPlayerConnected(i))continue;
if(GetPlayerDistanceFromPoint(i,PEX[0][playerid],PEX[1][playerid],P[2][playerid]) < PLAYER_DAMAGE_DIST)
{
             new Float:hp;
    GetPlayerHealth(i,hp);
    if(hp <= 0)continue;
    SetPlayerHealth(i,-1);
       }
    }
for(new v; v < MAX_VEHICLES; v ++)
{
   if(GetVehicleDistanceFromPoint(v,PEX[0][playerid],PEX[1][playerid],P[2][playerid]) <= VEH_DAMAGE_DIST)SetVehicleHealth(v,0);
   
}
    dist[playerid] += FIRE_NEXT_DIST;
return 1;
}
public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{
if(newkeys & KEY_FIRE)
{
            if(GetPlayerWeapon(playerid) != 0)return 1;
           if(S[playerid] == -1 ||S[playerid] == 0)return 1;
          if(IsPlayerInAnyVehicle(playerid))return 1;
                  dist[playerid] = FIRE_START_DIST;
                  GetPlayerPos(playerid,P[0][playerid],P[1][playerid],P[2][playerid]);
                GetPlayerFacingAngle(playerid,P[3][playerid]);
                  Timer[playerid] = SetTimerEx(\"Fireman\",FIRE_TIMER_INTERVAL,1,\"d\",playerid);
                  S[playerid] = 0;
                  Fires[playerid] --;
                  PlayerPlaySound(playerid,FIRE_POWER_SOUND,0,0,0);
}
return 1;
}
stock GetXYInFrontOfPoint(Float:x, Float:y, &Float:x2, &Float:y2, Float:A, Float:distance)
{
    x2 = x + (distance * floatsin(-A, degrees));
    y2 = y + (distance * floatcos(-A, degrees));
}

 
-Ideális, TDM vagy ZOMBI szerverekre ! Sok síkert :)
Videó:
 
Cím: Power Tûz/Fire!
Írta: Mokus - 2012. április 14. - 23:09:56
Ez jol jön de mivel készitetted a videot ha ezt megtudhatnám?
Cím: Power Tûz/Fire!
Írta: $uRí - 2012. április 14. - 23:10:34
Idézetet írta: Mokus date=1334437796\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"20183\" data-ipsquote-contentclass=\"forums_Topic
Ez jol jön de mivel készitetted a videot ha ezt megtudhatnám?
 
Semivel, nem én készitettem hanem az erdeti készitõ :D
E: De van külön program a videó készitésére!
Cím: Power Tûz/Fire!
Írta: Dead - 2012. április 15. - 06:53:46
Ez jó cucc XD
Funolni lehet vele :)
Cím: Power Tûz/Fire!
Írta: instant - 2012. április 15. - 08:18:55
ez mekkora :D
Like  :thumbsup: :thumbsup:
Cím: Power Tûz/Fire!
Írta: Benceee - 2012. április 15. - 09:42:43
Hiányzik az #include < a_samp >.
Cím: Power Tûz/Fire!
Írta: $uRí - 2012. április 15. - 09:55:13
Nem hiányzik mert benne van az ô saját inc be!
Cím: Power Tûz/Fire!
Írta: Pedró - 2012. április 15. - 18:22:47
elhoztam nektek a www.sa-mp.com fórumrol[/quote]
istenem, meddig tart ez a korszak? : \' <
 
Hiányzik az #include < a_samp >.
Nem hiányzik mert benne van az ô saját inc be![/quote]

asd ez fájt : <
amúgy semmi értelme ilyenekkel telirakni a fórumot.
mindenki csak hsz hunterkedik hogy húdejó stb. de senki sem használja kb..
tiszteletem!
Stuntzor
[/quote]
[/quote]
Cím: Power Tûz/Fire!
Írta: Prototype - 2012. április 15. - 18:43:13
nekem nem mûködik :(
G:\\Teszt szerver\\filterscripts\\fire.pwn(45) : error 017: undefined symbol \"ERROR_1\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(48) : error 017: undefined symbol \"POWER_FIRE_ENABLED_TEXT\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(57) : error 017: undefined symbol \"FIRE_FINAL_DIST\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(64) : error 017: undefined symbol \"MESS_1\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(71) : error 017: undefined symbol \"Explosion_Rad\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(89) : error 017: undefined symbol \"FIRE_NEXT_DIST\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(99) : error 017: undefined symbol \"FIRE_START_DIST\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(102) : error 017: undefined symbol \"FIRE_TIMER_INTERVAL\"
G:\\Teszt szerver\\filterscripts\\fire.pwn(105) : error 017: undefined symbol \"FIRE_POWER_SOUND\"
Pawn compiler 3.2.3664           Copyright © 1997-2006, ITB CompuPhase
9 Errors.
Ezek a hibák :( Pedig úgy beraknám a szerómba
Cím: Power Tûz/Fire!
Írta: $uRí - 2012. április 15. - 18:52:38
Rosszul másoltam be  :D, javitottam fent van a code ba a javitott verzió!  :laugh:
Cím: Power Tûz/Fire!
Írta: Prototype - 2012. április 15. - 18:59:17
Köszi :D
Cím: Power Tûz/Fire!
Írta: DJтoυcн - 2012. április 15. - 19:14:49
Azért Server Unkwnow Command mivel ez nem gamemode

Ez egy script nem mode..
Cím: Power Tûz/Fire!
Írta: Rexii - 2012. április 16. - 20:57:09
Hasznosnak tûnik!
Cím: Power Tûz/Fire!
Írta: SmokeR - 2012. április 17. - 18:14:42
hülyéskedni lehet vele :D
Cím: Power Tûz/Fire!
Írta: #Nexus# - 2012. április 17. - 18:18:59
Max annyira jó hogy ezt a lángcsóvát fel lehet használni máshol
Cím: Power Tûz/Fire!
Írta: Benq - 2012. április 17. - 21:48:13
Hát ez jó  :D
Cím: Power Tûz/Fire!
Írta: Ricsmix - 2012. április 19. - 20:58:23
nekem ez nagyon tetszik :D
Cím: Power Tûz/Fire!
Írta: Caesar - 2012. június 04. - 20:19:46
Ja én ezt ismerem durva naon :D xDD