Quantcast

Jump to content

» «
Photo

Bomb Mod v1.0 & Special Parked Cars v1.2

6 replies to this topic
Skorpro
  • Skorpro

    GTAholic

  • Members
  • Joined: 19 Jul 2009
  • Germany

#1

Posted 28 April 2010 - 06:37 PM Edited by Skorpro, 26 June 2011 - 04:53 AM.

!! UPDATE !! Bomb Mod v1.01 (ASI) for GTA4 v1.0.7.0 & EFLC v1.1.2.0 & Multiplayer !


Hi folks!
Here is my small "contribution" to ALICE smile.gif

Bomb Mod v1.0 & Special Parked Cars v1.2 (for GTA 4 v1.0.0.4)

Have fun...


Bomb Mod:
YOUTUBE Demonstration

In Heli:
Press F4 to throw down a barrel bomb!

On foot or in car:
Press F4 to place a bomb. Press F4 again to detonate it...



CODE

----------------------------------------------------------------------------------------------------
-- Bomb Mod V1.0 by Skorpro
--
-- If you want to use/modify this script/function, just do it! But note that is my work :)
-- My regards to Alexander Blade (Alice) !!  
--  
----------------------------------------------------------------------------------------------------

function BombType(xc, yc, zc, typ, breit_var, hoch_var, abstand, zeit_zw_exp)
hoch_var = hoch_var * abstand
breit_var = breit_var * abstand
zeit_zw_exp = zeit_zw_exp + 20
DELETE_OBJECT(bomb)
for hoch = 0, hoch_var, abstand do
-- start position
 zc = zc + hoch
 ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
-- start position end
 for breit = 4, breit_var, 4 do
  xc = xc - breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  yc = yc + breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  xc = xc + breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  xc = xc + breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  yc = yc - breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  yc = yc - breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  xc = xc - breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  xc = xc - breit
  Wait(zeit_zw_exp)
  ADD_EXPLOSION(xc, yc, zc, typ, itof(7.50), 1, 0, itof(1.01))
  yc = yc + breit
  xc = xc + breit
  Wait(zeit_zw_exp)
 end
end
Wait(zeit_zw_exp)
end

function SpawnBomb()
if (IsKeyPressed(115) == 1) then -- F4
 local p = {}
 GET_PLAYER_CHAR(GET_PLAYER_ID(), p)
 PLAYER_CHAR = p.a
 if PLAYER_CHAR <= 0 then return end
 if (IS_CHAR_IN_ANY_HELI(PLAYER_CHAR) == 1) then
   local BombHash = GET_HASH_KEY("bm_beerkeg1hi")
   REQUEST_MODEL(BombHash)
   while HAS_MODEL_LOADED(BombHash) == 0 do Wait(100) end  
   x = {}  y = {}  z = {}  zground = {}
   GET_CHAR_COORDINATES(PLAYER_CHAR, x, y, z)
   GET_GROUND_Z_FOR_3D_COORD(x.b, y.b, z.b, zground)
   GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS(PLAYER_CHAR, 0.5, -2.1, -2.1, x, y, z)
   bomb = {}
   CREATE_OBJECT(BombHash, x.b, y.b, z.b, bomb, 1)
   SET_OBJECT_HEALTH(bomb.a, 100.0)
   SET_OBJECT_ROTATION(bomb.a, itof(90.0), 0, 0)
   Wait(25)
   z.b = z.b - zground.b
   repeat
   Wait(27)
   z.b = z.b - 1
   SLIDE_OBJECT(bomb.a, x.b, y.b, z.b, itof(0.0), itof(0.0), itof(3.0), 1)
   until z.b <= zground.b
   ----
   BombType(x.b, y.b, zground.b, 4, 5, 2, 3, 0)
   ----
 elseif eb == 0 then
   local BombHash2 = GET_HASH_KEY("ec_bomb_ne")
   REQUEST_MODEL(BombHash2)
   while HAS_MODEL_LOADED(BombHash2) == 0 do Wait(100) end  
   a = {}  b = {}  c = {}  cground = {}
   GET_CHAR_COORDINATES(PLAYER_CHAR, a, b, c)
   GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS(PLAYER_CHAR, 0.0, 0.9, 0.0, a, b, c)
   GET_GROUND_Z_FOR_3D_COORD(a.b, b.b, c.b, cground)
   bomb = {}
   CREATE_OBJECT(BombHash2, a.b, b.b, cground.b, bomb, 1)
   SET_OBJECT_HEALTH(bomb.a, 1000.0)
   SET_OBJECT_ONLY_DAMAGED_BY_PLAYER(bomb.a, 1)
   FREEZE_OBJECT_POSITION(bomb.a, 1)
   PRINT_STRING_WITH_LITERAL_STRING_NOW("STRING", "Press F4 for detonation", 2000, 1)
   Wait(2000)
   eb = 1
 elseif eb == 1 then
  ----
  BombType(a.b, b.b, cground.b, 4, 4, 2, 2, 0)
  ----
  eb = 0
 end
