Raised This Month: $12 Target: $400
 3% 

Script nade


Post New Thread Reply   
 
Thread Tools Display Modes
Author Message
Fishx3
Member
Join Date: Feb 2012
Old 04-04-2012 , 09:51   Script nade
Reply With Quote #1

Code:
#include <amxmodx>	// AMX Mod X 1.71+ required, check your addons/metamod/plugins.ini
#include <fakemeta>	// fakemeta module required, check your configs/modules.ini
#include <amxmisc>	// this is not a module!

// plugin's main information
#define PLUGIN_NAME "Real Nade Drops"
#define PLUGIN_VERSION "0.4"
#define PLUGIN_AUTHOR "VEN"

// OPTIONS BELOW

// console commands' names
new CMD_ALIVE[] = "rnd_alive"
new CMD_BUY[] = "rnd_buy"
new CMD_DEATH[] = "rnd_death"

// console commands' access level
#define CMD_ACCESS_LEVEL ADMIN_CVAR

// modes' default state (true: ON, false: OFF)
new bool:MODE_ALIVE = false
new bool:MODE_BUY = true
new bool:MODE_DEATH = false

// uncomment to allow alive drops mode during buytime only for players who is outside buyzone (for rnd_buy 0)
//#define OBEY_BUYZONE

// center text client message (for rnd_buy 0)
#if defined OBEY_BUYZONE
	new MSG_BUY[] = "You have to be outside buyzone!"
#else
	new MSG_BUY[] = "You have to wait %d second(s)!"
#endif

// center text client message
new MSG_TOMANY[] = "To many dropped nades on the map!"

// error log and center text client message
new MSG_ERROR[] = "ERROR: Unable to create grenade entity!"

// max. allowed number of the dropped nades
#define MAX_NADE_ENTITIES 192

// nade unique classname
new NADE_NAME[] = "real_nade"

// for alive drops
#define NADE_PLR_DIFF_ANGLE_HOR 0 // player/nade horisontal angle difference in degrees
#define NADE_VELOCITY 350 // nade drop start velocity

// not really a configurable value unless you edited every corresponding array
#define NADE_TYPES 3 // nuber of nade types

// for drop on death
new const NADE_PLR_DIFF_DIST[NADE_TYPES] = {8, 8, 8} // player/nade distance difference
new const NADE_DIFF_DIST[NADE_TYPES] = {14, 0, -14} // nades distance difference
new const NADE_PLR_DIFF_ANGLE[NADE_TYPES] = {45, 45, 45} // player/nade angle difference in degrees

// uncomment to disable automatic 32/64bit processor detection
// possible values are <0: 32bit | 1: 64bit>
//#define PROCESSOR_TYPE 0

// OPTIONS ABOVE

// player nades ammo private data 32bit offsets
#define OFFSET_AMMO_HE_32BIT 388
#define OFFSET_AMMO_FB_32BIT 387
#define OFFSET_AMMO_SG_32BIT 389

// player nades ammo private data 64bit offsets
#define OFFSET_AMMO_HE_64BIT 437
#define OFFSET_AMMO_FB_64BIT 436
#define OFFSET_AMMO_SG_64BIT 438

// player nades ammo linux offset difference
#define OFFSET_AMMO_LINUXDIFF 5

// determination of actual offsets
#if !defined PROCESSOR_TYPE // is automatic 32/64bit processor detection?
	#if cellbits == 32 // is the size of a cell are 32 bits?
		// then considering processor as 32bit
		new NADE_OFFSET_AMMO[NADE_TYPES] = {OFFSET_AMMO_HE_32BIT, OFFSET_AMMO_FB_32BIT, OFFSET_AMMO_SG_32BIT}
	#else // in other case considering the size of a cell as 64 bits
		// and then considering processor as 64bit
		new NADE_OFFSET_AMMO[NADE_TYPES] = {OFFSET_AMMO_HE_64BIT, OFFSET_AMMO_FB_64BIT, OFFSET_AMMO_SG_64BIT}
	#endif
