SLIC-Reference : PlantSpecificGood
CTP2 Bureau
The Modding
Apolyton CTP2 forums
Apolyton CTP2 archives
Source Code Project SVN

SLIC-Reference : : PlantSpecificGood  

Arguments: location, int_goodsubtype Type: void

Rather than planting a random good, this allows the specification of which good subtype to plant (0 - no good, 1 - *_GOOD_ONE, 2 - *_GOOD_TWO etc. from goods.txt)


// Authored   : MrBaggins
// Name       : Slic_PlantSpecificGood
// Description: Rather than planting a random good, as per the standard SLIC
//              function, this allows the specification of which good subtype
//              to plant
// Parameters : SlicArg 0: location
//              SlicArg 1: int
// Globals    : g_theWorld	: World gamestate functionality
//                   g_tiledMap  : UI update functionality
// Returns    : SFN_ERROR		: execution result
// Remark(s)  : Allows for the specification of a good sub
//		a range of 0 (no good), or 1-4 (the specific good subtype,
//		as defined in ctp2_data\default\gamedata\goods.txt//
SFN_ERROR Slic_PlantSpecificGood::Call(SlicArgList *args)
	if(args->Count() != 2)
	MapPoint pos;
	if(!args->GetPos(0, pos))
	sint32 goodsubtype;
	if(!args->GetInt(1, goodsubtype))
	if(goodsubtype<0 || goodsubtype>4)

	g_theWorld->SetGood(pos.x, pos.y, goodsubtype);
	g_tiledMap->PostProcessTile(pos, g_theWorld->GetTileInfo(pos));

	return SFN_ERROR_OK;	

Author: MrBaggins

Information last updated by BureauBert on 26.06.2009

User Comments:

Using this form you may add your own observations concerning the above item, e.g. additional hints for usage, limitations, oddities etc. Please note this is not the place for asking questions or carrying out discussions about modding - please refer to the Apolyton CTP2 Modification Forum on that purpose.

Subject / Title*:
(A maximum of characters left)
Your name:*
Your website (URL):

*) Required fields

Error including libraries: Can't locate config.cfg in @INC (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.28.1 /usr/local/share/perl/5.28.1 /usr/lib/x86_64-linux-gnu/perl5/5.28 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.28 /usr/share/perl/5.28 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base) at /home/www/ line 4. Make sure they exist, permissions are set properly, and paths are set correctly.
This site is currently maintained by: BureauBert (Webmaster)  Maquiladora (Manager)  Legal Notice: Legal Notice Statistics: 81829 unique users since 02.05.2004 (» Site Statistics) Hosted by: WebhostOne
Share this page:  VK Facebook Twitter LiveJournal OK MR Google+ LinkedIn tumblr Pinterest Blogger Digg Evernote