Help me with modding of GTASA

[kakaroto262]

Anyone know how to mod this one? or just give me a link that has this code inserted

 

Mod was not created by me it was converted by spaceenstein and the original coder is Demarest

------------------------

 

CONVERTED FOR SAN ANDREAS!

 

Created by Demarest for Vice City. Cropped for my Vice City All In One Mod. Converted to San Andreas by spaceeinstein.

 

This is a script mod that lets you be in bullet time (adrenaline mode). Press AIM + H to activate it. It'll lasts for 20 in-game seconds. The game will become very slow and your punch will be more powerful due to this drug. Press SPRINT to end bullet time.

 

First add this to the define objects area

CODE

DEFINE OBJECT ADRENALINE

 

Remember to increase the number of defined objects by one.

 

CODE

004F: create_thread ££LabelNEO

 

------------

 

:LabelNEO

03A4: name_thread 'NEOTIME'

0004: $NEOTIMER = 0

 

:LabelNEOLOOPSTART

0001: wait 20 ms

00D6: if 0

0256: player $PLAYER_CHAR defined

004D: jump_if_false ££LabelNEOLOOPSTART2

00D6: if 0

8449: NOT actor $PLAYER_ACTOR in_a_car

004D: jump_if_false ££LabelNEOLOOPSTART2

00D6: if 0

00DF: actor $PLAYER_ACTOR driving

004D: jump_if_false ££LabelISONFOOT

 

:LabelNEOLOOPSTART2

0050: gosub ££LabelKILLNEOTIMER

0002: jump ££LabelNEOLOOPSTART

 

:LabelISONFOOT

00D6: if 1

00E1: key_pressed 0 6

00E1: key_pressed 0 9

004D: jump_if_false ££LabelNEORAGE

0050: gosub ££LabelNEOADRENALINE

0002: jump ££LabelNEOLOOPSTART

 

:LabelNEORAGE

00D6: if 2

00E1: key_pressed 0 16

80E1: NOT key_pressed 0 0

80E1: NOT key_pressed 0 1

004D: jump_if_false ££LabelNEOLOOPSTART

01B4: set_player $PLAYER_CHAR frozen_state 0

0050: gosub ££LabelKILLNEOTIMER

01B4: set_player $PLAYER_CHAR frozen_state 1

0002: jump ££LabelNEOLOOPSTART

 

:LabelNEOADRENALINE

00A0: store_actor $PLAYER_ACTOR position_to @0 @1 @2

0213: @15 = create_pickup #ADRENALINE type 15 at @0 @1 @2

0363: toggle_model_render_at @0 @1 @2 radius 50.0 object #ADRENALINE 0

0006: @33 = 0

 

:LabelNEOADRENALOOP

0001: wait 20 ms

00D6: if 0

001B: 201 > @33

004D: jump_if_false ££LabelNEOMISSED

00D6: if 0

0214: pickup @15 picked_up

004D: jump_if_false ££LabelNEOADRENALOOP

0004: $NEOTIMER = 20000

014E: set_timer_to $NEOTIMER type 1

 

:LabelNEOMISSED

0215: destroy_pickup @15

0051: return

 

:LabelKILLNEOTIMER

00D6: if 0

0018: $NEOTIMER > 0

004D: jump_if_false ££LabelKILLNEOTIMEREND

014F: stop_timer $NEOTIMER

0004: $NEOTIMER = 0

 

:LabelKILLNEOTIMEREND

0051: return

 

 

This post has been edited by spaceeinstein on Aug 8 2005, 14:45