Useful Snippets - Printable Version

Useful Snippets - Printable Version

+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: SA-MP Scripting and Plugins (https://sampforum.blast.hk/forumdisplay.php?fid=8)
+--- Forum: Filterscripts (https://sampforum.blast.hk/forumdisplay.php?fid=17)
+--- Thread: Useful Snippets (/showthread.php?tid=281)

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Drug Commands for Health - DHKsyko - 03.06.2007

Heres a simple drug script for player health i made for my server. It allows you you purchase drugs on the fly for health.
Heres wut it scrolls when you type /drugs:

-------------= Drug's To Buy =------------
Weed: costs $1000 - Adds 20% Health
Cocaine: costs $2000 - Adds 40% Health
Speed: costs $3000 - Adds 60% Health
Extacy: costs $4000 - Adds 80% Health
---------Usage: /get(drugname)------------

The script checks for 2 things: Player Money and Player Health:
If you dont have enough money, it wont let you buy the drug, also if the Percent of Health the drug gives you exceeds 100% of the players health it will tell you to buy a cheaper drug, so your health does not exceed 100%

Heres the pasteable code link from pastebin:

http://sykozscripts.pastebin.com/920965

Re: Useful Snippets - Simon - 03.06.2007

http://sa-mp.pastebin.co.uk/16304 - Debugger that I'm using for my gamemode.

pawn Код:

public OnPlayerRequestClass(playerid, classid)
{
    DEBUGF("OnPlayerRequestClass(%d, %d)",playerid, classid);
    
    return 1;
}

In this code if both C_DEBUG and G_DEBUG are true it will print the debug message to console and also to the admins in-game

Smoother /stopanim - BlooDsTainD - 04.07.2007

Servers with looping animations and /stopanim command to stop animations have it just instantly click the character into the default position. with the following animation code you can have them move into the idle position more smoothly without it looking crappy, watch the video if you dont know what i mean, the first example in the video is taken from an existing server, the second is using the following code.

http://www.youtube.com/watch?v=khO6F1gx4cU

Код:

}
	// Leave animation
  if (strcmp("/stop", cmdtext, true) == 0) {
	   ApplyAnimation(playerid, "CARRY", "crry_prtial", 4.0, 0, 0, 0, 0, 0); // Leave animation
     SendClientMessage(playerid, 0xFF0000FF, "");
		 return 1;

Re: Useful Snippets - munich123 - 12.07.2007

Globals:

Код:

new gObjects[ MAX_OBJECTS ];
new TotalObjects = 0;

IsValidObjectID:

Код:

public IsValidObjectID( objectid )
{
    if(
    //weapons
    ( objectid >= 321 && objectid <= 326 )
    || ( objectid >= 330 && objectid <= 331 )
    || ( objectid >= 333 && objectid <= 339 )
    || ( objectid >= 341 && objectid <= 344 )
    || ( objectid >= 346 && objectid <= 363 )
    || ( objectid >= 365 && objectid <= 372 )

    //fun stuff
    || ( objectid >= 1433 && objectid <= 13594 )

    //roads
    || ( objectid >= 5482 && objectid <= 5512 )

    //barriers
    || ( objectid >= 966 && objectid <= 998 )

    //misc 1210-1325
    || ( objectid >= 1210 && objectid <= 1325 )

    //misc 1420-1620
    || ( objectid >= 1420 && objectid <= 1620 )

    //misc 1971-4522
    || ( objectid >= 1971 && objectid <= 4522 ) )
    {
     return 1;
    }
    return 0;
}

SpawnObject

Код:

public SpawnObject( playerid, modelid )
{
    if( IsPlayerAdmin( playerid ) == 0 )
    {
      SendClientMessage( playerid, COLOR_RED, "ADMIN ONLY" );
      return 0;
    }

    if( TotalObjects >= MAX_OBJECTS )
    {
      SendClientMessage( playerid, COLOR_RED, "Too many objects on the map!" );
      return 0;
    }

    if( IsValidObjectID( modelid ) == 0 )
    {
      SendClientMessage( playerid, COLOR_RED, "Invalid or unsafe model id!" );
      return 0;
    }

    new Float:SpawnRotZ;

    if( IsPlayerDriver( playerid ) == 0 )
    {
      new Float:PlayerX, Float:PlayerY, Float:PlayerZ;
      GetPlayerPos( playerid, PlayerX, PlayerY, PlayerZ );
      GetPlayerFacingAngle( playerid, SpawnRotZ );
      gObjects[ TotalObjects ] = CreateObject( modelid, PlayerX, PlayerY, PlayerZ, 0.0, 0.0, SpawnRotZ );
      SetPlayerPos( playerid, PlayerX, PlayerY, PlayerZ + 10.0 );
    }
    else if( IsPlayerDriver( playerid ) == 1 )
    {
      new Float:CarX, Float:CarY, Float:CarZ;
      GetVehiclePos( GetPlayerVehicleID( playerid ), CarX, CarY, CarZ );
      GetVehicleZAngle( GetPlayerVehicleID( playerid ), SpawnRotZ );
      gObjects[ TotalObjects ] = CreateObject( modelid, CarX, CarY, CarZ, 0.0, 0.0, SpawnRotZ );
      SetVehiclePos( GetPlayerVehicleID( playerid ), CarX, CarY, CarZ + 10.0 );
    }

    TotalObjects++;

    new szMsg[ 256 ];
    format( szMsg, sizeof( szMsg ), "Model %i ( Object %i ) spawned by admin.", modelid, TotalObjects );
    SendClientMessageToAll( COLOR_YELLOW, szMsg );
    return 1;
}

DeleteSingleObject

Код:

public DeleteSingleObject( playerid, objectid )
{
    if( IsPlayerAdmin( playerid ) == 0 )
    {
      SendClientMessage( playerid, COLOR_RED, "ADMIN ONLY" );
      return 0;
    }

    if( IsValidObject( objectid ) == 1 )
    {
      DestroyObject( objectid );

      new szDel[ 256 ];
      format( szDel, sizeof( szDel ), "Object id %i deleted by admin!", objectid );
      SendClientMessageToAll( COLOR_YELLOW, szDel );
      TotalObjects--;
      return 1;
    }
    else
    {
      SendClientMessage( playerid, COLOR_RED, "Invalid object id." );
      return 0;
    }

    return 1;
}

DeleteAllObjects

Код:

public DeleteAllObjects( playerid )
{
    if( IsPlayerAdmin( playerid ) == 0 )
    {
      SendClientMessage( playerid, COLOR_RED, "ADMIN ONLY" );
      return 0;
    }

    for( new i = 0; i < MAX_OBJECTS; i++ )
    {
      if( IsValidObject( i ) == 1 )
      {
        DestroyObject( i );
      }
    }

    SendClientMessageToAll( COLOR_YELLOW, "All objects deleted by admin!" );

    TotalObjects = 0;
    return 1;
}

SpawnRamp

Код:

public SpawnRamp( playerid, rampid )
{
    new nrampid = 1655;

    switch( rampid )
    {
        case 1:
        {
          nrampid = 1655;
        }
        case 2:
        {
          nrampid = 1473;
        }
        case 3:
        {
          nrampid = 1474;
        }
        case 4:
        {
          nrampid = 1475;
        }
        case 5:
        {
          nrampid = 1477;
        }
        default:
        {
          nrampid = 1655;
        }
    }
    return SpawnObject( playerid, nrampid );
}

Re: Useful Snippets - ConTron - 15.07.2007

Minigun War Zone (Two in One)
This command will teleport the player to one place then another, in only one co-ordinate!

pawn Код:

if (strcmp(cmdtext, "/minimad", true)==0) // second command
  {
    SendClientMessage(playerid, COLOR_GREEN,"GET READY TO BATTLE :D");
    GameTextForPlayer(playerid, "Minigun wars!", 5000, 0);
    SetPlayerPos(playerid,1410.9625, 667.3798, -193.8245);
    ResetPlayerWeapons(playerid);
    GivePlayerWeapon(playerid, 38, 9000);

    return 1;
  }

Re: Useful Snippets - Alejandro - 01.08.2007

Connect icon in DeathStats from ******

pawn Код:

public OnPlayerConnect(playerid)
{
  SendDeathMessage(playerid, INVALID_PLAYER_ID, 200);
  return 1;
}

Disconnect icon in DeathStats from ******

pawn Код:

public OnPlayerDisconnect(playerid)
{
  SendDeathMessage(INVALID_PLAYER_ID, playerid, 201);
}

[/quote]

the disconnect icon shows for me, but the connect icon wont show.

Re: Useful Snippets - [xA]Ramjet - 02.08.2007

This has been discussed before, if you can't get the disconnect icon to show, use the connect icon for both.

Cheers,
Ramjet.

Re: Useful Snippets - tomozj - 05.08.2007

This gets a randomly selected connected ID. If none is connected, then in theory, it'll keep trying until someone does.

pawn Код:

stock GetRandomID()
{
    new randn = random(MAX_PLAYERS);
    
    if(IsPlayerConnected(randn)) return randn;
    
    else
    {
        return GetRandomID();
    }
}

Example of use:

pawn Код:

GivePlayerMoney(GetRandomID(), 5000);

Anti-DriveBy - Malice - 06.08.2007

Sure there are many anti-driveby filterscripts, but this is just a snippet. You may notice you have what looks like negative ammo upon entering a vehicle, but you don't, it's actually 0.

At the top of the script.

pawn Код:

static DBWeapon[MAX_PLAYERS],DBAmmo[MAX_PLAYERS];

Under OnPlayerStateChange.

pawn Код:

if(newstate == PLAYER_STATE_DRIVER)
    {
      GetPlayerWeaponData(playerid,4,DBWeapon[playerid],DBAmmo[playerid]);
      SetPlayerAmmo(playerid,DBWeapon[playerid],0);
    }
else if(oldstate == PLAYER_STATE_DRIVER)
    {
      GivePlayerWeapon(playerid,DBWeapon[playerid],DBAmmo[playerid]);
    }

Re: Anti-DriveBy - Joske_Vermeulen - 07.08.2007

improved Anti drive by
wich disallows you to shoot as passenger or driver

Код:

on top
static DBWeapon[MAX_PLAYERS],DBAmmo[MAX_PLAYERS],PlayerDied[MAX_PLAYERS];

at OnPlayerConnect
PlayerDied[playerid] = 0;

at OnPlayerDeath
PlayerDied[playerid] = 1;

at OnPlayerEnterVehicle
PlayerDied[playerid] = 0;

public OnPlayerStateChange(playerid, newstate, oldstate)
{
   if (newstate == 3) // passenger
   {
   GetPlayerWeaponData(playerid,4,DBWeapon[playerid],DBAmmo[playerid]);
   SetPlayerAmmo(playerid,DBWeapon[playerid],0);
   }
   if (newstate == 2) // driver
   {
   GetPlayerWeaponData(playerid,4,DBWeapon[playerid],DBAmmo[playerid]);
   SetPlayerAmmo(playerid,DBWeapon[playerid],0);
   }	 
   if (newstate == 1) // foot
   {
   if(PlayerDied[playerid] == 0){
   GivePlayerWeapon(playerid,DBWeapon[playerid],DBAmmo[playerid]);
   }
   }
   return 1;
}

Re: Useful Snippets - boylett - 18.08.2007

Quote:

Originally Posted by tomozj

This gets a randomly selected connected ID. If none is connected, then in theory, it'll keep trying until someone does.

pawn Код:

stock GetRandomID()
{
    new randn = random(MAX_PLAYERS);
    
    if(IsPlayerConnected(randn)) return randn;
    
    else
    {
        return GetRandomID();
    }
}

Example of use:

pawn Код:

GivePlayerMoney(GetRandomID(), 5000);

Isnt that a bit dangerous? If no ones connected it will never end, if a few people are connected it will take a long time to complete and pawn is single threaded. I think this might be better:

pawn Код:

stock GetRandomID()
{
    new bool:connected[MAX_PLAYERS] = false, amount = 0;
    for(new i = 0; i < MAX_PLAYERS; i++)
      if(IsPlayerConnected(i))
      {
        connected[i] = true;
        amount++;
      }
    if(amount = 0) return -1;
    new rand = random(amount), done = 0;
    for(new i = 0; i < MAX_PLAYERS; i++)
      if(connected[i])
      {
        if(done == rand) return i;
        done++;
        }
    return -1;
}

returns -1 if no1s connected.

Re: Useful Snippets - vkmaster - 26.08.2007

Auto Link Vehicle To Interior

Код:

public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
{
  if (IsPlayerInAnyVehicle(playerid))
  {
   LinkVehicleToInterior(GetPlayerVehicleID(playerid), newinteriorid);
  }
  return 1;
}

Credits: munich123

Re: Smoother /stopanim - Salvatore_Salieri - 29.08.2007

Quote:

Originally Posted by BlooDsTainD

Servers with looping animations and /stopanim command to stop animations have it just instantly click the character into the default position. with the following animation code you can have them move into the idle position more smoothly without it looking crappy, watch the video if you dont know what i mean, the first example in the video is taken from an existing server, the second is using the following code.

http://www.youtube.com/watch?v=khO6F1gx4cU

Код:

}
	// Leave animation
  if (strcmp("/stop", cmdtext, true) == 0) {
	   ApplyAnimation(playerid, "CARRY", "crry_prtial", 4.0, 0, 0, 0, 0, 0); // Leave animation
     SendClientMessage(playerid, 0xFF0000FF, "");
		 return 1;

Hi.
How can u make an anim to stop just by pressing a key (for example the RIGHT SHIFT) without using the /stopanim cmd?

Re: Smoother /stopanim - Towlies - 30.08.2007

Quote:

Originally Posted by Salvatore_Salieri

Quote:

Originally Posted by BlooDsTainD

Код:

}
	// Leave animation
  if (strcmp("/stop", cmdtext, true) == 0) {
	   ApplyAnimation(playerid, "CARRY", "crry_prtial", 4.0, 0, 0, 0, 0, 0); // Leave animation
     SendClientMessage(playerid, 0xFF0000FF, "");
		 return 1;

Hi.
How can u make an anim to stop just by pressing a key (for example the RIGHT SHIFT) without using the /stopanim cmd?

Use the function that is made to accept keys....Duh

pawn Код:

public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)

Re: Useful Snippets - boylett - 30.08.2007

This is the new clear text, accounting for the 50 lines of text in 0.2.2

pawn Код:

for(new i = 0; i < 50; i++)
  SendClientMessage(playerid,0xFFFFFFFF," ");

Re: Useful Snippets - vkmaster - 11.09.2007

You may find this useful if you use a dynamic object system and want to teleport to a place (object place) without falling through the objects while they load.....(example: YSI objects)

pawn Код:

forward DynUpdateStart(playerid);
forward DynUpdateEnd(playerid);

pawn Код:

public DynUpdateStart(playerid)
{
    TogglePlayerControllable(playerid, false);
    new string[255];
    format(string, sizeof(string), "~g~Objects~n~~r~Loading");
    GameTextForPlayer(playerid, string, 3000, 6);
    PlayerPlaySound(playerid, 1056, 0.0, 0.0, 0.0);
    SetTimerEx("DynUpdateEnd", 3000, 0,"e",playerid);
    return 1;
}

pawn Код:

public DynUpdateEnd(playerid)
{
    TogglePlayerControllable(playerid, true);
    new string[255];
    format(string, sizeof(string), "~g~Objects~n~~r~Loaded!");
    GameTextForPlayer(playerid, string, 3000, 6);
    PlayerPlaySound(playerid, 1056, 0.0, 0.0, 0.0);
    return 1;
}

Use: (put into the teleport script or spawn etc...)

pawn Код:

DynUpdateStart(playerid)

Credits: Shurty40

Re: Useful Commands - sparker_rus - 02.10.2007

simple anti-max ping!

Quote:

public OnPlayerConnect(playerid)
{
SetTimerEx("MaxPing",15000,0,"d",playerid);
return 1;
}

public MaxPing(playerid)
{
new PlayerPing = GetPlayerPing(playerid);
if (PlayerPing > 550)
{
SendClientMessage(playerid,COLOR_RED,"Sorry,but your ping is very hight!");
new PlayerName[30], str[256];
GetPlayerName(playerid, PlayerName, 30);
format(str, 256, "%s has been kicked for max ping!", PlayerName);
SendClientMessageToAll(COLOR_GREEN,str);
Kick(playerid);
}else{
SendClientMessage(playerid,COLOR_GREEN,"Your ping is normal!;");
}
return 1;
}

sorry for my bad english!
i am russian

Re: Useful Snippets - yom - 05.10.2007

Nice thing ******, i'm just wondering if it's really more efficient than normal loops (if there is not much thing to do in the loop).

To add something useful in this post, probably a lot of people ignore this:

Instead of doing something like this (beginner method):

pawn Код:

new bool:B = true;

Test()
{
    if (B)
        B = false;
    else
        B = true;

    printf( "B is now %s", (B ? ("true") : ("false")) );
}

Or..like that (intermediate method):

pawn Код:

new bool:B = true;

Test()
{
    B = B ? false : true;

    printf( "B is now %s", (B ? ("true") : ("false")) );
}

You can simply do (leet method):

pawn Код:

new bool:B = true;

Test()
{
    B = !B;

    printf( "B is now %s", (B ? ("true") : ("false")) );
}

Run Test() a few time, this will print alternatively "B is now false", "B is now true", "B is now false"...
They all do the same thing, the last one is just much easier to write, i've found this there is a few days.
This obviously works only for booleans and this can be useful for toggleable commands/options, things like that.

PS: Why Useful topics are all un-stickied ?

Re: Useful Snippets - snipe69 - 18.12.2007

u guys only need to set a timer to destroy vehicle after 1 second the player have no time to come back i already tested nowone crash

Re: Useful Snippets - Pixels^ - 18.12.2007

Quote:

Originally Posted by [TG

Snipe ]
u guys only need to set a timer to destroy vehicle after 1 second the player have no time to come back i already tested nowone crash

What do you think my script does? Also a little extra security doesn't hurt.