08-02-2001 07:37									#1
	Question to SLIC writers Support Apolyton

I've been thinking about how to teleport units around the map. The question comes up because event TELEPORT can cause some weird results, and just disbanding a unit and creating a new one at the new location won't take across any veteran status. So I've had this idea and wondered if it would work in SLIC. Maybe Locutus can shed some light?

Here's the basics of the code anyways:

code:

location_t tmploc;
unit_t tmpunit;

tmpunit = (unit you want to 'teleport');
// Define desired unit to 'teleport'.
//
// Routine to find desired location to 'teleport' to.
// In withdraw mod I use a 50 loop RandomNeighbor loop
// to find a desired spot.
// Define desired spot as tmploc
//
tmpunit.location = tmploc;
// Define location of unit to desired location.
//
// End with whatever the command is to refresh the screen.

	08-02-2001 12:56									#2
	Tired of ads?

I haven't done any testing but I doubt it works like that. Using unit.location extracts the location but probably doesn't set the location. I could be wrong though. You can actually kill the unit and then create it at a different location. Just use IsVeteran() to see if the unit is a veteran, create the unit, then ToggleVeteran() to set it to the right status. You can do similar with hit points as well using unit.hp and DamageUnit().

	08-02-2001 13:55									#3
	Support Apolyton or Terrorists Win

Heres a function from the Alexander scenario. I presume you know how to use, include it, etc.

code:


// Teleports units from a given location to a given location
void_f TeleportUnits (location_t tmpLoc, location_t tmpDest, int_t tmpPlayer)
{
int_t		unitTypes[12];
int_t		tmpNum;
int_t		playerNum;
int_t 		i;
location_t	tmpLoc2;
location_t	tmpDest2;
unit_t		tmpUnit;

	playerNum = tmpPlayer;
	tmpLoc2 = tmpLoc;
	tmpDest2 = tmpDest;
	tmpNum = GetUnitsAtLocation(tmpDest2);
	if (tmpNum > 0) {
		for (i = 0; i < tmpNum; i = i + 1) {
			GetUnitFromCell(tmpLoc2, i, tmpUnit);
			if (tmpUnit.owner != playerNum) {
				Event:KillUnit(tmpUnit, 0, playerNum);		// Kill units in the destination square not belonging to teleporting units
			}
		}
	}
	tmpNum = GetUnitsAtLocation(tmpLoc2);
	if (tmpNum > 0) {
		for (i = 0; i < tmpNum; i = i + 1) {
			GetUnitFromCell(tmpLoc2, i, tmpUnit);
			unitTypes[i] = tmpUnit.type;
		}
		for (i = 0; i < tmpNum; i = i + 1) {
			if (unitTypes[i] != 0) {
				CreateUnit(playerNum, unitTypes[i], tmpDest2, 0);	// 'Teleport' new unit
			}
		}
		for (i = 0; i < tmpNum; i = i + 1) {
			GetUnitFromCell(tmpLoc2, i, tmpUnit);
			Event:KillUnit(tmpUnit, 0, playerNum);				// Kill old unit
		}
	}
}

	09-02-2001 01:00									#4
	Support Apolyton

Here's another piece of code from the Alexander scenario (though this wasn't in the original game, something like this will be added to the improved version). It gives you an example of how to store veteran and health status. Combine this with the code above and you'll have a perfect replacement for the Teleport function.

code:

