:
Destination Time
:
Present Time
:
Last Time Departed
Fishy-Fish

Fueling

Recommended Posts

Hey, could anybody give me the code to refueling the Delorean and the fuel itself for all the cars? And also, have the fueling Texaco station in Hill Valley work too? If this isn't allowed, I can see why.

Also, if this code stuff is allowed, could somebody send me the latest December Main.scm update with fueling code in it too?

Share this post


Link to post
Share on other sites
Also, if this code stuff is allowed, could somebody send me the latest December Main.scm update with fueling code in it too?

I think passing the fuel-script itself to you is allowed.

But sending you a main.scm isn't allowed.

I'll take a look at 0.2d script and if I find the correct code, I'll give it to you (If nobody of the Mod Team forbids it).

EDIT: icon_link.gif Here it is.

Edited by Mini-Me

Share this post


Link to post
Share on other sites

You're perfectly fine swapping codes form other versions into the game. We just won't fix any bugs that come with it.

Share this post


Link to post
Share on other sites

Change the co-ords in the code or add a co-ords in the code.

Share this post


Link to post
Share on other sites

Eh, wha?

Also, Mini-Me, the code didn't work for me. Heck, the Fuel bar doesn't even show up in the cars.

Edited by Fishy-Fish

Share this post


Link to post
Share on other sites

Do you add the create_thread thingy?

Try this

This is the original one.

:GAS

thread 'GAS' 



:GAS_10

0151: remove_status_text $849 



:GAS_15

wait 10 

if 

   Player.Defined($PLAYER_CHAR)

jf @GAS_15 

if and

00E0:   player $PLAYER_CHAR driving 

   not Player.InRemoteMode($PLAYER_CHAR)

jf @GAS_15 

if and

80DE:   not player $PLAYER_CHAR driving_vehicle_type #FAGGIO 

80DE:   not player $PLAYER_CHAR driving_vehicle_type #PIZZABOY 

80DE:   not player $PLAYER_CHAR driving_vehicle_type #BUS 

80DE:   not player $PLAYER_CHAR driving_vehicle_type #MAVERICK 

80DE:   not player $PLAYER_CHAR driving_vehicle_type #ZEBRA 

80DE:   not player $PLAYER_CHAR driving_vehicle_type #HOTRING 

jf @GAS_15 

if 

80DC:   not player $PLAYER_CHAR driving $847 

jf @GAS_171 

03C1: $847 = player $PLAYER_CHAR car 

0209: $849 = random_int 5 100 

4@ = 900 // integer values 

create_thread @PSAVE 

wait 100 



:GAS_171

04F7: status_text $849 1 line 1 'GAS'  // Fuel:

17@ = 0 // integer values 



:GAS_195

wait 10 

if 

00E0:   player $PLAYER_CHAR driving 

jf @GAS_10 

if and

80FA:   not player $PLAYER_CHAR stopped 0 38.5 -1057.0 10.5 radius 8.0 4.0 2.0 

80FA:   not player $PLAYER_CHAR stopped 0 58.5 -1075.0 10.5 radius 4.0 8.0 2.0 

jf @GAS_669 

if 

  $849 > 0 // integer values 

jf @GAS_726 

if 

  16@ > 99 // integer values 

jf @GAS_381 

16@ = 0 // integer values 

if 

00E1:   key_pressed 0 16 

jf @GAS_374 

4@ -= 5 // integer values 

jump @GAS_381 



:GAS_374

4@ -= 2 // integer values 



:GAS_381

if 

  0 >= 4@ // integer values (never used VC or GTA 3) 

jf @GAS_414 

4@ = 900 // integer values 

$849 -= 1 // integer values 



:GAS_414

if 

   not $849 > 5 // integer values 

jf @GAS_632 

if 

  $916 == 0 // integer values 

jf @GAS_477 

$916 = 1 // integer values 

018A: $917 = create_checkpoint_at 48.5 -1066.0 10.5 



:GAS_477

if 

  $850 == 0 // integer values 

jf @GAS_195 

