[FilterScript] Dynamic Military Landmines System

[FilterScript] Dynamic Military Landmines System - 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: [FilterScript] Dynamic Military Landmines System (/showthread.php?tid=600369)

Pages: 1 2 3

Dynamic Military Landmines System - AbyssMorgan - 07.02.2016

Hello, I would like to present a dynamic system landmines.

Video:
https://www.youtube.com/watch?v=SXwb26E-kkU
https://www.youtube.com/watch?v=_E3tw_qYzhI

Functions:

PHP Code:



Mines::Create(type,Float:detection_range,Float:explode_radius,Float:health,respawntime,Float:x,Float:y,Float:z,worldid,interiorid,playerid,Float:streamdistance,mine_object = MINE_OBJECT_STANDARD,teamid = ANY_TEAM,detect_type = MINE_DETECT_TYPE_ALL,byplayerid = INVALID_PLAYER_ID,Float:damage=-1.0,Float:vehicle_damage=-1.0);
 
type - explosion type //https://sampwiki.blast.hk/wiki/Explosion_List
Float:detection_range - detection range player/vehicle
Float:explode_radius - the explosion range (the same as in CreateExplosion)
Float:health - mine health (set MINE_INFINITY_HEALTH to be indestructible)
respawntime - respawn time in seconds
Float:x, Float:y, Float:z, worldid, interiorid, playerid, Float:streamdistance - the same as in CreateDynamicObject
mine_object - mine object
teamid - player team will be immune to detection range or destroy mine
detect_type - specify which elements are to be detected (MINE_DETECT_TYPE_ALL / MINE_DETECT_TYPE_PLAYER / MINE_DETECT_TYPE_VEHICLE)
Float:damage - player damage on explosion created
Float:vehicle_damage - vehicle damage on explosion created
 
Mines::CreateEx(objectid,type,Float:detection_range,Float:explode_radius,Float:health,respawntime,Float:x,Float:y,Float:z,Float:rx,Float:ry,Float:rz,worldid,interiorid,playerid,Float:streamdistance,teamid = ANY_TEAM,detect_type = MINE_DETECT_TYPE_ALL,byplayerid = INVALID_PLAYER_ID,Float:damage=-1.0,Float:vehicle_damage=-1.0);
 
Mines::Destroy(mobid);
 
Mines::GetExplodeVisibility();
Mines::SetExplodeVisibility(Float:explode_stream);

Callbacks:

PHP Code:



OnMineDestroy(mobid,Float:x,Float:y,Float:z,type,killerid,Float:radius,damagerid);
 
types:
MINE_DESTROY_TYPE_DETECT  //When mine has been destroyed by detection range
MINE_DESTROY_TYPE_KILL    //When mine has been destroyed by player shoot

Mine Object:

PHP Code:



MINE_OBJECT_STANDARD //default
MINE_OBJECT_UNDERWATER
MINE_OBJECT_LASER
MINE_OBJECT_PIZZA

Example Pawn Code:

PHP Code:



#include <a_samp>
#include <streamer>
#include <ADM/3DTryg>
#include <Mines>
 
public OnFilterScriptInit(){
    
    
    /*
    simply enter the coordinates of /save
    AddPlayerClass(71,-0.3440,0.2275,3.1172,65.1647,0,0,0,0,0,0); // 
    and select other parameters
    */
    
    // not recommended set worldid and interiorid -1
    
    
    Mines::Create(MINE_TYPE_EXPLODE_HUGE, 2.0, 0.1, 200.0, 60, 10.0,0.0,3.1172, 0,0,-1, 300.0, MINE_OBJECT_STANDARD);
    
    Mines::Create(MINE_TYPE_EXPLODE_SMALL, 1.5, 0.01, 100.0, 15, 0.0, 0.0, 3.1172, 0,0, -1, 200.0,MINE_OBJECT_PIZZA);
    
    Mines::Create(MINE_TYPE_EXPLODE_HUGE, 6.0, 0.01, 2000.0, 120, 71.8122, 175.3036, -0.5547, 0,0,-1,200.0, MINE_OBJECT_UNDERWATER);
 
    return 1;
}

