15-12-2004 23:36									#1
	SLIC: Logistics Suffering from ads?

NEED HELP!!!
this a shell just to express my logic before attempting to SLIC, can anyone check my flow here and offer any needed fixes?

code:

Start turn
If player = human then
Get unit type if land
Then get unit location return value
Get nearest city and get nearest fort, get lowest value (sptdist)
If player has advance HORSE return value 5
                                    RAILROAD return 10
                                    AUTOMOBILE return 15
                                    AIR                 return 20    return highest value(advdist)
Get sptdist divide by advdist = logdist
Get UNIT GOLD # multiple logdist = gold cost per turn
Get UNIT pw # multiple logdist = pw cost per turn
Total gold and pw cost for all units. 
Subtract from player gold and pw.
repeat for all land units

	16-12-2004 01:28									#2
	Full PM-box? Change here!

You need to keep the fort loc in an array to allow this script to work.

	16-12-2004 02:25									#3
	Tired of ads?

quote: Originally posted by The Big Mc You need to keep the fort loc in an array to allow this script to work.

what do you mean about array? I have to have a separte set of slic that says: find all forts???

	16-12-2004 02:58									#4
	Support Apolyton, buy GURPS/ Alpha Centauri

I think he's saying that a FindNearestFort() function called each time would be very time consuming - it would have to scan the map, since fort locations aren't automatically stored like city locations are. If when each fort is built you add the location to a global FORT_LOCS[] array, then you can just scan that array for distances.

Also, if you check for those advances in reverse order (starting with AIR, ending with HORSE), using elseif statements, you'll get the highest number straight away.

code:

Total gold and pw cost for all units. 
Subtract from player gold and pw.
repeat for all land units

	22-12-2004 23:54									#5
	Support Apolyton, buy Galactic Civilizations

DP

Last edited by E on 23-12-2004 at 23:24

	23-12-2004 00:16									#6
	Increase Your PM Length

ok this is my first attempt at (finishing) SLIC. How do I define arrays? and what else did I miss on this. PS since units already have a PW update cost I'm just subtracting gold since you are paying to get that PW to the unit (and food)

code:

if(IsHumanPlayer(player[0])) //logistics is challenge for humans only
HandleEvent(BeginTurn) 'Startturn' pre {
for (i = 0; i < GetUnitsAtLocation(tmpLoc); i = i + 1) { 
int_f FindTheNearestCity( int_t thePlayer, location_t theLocation, int_t theDistance){
theNearestCity = tmpCity;
		
if (HasAdvance(tmpPlayer, ID_ADVANCE_AERODYNAMICS)) {			// if player has airpower,
		return 25;			
	} elseif (HasAdvance(tmpPlayer, ID_ADVANCE_AUTOMOBILE)) {
		return 15;	
} elseif (HasAdvance(tmpPlayer, ID_ADVANCE_RAILROAD)) {
		return 10;
	} elseif (HasAdvance(tmpPlayer, ID_ADVANCE_HORSE)) {
		return 5;
		} else {								// if none of above advances present, 
		return 1;							// basic logistics
	}
}
UNIT_TYPE=UnitDB(UNIT_ARTILLERY) return 5 //unitgold


tmpcity-tmpunit/advbonus*unitgold*-1=unitlogistics
GetTotalUnitlogistics
AddGold(player[0], - totallogistics cost);	//subtractgold gold

DisableTrigger('StartTurn');			//run once only

	23-12-2004 23:23									#7
	Put an end to popups!

Can anyone check the above SLIC please?

	24-12-2004 01:55									#8
	Support Apolyton, buy Call to Power 2

Well the code above doesn't run at all, first we should reoder it a little bit and fix the fomarting of the white space for readibility. Well of course the following code still doesn't work.

code:

HandleEvent(BeginTurn) 'Startturn' pre {
	if(IsHumanPlayer(player[0])){ //logistics is challenge for humans only
		for (i = 0; i < GetUnitsAtLocation(tmpLoc); i = i + 1) { 
			int_f FindTheNearestCity( int_t thePlayer, location_t theLocation, int_t theDistance){
				theNearestCity = tmpCity;
		
				if (HasAdvance(tmpPlayer, ID_ADVANCE_AERODYNAMICS)) {			// if player has airpower,
					return 25;			
				}
				elseif (HasAdvance(tmpPlayer, ID_ADVANCE_AUTOMOBILE)) {
					return 15;	
				}
				elseif (HasAdvance(tmpPlayer, ID_ADVANCE_RAILROAD)) {
					return 10;
				}
				elseif (HasAdvance(tmpPlayer, ID_ADVANCE_HORSE)) {
					return 5;
				} 
				else {								// if none of above advances present, 
					return 1;						// basic logistics
				}
			}
			UNIT_TYPE=UnitDB(UNIT_ARTILLERY) return 5 //unitgold


			tmpcity-tmpunit/advbonus*unitgold*-1=unitlogistics
			GetTotalUnitlogistics
			AddGold(player[0], - totallogistics cost);	//subtractgold gold

			DisableTrigger('StartTurn');			//run once only
		}
	}
}