[MOD] Merovian Nation (Need help w/ encounters though)

[sdw195]

ok
what MerovianRanking did you have?
because afaik there is noting wrong with the code you pasted
(edit)
ok ther is an error hmm
*sdw195 thinks

[josh19967]

Unknown item type 263109 ### (itmCreate theFuel 0) 1)
that's what it said.

it says that and it wont refuel.
Also,

Code: Select all

<Action name="Repair or Replace Armor" key="A">
(block Nil (setq gPrevPane "Default")
(setq gTechLevel 30)
(setq gArmorSegment 0)
(setq gMargin (if (geq (objGetData gPlayerShip "MerovianRanking") 3) 0 100))
(scrShowScreen gScreen "&dsRepairArmor;")
)
</Action>

I wont send my code to anyone until its all fixed up, OK?
"scrShowScreen: Cannot find screen: "No binding for symbol: gPrevScreen" ### (scrShowScreen gScreen gPrevScreen gPrevPane) ###"
it wont let me quit or anything. (I have to use ALT+F4)[/code]

[josh19967]

This one

[sdw195]

Code: Select all

(block Nil
(setq gPrevScreen "Default (or main)")
(setq gPrevPane Nil)
(setq gTechLevel 8)
(setq gArmorSegment 0)
(setq gMargin (if (geq (objGetData gPlayerShip "MerovianRanking") 3) 0 100))
(scrShowScreen gScreen "&dsRepairArmor;")
)

[sdw195]

try

Code: Select all

	(block Nil 
		(setq gPrevScreen "Default")
						
		(setq gPrevPane Nil)
							
(switch 
(geq (objGetData gPlayerShip "MerovianRanking") 2) 
(intSetCompatibleFuel '((&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20)))

(geq (objGetData gPlayerShip "MerovianRanking") 3) 
(intSetCompatibleFuel '(  (&itPteracniumFuelRod; 45)(&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20)))
 
 (geq (objGetData gPlayerShip "MerovianRanking") 4) 
(intSetCompatibleFuel '((&itHadronVacuumFuelCell; 185) (&itPteracniumFuelRod; 45) (&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20)))

(geq (objGetData gPlayerShip "MerovianRanking") 5) 
(block nil
(setq gCost 0) 
(intSetCompatibleFuel '((&itHadronVacuumFuelCell; 185) (&itPteracniumFuelRod; 45) (&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20)))
)

(intSetCompatibleFuel '((&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20))) )
(setq gPrevPane "Default") 
(scrShowScreen gScreen "&dsRefuel;") 
)

[josh19967]

"scrShowScreen: Cannot find screen: Default ### (scrShowScreen gScreen gPrevScreen gPrevPane) ###"
EDIT: digdug dropped out?

[sdw195]

take out

Code: Select all

(setq gPrevPane "Default")

and replace

Code: Select all

   (setq gPrevScreen "Default") with   (setq gPrevScreen "main")

oh and digdug doesn't know you posted

[josh19967]

What about the armor repair/replace?
it shows the screen but you cant get back to the main.
EDIT: u can tell digdug ignorance of posts = losing the race.

[sdw195]

Code: Select all

(block Nil
(setq gPrevScreen "Default (or main)")
(setq gPrevPane Nil)
(setq gTechLevel 8)
(setq gArmorSegment 0)
(setq gMargin (if (geq (objGetData gPlayerShip "MerovianRanking") 3) 0 100))
(scrShowScreen gScreen "&dsRepairArmor;")
)

Code: Select all

(setq gPrevScreen "Default (or main)")

[josh19967]

Back w/ the refueling problem"

Code: Select all

<Action name= "Refuel" key="R"> 
(block Nil 

(block Nil 
      (setq gPrevScreen "Main") 
                    
                      
(switch 
(geq (objGetData gPlayerShip "MerovianRanking") 2) 
(intSetCompatibleFuel '((&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20))) 

(geq (objGetData gPlayerShip "MerovianRanking") 3) 
(intSetCompatibleFuel '(  (&itPteracniumFuelRod; 45)(&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20))) 
  
 (geq (objGetData gPlayerShip "MerovianRanking") 4) 
(intSetCompatibleFuel '((&itHadronVacuumFuelCell; 185) (&itPteracniumFuelRod; 45) (&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20))) 

(geq (objGetData gPlayerShip "MerovianRanking") 5) 
(block nil 
(setq gCost 0) 
(intSetCompatibleFuel '((&itHadronVacuumFuelCell; 185) (&itPteracniumFuelRod; 45) (&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20))) 
) 

(intSetCompatibleFuel '((&itXenotiteFuelRod; 150) (&itHeliumAssembly; 70) (&itHelium3FuelRod; 20)))  
(setq gPrevPane "Default") 
(scrShowScreen gScreen "&dsRefuel;") 
)
</Action>

"mismatched open parenthesis"

[sdw195]

well if you add a (block (that you didnt need) and didnt shut it thats what you get

Code: Select all

<Action name= "Refuel" key="R"> 
(block Nil 

(block Nil

you only need one there

[josh19967]

didn't catch that. But the armor repair/replace doesn't do anything.

[sdw195]

could you post the armor thing you are useing?

[josh19967]

Of course.

Code: Select all

<Action name="Repair or Replace Armor" key="A">
(setq gPrevScreen "Main")
(block Nil 
(setq gPrevScreen "Default")  
(setq gTechLevel 30) 
(setq gArmorSegment 0) 
(setq gMargin (if (geq (objGetData gPlayerShip "MerovianRanking") 3) 0 100)) 
(scrShowScreen gScreen "&dsRepairArmor;") 
) 

</Action>

(Looks like your getting my mod when it's done.)

[sdw195]

ok lets see....

Code: Select all

<Action name="Repair or Replace Armor" key="A"> 
(block Nil 
(setq gPrevScreen "Default")  
(setq gTechLevel 30) 
(setq gArmorSegment 0) 
(setq gMargin (if (geq (objGetData gPlayerShip "MerovianRanking") 3) 0 100)) 
(scrShowScreen gScreen "&dsRepairArmor;") 
) 

</Action>
if that doesnt work then 

<Action name="Repair or Replace Armor" key="A"> 
(block Nil 
(setq gPrevScreen "Main") 
(setq gTechLevel 30) 
(setq gArmorSegment 0) 
(setq gMargin (if (geq (objGetData gPlayerShip "MerovianRanking") 3) 0 100)) 
(scrShowScreen gScreen "&dsRepairArmor;") 
) 

</Action>

oh and digdug went to bed a while ago
and i havnt had enought time to actually play the game lately so i would recommend putting the mod on xelerus went your done to get some feed back on it (but if you dont want to thats fine, it is your mod)