end
Wait(1000)
end

function main()
eb = 0
Wait(1000)
 while true do
   SpawnBomb()
 end
 Wait(100)
end

-- start
main();


Function explanation:
CODE

BombType(x coord, y coord, z coord, type of bomb, width (how many expl.), height (how many expl.), distance between explosions, time between explosions)



Special Parked Cars V1.2 (Tuned gang cars!):

Creates 14 gang cars, 2 bikes:
4 cars at the save house in Manhattan (Algonquin)
10 cars & 2 bikes at the save house in Bronx (Bohan)



CODE

----------------------------------------------------------------------------------------------------
-- Special Parked Cars V1.2 by Skorpro
--        
-- If you want to use/modify this script/function, just do it! But note that is my work :)
-- Hint: Use "inGame Trainer v1.9.0" by Awwu to find and save the coords you want!
-- My regards to Alexander Blade (Alice) & Awwu (Trainer) !!  
--
----------------------------------------------------------------------------------------------------


function SkorproCarsExtras(CarVar, SCE_01, SCE_02, SCE_03, SCE_04, SCE_05, SCE_06, SCE_07, SCE_08)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 1, SCE_01)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 2, SCE_02)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 3, SCE_03)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 4, SCE_04)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 5, SCE_05)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 6, SCE_06)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 7, SCE_07)
 TURN_OFF_VEHICLE_EXTRA(CarVar, 8, SCE_08)
end


function SkorproSpecialCars(CarName, X, Y, Z, A, Col_01, Col_02, SCol_01, SCol_02, Extra, Protection)
 local CarHash = GET_HASH_KEY(CarName)
 REQUEST_MODEL(CarHash)
 while HAS_MODEL_LOADED(CarHash) == 0 do Wait(100) end
 local SpecCarVar = {}
 Wait(500)
 CREATE_CAR(CarHash, itof(X), itof(Y), itof(Z), SpecCarVar, true)
 SET_CAR_ON_GROUND_PROPERLY(SpecCarVar.a)
 A = A + 0.01
 SET_CAR_HEADING(SpecCarVar.a, A)
 CHANGE_CAR_COLOUR(SpecCarVar.a, Col_01, Col_02)
 SET_EXTRA_CAR_COLOURS(SpecCarVar.a, SCol_01, SCol_02)
 SET_VEH_HAS_STRONG_AXLES(SpecCarVar.a, 1)
 FIX_CAR(SpecCarVar.a)
 SET_VEHICLE_DIRT_LEVEL(SpecCarVar.a, 0.0)
 WASH_VEHICLE_TEXTURES(SpecCarVar.a,255)
---- Protection Start
 if Protection == 1 then
   SET_CAR_PROOFS(SpecCarVar.a, 1, 1, 1, 1, 1)
   SET_CAR_CAN_BE_DAMAGED(SpecCarVar.a, 0)
   SET_CAN_BURST_CAR_TYRES(SpecCarVar.a, 0)
   SET_CAR_HEALTH(SpecCarVar.a, 99999.0)
   SET_CAR_CAN_BE_VISIBLY_DAMAGED(SpecCarVar.a, 0)
 elseif Protection == 0 then
   Wait(100)
 end
