This is the first Post of this Topic in english:
Because I needed a script which can handle a techtree for my planned RTS "Planets - Unification" I wrote it myself ^^
It isn't 100% complete... at the moment it is more a InGame Help or something like this.
I wanted to create the script very modular, so i can take it out of my game and place it in any other project without
big changes.
Nevertheless I want to share it with you ( and also the later versions of this script)
Code:
/*
* Techtree.wdl - Version 0.2
*
* module for reading ans using techtrees out of a textfile
*
* How to usw techtree.wdl:
* 1. include ( include<techtree.wdl>; )
* 2. set the name of your techtreefile through setTechFilename("DATEINAME") [default:techtree.txt]
* 3. initTechtree("seperator"); to initialize the techtree ( recommended: ";")
* 4. get your information with the get*-functions and process them as you like
*
* example techtree.txt with two lines :
* mining;300;1000;2000;3000;Is needed for:;Oremine,Deuteriumsynthesizer,;crystalmine
* Laser;300;150;1111;3333;Provides your army with;laserweapons and laserguided;missles.
*
* Syntax (after the last Info ENDLINE(Return) instead of semikolon(;)
* name;buildtime;cost_ore;cost_crystal;cost_deuterium;description1;description2;description3
*
* This script can be uses in (non-)commercial projects without credits. Have fun with it !
*
*/
var techtreefile; //Handle for Techtreefile
string techFilename = "techtree.txt"; //Name of the file with the techtreedata
var counter=1; //Linecounter
// declaration of the needed Strings
string techName;
string techCostErz;
string techCostKristall;
string techCostDeuterium;
string techTime;
string techDescription;
function initTechtree(seperator) //only changes the seperator at the moment
{
str_cpy(delimit_str,seperator);
}
function setTechFilename(newname) //here you can change the filename of your techtreefile
{
str_cpy(techfilename,newname);
}
function getTechName(Position) //returns the name of a technology
{
Position = 1+((Position-1)*8);
techtreefile = file_open_read(techFilename);
while(counter<=Position)
{
file_str_read(techtreefile, techName);
counter+=1;
}
file_close(techtreefile);
counter=1;
return(techName);
}
function getTechTime(Position) //returns the building or researchtime for a tech
{
Position = 2+((Position-1)*8);
techtreefile = file_open_read(techFilename);
while(counter<=Position)
{
file_str_read(techtreefile, techTime);
counter+=1;
}
file_close(techtreefile);
counter=1;
return(techTime);
}
// The following 3 functions are returning the needed ammount of ressource (Ore,Crystal,Deuterium) for building or researching
function getTechCostErz(Position)
{
Position = 3+((Position-1)*8);
techtreefile = file_open_read(techFilename);
while(counter<=Position)
{
file_str_read(techtreefile, techCostErz);
counter+=1;
}
file_close(techtreefile);
counter=1;
return(techCostErz);
}
function getTechCostKristall(Position)
{
Position = 4+((Position-1)*8);
techtreefile = file_open_read(techFilename);
while(counter<=Position)
{
file_str_read(techtreefile, techCostKristall);
counter+=1;
}
file_close(techtreefile);
counter=1;
return(techCostKristall);
}
function getTechCostDeuterium(Position)
{
Position = 5+((Position-1)*8);
techtreefile = file_open_read(techFilename);
while(counter<=Position)
{
file_str_read(techtreefile, techCostDeuterium);
counter+=1;
}
file_close(techtreefile);
counter=1;
return(techCostDeuterium);
}
// Gets the Line of the techdescription
function getTechDescription(Position,Line)
{
if((Line>=4)||(Line<=0))
{return ("");
}
else
{
Position = (Line+5)+((Position-1)*8);
techtreefile = file_open_read(techFilename);
while(counter<=Position)
{
file_str_read(techtreefile, techDescription);
counter+=1;
}
file_close(techtreefile);
counter=1;
return(techBeschreibung);
}
}
So I just translated it and I hope I havent overseen a german variable or comment in this script.
I hope you understand my bad english comments ^^
Maybe I won't translate every Version of this script because it costs me a vast ammount of time (I could spend in finishing it).
But every big "release" will be translated.
I didn't test this script after translating it, so if you do please report any bug you found.
Right now I am working on a function which is able to compare the players techlevel with the needed techs
for a technology. This way it becomes a REAL techtreescript.
If there is a newer Version of this script, I will contribute it here.
Critics&Comments are welcome.