1@ = 255 // integer values 

2@ = 200 // integer values 

3@ = 50 // integer values 

gosub @T_CIRC_2999 

033F: set_text_draw_letter_width_height 7.5 25.0 

03E4: set_text_draw_align_right 1 

033E: text_draw 550.0 1.0 'PLIGHT'  // .

1@ = 0 // integer values 

2@ = 0 // integer values 

3@ = 0 // integer values 

gosub @T_CIRC_2999 

03E4: set_text_draw_align_right 1 

033F: set_text_draw_letter_width_height 0.25 1.0 

033E: text_draw 534.0 176.0 'LFUEL'  // Fuel

jump @GAS_195 



:GAS_632

if 

  $916 == 1 // integer values 

jf @GAS_195 

$916 = 0 // integer values 

Marker.Disable($917)

jump @GAS_195 



:GAS_669

if 

   not $849 > 99 // integer values 

jf @GAS_195 

if 

   Player.Money($PLAYER_CHAR) > 1

jf @GAS_195 

$849 += 1 // integer values 

Player.Money($PLAYER_CHAR) += -27

jump @GAS_195 



:GAS_726

02D4: car $847 turn_off_engine 

jump @GAS_195 



:PSAVE

thread 'PSAVE' 

03C1: 0@ = player $PLAYER_CHAR car 

008B: 1@ = $849 // integer values and handles 



:PSAVE_26

wait 10 

if 

   not Car.Wrecked(0@)

jf @PSAVE_135 

if 

00DC:   player $PLAYER_CHAR driving 0@ 

jf @PSAVE_26 

03C1: $847 = player $PLAYER_CHAR car 

008A: $849 = 1@ // integer values and handles 



:PSAVE_81

wait 10 

if 

   not Car.Wrecked(0@)

jf @PSAVE_135 

if 

80DC:   not player $PLAYER_CHAR driving 0@ 

jf @PSAVE_81 

008B: 1@ = $849 // integer values and handles 

jump @PSAVE_26 



:PSAVE_135

end_thread

Edited by JohnyMan :P

Share this post


Link to post
Share on other sites

I can see your code has more stuff than Mini-Me's I'll try it.

(Off Topic) And JohnnyMan, sorry I havn't replied to your PM. It was late last night and I wanted to leave.

Share this post


Link to post
Share on other sites

Off-Topic: It's ok.

On-Topic: Where the hell did you get that code Mini-Me? You said it is original. :huh:

Share this post


Link to post
Share on other sites

That's weird? Works fine with me. Did you add :create_thread @GAS at the top ?

Share this post


Link to post
Share on other sites

Allow me to check.

Edit: At the very top of the code? It gave me an error. Please tell me where to put it.

Edited by Fishy-Fish

Share this post


Link to post
Share on other sites

Not too top...in about line 00547

Share this post


Link to post
Share on other sites

Hey thanks, I got it working. But, how do I make the texaco station work? Also, where do I go to refuel? It said that whenever I get low on fuel, it would put a dot on the map that would tell me where to go to refuel but it didn't.

Share this post


Link to post
Share on other sites

Go to the Washington Gas station. I didn't put the Hill Valley co-ords.

Share this post


Link to post
Share on other sites

Use player pos. It's a program that lets you know where th- *boom* are you are.

Edited by JohnyMan :P

Share this post


Link to post
Share on other sites

I can't recall it. Sorry.

Share this post


Link to post
Share on other sites

if you want to refuel in hill valley this is the code.....and a pic Refueled

:GAS

thread 'GAS'

:GAS_10

0151: remove_status_text $849

:GAS_15

wait 10

if

Player.Defined($PLAYER_CHAR)

jf @GAS_15

if and

00E0: player $PLAYER_CHAR driving

not Player.InRemoteMode($PLAYER_CHAR)

jf @GAS_15

if and

80DE: not player $PLAYER_CHAR driving_vehicle_type #FAGGIO

80DE: not player $PLAYER_CHAR driving_vehicle_type #PIZZABOY