---- Protection End
---- Car Extras Data --> Don't change it!
  if Extra == 1 then
    if CarName == "oracle" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 0, 0, 0, 0, 0)
    elseif CarName == "futo" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 0, 0, 0, 0, 0)
    elseif CarName == "schafter" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 0)
    elseif CarName == "pmp600" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 1)
    elseif CarName == "sentinel" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 1)
    elseif CarName == "zombieb" then
      SkorproCarsExtras(SpecCarVar.a, 1, 0, 1, 1, 1, 1, 0, 1)
    elseif CarName == "sultan" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 1)
    elseif CarName == "sultanrs" then
      SkorproCarsExtras(SpecCarVar.a, 0, 1, 1, 1, 1, 1, 1, 1)
    elseif CarName == "nrg900" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 1, 0, 1)
    elseif CarName == "moonbeam" then
      SkorproCarsExtras(SpecCarVar.a, 1, 0, 1, 0, 1, 0, 0, 0)
    elseif CarName == "intruder" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 0)
    elseif CarName == "primo" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 0)
    elseif CarName == "df8" then
      SkorproCarsExtras(SpecCarVar.a, 0, 1, 1, 1, 1, 1, 1, 1)
    elseif CarName == "feroci" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 0)
    elseif CarName == "hakumai" then
      SkorproCarsExtras(SpecCarVar.a, 0, 1, 1, 1, 0, 0, 0, 1)
    elseif CarName == "huntley" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 1, 0, 1, 1)
    elseif CarName == "landstalker" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 1, 0, 1)
    elseif CarName == "rebla" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 0)
    elseif CarName == "uranus" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 0, 0)
    elseif CarName == "pres" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 1, 1, 1)
    elseif CarName == "patriot" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 1, 1)
    elseif CarName == "voodoo" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 1, 1)
    elseif CarName == "cavalcade" then
      SkorproCarsExtras(SpecCarVar.a, 0, 1, 1, 1, 0, 0, 1, 1)
    elseif CarName == "e109" then
      SkorproCarsExtras(SpecCarVar.a, 1, 1, 1, 1, 0, 0, 1, 1)
    end
  elseif Extra == 0 then
  end  
---- Car Extras End
 MARK_MODEL_AS_NO_LONGER_NEEDED(CarHash)
 Wait(1000)
end


function main()
PRINT_STRING_WITH_LITERAL_STRING_NOW("STRING","Special Parked Cars v1.2 by SKORPRO",7000,1)
Wait(1000)
--
-- Explanation: SkorproSpecialCars("Car Name", X Coord, Y Coord, Z Coord, Angle (in degree), .....
-- ..... 1st Color, 2nd Color, 1st Special Color, 2nd Special Color, Car Extras on=1/off=0, Protection on=1/off=0)
--
-- manhattan save house
SkorproSpecialCars("oracle", 131.0244, 845.2913, 14.5143, 0, 0, 0, 91, 0, 1, 1)
SkorproSpecialCars("pmp600", 130.8457, 854.5657, 14.5123, 0, 0, 0, 90, 0, 1, 0)
SkorproSpecialCars("schafter", 130.9592, 860.8705, 14.5090, 0, 0, 0, 63, 0, 1, 0)
SkorproSpecialCars("sentinel", 131.0879, 868.0031, 14.5119, 0, 132, 0, 0, 0, 1, 0)
-- bronx save house right
SkorproSpecialCars("huntley", 589.6863, 1410.6073, 10.6916, 0, 133, 133, 132, 3, 1, 1)
SkorproSpecialCars("e109", 589.7500, 1416.6050, 10.7462, 0, 0, 57, 91, 0, 1, 0)
SkorproSpecialCars("cavalcade", 589.7842, 1422.5769, 10.7555, 0, 0, 0, 0, 0, 1, 0)
SkorproSpecialCars("intruder", 589.7894, 1428.6733, 10.7771, 0, 0, 0, 84, 0, 1, 0)
-- bronx save house left
SkorproSpecialCars("futo", 580.4723, 1390.7906, 10.6305, 0, 0, 34, 7, 0, 1, 0)
SkorproSpecialCars("sultanrs", 580.4180, 1397.4384, 10.6553, 0, 0, 127, 1, 127, 1, 0)
SkorproSpecialCars("sultan", 580.4691, 1404.0323, 10.6856, 0, 74, 0, 128, 127, 1, 0)
SkorproSpecialCars("feroci", 580.4748, 1410.5072, 10.7122, 0, 0, 0, 119, 0, 1, 0)
SkorproSpecialCars("pres", 580.4613, 1416.9669, 10.7347, 0, 37, 0, 131, 0, 1, 0)
SkorproSpecialCars("moonbeam", 580.4237, 1423.5829, 10.7590, 0, 0, 0, 0, 0, 1, 0)
-- bronx save house left bikes
SkorproSpecialCars("nrg900", 580.3323, 1427.6818, 10.5079, 270, 38, 38, 124, 0, 1, 0)
SkorproSpecialCars("zombieb", 580.2459, 1430.2871, 10.4752, 270, 0, 31, 0, 29, 1, 0)
while true do
 Wait(100)
