Welcome to AGK TekTips, in this video I'll show you to extend your array with data types. Datatypes allow you to add logical names to the end of identifiers, this works for any identifier created including array identifiers. To create a data type you simply need to use the command type, followed by endtype, then list any names and what type of data those names are in between. These are then assigned to an identifier as an extension. Type DatabaseObjects sName as String iAge as Integer sAddress as String EndType Dim Database[9] as DatabaseObjects For i = 0 to 9 iTmp = Random( 4, 9 ) Tmp$ = "" For i2 = 0 to iTmp Tmp$ = Tmp$ + Chr( random( 50, 100 ) ) Next i2 Database[i].sName = Tmp$ Database[i].iAge = Random( 18, 80 ) iTmp = Random( 9, 30) Tmp$ = "" For i2 = 0 to iTmp Tmp$ = Tmp$ + Chr( random( 50, 100 ) ) Next i2 Database[i].sAddress = Tmp$ Next i Do For i = 0 to 9 Print( "Name: " + Database[i].sName ) Print( "Age: " + Str(Database[i].iAge) ) Print( "Address: " + Database[i].sAddress ) Print("") Next i Sync() Loop While the data in this program is completely random, you can see how we've extended our array from a simple set of 0 to n indexed identifiers into something more resembling a card database. Each card has a number, and each extension is a field on that card. This means the main identifier simply becomes the name of that database. This is very useful for games that generate a lot of procedural data. For more tektips visit http://www.teachyourselfstuff.com or http://www.youtube.com/teachyourselfstuff you can also see our our tektips youtube playlist at http://www.youtube.com/watch?v=qWrF16ivIR4&list;=PLjUkOqXdVAP3ZsAcUZEVpM9dSVdb1vNgA&feature;=view_all

• published: 28 Oct 2012
• views: 295