#else // processor type specified by PROCESSOR_TYPE define
	#if PROCESSOR_TYPE == 0 // 32bit processor defined
		new NADE_OFFSET_AMMO[NADE_TYPES] = {OFFSET_AMMO_HE_32BIT, OFFSET_AMMO_FB_32BIT, OFFSET_AMMO_SG_32BIT}
	#else // considering that 64bit processor defined
		new NADE_OFFSET_AMMO[NADE_TYPES] = {OFFSET_AMMO_HE_64BIT, OFFSET_AMMO_FB_64BIT, OFFSET_AMMO_SG_64BIT}
	#endif
#endif

new NADE_ENTITY[] = "armoury_entity" // nade entity type

new const NADE_WEAPON_ID[NADE_TYPES] = {CSW_HEGRENADE, CSW_FLASHBANG, CSW_SMOKEGRENADE} // nade weapon id
new const NADE_WEAPON_NAME[NADE_TYPES][] = {"weapon_hegrenade", "weapon_flashbang", "weapon_smokegrenade"} // nade weapon name
new const NADE_ITEM_ID[NADE_TYPES][] = {"15", "14", "18"} // nade armoury item id

#define WEAPONS 29 // number of weapons in weapons priority list
// This is CS standard-like weapons priority list. Weapon ids placed in decreasing priority order.
// Actually this list keep only follow exact priority order: primary, secondary, c4, grenades, knife.
// Inside primary and secondary class here are no exact priority order because by default player can have only one weapon of each class.
// Inside grenades class here are exact priority order because player can have different grenades at the same time.
new const WEAPON_PRIORITY[WEAPONS] = {3, 5, 7, 8, 12, 13, 14, 15, 18, 19, 20, 21, 22, 23, 24, 27, 28, 30, 1, 10, 11, 16, 17, 26, 6, 4, 9, 25, 29}

// HLSDK constants
#define	FL_ONGROUND (1<<9)
#define	EF_NODRAW 128
#define IN_ATTACK (1<<0)

new bool:g_freezetime
new Float:g_round_start_time

#define MAX_PLAYERS 32
new bool:g_alive[MAX_PLAYERS + 1]
new bool:g_buyzone[MAX_PLAYERS + 1]

new g_nades_number

new g_maxplayers
new g_pcvar_buytime
new g_ipsz_armoury_entity

// strings cache
new g_classname[] = "classname"
new g_lastinv[] = "lastinv"
new g_item[] = "item"
new g_count[] = "count"

public plugin_init() {
	register_plugin(PLUGIN_NAME, PLUGIN_VERSION, PLUGIN_AUTHOR) // register plugin

	// register console commands
	register_concmd(CMD_ALIVE, "concmd_config", CMD_ACCESS_LEVEL, "[0|1] - disallows/allows to alive players drop nades")
	register_concmd(CMD_BUY, "concmd_config", CMD_ACCESS_LEVEL, "[0|1] - disables/enables alive drops mode during buytime")
	register_concmd(CMD_DEATH, "concmd_config", CMD_ACCESS_LEVEL, "[0|1] - disables/enables drop player nades on death")

	// register events and log events
	register_event("HLTV", "event_new_round", "a", "1=0", "2=0") // new round
	register_event("ResetHUD", "event_hud_reset", "be") // alive player hud reset
	register_event("Health", "event_dying", "bd", "1=0") // player dying (but not only!)
	register_event("StatusIcon", "event_buyzone_icon", "b", "2=buyzone") // buyzone icon
	register_logevent("logevent_round_start", 2, "0=World triggered", "1=Round_Start") // round start

	// register client console commands
	register_clcmd("drop", "clcmd_drop") // register "drop" client console command
	register_clcmd("fullupdate", "clcmd_fullupdate") // register "fullupdate" client console command

	// register forwards
	register_forward(FM_Touch, "forward_touch") // register touch forward

	// caching some values
	g_maxplayers = get_maxplayers() // actual max. players number
	g_pcvar_buytime = get_cvar_pointer("mp_buytime") // mp_buytime CVAR pointer
	g_ipsz_armoury_entity = engfunc(EngFunc_AllocString, NADE_ENTITY) // nade original integer classname
}

