AMXX.pl: Support AMX Mod X i SourceMod

public MakeTransmiter(id)
{
id-=MAKE_ENTITY

client_cmd(0, "spk %s", SOUND_PLANT)

g_iIonState[id] = PLANTED
g_bUsed[id] = true

g_iEnt[id] = engfunc(EngFunc_CreateNamedEntity,engfunc(EngFunc_AllocString,"info_target"));
set_pev(g_iEnt[id],pev_classname,"info_target_ion");
engfunc(EngFunc_SetModel,g_iEnt[id], W_MODEL);
set_pev(g_iEnt[id],pev_owner, id);
set_pev(g_iEnt[id],pev_movetype, MOVETYPE_TOSS);
set_pev(g_iEnt[id],pev_solid, SOLID_TRIGGER);

StartPosition(id, 0, 0, 50);
set_pev(g_iEnt[id],pev_origin,g_fBeamMidOrigin[id]);

BeconSound(id)
set_task(5.0, "Approach", id+768);
return PLUGIN_CONTINUE
}

public BeconSound(id)
{
if(!g_iEnt[id]) return PLUGIN_CONTINUE

g_iPitch[id] += 4
g_fBeaconTime[id] -= 0.06
if(g_iPitch[id] > 255) g_iPitch[id] = 255
if(g_fBeaconTime[id] < 0.30) g_fBeaconTime[id] = 0.30
emit_sound(g_iEnt[id], CHAN_ITEM, SOUND_BEEP, VOL_NORM, ATTN_NORM, 0, g_iPitch[id])
set_task(g_fBeaconTime[id], "BeconSound", id)
return PLUGIN_CONTINUE
}

public Approach(id)
{
id-=768
client_cmd(0, "spk ^"%s^"", SOUND_APPROACH)

set_task(10.0, "StartUp", id+785)
}

public StartUp(id)
{
id -= 785 ;

new Float:mid_origin[33][3];
pev(g_iEnt[id], pev_origin,mid_origin[id]);
new Float:fTmpDegress = 0.0
g_fDistance[id] = 190.5 * 1.85;
g_fRotationSpeed[id] = 0.0;
for(new i=1; i<8; i++){
g_fDegrees[id][i] = fTmpDegress;
fTmpDegress += 45.0;
}
g_fBeamOrigin[id][0][0] = mid_origin[id][0] + 300.0
g_fBeamOrigin[id][1][0] = mid_origin[id][0] + 300.0
g_fBeamOrigin[id][2][0] = mid_origin[id][0] - 300.0
g_fBeamOrigin[id][3][0] = mid_origin[id][0] - 300.0
g_fBeamOrigin[id][4][0] = mid_origin[id][0] + 150.0
g_fBeamOrigin[id][5][0] = mid_origin[id][0] + 150.0
g_fBeamOrigin[id][6][0] = mid_origin[id][0] - 150.0
g_fBeamOrigin[id][7][0] = mid_origin[id][0] - 150.0

g_fBeamOrigin[id][0][1] = mid_origin[id][1] + 150.0
g_fBeamOrigin[id][1][1] = mid_origin[id][1] - 150.0
g_fBeamOrigin[id][2][1] = mid_origin[id][1] - 150.0
g_fBeamOrigin[id][3][1] = mid_origin[id][1] + 150.0
g_fBeamOrigin[id][4][1] = mid_origin[id][1] + 300.0
g_fBeamOrigin[id][5][1] = mid_origin[id][1] - 300.0
g_fBeamOrigin[id][6][1] = mid_origin[id][1] - 300.0

g_fBeamMidOrigin[id] = mid_origin[id]

new Float:addtime
for(new i = 0; i < 8; i++) {
addtime = addtime + 0.3
new param[3]
param[0] = i
param[1] = id
set_task(0.0 + addtime, "Trace_Start", _,param, 2)
}

client_cmd(0, "spk ^"%s^"", SOUND_READY)
BeamRotate(id)
for(new Float:i = 0.0; i < 7.5; i += 0.01)
set_task(i+3.0, "BeamRotate", id)

set_task(2.9,"IncreaseSpeed", id)
set_task(12.5,"RemoveLasers", id)
set_task(15.2,"FireCannon", id)
return PLUGIN_CONTINUE
}

