Can we get this fixed for the future?

Bug reports for the stable versions go here.
Post Reply
shanejfilomena
Fleet Officer
Fleet Officer
Posts: 1411
Joined: Tue Mar 22, 2011 8:43 pm
Location: Alaska

Mon Dec 05, 2011 6:05 am

Code: Select all

; See if the freighter already has a destination
							(setq dest (objGetObjRefData freighter "korolovDest"))
							(if dest
								(setq gateMission (objMatches dest Nil "G"))
								(if (or (leq (random 1 100) 30) (not portsLeft))
									(block Nil
										(setq dest (random (sysFindObject gSource "G -uncharted;")))
										(setq gateMission True)
										)
									(block Nil
										(setq dest (random (sysFindObject gSource "T:populated; F")))
										(setq gateMission Nil)
										)
									)
								)
It sends the deliveries to occupied stations : beating the players out of liberating the stations: at one point I reported that Korolov was sending ships to dead stations : it has not been seen doing that lately but I am not watching the shipping companies since George helped me straighten mine out .

In the code I was instructed to use: and sometime versions rebel and i got to move it around : this is for Earth Industries, i have several companies : i do not send the ships to gate so I don't use the gate part of the code : but you can see that I use the "A" and the " - occupation; 'to keep them in line.

Code: Select all

; See if the freighter already has a destination
							(setq dest (objGetObjRefData freighter "EIDest"))
							(if dest
								(setq gateMission (objMatches dest Nil "G"))
								(if (or (leq (random 1 100) 10) (not portsLeft))
									(block Nil
										(setq dest (random (sysFindObject gSource "G -uncharted;")))
										(setq gateMission True)
										)
									(block Nil
										(setq dest (random (sysFindObject gSource "TA:populated;F -occupation; -uncharted;")))
										(setq gateMission Nil)
										)
									)
								)
Flying Irresponsibly In Eridani......

I don't like to kill pirates in cold blood ..I do it.. but I don't like it..

george moromisato
Developer
Developer
Posts: 2877
Joined: Thu Jul 24, 2003 9:53 pm
Contact:

Mon Dec 05, 2011 5:33 pm

I've added a ticket and scheduled it for 1.08:

http://wiki.neurohack.com/transcendence/trac/ticket/717

Thanks!

shanejfilomena
Fleet Officer
Fleet Officer
Posts: 1411
Joined: Tue Mar 22, 2011 8:43 pm
Location: Alaska

Wed Dec 07, 2011 7:47 pm

THANK YOU

for the past month while testing Corporate Contracts i became used to an edit I did for my own sanity : but i find in 1.07 that nobody seemed to mention it before this : the original is :

Code: Select all

</MaintenanceLevel>

					<MaintenanceShop
							desc=	"You are in the maintenance shop surrounded by various machines and droids. There are four men in the room repairing various items. One of the men walks towards you and says, "You must be the new delivery person. Show me what you've got to sell."">

						<Actions>
							<Action name=""Sorry, you have me confused with someone else."" cancel="1" key="S">
								<ShowPane pane="Illegals"/>
							</Action>

							<Action name=""The merchandise is in my cargo hold."" default="1" key="M">
								(block Nil
									(scrShowPane gScreen "Default")
									
									(scrShowSellScreen
										(lambda (theItem)
											(switch
												(itmMatches theItem "*NU +Illegal; -ID")
													(divide (multiply 90 (itmGetPrice theItem 'credit)) 100)
													
												Nil
												)
											)
								
										Nil						; obsolete
										
										'(
											Nil
											50000
											)
										)
									)
							</Action>
						</Actions>
					</MaintenanceShop>
For my own sanity in dock screen navigation I did this for the 1.01 adventure and got very used to it as " easier on the brain " to exit the screens while being shot at ( the Enclave and insurance company does not have guards, which I always add because it would take forever to get undocked ):

Code: Select all

</MaintenanceLevel>

						<MaintenanceShop
							desc=	"You are in the maintenance shop surrounded by various machines and droids. There are four men in the room repairing various items. One of the men walks towards you and says, "You must be the new delivery person. Show me what you've got to sell."">

						<Actions>
						
							<Action name=""The merchandise is in my cargo hold."" default="1" key="M">
									(comShowSellScreen
									(lambda (theItem)
										(switch
											(itmMatches theItem "*NU +Illegal; -ID")
												(divide (multiply 90 (itmGetPrice theItem)) 100)
												
											Nil
											)
										)
							
									"Main"					; return screen
									'(
										Nil
										50000
										)
									)
							</Action>
							<Action name=""Sorry, you have me confused with someone else."" cancel="1" key="S">
								<ShowPane pane="Illegals"/>
							</Action>
							<Action name="Leave" cancel="1" key="L">
								<Navigate screen="Main" />
							</Action>
						</Actions>
					</MaintenanceShop>
Flying Irresponsibly In Eridani......

I don't like to kill pirates in cold blood ..I do it.. but I don't like it..

Post Reply