/* *************************************************** Base **************************************************** */

public clcmd_drop(id) {
	if (!MODE_ALIVE || !is_user_alive(id)) // if nade drops not allowed to alive players or player isn't alive
		return PLUGIN_CONTINUE

	new current, clip, ammo, i
	current = get_user_weapon(id, clip, ammo) // get id and ammo of current weapon

	new arg[21]
	read_argv(1, arg, 20) // get name of weapon to drop
	if (!arg[0]) { // if weapon name isn't specified
		if (!ammo) // if no weapon ammo (usually knife)
			return PLUGIN_CONTINUE

		// get nade index
		for (i = 0; i < NADE_TYPES; ++i) {
			if (current == NADE_WEAPON_ID[i]) // if current weapon is nade
				break
		}
	}
	else {
		// check if weapon to drop is nade
		for (i = 0; i < NADE_TYPES; ++i) {
			if (equal(arg, NADE_WEAPON_NAME[i])) // if weapon to drop is nade
				break
		}
	}

	if (i == NADE_TYPES) // if weapon to drop isn't nade
		return PLUGIN_CONTINUE

	new weapon = NADE_WEAPON_ID[i]
	ammo = get_pdata_int(id, NADE_OFFSET_AMMO[i], OFFSET_AMMO_LINUXDIFF) // get nade actual ammo
	if (ammo < 1) // if no nade ammo
		return PLUGIN_CONTINUE

	if (g_nades_number >= MAX_NADE_ENTITIES) {
		client_print(id, print_center, MSG_TOMANY)
		return PLUGIN_HANDLED
	}

	if (!MODE_BUY && !g_freezetime) { // is rnd_buy is 0 and currently not a freezetime
		new Float:wait = get_pcvar_float(g_pcvar_buytime) * 60 - (get_gametime() - g_round_start_time)
		if (wait > 0) { // is currently a buytime
			#if defined OBEY_BUYZONE
				if (g_buyzone[id]) { // is player in buyzone
					client_print(id, print_center, MSG_BUY)
					return PLUGIN_HANDLED
				}
			#else
				new seconds = floatround(wait, floatround_floor)
				client_print(id, print_center, MSG_BUY, seconds ? seconds : 1)
				return PLUGIN_HANDLED
			#endif
		}
	}

	new nade = engfunc(EngFunc_CreateNamedEntity, g_ipsz_armoury_entity) // create nade entity
	if (!nade) { // if nade entity not created
		client_print(id, print_center, MSG_ERROR) // client error center text message
		log_amx(MSG_ERROR) // log error
		return PLUGIN_HANDLED
	}

	g_nades_number++

	set_pdata_int(id, NADE_OFFSET_AMMO[i], --ammo, OFFSET_AMMO_LINUXDIFF) // reduce nade ammo over one unit
	if (!ammo) { // no more weapon ammo
		if (current == weapon) { // if current weapon is weapon to drop
			// CS standard-like weapon switching after drop
			for (new j = 0; j < WEAPONS; ++j) {
				if (user_has_weapon(id, WEAPON_PRIORITY[j]) && weapon != WEAPON_PRIORITY[j]) { // search for player main weapon id
					new wname[20] // longest weapon name is "weapon_smokegrenade" (19 characters long)
					get_weaponname(WEAPON_PRIORITY[j], wname, 19) // get name of player main weapon
					engclient_cmd(id, wname) // switch player to his main weapon
					break
				}
			}
		}
		else {
			// this is necessary to strip nade properly
			engclient_cmd(id, NADE_WEAPON_NAME[i]) // switch to nade
			engclient_cmd(id, g_lastinv) // switch to previous weapon
		}
	}

	set_nade_kvd(nade, g_item, NADE_ITEM_ID[i]) // set nade item type

	set_pev(nade, pev_classname, NADE_NAME) // set nade unique classname

	// setup nade start origin
	new Float:origin[3]
	pev(id, pev_origin, origin)
	engfunc(EngFunc_SetOrigin, nade, origin)

	// setup nade angles
	new Float:angles[3]
	pev(id, pev_angles, angles)
	angles[0] = 0.0 // we don't need specific vertical angle
	angles[1] += NADE_PLR_DIFF_ANGLE_HOR
	set_pev(nade, pev_angles, angles)

	// setup nade velocity
	new Float:anglevec[3], Float:velocity[3]
	pev(id, pev_v_angle, anglevec)
	engfunc(EngFunc_MakeVectors, anglevec)
	global_get(glb_v_forward, anglevec)
	velocity[0] = anglevec[0] * NADE_VELOCITY
	velocity[1] = anglevec[1] * NADE_VELOCITY
	velocity[2] = anglevec[2] * NADE_VELOCITY
	set_pev(nade, pev_velocity, velocity)

	dllfunc(DLLFunc_Spawn, nade) // spawn nade

	return PLUGIN_HANDLED
}