public IncreaseSpeed(id) {
if(g_fRotationSpeed[id] > 1.0) g_fRotationSpeed[id] = 1.0
g_fRotationSpeed[id] += 0.1
set_task(0.6,"IncreaseSpeed", id)
return PLUGIN_CONTINUE
}

public RemoveLasers(id) remove_task(1018+id)

public BeamRotate(id)
{
g_fDistance[id] -= 0.467
//g_distance[id] -= 0.254
for(new i = 0; i < 8; i++) {
g_fDegrees[id][i] += g_fRotationSpeed[id]
if(g_fDegrees[id][i] > 360.0)
g_fDegrees[id][i] -= 360.0

new Float:tmp[33][3]
tmp[id] = g_fBeamMidOrigin[id]

tmp[id][0] += floatsin(g_fDegrees[id][i], degrees) * g_fDistance[id]
tmp[id][1] += floatcos(g_fDegrees[id][i], degrees) * g_fDistance[id]
tmp[id][2] += 0.0 // -.-
g_fBeamOrigin[id][i] = tmp[id]
}
}

public Trace_Start(param[]) {
new i = param[0]
new id = param[1]

new Float:get_random_z,Float:SkyOrigin[3]
SkyOrigin = tlx_distance_to_sky(g_iEnt[id])
get_random_z = random_float(300.0,SkyOrigin[2])

engfunc(EngFunc_MessageBegin, MSG_PVS, SVC_TEMPENTITY, g_fBeamOrigin[id][i], 0)
write_byte(TE_SPRITE)
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][0])
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][1])
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][2] + get_random_z)
write_short(BlueFire)
write_byte(10)
write_byte(100)
message_end()

TraceAll(param)
}

public TraceAll(param[]) {
new i = param[0]
new id = param[1]

new Float:SkyOrigin[3]
SkyOrigin = tlx_distance_to_sky(g_iEnt[id])
engfunc(EngFunc_MessageBegin, MSG_PVS, SVC_TEMPENTITY, g_fBeamOrigin[id][i], 0)
write_byte(TE_BEAMPOINTS)
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][0]) //start point (x)
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][1]) //start point (y)
engfunc(EngFunc_WriteCoord, SkyOrigin[2]) //start point (z)

engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][0]) //end point (x)
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][1]) //end point (y)
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][2]) //end point (z)
write_short(IonBeam) //model
write_byte(0) //startframe
write_byte(0) //framerate
write_byte(1) //life
write_byte(50) //width
write_byte(0) //noise
write_byte(255) //r
write_byte(255) //g
write_byte(255) //b
write_byte(255) //brightness
write_byte(0) //speed
message_end()

engfunc(EngFunc_MessageBegin, MSG_PVS, SVC_TEMPENTITY, g_fBeamOrigin[id][i], 0)
write_byte(TE_SPRITE)
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][0])
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][1])
engfunc(EngFunc_WriteCoord, g_fBeamOrigin[id][i][2])
write_short(LaserFlame)
write_byte(5)
write_byte(200)
message_end()

set_task(0.08,"TraceAll", 1018+id, param, 2)
}


public FireCannon(id) {
new i = -1
new className[33]
while((i = engfunc(EngFunc_FindEntityInSphere, i, g_fBeamMidOrigin[id], 10000.0)) != 0) {
pev(i, pev_classname, className, 32)
if(pev_valid(i) && equal(className, "player")) {
message_begin(MSG_ONE, IonShake, {0,0,0}, i)
write_short(255<<14) //ammount
write_short(10<<14) //lasts this long
write_short(255<<14) //frequency
message_end()
}
//next player in spehre.
continue
}

new Float:skyOrigin[3]
skyOrigin = tlx_distance_to_sky(g_iEnt[id])

engfunc(EngFunc_MessageBegin, MSG_PVS, SVC_TEMPENTITY, g_fBeamMidOrigin[id], 0)
write_byte(TE_BEAMPOINTS)
engfunc(EngFunc_WriteCoord, skyOrigin[0]) //start point (x)
engfunc(EngFunc_WriteCoord, skyOrigin[1]) //start point (y)
engfunc(EngFunc_WriteCoord, skyOrigin[2]) //start point (z)

engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][0]) //end point (x)
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][1]) //end point (y)
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][2]) //end point (z)
write_short(IonBeam) //model
write_byte(0) //startframe
write_byte(0) //framerate
write_byte(15) //life
write_byte(255) //width
write_byte(0) //noise
write_byte(255) //r
write_byte(255) //g
write_byte(255) //b
write_byte(255) //brightness
write_byte(0) //speed
message_end()

