The Universal World Owner's Manual

This is an old revision of the document!

---

Here's an example of using a function to create a custom display that can be used to provide a range of standard data-driven interfaces. In this case, the function generates a display offering the user a set of different buildings to construct:

[code] $kConstructionStructSize = 6 Function ConstructionListOSD( $aConstructionList, $selectFunc ) {

$index = 1
$lineY = 40
$imageX = 100
$textX = 200
$subtextWidth = 300
$index = 1
$count = 0

while( $aConstructionList[$index+1] >= 0 )
{
	$buildingName = $aConstructionList[$index]
	$buildingType = $aConstructionList[$index+1]
	$price = $aConstructionList[$index+2]
	$imageName = $aConstructionList[$index+4]
	$desc = $aConstructionList[$index+5]

	$buildTechLevel = sysGetBuildingTypeTechLevel( $buildingType )
	$matReqd = sysGetConstructionMaterialsAmount( $buildingType )
	$price = sysGetSecondaryConstructionPrice( $buildingType )
	osdaddat(IMAGE, $imageX, $lineY, 90, 90, "$selectFunc|$buildingType|$price", "$imageName") 
	$textY = $lineY
	osdaddat(BIGTEXT, $textX, $textY, 0, 0, "", "$buildingName" )
	$textY += 20
	$priceText = sysGetPriceText( $price )
	osdaddat(SMALLTEXT, $textX, $textY, 0, 0, "", "Cost: $priceText ( + town tax )" )
	$textY += 15

	if ( $buildTechLevel == 0 )
	{
		osdaddat(SMALLTEXT, $textX, $textY, 0, 0, "", "Req: $matReqd Wood" )
	}
	else if ( $buildTechLevel == 1)
	{
		osdaddat(SMALLTEXT, $textX, $textY, 0, 0, "", "Req: $matReqd Wood & Stone Blocks" )
	}
	$subtextY = $textY + 20
	osdaddat(FADEDSMALLTEXT, $textX, $subtextY, $subtextWidth, 0, "", "$desc" )

	$lineY += 100
	$index += $kConstructionStructSize
	$count += 1
}

} [/code]

And to use this function, another part of the script calls it with a data table set up to fill in the names, items and building types involved :

[code] $maConstructionListBuildHouses[] = { Building Name buildID Price builditem graphic desc “Small House”, 68, 100, “Wood”, “stdhouse1.jpg”, “50 item capacity”, “Medium House”, 69, 200, “Wood”, “stdhouse2.jpg”, “100 item capacity”, “Barn conversion”, 70, 100, “Wood”, “barn.jpg”, “200 item capacity”, “Large House”, 71, 100, “Wood”, “stdhouse3.jpg”, “500 item capacity”, “”, -1, -1, “”, “” } Event( “UseSkill”, “Build Houses” ) { osdcreate(OSDWINDOW,“BuildHousesOSD”, “Build Houses” ) osdadditem(OSDMINHEIGHT, “”, “400” ) osdaddat(BIGTEXT, 0, 0, 600, 0, “”, “Choose a building to construct:” ) ConstructionListOSD( $maConstructionListBuildHouses, “Construct” ) osdaddat(EXITBUTTON, 200, 360, 200, 30, “”, “Cancel”) osdactivate() } Event( “OSDSelect”, “BuildHousesOSD:Construct” ) { $buildingType = $gParam[1] $buildingTypeName = sysGetBuildingTypeName( $buildingType ) $buildingName = “%PLAYER%'s $buildingTypeName” *buildingconstruct %PLAYER% $buildingType $buildingName } [/code]