REM This script will modify the fuel burn rate values for player-flyable
REM slots in a given planes.dat file.  The rates are doubled from their
REM original values, which seems to be more in line with actual fuel
REM ranges in the game.  You will need to be much more careful in managing
REM your fuel with this mod.  

REM This affects both player and AI fuel burn rates, and results may be
REM somewhat unpredictable.  You may wish to experiment and edit these 
REM values accordingly.  You can also change the values for the non-flyable
REM plane slots by removing the REM statement for the given plane slot.
REM Note that the ME-262 is REM'd by default since the default value may
REM already be close to realistic.  I have not validated any of these
REM values, they are just based on what others have observed.

REM This script is written to be run by ASHE.  You can get the runtime
REM version of this program from 
REM http://www.grandriversoftware.com/download/index.shtml
REM Install ASHE RT and then open this script and run it.  When you run 
REM the script, it will prompt for the location of the planes.dat file
REM and make the cooresponding modifications.  It can be run against
REM any planes.dat file.




Print "Select Planes.dat file to be modified"

String filename
filename = PickFile()

If filename UCase( Right( filename, 10 )) == "PLANES.DAT" Then
	OpenForEdit( filename )
Else
	Print "No Planes.dat file selected!"
	End
EndIf

Jump( 37 ) ' P38H
	SetValue( TYPE_LONG, 134 ) 'Fuel Burn Rate x2

Jump( 253 ) 'P38J
	SetValue( TYPE_LONG, 150 ) 'Fuel Burn Rate x2

Jump( 469 ) ' P47C
	SetValue( TYPE_LONG, 290 ) 'Fuel Burn Rate x2

Jump( 685 ) 'P47D
	SetValue( TYPE_LONG, 290 ) 'Fuel Burn Rate x2

Jump( 901 ) ' P51B
	SetValue( TYPE_LONG, 150 ) 'Fuel Burn Rate x2

Jump( 1117 ) 'P51D
	SetValue( TYPE_LONG, 150 ) 'Fuel Burn Rate x2

Jump( 1333 ) ' B17F
	REM SetValue( TYPE_LONG, 100 ) 'Fuel Burn Rate x2

Jump( 1549 ) 'B24D
	REM SetValue( TYPE_LONG, 100 ) 'Fuel Burn Rate x2

Jump( 1765 ) ' B26B
	REM SetValue( TYPE_LONG, 140 ) 'Fuel Burn Rate x2

Jump( 1981 ) 'HURRI
	SetValue( TYPE_LONG, 130 ) 'Fuel Burn Rate x2

Jump( 2197 ) ' SPIT1
	SetValue( TYPE_LONG, 130 ) 'Fuel Burn Rate x2

Jump( 2413 ) 'SPIT9
	SetValue( TYPE_LONG, 140 ) 'Fuel Burn Rate x2

Jump( 2629 ) ' SPIT14
	SetValue( TYPE_LONG, 194 ) 'Fuel Burn Rate x2

Jump( 2845 ) 'TYPH
	SetValue( TYPE_LONG, 196 ) 'Fuel Burn Rate x2

Jump( 3061 ) ' TEMP
	SetValue( TYPE_LONG, 196 ) 'Fuel Burn Rate x2

Jump( 3277 ) 'MOSQ
	REM SetValue( TYPE_LONG, 140 ) 'Fuel Burn Rate x2

Jump( 3493 ) ' 109E
	SetValue( TYPE_LONG, 166 ) 'Fuel Burn Rate x2

Jump( 3709 ) '109G
	SetValue( TYPE_LONG, 178 ) 'Fuel Burn Rate x2

Jump( 3925 ) ' 109K
	SetValue( TYPE_LONG, 196 ) 'Fuel Burn Rate x2

Jump( 4141 ) '110C
	SetValue( TYPE_LONG, 166 ) 'Fuel Burn Rate x2

Jump( 4357 ) ' 110G
	SetValue( TYPE_LONG, 178 ) 'Fuel Burn Rate x2

Jump( 4573 ) '410
	REM SetValue( TYPE_LONG, 222 ) 'Fuel Burn Rate x2

Jump( 4789 ) ' 190A
	SetValue( TYPE_LONG, 212 ) 'Fuel Burn Rate x2

Jump( 5005 ) '190D
	SetValue( TYPE_LONG, 200 ) 'Fuel Burn Rate x2

Jump( 5221 ) ' 262
	SetValue( TYPE_LONG, 560 ) 'Fuel Burn Rate x2

Jump( 5437 ) 'JU88A
	REM SetValue( TYPE_LONG, 100 ) 'Fuel Burn Rate x2

Jump( 5653 ) ' JU88C
	REM SetValue( TYPE_LONG, 110 ) 'Fuel Burn Rate x2

Jump( 5869 ) 'JU87
	REM SetValue( TYPE_LONG, 100 ) 'Fuel Burn Rate x2

Jump( 6085 ) ' HE111
	REM SetValue( TYPE_LONG, 88 ) 'Fuel Burn Rate x2

Jump( 6301 ) 'V1
	REM SetValue( TYPE_LONG, 400 ) 'Fuel Burn Rate x2

SaveChanges()
Close()
Print "Planes.dat file modified!"