Example Command:

PHP Code:



CMD:addmine(playerid,params[]){
    if(!IsPlayerAdmin(playerid)) return 0;
    
    new buffer[128], type, Float:detection_range, Float:explode_radius, Float:health, respawntime,
        Float:x, Float:y, Float:z, worldid, interiorid, Float:streamdistance, mine_object = MINE_OBJECT_STANDARD, teamid = ANY_TEAM;
    GetPlayerPos(playerid,x,y,z);
    worldid = GetPlayerVirtualWorld(playerid);
    interiorid = GetPlayerInterior(playerid);
    if(sscanf(params,"dfffdfD(-1)D(-1)",type,detection_range,explode_radius,health,respawntime,streamdistance,mine_object,teamid)) return SendClientMessage(playerid,-1,"/addmine <type> <detection r> <explode r> <hp> <respawn> <stream distance> [obj] [team]");
    
    if(mine_object == -1) mine_object = MINE_OBJECT_STANDARD;
    if(teamid == -1) teamid = ANY_TEAM;
    
    new mobid = Mines::Create(type,detection_range,explode_radius,health,respawntime,x,y,z,worldid,interiorid,-1,streamdistance,mine_object,teamid);
    format(buffer,sizeof buffer,"Added mine id %d",mobid);
    SendClientMessage(playerid,-1,buffer);
    
    /*
    Mines::SetSpecialWeapon(mobid,GRENADE_SPECIAL_WEAPON_TEARGAS);
    Mines::SetEffectID(mobid,GRENADE_EFFECT_HUGE_SMOKE_1);
    Mines::SetEffectDMG(mobid,1.0);
    Mines::SetEffectVDMG(mobid,0.0);
    Mines::SetEffectTime(mobid,25);
    */
    
    return 1;
}
 
CMD:delmine(playerid,params[]){
    if(!IsPlayerAdmin(playerid)) return 0;
    new buffer[128], mobid = INVALID_MINE_ID;
    if(sscanf(params,"d",mobid)) return SendClientMessage(playerid,-1,"/delmine <mobid>");
    
    if(MineComponent[mobid][mine_status] != MINE_STATUS_UNACTIVE){
        Mines::Destroy(mobid);
        format(buffer,sizeof buffer,"Removed mine id %d",mobid);
        SendClientMessage(playerid,-1,buffer);
    } else {
        format(buffer,sizeof buffer,"Mine id %d not exist",mobid);
        SendClientMessage(playerid,-1,buffer);
    }
    return 1;
}

Download:
Mines.inc
3DTryg.inc Thread
ExtendedGrenade.inc Thread

Notice:

Filterscript not exist because filterscripts have limits.

This has been replaced by include, having automatic installation, efficient GameMode/FilterScript.

Non-Registered Users:
Bug Report

Re: Dynamic Military Landmines System - AbyssMorgan - 09.02.2016

Update 1.1: fixed CreateExplosionForRangePoint (reported by Wizzard2H)

Re: Dynamic Military Landmines System - Alf21 - 09.02.2016

I like it, small but great idea

Re: Dynamic Military Landmines System - SystemX - 09.02.2016

Nice, Good for COD servers. Rep++

Re: Dynamic Military Landmines System - Crystallize - 09.02.2016

Thanks for this amazing include I love it.Also glad you've fixed my bug report

Re: Dynamic Military Landmines System - DEATHSTROKE - 09.02.2016

Awesome job dude.

Re: Dynamic Military Landmines System - valych - 09.02.2016

Nice one. But you should take a look at this thread: https://sampforum.blast.hk/showthread.php?tid=571153 - how to hook a function in pawn, so people won't need to do this steps:

PHP Code:



