[BETA|WIP|GTA4]Crime-does-pay

[DerDodga]

UPDATE: New Beta now online, get it here:

 

http://www.file-upload.net/download-680330...pay-v2.zip.html

 

- Fixed some Bugs:

 

crashes due to array out of bounds / non existing objects

carselling wasnt working / did not recognize brucies mission progress correct

Location selection wasnt working right

 

- Minor Changes:

 

Maximum ammount customers will buy now also depend on the ammount of deals carried out by the player

You can now buy drugs at any time, just hit B (no need to be inside a vehicle)

Start/Stop mod by hitting Shift+B

changed icons to be better recognizable in combination with other mods

 

- New stuff:

 

expanded recruiting - just try it at the violet spots

 

 

->Old Readme<-

 

 

Finally here is a beta-Release of my mod for testing purposes - be aware that there might still be severeal Problems - but the core-functions should work like a charm.

As for all my mods, this is open source. Feel free to reuse the Code in your own works, but remember to mention me. If you want to cash in with modders work - contact them first or face the consequences. You can rehost this, but ALWAYS include this readme!

USE AT YOUR OWN RISK!

 

For Screenshots SCROLL DOWN

 

Whats it about?

 

Screens soon

 

Stable features:

 

- You can silently break open cars without smashing the window - but watch out for cops!

 

- You can shutdown the engine without having nico trying to start it again (achieved by setting engine health to zero)

 

- You can lock your cars doors

 

- You can buy and sell Narcotics. At the moment there are 5 different Drugs (this is essential the old Dos-Game "Dopedealer" adopted to GTA4). Depending on how much you already bought is the ammount you can buy. Prices change from time to time or on gameload.

If you die, you loose all your drugs. You can stash your drugs in your safehouse. If the police sees you dealing, you will get wanted.

Drugs you can buy depend on mission progress - for example you have to have done some missions for jakob to buy weed. Also only meetingplaces should be shown wich are accessible at the time (no on still locked islands). If you attack a dealer (you can rob them after they sold you the stuff, they will hold your money then), he will get help by some goons. Drug-Stashing atm ONLY works for GTA4-Stock! If you carry a certain ammount, nico will get a backpack / duffel bag.

 

- you can repair your car in a garage at the petrol station close to brucie (look for the garage symbol on map). This will NOT clear your wanted level and keep the current colour.

 

features still needing attention but working:

 

- you can hire some russian guards near first safehouse (look for the Dollar Symbol), depending on its weapon is the price

 

- you can sell your car (if you did something for brucie allready). Sometimes the cops will be alterted after some deals, sometimes rivaling gangs and will attack you. After you brought your vehicle to a guy, you have to go to the scrapyard to collect your money. You can demand more money by pressing key X. Dont push it to far or you will get nothing (basicly old carsell mod)

 

Install

 

