Magestic Safehouse mod no longer works

[vargil]

http://www.gtaforums.com/index.php?showtopic=391144

 

The Magestic safehouse mod nolonger works (latest .net).

 

Could someone fix it?

Also could you have it write to a file a 1 or a 0 (magesticsafehouse.ini ?)

1 would mean you are saved in the magestic penthouse and should be transported there on game load, 0 would mean not to. If your game was saved not in the magestic safe house 0 would be written. Or if that's impossible just write 0 at the begining of script initialization, and only 1 if person saves in magestic safehouse.

 

Once that is done, it would be easy to make more safehousen of the sort by copying then editing the file. Any interior could be made a safe house by the enterprising player.

[..GhosT]

<.< its a Alice script, not net Scritphook.

 

Just create a new Text Document, paste the whole code in there, and rename the textfile.txt to for example majesticsavehouse.vb

 

then you got it.

[vargil]

<.< its a Alice script, not net Scritphook.

 

Just create a new Text Document, paste the whole code in there, and rename the textfile.txt to for example majesticsavehouse.vb

 

then you got it.

What about the code addition so it only loads you from that "new" safehouse if you saved there?

 

[lilmcnessy]

 

<.< its a Alice script, not net Scritphook.

 

Just create a new Text Document, paste the whole code in there, and rename the textfile.txt to for example majesticsavehouse.vb

 

then you got it.

It's not alice, it is in Visual Basic, it is a .net scripthook mod

 

I will have a look at the code

 

 

Imports SystemImports System.Windows.FormsImports GTAPublic Class Majestic   Inherits Script   Dim Spawncoords As New Vector3(-180.8, 580.4, 122.8)   Private Doormodel As Model = "ab_ritz_aptdoor"   Dim coordies As New Vector3(-160.0, 591.0, 119.0)   Dim coordies2 As New Vector3(-160.0, 593.0, 119.0)   Dim coordies3 As New Vector3(-155.66, 592.7, 359.42)   Dim coordies4 As New Vector3(-144.25, 6107.32, 14.3)   Public Sub New()       Interval = 500       If Player.Character.Exists = True Then           Game.FadeScreenOut(1000, True)           'Game.LoadEnvironmentNow(Spawncoords)           Player.Character.Position = Spawncoords           World.CreateVehicle("MAVERICK", coordies3)           Game.FadeScreenIn(1000)       Else       End If   End Sub   Private Sub Majestic_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick       Dim Var6 As Single = 0       SetStateOfClosestDoorOfType(Doormodel, coordies, 0, Var6)       SetStateOfClosestDoorOfType(Doormodel, coordies2, 0, Var6)   End Sub   Private Sub SetStateOfClosestDoorOfType(ByVal o As GTA.Model, ByVal coords As Vector3, ByVal locked As Boolean, ByVal angle As Single)       Native.Function.Call("SET_STATE_OF_CLOSEST_DOOR_OF_TYPE", o, coords.X, coords.Y, coords.Z, locked, angle)   End Sub   Private Sub Majestic_KeyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown       Select Case e.Key           Case Keys.F               Dim PPos As Vector3 = Player.Character.Position               Dim LiftTop As New Vector3(-184.07, 597.44, 114.44)               Dim LiftBottom As New Vector3(-182.0, 597.4, 15.6)               If PPos.DistanceTo(LiftTop) < 4 Then                   Game.FadeScreenOut(1000, True)                   Player.Character.Position = LiftBottom                   Player.Character.Heading = 280                   'Game.LoadEnvironmentNow(LiftBottom)                   Game.FadeScreenIn(1000)               ElseIf PPos.DistanceTo(LiftBottom) < 4 Then                   Game.FadeScreenOut(1000, True)                   'Game.LoadEnvironmentNow(LiftTop)                   Player.Character.Position = LiftTop                   Player.Character.Heading = 280                   Game.FadeScreenIn(2000)               ElseIf PPos.DistanceTo(Spawncoords) < 5 Then                   Game.ShowSaveMenu()               End If       End Select   End SubEnd Class

 

I just took out a couple of lines

I'm not familiar with .vb though

Edited November 4, 2009 by lilmcnessy

[Rooft0p]

change - Game.LoadEnvironmentNow to World.LoadEnviromentNow

[..GhosT]

oh. I used this mod for 1 game try and only for 5 minutes cuz its f*cking boring, lol.

[vargil]

change - Game.LoadEnvironmentNow to World.LoadEnviromentNow

Ok it works now, but it always transports you to that "safehouse". Could you add some code to save state to a file: if you last pressed "F" at the save point there you arrive there when loading, if you saved somewhere else then you don't.

 

[Rooft0p]

 

change - Game.LoadEnvironmentNow to World.LoadEnviromentNow

Ok it works now, but it always transports you to that "safehouse". Could you add some code to save state to a file: if you last pressed "F" at the save point there you arrive there when loading, if you saved somewhere else then you don't.

Ok Just change false to true in the ini file if you want to start from Majestic Safehouse.

 

http://www.mediafire.com/?f4nginnznzu

 

note: will not work with newest patch only for 1.0.4.0

[schoober]

Dude, could u do a new one? cause its not working

[schoober]

its saying that its unable to load

[jitsuin]

fuuu

Edited February 3, 2012 by jitsuin