BansheeWarLtd2.lua

-- Test Banshee firering rockets - Slayer only --
-- Thanks a bunch Wizard for your nice tutorial and the additional information on how use .ent o Phasor --

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(process, game, persistent) end

function OnNewGame(map)
    LoadTags()
    local tag_address = gettagaddress(banshee_gun_tag_id)
    local address_tag_data = readdword(tag_address, 0x14)
    local number_of_triggers = readdword(address_tag_data, 0x4FC)
    local triggers_address = readdword(address_tag_data, 0x4FC + 0x4)
    for i = 0,number_of_triggers-1 do
        writebit(triggers_address + 0x1, 5, 0)
        writebit(triggers_address, 12, 0)  -- Projectiles Have Identical Error
        writebit(triggers_address, 5, 0)  -- Projectiles Use Weapon Origin
        --writebit(triggers_address, 13, 0)  -- Projectile is Client-Side Only
        writebit(triggers_address, 3, 1)  -- Does Not Repeat Automatically
        writefloat(triggers_address + 0x4, 0,5)  -- rateOfFireFrom (Round per Sec)
        writefloat(triggers_address + 0x8, 0,5)  -- rateOfFireTo (Rounds per Sec -To)
        writefloat(triggers_address + 0xC, 0)  -- Acceleration Time
        writefloat(triggers_address + 0x10, 0)  -- Deceleration Time
        --writeword(address_triggers + 0x24, 0)
        --writeword(address_triggers + 0x26, 0)
        writedword(triggers_address + 0x94 + 0xC, rocket_tag_id)  -- +0xC for the MapId
    end
end

function OnPlayerSpawnEnd(player, m_objectId)
    local m_player = getplayerobjectid(player)
    if m_player then
        putinvehicle = registertimer(300, "PutPlayerInVehicle", player)
    end
end

--[[function OnVehicleEject(player, forceEjected)  -- not avable on this version of phasor
    return false
end--]]

function PutPlayerInVehicle(id, count, player)
    if count == 1 then
        local m_player = getplayerobjectid(player)
        local x,y,z = getobjectcoords(m_player)
        if m_player then
            local m_vehicleId = createobject(banshee_tag_id, 0, 15, false, x,y,z+0.4)
            entervehicle(player, m_vehicleId, 0)
        end
    end
    return false
end

function OnObjectCreationAttempt(mapId, parentId, player)
    return checkObject(mapId)
end

function OnDamageLookup(receiving, causing, mapId, tagdata)
    if mapId == global_fallingId then
        writefloat(tagdata, 0x1D0, 500)
        writefloat(tagdata, 0x1D4, 500)
        writefloat(tagdata, 0x1D8, 500)
    end
end

function checkObject(mapId)
    if mapId == "nil" then
        return false
    end
    return banshee_tag_id
end

function OnClientUpdate(player)
    local m_playerObjId = getplayerobjectid(player)
    if m_playerObjId and isinvehicle(player) and readbit(getobject(m_playerObjId) + 0x208, 11) then
        registertimer(300, "TrackPrimTriger", player)
    end
end

function TrackPrimTriger(id, count, player)
    local m_playerObjId = getplayerobjectid(player)
    if m_playerObjId and isinvehicle(player) and readbit(getobject(m_playerObjId) + 0x208, 11) then
        exitvehicle(player)
    end
end

function LoadTags()
    -- Vehicles
    banshee_tag_id = gettagid("vehi", "vehicles\\banshee\\banshee_mp")
    turret_tag_id = gettagid("vehi", "vehicles\\c gun turret\\c gun turret_mp")
    ghost_tag_id = gettagid("vehi", "vehicles\\ghost\\ghost_mp")
    rwarthog_tag_id = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    scorpion_tag_id = gettagid("vehi", "vehicles\\scorpion\\scorpion_mp")
    warthog_tag_id = gettagid("vehi", "vehicles\\warthog\\mp_warthog")
    wraith_tag_id = gettagid("vehi", "vehicles\\wraith\\wraith")
    pelican_tag_id = gettagid("vehi", "vehicles\\pelican\\pelican")
    -- Weapons
    banshee_gun_tag_id = gettagid("weap", "vehicles\\banshee\\mp_banshee gun")
    assaultrifle_tag_id = gettagid("weap", "weapons\\assault rifle\\assault rifle")
    oddball_tag_id = gettagid("weap", "weapons\\ball\\ball")
    flag_tag_id = gettagid("weap", "weapons\\flag\\flag")
    flamethrower_tag_id = gettagid("weap", "weapons\\flamethrower\\flamethrower")
    gravityrifle_tag_id = gettagid("weap", "weapons\\gravity rifle\\gravity rifle")
    needler_tag_id = gettagid("weap", "weapons\\needler\\mp_needler")
    pistol_tag_id = gettagid("weap", "weapons\\pistol\\pistol")
    plasmapistol_tag_id = gettagid("weap", "weapons\\plasma pistol\\plasma pistol")
    plasmarifle_tag_id = gettagid("weap", "weapons\\plasma rifle\\plasma rifle")
    plasmacannon_tag_id = gettagid("weap", "weapons\\plasma_cannon\\plasma_cannon")
    rocketlauncher_tag_id = gettagid("weap", "weapons\\rocket launcher\\rocket launcher")
    shotgun_tag_id = gettagid("weap", "weapons\\shotgun\\shotgun")
    sniper_tag_id = gettagid("weap", "weapons\\sniper rifle\\sniper rifle")
    energysword_tag_id = gettagid("weap", "weapons\\energy sword\\energy sword")
    -- Projectiles
    bansheebolt_tag_id = gettagid("proj", "vehicles\\banshee\\banshee bolt")
    bansheeblast_tag_id = gettagid("proj", "vehicles\\banshee\\mp_banshee fuel rod")
    turretfire_tag_id = gettagid("proj", "vehicles\\c gun turret\\mp gun turret")
    ghostbolt_tag_id = gettagid("proj", "vehicles\\ghost\\ghost bolt")
    tankshot_tag_id = gettagid("proj", "vehicles\\scorpion\\bullet")
    tankblast_tag_id = gettagid("proj", "vehicles\\scorpion\\tank shell")
    warthogshot_tag_id = gettagid("proj", "vehicles\\warthog\\bullet")
    rifleshot_tag_id = gettagid("proj", "weapons\\assault rifle\\bullet")
    flame_tag_id = gettagid("proj", "weapons\\flamethrower\\flame")
    needlerfire_tag_id = gettagid("proj", "weapons\\needler\\mp_needle")
    pistolshot_tag_id = gettagid("proj", "weapons\\pistol\\bullet")
    plasmapistolbolt_tag_id = gettagid("proj", "weapons\\plasma pistol\\bolt")
    plasmariflebolt_tag_id = gettagid("proj", "weapons\\plasma rifle\\bolt")
    plasmarifleblast_tag_id = gettagid("proj", "weapons\\plasma rifle\\charged bolt")
    plasmacannonshot_tag_id = gettagid("proj", "weapons\\plasma_cannon\\plasma_cannon")
    rocket_tag_id = gettagid("proj", "weapons\\rocket launcher\\rocket")
    shotgunshot_tag_id = gettagid("proj", "weapons\\shotgun\\pellet")
    snipershot_tag_id = gettagid("proj", "weapons\\sniper rifle\\sniper bullet")
    -- Globals
    global_distanceId = gettagid("jpt!", "globals\\distance")
    global_fallingId = gettagid("jpt!", "globals\\falling")
end