public forward_touch(nade, id) {
	if (!id || id > g_maxplayers || nade <= g_maxplayers) // check nade/player indexes
		return FMRES_IGNORED

	new class[32]
	pev(nade, pev_classname, class, 31)
	if (!equal(class, NADE_NAME)) // check if it's not dropped nade
		return FMRES_IGNORED

	if (!(pev(nade, pev_flags) & FL_ONGROUND)) // if nade is still not on the ground
		return FMRES_SUPERCEDE // prevent immediate nade drop/collect

	if (pev(nade, pev_effects) & EF_NODRAW) { // nade was collected and it's not visible because of NODRAW effect
		engfunc(EngFunc_RemoveEntity, nade) // remove nade entity
		g_nades_number--
		return FMRES_SUPERCEDE
	}

	return FMRES_IGNORED
}

public event_hud_reset(id) {
	g_alive[id] = true
}

public event_dying(id) {
	if (!g_alive[id]) // if player already dead
		return

	g_alive[id] = false

	if (!MODE_DEATH) // if drop player nades on death is disabled
		return

	new ammo_fix[NADE_TYPES]
	if (pev(id, pev_button) & IN_ATTACK) { // if player hold down attack button
		new clip, ammo, weapon = get_user_weapon(id, clip, ammo) // get id of current weapon

		for (new i = 0; i < NADE_TYPES; ++i) {
			if (weapon == NADE_WEAPON_ID[i]) { // if current weapon is nade
				ammo_fix[i] = -1 // create ammo fix since nade will be throwed
				break
			}
		}
	}

	for (new i = 0; i < NADE_TYPES; ++i) {
		new ammo = get_pdata_int(id, NADE_OFFSET_AMMO[i], OFFSET_AMMO_LINUXDIFF) // get nade actual ammo
		ammo += ammo_fix[i] // apply ammo fix
		if (ammo < 1) // if no nade ammo
			continue

		new nade = engfunc(EngFunc_CreateNamedEntity, g_ipsz_armoury_entity) // create nade entity
		if (!nade) { // if nade entity not created
			log_amx(MSG_ERROR) // log error
			continue
		}

		g_nades_number++

		set_nade_kvd(nade, g_item, NADE_ITEM_ID[i]) // set nade item type

		// setup nade ammo
		new count[4]
		num_to_str(ammo, count, 3)
		set_nade_kvd(nade, g_count, count)

		set_pev(nade, pev_classname, NADE_NAME) // set nade unique classname

		// setup nade origin and angle
		new Float:origin[3]
		pev(id, pev_origin, origin)
		new Float:angles[3]
		pev(id, pev_angles, angles)
		origin[0] += floatcos(angles[1], degrees) * NADE_PLR_DIFF_DIST[i] + floatcos(angles[1] + 90, degrees) * NADE_DIFF_DIST[i]
		origin[1] += floatsin(angles[1], degrees) * NADE_PLR_DIFF_DIST[i] + floatsin(angles[1] + 90, degrees) * NADE_DIFF_DIST[i]
		engfunc(EngFunc_SetOrigin, nade, origin)
		angles[0] = 0.0 // we don't need specific vertical angle
		angles[1] += NADE_PLR_DIFF_ANGLE[i]
		set_pev(nade, pev_angles, angles)

		// setup nade velocity
		new Float:velocity[3]
		pev(id, pev_velocity, velocity)
		set_pev(nade, pev_velocity, velocity)

		dllfunc(DLLFunc_Spawn, nade) // spawn nade
	}
}

