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

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => Szkript kérések => A témát indította: BoSS - 2012. április 07. - 17:02:07

Cím: Mentõ munka
Írta: BoSS - 2012. április 07. - 17:02:07

Sziasztok.
Egy mentõ munkát szeretnék kérni tõletek.
Az lenne a lényeg hogy:
1:zcmd-s legyen
2:kapjon pénzt és pontot minden gyógyítás után mondjuk 100$ és 10 pontot
3:legyen mentõ chatjük
4:lehessen õket hívni pl/104
5:két parancsuk legyen /szoli és /gyogyit
6:ha beírják hogy /mento akkor teleportáljon egyhelyre azt majd átírom és csak olyanok tudják elválalni a munkát akiknek van 1600 pontjuk és mentõs skinbe rakja õket oda..
UI: Nem RPG szerora kell hanem FUN-ra azé szeretném így.
Elõre is köszi

Cím: Mentõ munka
Írta: Gabor.. - 2012. április 07. - 17:39:38

#include <a_samp>
#include <zcmd>
#include <sscanf2>
 
public OnPlayerConnect(playerid)
{
     SetPVarInt(playerid, \"Mento\", 0);
     SetPVarInt(playerid, \"Szolgalat\", 0);
     return 1;
}
 
CMD:mento(playerid, params[])
{
 if(GetPlayerScore(playerid) >= 1600)
 {
      SetPVarInt(playerid, \"Mento\", 1);
      SetPlayerPos(playerid, X, Y, Z); // Ide írd a kordinátát!
              SetPlayerSkin(playerid, 275);
 }
 else
 {
               SendClientMessage(playerid, 0xFF0000AA, \"Nincs 1600 pontod!\");
         }
         return 1;
}
CMD:szoli(playerid, params[])
{
     if(GetPVarInt(playerid, \"Szolgalat\") == 0)
     {
   new name[MAX_PLAYER_NAME], string[128];
  
   SetPVarInt(playerid, \"Szolgalat\", 1);
  
           GetPlayerName(playerid, name, MAX_PLAYER_NAME);
   format(string, sizeof(string), \"%s(%d) Mentõ szolgálatba állt!\", name, playerid);
           SendClientMessageToAll(0x33AA33AA, string);
      }
      return 1;
}
CMD:gyogyit(playerid, params[])
{
       if(GetPVarInt(playerid, \"Mento\") == 1)
       {
    new
      PID,
      ertek;
   
            if(sscanf(params, \"ui\", PID, ertek)) return SendClientMessage(playerid, 0xFF0000AA, \"Használat: /heal <ID/Játékosnév> <Érték>\");
    if(ertek < 0 || ertek > 100) return SendClientMessage(playerid, 0xFF0000AA, \"Rossz érték! (0-100)\");
    if(PID == INVALID_PLAYER_ID) return SendClientMessage(playerid, 0xFF0000AA, \"Rossz ID/Név\");
    if(playerid == PID) return SendClientMessage(playerid, 0xFF0000AA, \"Magadanak nem töltheted fel az életedet!\");
    SetPlayerHealth(PID, ertek);
    
    GivePlayerMoney(playerid, 100);
    SetPlayerScore(playerid, GetPlayerScore(playerid) +10);
       }
       else if(GetPVarInt(playerid, \"Mento\") == 0)
       {
            SendClientMessage(playerid, 0xFF0000AA, \"Nem vagy mentõs!\");
       }
       return 1;
}
CMD:104(playerid, params[])
{
 new
  name[MAX_PLAYER_NAME],
  string[128];
  
 GetPlayerName(playerid, name, MAX_PLAYER_NAME);
 format(string, sizeof(string), \"%s(%d) Hívta a mentõket!\", name, playerid);
 SendClientMessageToAll(0x33CCFFAA, string);
         return 1;
}

Tessék, megírtam neked. :)

Cím: Mentõ munka
Írta: BoSS - 2012. április 07. - 17:53:02

Óóó köszönöm szépen :) megy a + még annyit meg tudnál csinálni hogy aki beírja hogy /104 akkor ki dob egy CP-t?

Cím: Mentõ munka
Írta: Gabor.. - 2012. április 07. - 17:59:18

#include <a_samp>
#include <zcmd>
#include <sscanf2>
 
public OnPlayerConnect(playerid)
{
     SetPVarInt(playerid, \"Mento\", 0);
     SetPVarInt(playerid, \"Szolgalat\", 0);
     return 1;
}
 
CMD:mento(playerid, params[])
{
 if(GetPlayerScore(playerid) >= 1600)
 {
      SetPVarInt(playerid, \"Mento\", 1);
      SetPlayerPos(playerid, X, Y, Z); // Ide írd a kordinátát!
              SetPlayerSkin(playerid, 275);
 }
 else
 {
               SendClientMessage(playerid, 0xFF0000AA, \"Nincs 1600 pontod!\");
         }
         return 1;
}
CMD:szoli(playerid, params[])
{
     if(GetPVarInt(playerid, \"Szolgalat\") == 0)
     {
   new name[MAX_PLAYER_NAME], string[128];
  
   SetPVarInt(playerid, \"Szolgalat\", 1);
  
           GetPlayerName(playerid, name, MAX_PLAYER_NAME);
   format(string, sizeof(string), \"%s(%d) Mentõ szolgálatba állt!\", name, playerid);
           SendClientMessageToAll(0x33AA33AA, string);
      }
      return 1;
}
CMD:gyogyit(playerid, params[])
{
       if(GetPVarInt(playerid, \"Mento\") == 1)
       {
    new
      PID,
      ertek;
   
            if(sscanf(params, \"ui\", PID, ertek)) return SendClientMessage(playerid, 0xFF0000AA, \"Használat: /heal <ID/Játékosnév> <Érték>\");
    if(ertek < 0 || ertek > 100) return SendClientMessage(playerid, 0xFF0000AA, \"Rossz érték! (0-100)\");
    if(PID == INVALID_PLAYER_ID) return SendClientMessage(playerid, 0xFF0000AA, \"Rossz ID/Név\");
    if(playerid == PID) return SendClientMessage(playerid, 0xFF0000AA, \"Magadanak nem töltheted fel az életedet!\");
    SetPlayerHealth(PID, ertek);
    
    GivePlayerMoney(playerid, 100);
    SetPlayerScore(playerid, GetPlayerScore(playerid) +10);
       }
       else if(GetPVarInt(playerid, \"Mento\") == 0)
       {
            SendClientMessage(playerid, 0xFF0000AA, \"Nem vagy mentõs!\");
       }
       return 1;
}
CMD:104(playerid, params[])
{
 new 
                  Float:x, Float:y, Float:z;
  name[MAX_PLAYER_NAME],
  string[128];
  
         GetPlayerPos(playerid, x, y, z);
         SetPlayerCheckpoint(playerid, x, y, z);        
 GetPlayerName(playerid, name, MAX_PLAYER_NAME);
 format(string, sizeof(string), \"%s(%d) Hívta a mentõket!\", name, playerid);
 SendClientMessageToAll(0x33CCFFAA, string);
         return 1;
}

:)

Cím: Mentõ munka
Írta: BoSS - 2012. április 07. - 18:06:21

köszi megy még 1 +