dockscreen problem

[Aury]

so my first alliable "enemy" faction is a Charon pirate subfaction
you can join them by getting an ID ROM from a guy called Konner at their fortress in the Charon inner system. However, you have to dock there and it uses some very hashed together scripts (combining the charon@korolev scripts and the antarctica scripts as well as some of my reinforcement scripts (generating pirate wingmen from one of the gates) and the <onInit> section seems to crash it.

here is the <onInit> segment of the code:

Code: Select all

				<OnInit>
					(block Nil
						(setq gPrevScreen "Dispatch")

						; Allow dock?
						
						(switch
							; If the ship is radioactive then we need to decontaminate
							(shpIsRadioactive gPlayerShip)
								(scrShowScreen gScreen "&dsCommonwealthDecon;")
								
							; If the player has never encountered the ship before, then take her
							; to see the captain
							(not (objGetGlobalData gSource "statuskonner"))
								(scrShowScreen gScreen "Default")
							<!-- (not (objGetGlobalData gSource "statuskonner"))
								(scrShowScreen gScreen "Greeting") -->
								
							; If player has declined to help, then kick her off the ship
							(eq (objGetGlobalData gSource "statuskonner") "decline")
								(if (objGetGlobalData gSource "statuskonner") "decline")
									(scrShowScreen gScreen "Refuse")
									(block Nil
										(objSetGlobalData gSource "statuskonner" Nil)
										(scrShowScreen gScreen "Introduction")
										)
									)
							; If player has not left system yet...
							(eq (objGetGlobalData gSource "statuskonner") "inprog")
								(if (objGetGlobalData gSource "statuskonner") "inprog")
									(scrShowScreen gScreen "Inprog")
									(block Nil
										(objSetGlobalData gSource "statuskonner" Nil)
										(scrShowScreen gScreen "Introduction")
										)
									)
								
							; If the player has helped the Antarctica escape, but has not yet
							; been rewarded, celebrate the victory
							(and (eq (objGetGlobalData gSource "statuskonner") "prize")
									(not (objGetGlobalData gSource "playerRewardedkonner"))
									)
								(scrShowScreen gScreen "Caketime")
							)
						)
				</OnInit>

[F50]

Wolfy, just so you know, I am working on a mod with a similar idea. I have working dockscreens and one mission. The mod is currently in the development section of xelarus. check it out. The only thing not working pre-st. K is the fortress of the Charon Pirates (still takes you to loot screen) and the missions. Perhaps we should get together on IRC from xelarus sometime and try to coordinate our efforts?

If this code isn't giving a compile-time error (parentheses mismatch), the problem is likely in your various screens. Is there any error message?

Perhaps you could make the entire mod available for testing?

[Aury]

i think i found it- i forgot the "<panes>" in the "greeting" segment