int_f SwapCityW (city_t swCity, int_t swPlayer, int_t killUnits) {
int_t  	i;
int_t  	tmpPlayer;
int_t  	tmpNum;
int_t  	numUnits;
int_t  	noSwap;
int_t 	tmpUnitTypesW[12];	// -> changed from tmpUnitTypes  (CR 2001-01-16)
int_t 	tmpHp[12];
int_t 	tmpHealth[12];
int_t 	tmpDamage;
unit_t 	tmpUnit;
city_t 	tmpCity;
location_t 	tmpLoc;

    tmpCity = swCity;
    if (CityIsValid(tmpCity)) {
        tmpPlayer = swPlayer;
        numUnits = GetUnitsAtLocation(tmpCity.location);
        tmpLoc = tmpCity.location;
        for (i = 0; i < numUnits; i = i + 1) {   // Check for special units
            GetUnitFromCell(tmpLoc, i, tmpUnit);
            tmpNum = tmpUnit.type;
            if (tmpNum >= 72 && tmpNum <= 88) {
                noSwap = 1;
            }
        }
        if (noSwap == 0) {
            if (killUnits == 1) {
                	for (i = 0; i < numUnits; i = i + 1) {
                    	GetUnitFromCell(tmpLoc, i, tmpUnit);
                    	Event: KillUnit(tmpUnit, 0, tmpUnit.owner);
                }
            } elseif (killUnits == 0) {
			for (i = 0; i < numUnits; i = i + 1) {	// -> added (CR 2001-01-16)
//                while (GetUnitsAtLocation(tmpLoc) > 0) {
                    	GetUnitFromCell(tmpLoc, 0, tmpUnit);
                    	tmpUnitTypesW[i] = tmpUnit.type;		// -> changed from tmpUnitTypes  (CR 2001-01-16)
                    	tmpHealth[i] = tmpUnit.hp;
                    	if (IsVeteran(tmpUnit)) {
                        	tmpHp[i] = 1;		// -> changed from tmpUnitHp  (CR 2001-01-16)
                    	} else {
                      		tmpHp[i] = 0;		// -> changed from tmpUnitHp  (CR 2001-01-16)
                    	}
                    	Event: KillUnit(tmpUnit, 0, tmpUnit.owner);
//                    i = i + 1;
                	}
            }
            Event:GiveCity(tmpCity, tmpPlayer);
            for (i = 0; i < numUnits; i = i + 1) {
                	CreateUnit(tmpPlayer, tmpUnitTypesW[i], tmpLoc, 0);	// -> changed from tmpUnitTypes  (CR 2001-01-16)
                	if (tmpHp[i] == 1) {
                    	ToggleVeteran(tmpUnit, 1);
                	}
                	tmpDamage = UnitDB(tmpUnitTypesW[i]).MaxHP - tmpHealth[i];	// -> changed from tmpUnitTypes  (CR 2001-01-16)
                	DamageUnit(tmpUnit, tmpDamage);
            }
        } else {
            return -1;    // Can't swap due to Special unit
        }
    } else {
        return -2;    // Can't swap due to invalid city
    }
}

	09-02-2001 02:49									#5
	Support Apolyton, buy Call to Power 2

Thanks guys! You're champs! I'll look through it all this weekend.

Now I know why I bow to the SLIC wisdom of others, cuz I'm crap!

------------------
Author of Diplomod. The mod to fix diplomacy.

Rommell to a sub-commander outside Tobruk: "Those Australians are in there somewhere. But where? Let's advance and wait till they shoot, then shoot back."

	09-02-2001 09:47									#6
	Avatar Enlargement: We've got the solution

Dear SLIC Lords,
Can transport be triggered before the AI gives away a city in order to salvage the garrison?

GiveCity 'savearmy' pre {
transport garrison logic
}

????????

Sincerely,
Prince of the Barbarians

------------------
History is written by the victor.

	09-02-2001 12:32									#7
	Support Apolyton buy from Amazon

AW,
This already happens automaticly. Right before a city is given away, all units in that city are teleported to nearby cities.

	09-02-2001 21:07									#8
	Increase the size of your Attachments

In my experience in giving cities away to AI players (just to try it out), units in the city were destroyed. (I had wanted to see if the units would revert to control of the new player). The units definitely were NOT teleported back to my nearest city, but perhaps it works differently if the AI gives YOU a city.

	10-02-2001 07:55									#9
	Support Apolyton, buy Call to Power 2

I've seen them die many times. But you can also hear them die. i once bought an AIs second to last city then a few turns later attacked the already surrounded capital. I heard/saw eight units die after I bought the city and the capitol only had a couple of units in it when I attacked, and there was no way those units could have escaped the capitol.

------------------
History is written by the victor.

	11-02-2001 10:23									#10
	Support Apolyton or Terrorists Win

I've given cities to other civs (I just can't resist Sheherazade!) and my units were teleported to my nearest city. If your's died then perhaps (just a guess) your cities were full of defenders or you were out of support shields. Dunno.