end
end

-- start
main();


Function explanation:
CODE

SkorproSpecialCars("Car Name", X Coord, Y Coord, Z Coord, Angle (in degree), 1st Color, 2nd Color, 1st Special Color, 2nd Special Color, ...
...Car Extras on=1/off=0, Protection on=1/off=0)



My regards & thx to Alexander Blade, ZAZ, Black-Sector, aru, Awwu

GhostStorm
  • GhostStorm

    Thug

  • Members
  • Joined: 08 Nov 2009

#2

Posted 29 April 2010 - 07:33 AM

Do these work with 1.0.6.0

I am currently on 1.0.4.0 but thinking of updating the game and trying to find the mods that work first.

MadcapSmoky22
  • MadcapSmoky22

    Li'l G Loc

  • BUSTED!
  • Joined: 09 Nov 2009

#3

Posted 03 May 2010 - 08:22 PM

Dude finally! I was waiting for updated version of parked cars so much...and the bomb mod looks f*cking amazing, reminds me of just cause

Skorpro
  • Skorpro

    GTAholic

  • Members
  • Joined: 19 Jul 2009
  • Germany

#4

Posted 05 May 2010 - 01:17 AM

QUOTE (GhostStorm @ Apr 29 2010, 07:33)
Do these work with 1.0.6.0

unfortunately not sad.gif
QUOTE
I am currently on 1.0.4.0 but thinking of updating the game and trying to find the mods that work first.

I'm waiting for an ALICE update too. When it's released, I will update my mods...

Skorpro
  • Skorpro

    GTAholic

  • Members
  • Joined: 19 Jul 2009
  • Germany

#5

Posted 05 May 2010 - 01:34 AM

QUOTE (MadcapSmoky22 @ May 3 2010, 20:22)
Dude finally! I was waiting for updated version of parked cars so much...and the bomb mod looks f*cking amazing, reminds me of just cause

Great man, have fun biggrin.gif

Skorpro
  • Skorpro

    GTAholic

  • Members
  • Joined: 19 Jul 2009
  • Germany

#6

Posted 20 December 2010 - 04:07 AM


Hi Guys!
After a long time, I visited Alexander Blades Page. However I found nothing new sad.gif
@Alexander: I hope you're alright dude!

But here the good news. I found a way to run Alice v0.9 with the GTA 4 v1.0.7.0 update!!

!! READ THIS !!


Skorpro
  • Skorpro

    GTAholic

  • Members
  • Joined: 19 Jul 2009
  • Germany

#7

Posted 19 February 2011 - 03:38 PM

Hi,

Click here to test my Undercover Police Car Mod v1.0 Beta (incl. No Police Mod v1.1)!




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users