80DE: not player $PLAYER_CHAR driving_vehicle_type #BUS

80DE: not player $PLAYER_CHAR driving_vehicle_type #MAVERICK

80DE: not player $PLAYER_CHAR driving_vehicle_type #ZEBRA

80DE: not player $PLAYER_CHAR driving_vehicle_type #HOTRING

jf @GAS_15

if

80DC: not player $PLAYER_CHAR driving $847

jf @GAS_171

03C1: $847 = player $PLAYER_CHAR car

0209: $849 = random_int 5 100

4@ = 900 // integer values

create_thread @PSAVE

wait 100

:GAS_171

04F7: status_text $849 1 line 1 'GAS' // Fuel:

17@ = 0 // integer values

:GAS_195

wait 10

if

00E0: player $PLAYER_CHAR driving

jf @GAS_10

if and

80FA: not player $PLAYER_CHAR stopped 0 -1511.0 833.0 13.5 radius 8.0 4.0 2.0

80FA: not player $PLAYER_CHAR stopped 0 -1531.0 853.0 13.5 radius 4.0 8.0 2.0

jf @GAS_669

if

$849 > 0 // integer values

jf @GAS_726

if

16@ > 99 // integer values

jf @GAS_381

16@ = 0 // integer values

if

00E1: key_pressed 0 16

jf @GAS_374

4@ -= 5 // integer values

jump @GAS_381

:GAS_374

4@ -= 2 // integer values

:GAS_381

if

0 >= 4@ // integer values (never used VC or GTA 3)

jf @GAS_414

4@ = 900 // integer values

$849 -= 1 // integer values

:GAS_414

if

not $849 > 5 // integer values

jf @GAS_632

if

$916 == 0 // integer values

jf @GAS_477

$916 = 1 // integer values

018A: $917 = create_checkpoint_at -1531.0 853.0 130.5

:GAS_477

if

$850 == 0 // integer values

jf @GAS_195

1@ = 255 // integer values

2@ = 200 // integer values

3@ = 50 // integer values

gosub @T_CIRC_2999

033F: set_text_draw_letter_width_height 7.5 25.0

03E4: set_text_draw_align_right 1

033E: text_draw 550.0 1.0 'PLIGHT' // .

1@ = 0 // integer values

2@ = 0 // integer values

3@ = 0 // integer values

gosub @T_CIRC_2999

03E4: set_text_draw_align_right 1

033F: set_text_draw_letter_width_height 0.25 1.0

033E: text_draw 534.0 176.0 'LFUEL' // Fuel

jump @GAS_195

:GAS_632

if

$916 == 1 // integer values

jf @GAS_195

$916 = 0 // integer values

Marker.Disable($917)

jump @GAS_195

:GAS_669

if

not $849 > 99 // integer values

jf @GAS_195

if

Player.Money($PLAYER_CHAR) > 1

jf @GAS_195

$849 += 1 // integer values

Player.Money($PLAYER_CHAR) += -27

jump @GAS_195

:GAS_726

02D4: car $847 turn_off_engine

jump @GAS_195

:PSAVE

thread 'PSAVE'

03C1: 0@ = player $PLAYER_CHAR car

008B: 1@ = $849 // integer values and handles

:PSAVE_26

wait 10

if

not Car.Wrecked(0@)

jf @PSAVE_135

if

00DC: player $PLAYER_CHAR driving 0@

jf @PSAVE_26

03C1: $847 = player $PLAYER_CHAR car

008A: $849 = 1@ // integer values and handles

:PSAVE_81

wait 10

if

not Car.Wrecked(0@)

jf @PSAVE_135

if

80DC: not player $PLAYER_CHAR driving 0@

jf @PSAVE_81

008B: 1@ = $849 // integer values and handles

jump @PSAVE_26

:PSAVE_135

end_thread

Edited by plamen

Share this post


Link to post
Share on other sites

Hey, thanks guys, for all your help. I am really enjoying this fueling stuff. Thanks Johnny!

(Off Topic) Johnny, I did what you asked for in the PM already :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.