Just copy to GTADIR\scripts. You need the .Net-Scripthook by hazardx (a million thanks for that man

 

Temporary Download

 

http://www.file-upload.net/download-674543...oes-pay.7z.html

 

Keys

 

Drug Mod Part

 

General:

Start Drug Mod: B (Once)

Show Prices: Y or X, dont remember just try

 

 

Change Mode Drug Mod (Selling/Buying): B while on Foot = Sellmode on/off, While in Car open Buymenu

 

Buy-Menu:

 

increase/deacrease ammount Left/Right

Abort: Down or X, just try

Buy E

 

 

 

While Buying:

before meeting Dealer

 

Call of Meeting B or X, just try

 

during Deal

Demand better Prices X

Buy E

 

Selling:

 

Demand more Money X

Sell E

 

While in Car:

 

Get Customer into Car GTA-Key Horn

 

 

 

 

General Keys:

 

while in Car

 

(un)Lock Doors X

 

 

Start/Stop engine E

Start Car-Sell Mission M

 

while on foot

 

Break open Car X (Hold while close to vehicle)

 

Hire Crook N

Menu up/down Left/Right

Hire E

Abort X

 

 

Recommended/tested as Compatible mods

 

By angryamoeba:

ArrestWarrant - highly recommended and fully compatible

BankAccount - compatible and recommended

Weapon Weight - compatible and recommended

Weapon Storage - compatible and recommended

 

PrisonBreak by HippiCommunist - compatible and recommended

 

History:

 

Carsell mod V1.0

 

Here it is, the new release of my mod. Several things have changed or are new:

 

- you have to deliver a car of the type you were sitting in when you called the number

 

- after you delivered the car, you have to go to a scrapyard to collect the reward

there you will negotiate your reward. At a random point or after the contact warned you

or after you pushed it too far he will be insultet and leave without paying

hit x when he offers you a reward to demand more

 

- mission no longer ends when you are wanted, only if you lead the cops to the meeting

 

- payment mission part will not vanish if player dies

 

- added repair-shop were you can repair your vehicle, price depending on damage and vehicle value

just hit x when you are inside the garage and the repair message pops up

 

- added a function i always missed: if you want into a vehicle/helicopter wich is locked, you can hit x

to silently break the lock open (radius for cops to take notice is 5, should it be less/more?)

this might also work on vehicles not accesible the normal way, but i didnt test this

 

- if you are inside a car/helicopter, you can hit x to lock/unlock the doors

WARNING: you have to unlock the doors first to exit the car

 

any comments or recommends are always welcome (http://www.gtagarage.com/mods/show.php?id=7610)

 

DO NOT SELL OR STEAL MODS! ALWAYS KEEP THIS README WITH MY FILES!

 

of course im not responsible if anything happens to anybody or anything while using this

 

to use this put only one script-file at a time (carsale.net.dll or carsale.vb) into your gtadir/scripts folder! to start the carsell mission, dial "carsell" while in a vehicle!

 

 

 

Old Readme

 

 

This is the first release of my planned car export and sell mod. It is a very basic release, provided non-compiled so anybody looking at the code might learn or suggest something Feel free to contact me in my GTA-Forums thread!

You can freely upload this file to your site, as long as you keep this readme with it. DONT EVER SELL MODS WITHOUT CONTACTING THE CREATOR FIRST!

 

 

 

Functionality: You can call carsell (whatever that is as a number, just look at the phones keypad and yes every single letter stands for a number), you will then get one out of five positions to drive to. If you arrive there, a guy will be waiting for you. Drive next to him (real close!), you will then get a message and get ouf of the vehicle and wander around. Just wait until the guy is inside the car, then you will reclaim control over nico. You will get 1000$ for a full health car, a lightly damaged car will get you 500 bucks!

 

Install: Just put carsale.vb (after you installed the .net scripthook, look at gtaforums.com if you need help with that) into gtadir\scripts

 

You will net the excelent .net scripthook (I use Version 0.893 ATM) by Hazard X, get it here: http://www.gtaforums.com/index.php?showtopic=392325

 

By DerDodga

 

Edited November 11, 2012 by DerDodga

[manu90mala]

really good collection of mods! i would like to use only the car parts, repair and carsell part of the mod, is it possible to make it modular?

[DerDodga]

really good collection of mods! i would like to use only the car parts, repair and carsell part of the mod, is it possible to make it modular?

Hi! I actually planned to modularize all not interconnected parts in the next release, since i also found it disturbing if mods had some good parts but some i didnt like, so i didnt use the mod at all. For now its just convenient to keep all scripts in one file - will change soon.

 

Until then, it is easily possible to change the actual running parts by using the .vb file and changing some lines of code:

 

You basically just have to disable two lines of Code by putting a ' in front of it, just open up the .vb file with any text editor and search for "public sub new()" near the top of the file. about 5-10 lines below you will find two lines called "drugmodstarter()" and "hiredguns()". If you comment this lines out by putting the " ' " in front of it, it should do the trick!

 

If you know a little bit more about coding, you can of course use vb.net free edition to open up the file and extract the functions you need into a new file.

[AdanRyder]

What missions exactly are necessary to get the connection for each drug/car sales?

[DerDodga]

 

What missions exactly are necessary to get the connection for each drug/car sales?

 

Jacob should be all three missions, elizabetha first, faustin first - that should do the trick for all drugs. Will change probably!

 

For the Carsell you have to complete brucies first mission - but good that you mention it there was a bug in the script wich wouldnt allow to run the missions at all - i will update a fixed version later today or tomorrow with some additional tweaks

 

 

[King_Mustapha]

good job i was too focused on combat/group members AI for drugwars to do something like this, looks like gta finally has it's dealing

 

would be cool if u can use both without conflict

 

(although i did code dealing in mine but had nowhere this level of detail lol)

Edited November 1, 2012 by King_Mustapha

[DerDodga]

 

good job i was too focused on combat/group members AI for drugwars to do something like this, looks like gta finally has it's dealing

 

would be cool if u can use both without conflict

 

(although i did code dealing in mine but had nowhere this level of detail lol)

Thats the cool thing - most people are working on different aspects, and alltogether the mods add a lot of new features instead of everybody doing the same thing.

 

Is the drugwars mod called turfwars you mean, or was that a different mod? I actually have this running along (got it from gta4mods), besides crashes from time to time because of a call to nonexistant object it seems to work fine - but honestly i dont tried any missions from that until now.

[King_Mustapha]

this is drugwars i had to remove because trolls pissed me off and when i get mad it lasts like a couple weeks before i can calm down LOL, im gonna release again because i do this for the cool people but trolls make me want to go to war and destroy everything HAHA, well i have something planned for them soon > what is funny is most people have a bad memory, f*ck with me and ill never forget and i will get even believe me

 

here u go...

 

https://dl.dropbox.com/u/55310026/DrugWarsBeta.rar

 

google youtube ch3y3zze drugwars if u want to check vids

[Harry Callahan]

Nice script, however it doesn't work for me. If I press M to sell a car It says I don't know anybody to sell the car. I have finished all mission for Brucie and Jacob. I can start the drugs missions by pressing B a dollar sign appears near me on the map, When I get close to the dealer the or honk my horn the dealer comes to me the script crashes. Only thing that works for me are; The locking of car doors and stealing cars.

 

Scripthookdotnet.log

 

2012-11-05 18:01:57 - STARTING SCRIPTS...

2012-11-05 18:01:57 - INFO: Phone number checks are not available!

2012-11-05 18:01:57 - ...successfully started script 'PowerDrink'!

2012-11-05 18:01:57 - ...successfully started script 'BankMoney'!

2012-11-05 18:01:57 - ...successfully started script 'DOORS.DOORS'!

2012-11-05 18:01:57 - ...successfully started script 'BankAccount'!

2012-11-05 18:01:57 - ...successfully started script 'FullStrobes.FullStrobes'!

2012-11-05 18:01:57 - ...successfully started script 'trafficruleCS.lessovertake'!

2012-11-05 18:01:57 - ...successfully started script 'ArrestWarrant.Main'!

2012-11-05 18:02:00 - ...successfully started script 'tycoon_all.tycoon_all'!

2012-11-05 18:02:02 - ...successfully started script 'carsale'!

2012-11-05 18:03:48 - Direct3D device lost!

2012-11-05 18:03:49 - Direct3D device created!

2012-11-05 18:14:26 - Direct3D device lost!

2012-11-05 18:14:28 - Direct3D device created!

2012-11-05 18:16:00 - Direct3D device lost!

2012-11-05 18:16:02 - Direct3D device created!

2012-11-05 18:19:13 - Error during Tick in script 'carsale':

System.IndexOutOfRangeException: Index was outside the bounds of the array.

at carsale.selling()

at carsale.monitorcustomer()

at carsale.drugtick(Object sender, EventArgs e)

at System.EventHandler.Invoke(Object sender, EventArgs e)

at GTA.Script.TryTick()

at GTA.Script.DoTick()

at GTA.ScriptThread.OnTick()

2012-11-05 18:20:57 - Direct3D device lost!

2012-11-05 18:20:57 - SCRIPTS TERMINATED!

 

 

[froggz19]

Please, I want the lockpick and lock/unlock car doors mods only! What parts do I have to copy from vb script?

 

I created a new txt file with this content and saved as vb

 

 

Imports SystemImports System.DrawingImports System.Windows.FormsImports GTAPublic Class lockpick   Inherits Script   Public carjackrunning As Boolean = False   Public vehlockveh As Vehicle  Public Sub New()    Interval = 250  End Sub   Private Sub lockpick(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown       If e.Key = Keys.X Then           If Player.Character.isInVehicle Then               carlock()           ElseIf Not carjackrunning Then               breakincar()           End If         End If       End Sub   Private Function copmonitor(range As Integer) As Boolean       Dim guys As Ped()       Dim helpx As Integer = 0       Dim trafficcar As Vehicle()       Dim wanted As Boolean = False       guys = GTA.World.GetPeds(Player.Character.Position, range)       trafficcar = World.GetVehicles(Player.Character.Position, range)       'Game.Console.Print(guys.Length)       'Game.Console.Print(trafficcar.Length)       'Game.Console.Print("Relationship Cop: " & RelationshipGroup.Cop)       While (helpx < guys.Length)           'Game.Console.Print(guys(helpx).RelationshipGroup)           If guys(helpx).Model = Model.BasicCopModel Then               If Player.WantedLevel < 1 Then Player.WantedLevel = 1               wanted = True               'Game.Console.Print("COP SPOTTED")           End If           helpx += 1       End While       helpx = 0       While (helpx < trafficcar.Length)           If (Not trafficcar(helpx).GetPedOnSeat(VehicleSeat.Driver) = Nothing) Then               'Game.Console.Print("")               If trafficcar(helpx).Model = Model.BasicPoliceCarModel Then                   If Player.WantedLevel < 1 Then Player.WantedLevel = 1                   wanted = True                   'Game.Console.Print("COP SPOTTED")               End If           End If           helpx += 1       End While       Return wanted   End Function   Private Sub carlock()       If ((Player.Character.CurrentVehicle.Model.isHelicopter Or Player.Character.CurrentVehicle.Model.isCar) And Player.Character.CurrentVehicle.GetPedOnSeat(VehicleSeat.Driver) = Player.Character) Then           If Not Player.Character.CurrentVehicle.DoorLock = DoorLock.None Then               Player.Character.CurrentVehicle.DoorLock = DoorLock.None               Game.DisplayText("Doors open", 1000)           Else               Player.Character.CurrentVehicle.DoorLock = DoorLock.ImpossibleToOpen               Game.DisplayText("Doors locked!", 1000)               vehlockveh = Player.Character.CurrentVehicle           End If       End If   End Sub   Private Sub breakincar()       carjackrunning = True       Dim vehpointer As New Native.Pointer(GetType(Vehicle))       Dim targcar As Vehicle = vehpointer       targcar = World.GetClosestVehicle(Player.Character.Position, 2)       If Exists(targcar) Then           Dim price As New Native.Pointer(GetType(Integer))           Dim breakintime As Integer = 0           Native.Function.Call("GET_CAR_MODEL_VALUE", targcar.Model, price)           'Game.Console.Print("Value: " & price.Value)           breakintime = price.Value / 5000           If breakintime < 10 Then breakintime = 10           If Not targcar.DoorLock = DoorLock.None And (targcar.Model.isCar Or targcar.Model.isHelicopter) Then               Dim anims As New AnimationSet("[email protected]")               Dim animflags As AnimationFlags = AnimationFlags.Unknown12 Or AnimationFlags.Unknown11 Or AnimationFlags.Unknown09               Dim jacktime As Integer = 0               While (jacktime < breakintime And isKeyPressed(Keys.X))                   'Player.CanControlCharacter = False                   Player.Character.Task.TurnTo(targcar.Position)                   If Not Player.Character.Animation.isPlaying(anims, "use_vendmac") Then Player.Character.Animation.Play(anims, "use_vendmac", 2.0F, animflags)                   Game.DisplayText("Breaking lock time remaining: " & (breakintime - jacktime), 1000)                   Wait(1000)                   jacktime += 1                   copmonitor(15)               End While               'Player.CanControlCharacter = True               If (jacktime = breakintime) Then                   targcar.DoorLock = DoorLock.None                   Game.DisplayText("Lock open!", 3000)               Else                   Game.DisplayText("Lockpicking aborted!", 3000)               End If               Wait(3000)           End If       End If       carjackrunning = False   End SubEnd Class

 

 

It works, the script is loaded successfully but please tell me, did I missed something!?

Edited November 6, 2012 by froggz19

[DerDodga]

Please, I want the lockpick and lock/unlock car doors mods only! What parts do I have to copy from vb script?

 

I created a new txt file with this content and saved as vb

 

...

 

It works, the script is loaded successfully but please tell me, did I missed something!?

Looks good, i think you got everything you need!

[Qtwo]

Please make it work on EFCL ! Its almost working ATM, but something is wrong. I get all the time "carsale" thing crashing. And buttons aren't workin very well. This sound one of the best mods there is, and i would love to play it...

[DarthBONG]

awesome mod, can you also work in drug usage? I have a joint smoke mod, I just need to get some working effects for niko. Right now niko takes out a joint, lights it up then starts smoking. I also need to get ambient car smoke (as seen when jakob is riding with niko) as well as the cherry (light) on the joint. Then work in a status or visual effect. Care to help?

[TheCoon]

I only need the drug-selling part. Can somebody please post the important scriptlines?

[aqibm_5775]

hi, great mod i only use for the car selling part which is giving be some problems well while i am playing the game when i press the m key to sell the car sometimes it works or it says error in script 'car sale' and sometimes after i deliver the car to the person it says deal finished and then again it says error in script 'car sale' please some one help

 

Dot Net Log

2013-02-14 13:48:22 - STARTING SCRIPTS...

2013-02-14 13:48:22 - INFO: Phone number checks are not available!

2013-02-14 13:48:22 - ...successfully started script 'Parking.ParkingLight'!

2013-02-14 13:48:22 - ...successfully started script 'indicatorClass'!

2013-02-14 13:48:22 - ...successfully started script 'CarShopCS.Menus'!

2013-02-14 13:48:28 - ...successfully started script 'carsale'!

2013-02-14 13:48:29 - ...successfully started script 'Parking.ParkingHeavy'!

2013-02-14 13:48:33 - ...successfully started script 'CarShopCS.KeyCheck'!

2013-02-14 13:48:35 - ...successfully started script 'CarShopCS.CarShop'!

2013-02-14 14:06:10 - Error during Tick in script 'carsale':

System.NullReferenceException: Object reference not set to an instance of an object.

at carsale.payoff(Int32 value)

at carsale.startcs()

at carsale.Silentcarjack(Object sender, KeyEventArgs e)

at GTA.KeyEventHandler.Invoke(Object sender, KeyEventArgs e)

at GTA.Script.ProcessEvents()

at GTA.Script.DoTick()

at GTA.ScriptThread.OnTick()

2013-02-14 14:06:18 - Direct3D device lost!

2013-02-14 14:06:19 - SCRIPTS TERMINATED!

Edited February 14, 2013 by aqibm_5775

[Dimitry Rascalov]

So the mod seems to work, but for some reason I can't actually go up and down on the selection menus. Anyone have a solution?