public event_new_round() {
	g_freezetime = true
	g_nades_number = 0

	// remove all dropped nades
	new nade = -1
	while ((nade = engfunc(EngFunc_FindEntityByString, nade, g_classname, NADE_NAME))) // find nade entity id by nade unique classname
		engfunc(EngFunc_RemoveEntity, nade) // remove nade entity
}

public logevent_round_start() {
	g_freezetime = false
	g_round_start_time = get_gametime()
}

public event_buyzone_icon(id) {
	g_buyzone[id] = bool:read_data(1)
}

public client_disconnect(id) {
	g_alive[id] = false // if player is disconnected he is not alive
	g_buyzone[id] = false
}

public clcmd_fullupdate(id) {
	return PLUGIN_HANDLED // can block fake "not in buyzone" exploit
}

// function to view and change plugin modes state via console commands
public concmd_config(id, level, cid) {
	if (!cmd_access(id, level, cid, 1))
		return PLUGIN_HANDLED

	new command[32], argument[2], bool:value
	read_argv(0, command, 31)
	new bool:change = false
	if (read_argc() > 1) {
		change = true
		read_argv(1, argument, 1)
		value = bool:str_to_num(argument)
	}

	if (equali(command, CMD_ALIVE)) {
		if (change)
			MODE_ALIVE = value
		else
			value = MODE_ALIVE
	}
	else if (equali(command, CMD_BUY)) {
		if (change)
			MODE_BUY = value
		else
			value = MODE_BUY
	}
	else if (equali(command, CMD_DEATH)) {
		if (change)
			MODE_DEATH = value
		else
			value = MODE_DEATH
	}

	if (!change)
		console_print(id, "^"%s^" is ^"%d^"", command, value)

	return PLUGIN_HANDLED
}

set_nade_kvd(nade, const key[], const value[]) {
	set_kvd(0, KV_ClassName, NADE_ENTITY)
	set_kvd(0, KV_KeyName, key)
	set_kvd(0, KV_Value, value)
	set_kvd(0, KV_fHandled, 0)

	return dllfunc(DLLFunc_KeyValue, nade, 0)
}

/* **************************************************** EOF **************************************************** */

Last edited by Fishx3; 04-04-2012 at 09:53. Reason: bug
Fishx3 is offline
11530
Veteran Member
Join Date: Sep 2011
Location: Underworld
Old 04-04-2012 , 10:00   Re: Script nade
Reply With Quote #2

1) You are posting this code in the SourceMod section. Please post in the relevant section to get better results.

2) When you do post it elsewhere, please specify intentions/questions.

Last edited by 11530; 04-05-2012 at 21:43.
11530 is offline
Fishx3
Member
Join Date: Feb 2012
Old 04-04-2012 , 15:22   Re: Script nade
Reply With Quote #3

no no i forget, i want only teror can take it. thanks
Fishx3 is offline
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -4. The time now is 01:34.


Powered by vBulletin®
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Theme made by Freecode