add bugfixes for a polish menue file

DigglesMods · Aug 21, 2018 · 2bad21c · 2bad21c
1 parent 98b59b5
commit 2bad21c
Showing 1 changed file with 32 additions and 0 deletions.
diff --git a/Data/Scripts/text/doc/pl/change_info_gnomes.tcl b/Data/Scripts/text/doc/pl/change_info_gnomes.tcl
@@ -0,0 +1,32 @@
+$start
+$replace
+proc gnomeinfo_inventory {gid} {
+	layout print "/(fn1)"
+	set x 10
+	set xi 60
+	layout print "/(ta$x)[gnomename $gid]"; set x [expr $x + 90]
+	layout print "/(fn0)"
+}
+$with
+proc gnomeinfo_inventory2 {gid} {
+	layout print "/(fn1)"
+	set x 10
+	set xi 60
+	layout print "/(ta$x)[gnomename $gid]"; set x [expr $x + 90]
+	layout print "/(fn0)"
+}
+$end
+
+$start
+$replace
+weapoiID
+$with
+weaponID
+$end
+
+$start
+$replace
+set age [expr  int(([gettime] - [get_attrib $gid GnomeAge]) / 1800.0) ]
+$with
+set age [expr  int(([gettime] - [call_method $gid getbirthtime]) / 1800.0) ]
+$end