Initial upload.

Adding base PRC 4.19a files to repository.

trunk/tools/letoscript/SQL Support/NO LINUX BINARIES.txt

@@ -0,0 +1,9 @@
+There are currently no Linux binaries of Moneo (or .SOs) with SQL support.
+
+This is due in large part to the absence of SCO/RCO hooking in the Linux port of NWNX2, making the point of SQL in LetoScript nearly moot.
+
+If you're running Linux, and you'd like to try and compile with SQL support, jump into LetoScript.inc and uncomment the {$DEFINE LETOSCRIPT_SQL} flag there. I suggest trying with the {$DEFINE LETOSCRIPT_SQL_LETO} flag for SQLite3 support, just as a test, and then (if you can get Zeos functioning in your Kylix), you could try with {$DEFINE LETOSCRIPT_SQL_ZEOS} for full MySQL support. If you get either working, I'd be interested in hearing about your experience:
+
+http://weathersong.infopop.cc
+
+dragon@weathersong.net

trunk/tools/letoscript/golem.ls

@@ -0,0 +1,105 @@
+$abbrev;
+$lowHD;
+$highHD;
+$sizeplus;
+$j;
+for($j = 1; $j<= 7; $j++)
+{
+	if($j == 1)
+	{
+		$abbrev = 'clay';
+		$lowHD  = 12;
+		$highHD = 33;
+		$sizeplus = 19;
+	}
+	if($j == 2)
+	{
+		$abbrev = 'fles';
+		$lowHD  = 10;
+		$highHD = 27;
+		$sizeplus = 19;
+	}
+	if($j == 3)
+	{
+		$abbrev = 'ston';
+		$lowHD  = 15;
+		$highHD = 42;
+		$sizeplus = 22;
+	}
+	if($j == 4)
+	{
+		$abbrev = 'adam';
+		$lowHD  = 55;
+		$highHD = 108;
+		$sizeplus = 83;
+	}
+	if($j == 5)
+	{
+		$abbrev = 'demo';
+		$lowHD  = 5;
+		$highHD = 0;
+	}
+	if($j == 6)
+	{
+		$abbrev = 'iron';
+		$lowHD  = 19;
+		$highHD = 54;
+		$sizeplus = 25;
+	}
+	if($j == 7)
+	{
+		$abbrev = 'mith';
+		$lowHD  = 37;
+		$highHD = 72;
+		$sizeplus = 55;
+	}
+
+	print $abbrev;
+	print ' ';
+	print $lowHD;
+	print ' ';
+	print $highHD;
+	print "\n";
+
+	if($highHD > 80)
+	{
+		$highHD = 80;
+	}
+
+	%file = "..\\..\\others\\prc_con_$abbrev.utc" or die $!;
+	$i;
+	$sizeadded = 0;
+	$count = 0;
+	for($i=$lowHD; $i<=$highHD; $i = $i+1)
+	{
+		/ClassList/[0]/ClassLevel = /ClassList/[0]/ClassLevel+1;
+		if($i%2 == 0)
+		{
+			/HitPoints = /HitPoints+5;
+			/CurrentHitPoints = /CurrentHitPoints+5;
+			/MaxHitPoints = /MaxHitPoints+5;
+		}
+		else
+		{
+			/HitPoints = /HitPoints+6;
+			/CurrentHitPoints = /CurrentHitPoints+6;
+			/MaxHitPoints = /MaxHitPoints+6;	
+		}
+		if($i>=$sizeplus and $sizeadded == 0)
+		{
+			add Name => /FeatList/Feat, Value => 2293, Type => gffWord, SetIfExists => TRUE;
+			$sizeadded = 1;
+			print "Added size \n";
+		}
+		if($count%5 == 0)
+		{
+			$name = "prc_con_"+$abbrev+"_$i";
+			/TemplateResRef = $name;
+			$name = "$name.utc";
+			%file = ">..\\..\\others\\$name";
+			print "Written to file $name\n";
+		}	
+		$count = $count+1;
+	}
+	close %file;
+}	

trunk/tools/letoscript/golems.bat

@@ -0,0 +1 @@
+Moneo.exe golem.ls -> test.log

trunk/tools/letoscript/prc recipe merchant maker.ls

@@ -0,0 +1,40 @@
+%store = '.\prc_merchant.utm' or die $!;
+meta dir=> '..\..\Craft2das' or die $!;
+$name = 'prc_recipe';
+$i = 0;
+$max = 1000;
+$x = 0;
+$y = 0;
+$count = 0;
+add Name => /StoreList/[2]/ItemList, Type=>gffList;
+/ResRef = $name;
+/LocName = $name;
+/Tag = $name;
+
+
+for($i=0; $i<=$max; $i++)
+{
+	$resref = lookup 'item_to_ireq', $i, 'RECIPE_TAG';
+	if($resref eq '')
+	{
+		print "no entry\n";
+	}
+	else
+	{
+		add /StoreList/[2]/ItemList/InventoryRes, $resref, gffResRef;
+		add /StoreList/[2]/ItemList/[_]/Infinite, 1, gffByte;
+		add /StoreList/[2]/ItemList/[_]/Repos_PosX, $x, gffByte;
+		add /StoreList/[2]/ItemList/[_]/Repos_Posy, $y, gffByte;
+		$x++;
+		if($x>9)
+		{
+			$x = 0;
+			$y++;
+		}
+		/StoreList/[2]/ItemList/[_].id = $count;
+		$count++;
+	}
+	print "$resref $x $y /StoreList/[2]/ItemList/[_]/InventoryRes /StoreList/[2]/ItemList/[_]/Infinite /StoreList/[2]/ItemList/[_]/Repos_PosX /StoreList/[2]/ItemList/[_]/Repos_Posy \n";
+}
+
+%store = ">..\\..\\others\\$name.utm";

trunk/tools/letoscript/prc revipe merchant maker.bat

@@ -0,0 +1 @@
+Moneo.exe "prc recipe merchant maker.ls" -> test.log

trunk/tools/letoscript/prc scroll merchant maker.bat

@@ -0,0 +1 @@
+Moneo.exe "prc recipe merchant maker.ls" -> test.log

trunk/tools/letoscript/prc scroll merchant maker.ls

@@ -0,0 +1,31 @@
+%store = '.\prc_merchant.utm' or die $!;
+meta dir=> '..\..\Craft2das' or die $!;
+$name = 'prc_recipe';
+$i = 0;
+$max = 776;
+$x = 0;
+$y = 0;
+
+add Name => /StoreList/[2]/ItemList, Type=>gffList;
+/ResRef = $name;
+/LocName = $name;
+/Tag = $name;
+
+
+for($i=0; $i<=$max; $i++)
+{
+	$resref = lookup 'item_to_ireq', $i, 'RECIPE_TAG';
+	add /StoreList/[2]/ItemList/InventoryRes, $resref, gffResRef;
+	add /StoreList/[2]/ItemList/[_]/Infinite, 1, gffByte;
+	add /StoreList/[2]/ItemList/[_]/Repos_PosX, $x, gffByte;
+	add /StoreList/[2]/ItemList/[_]/Repos_Posy, $y, gffByte;
+	$x++;
+	if($x>9)
+	{
+		$x = 0;
+		$y++;
+	}
+	print "$resref $x $y /StoreList/[2]/ItemList/InventoryRes /StoreList/[2]/ItemList/[_]/Infinite /StoreList/[2]/ItemList/[_]/Repos_PosX /StoreList/[2]/ItemList/[_]/Repos_Posy \n";
+}
+
+%store = ">$name.utm";