//to hook functions 
Min_OnFilterScriptInit(); //IN OnFilterScriptInit OR OnGameModeInit 
Min_OnFilterScriptExit(); //IN OnFilterScriptExit OR OnGameModeExit 
Min_OnPlayerShootDynamicObject(playerid, weaponid, objectid, x, y, z); //IN OnPlayerShootDynamicObject 
Min_OnPlayerEnterDynamicArea(playerid, areaid); //IN OnPlayerEnterDynamicArea

Re: Dynamic Military Landmines System - AbyssMorgan - 09.02.2016

I can, but as a creature of such hooks are many you can get lost

Re: Dynamic Military Landmines System - Ritzy2K - 09.02.2016

Nice one!

Re: Dynamic Military Landmines System - AbyssMorgan - 09.02.2016

added auto hooks in v1.3

Re: Dynamic Military Landmines System - K0P - 09.02.2016

Good Job

Re: Dynamic Military Landmines System - FreAkeD - 09.02.2016

Nice. This looks interesting, going to try this out.

Re: Dynamic Military Landmines System - Pottus - 10.02.2016

You forgot one thing here....

Код:

public DestroyDynamicMine(mineid){
	if(mineid < 0 || mineid >= MAX_MINES) return 0;
	DestroyDynamicObject(MineComponent[mineid][mine_objectid]);
	DestroyDynamicArea(MineComponent[mineid][mine_areaid]);

No verification of the mine actually exists but still running deletion functions on arbitrary reference id's is never good

Re: Dynamic Military Landmines System - AbyssMorgan - 10.02.2016

Quote:

Originally Posted by Pottus

You forgot one thing here....

Код:

public DestroyDynamicMine(mineid){
	if(mineid < 0 || mineid >= MAX_MINES) return 0;
	DestroyDynamicObject(MineComponent[mineid][mine_objectid]);
	DestroyDynamicArea(MineComponent[mineid][mine_areaid]);

No verification of the mine actually exists but still running deletion functions on arbitrary reference id's is never good

True, I forgot.
I corrected.

Re: Dynamic Military Landmines System - AbyssMorgan - 10.02.2016

added a new parameter 'mine_object'

Values:

PHP код:



MINE_OBJECT_STANDARD //default

MINE_OBJECT_UNDERWATER

MINE_OBJECT_LASER

MINE_OBJECT_PIZZA //what ? xD

Re: Dynamic Military Landmines System - AbyssMorgan - 16.06.2016

Update 1.6:
Added additional parameters:

Код:

CreateDynamicMine(type,Float:detection_range,Float:explode_radius,Float:health,respawntime,
Float:x,Float:y,Float:z,worldid,interiorid,playerid,Float:streamdistance,
mine_object=MINE_OBJECT_STANDARD,teamid=ANY_TEAM); 

teamid - player team will be immune to detection range or destroy mine

Re: Dynamic Military Landmines System - samp_boy - 17.06.2016

you should make an command to plant them btw, good job +rep

Re: Dynamic Military Landmines System - AbyssMorgan - 17.06.2016

Quote:

Originally Posted by samp_boy

you should make an command to plant them btw, good job +rep

Example command has been added in description

Re: Dynamic Military Landmines System - AbyssMorgan - 18.06.2016

Update v1.7:

Added callback:

PHP код:



OnMineDestroy(mobid,Float:x,Float:y,Float:z,type,killerid);

Fixed explosion in VW = -1, INT = -1

Re: Dynamic Military Landmines System - AbyssMorgan - 19.06.2016

Update v1.8:
- Increase Mine capacity from 300 to 2048
- Added function CreateDynamicMineEx

PHP код:



CreateDynamicMineEx(objectid,type,Float:detection_range,Float:explode_radius,Float:health,respawntime,Float:x,Float:y,Float:z,Float:rx,Float:ry,Float:rz,worldid,interiorid,playerid,Float:streamdistance,teamid = ANY_TEAM);

- Added extended functions:

PHP код:



Float:GetMineExplodeVisibility();

SetMineExplodeVisibility(Float:explode_stream);