engfunc(EngFunc_MessageBegin, MSG_PVS, SVC_TEMPENTITY,g_fBeamMidOrigin, 0)
write_byte(TE_BEAMCYLINDER)
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][0]) // start X
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][1]) // start Y
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][2]) // start Z

engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][0]) // something X
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][1]) // something Y
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][2] + 2000.0 - 1000.0) // something Z
write_short(Shockwave) // sprite
write_byte(0) // startframe
write_byte(0) // framerate
write_byte(100) // life
write_byte(150) // width
write_byte(0) // noise
write_byte(0) // red
write_byte(100) // green
write_byte(250) // blue
write_byte(150) // brightness
write_byte(0) // speed
message_end()

for(new i = 1; i < 6; i++) {
engfunc(EngFunc_MessageBegin, MSG_PVS, SVC_TEMPENTITY, g_fBeamMidOrigin[id], 0)
write_byte(TE_SPRITETRAIL) // line of moving glow sprites with gravity, fadeout, and collisions
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][0])
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][1])
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][2])
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][0])
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][1])
engfunc(EngFunc_WriteCoord, g_fBeamMidOrigin[id][2] + 200)
write_short(BlueFlare) // (sprite index)
write_byte(50) // (count)
write_byte(random_num(27,30)) // (life in 0.1's)
write_byte(10) // byte (scale in 0.1's)
write_byte(random_num(30,70)) // (velocity along vector in 10's)
write_byte(40) // (randomness of velocity in 10's)
message_end()
}

remove_task(id)

new attacker = pev(g_iEnt[id],pev_owner)

while((i = engfunc(EngFunc_FindEntityInSphere, i, g_fBeamMidOrigin[id], 1000.0)) != 0)
{
pev(i, pev_classname, className, 32)
if(pev_valid(i) && equal(className, "player") && is_user_connected(i) && is_user_alive(i) && get_user_team(i) != get_user_team(attacker))
Util_Kill(attacker, i,60.0)

continue;
}

client_cmd(0, "spk ^"%s^"", SOUND_ATTACK)

set_pev(g_iEnt[id], pev_flags, FL_KILLME)
g_iEnt[id] = 0;
g_iIonState[id] = NONE;
}

public StartPosition(id, forw, right, up)
{
new Float:vOrigin[3], Float:vAngle[3], Float:vForward[3], Float:vRight[3], Float:vUp[3], Float:vSrc[3]

pev(id, pev_origin, vOrigin)
pev(id, pev_v_angle, vAngle)

engfunc(EngFunc_MakeVectors, vAngle)

global_get(glb_v_forward, vForward)
global_get(glb_v_right, vRight)
global_get(glb_v_up, vUp)

vSrc[0] = vOrigin[0] + vForward[0] * forw + vRight[0] * right + vUp[0] * up
vSrc[1] = vOrigin[1] + vForward[1] * forw + vRight[1] * right + vUp[1] * up
vSrc[2] = vOrigin[2] + vForward[2] * forw + vRight[2] * right + vUp[2] * up

g_fBeamMidOrigin[id][0] = vSrc[0]
g_fBeamMidOrigin[id][1] = vSrc[1]
g_fBeamMidOrigin[id][2] = vSrc[2]
}


stock Float:tlx_distance_to_sky(id)
{
new Float:TraceEnd[3]
pev(id, pev_origin, TraceEnd)

new Float:f_dest[3]
f_dest[0] = TraceEnd[0]
f_dest[1] = TraceEnd[1]
f_dest[2] = TraceEnd[2] + 8192.0

new res, Float:SkyOrigin[3]
engfunc(EngFunc_TraceLine, TraceEnd, f_dest, IGNORE_MONSTERS + IGNORE_GLASS, id, res)
get_tr2(res, TR_vecEndPos, SkyOrigin)

return SkyOrigin
}
stock Util_Kill(attacker, victim, Float:damage)
{
if(damage < pev(victim, pev_health))
{
ExecuteHam(Ham_TakeDamage, victim, CSW_HEGRENADE, attacker, damage, DMG_BLAST)
} else {
ExecuteHamB(Ham_Killed, victim, attacker, 2)
}
}