Textfehler: "auf" ist falsch, muss wegen oder ein auch sein.

`Error(3870):unknown class:
Kohle_
while executing
"get_class_category $name"
(procedure "MakeTTEntry" line 2)
invoked from within
"MakeTTEntry $ttfile $item $materials $tools [list $cn] $attribs"
("foreach" body line 40)
invoked from within
"foreach item $items {
# log " Item: $item\n";
if {[string first [get_class_type $cn] "productionstoreenergyprotection"]!=-1&&[string first $cn..."
("foreach" body line 11)
invoked from within
"foreach cn [ClassList] {
#log "Class: $cn\n";
if { ![regexp {^CObj*|^CTclRoot*} $cn] } {
# log "Testing Class: $cn\n";
set fail [catch {
set ...":

proc MakeTTEntry {file name materials tools places attribs} {
set category [get_class_category $name]
set type [get_class_type $name]
set era [get_class_era $name]
set flags [get_class_flags $name]

puts $file "{\n$name $category $type $era $flags\n"
puts $file "// Materials\n{$materials}"
puts $file "// Tools\n{$tools}"
puts $file "// Places\n{$places}"
puts $file "// Attribs\n{$attribs}"
puts $file "}\n"

}

proc MakeExpEntry {file attribs atrlst} {
set bitwert 0
for {set i 0} {$i<[llength $atrlst]} {incr i} {
if [string match "[lindex $atrlst $i]" $attribs] {
set bitwert [expr int($bitwert+pow(2,$i))]
}
}
set firstwert $bitwert
if {2<[llength $attribs]} {
for {set i 0} {$i<[llength $atrlst]} {incr i} {
if {int(pow(2,$i))&$firstwert} {
lappend bitwert [expr int(pow(2,$i))^$firstwert]
}
}
}
if [string index $bitwert 0] {
foreach nextwert $bitwert {
seek $file 0 start
if {-1==[lsearch [gets $file] $nextwert]} {
seek $file 0 end
puts -nonewline $file "$nextwert "
}
}
}
}

set ttfile [open "data/scripts/gameplay/gen_tt.tcl" w]
set expfile [open "data/scripts/gameplay/gen_exp.lst" w+]
puts -nonewline $expfile "1 2 4 8 16 32 64 128 "
set explst "[get_expattrib 0] atr_Kampf"

[catch {}] == 0 -> okay

foreach cn [ClassList] {
#log "Class: $cn\n";
if { ![regexp {^CObj*|^CTclRoot*} $cn] } {
# log "Testing Class: $cn\n";
set fail [catch {
set items [call_method_static $cn prod_items]
}]
if {$fail==0} {
# log "Techtree Class: $cn\n";
# log "$cn $items\n";
foreach item $items {
# log " Item: $item\n";
if {[string first [get_class_type $cn] "productionstoreenergyprotection"]!=-1&&[string first $cn "Zelt"]==-1} {
set tttsection_tocall $item
call scripts/misc/techtreetunes.tcl
set materials [subst $tttmaterial_$item]
set tools [subst $tttinfluence_$item]
set attribs [subst $tttinvent_$item]
catch {unset tttmaterial_$item tttinvent_$item tttgain_$item tttinfluence_$item}
catch {unset tttpreinv_$item tttitems_$item}
catch {unset tttenergycons_$item}
catch {unset tttenergyrange_$item tttenergyvalue_$item tttenergystore_$item tttenergyminstore_$item tttenergyyield_$item}
catch {unset tttnumber2produce_$item}
} else {
set materials [call_method_static $cn prod_item_materials $item]
set tools [list]
# log " materials: $materials\n";
if { [check_method $cn prod_item_attribs] } {
set attribs [call_method_static $cn prod_item_attribs $item]
} else {
set attribs [list]
}
}

			set matlist $materials
			set materials ""
			set donelist ""
			foreach mattype $matlist {
				if {[lsearch $donelist $mattype] < 0} {
					lappend donelist $mattype
					foreach listitem $matlist {
						if {$listitem == $mattype} {
							lappend materials $listitem
						}
					}
				}
			}

			MakeTTEntry $ttfile $item $materials $tools [list $cn] $attribs
			MakeExpEntry $expfile $attribs $explst

		}
	}
}

}

close $ttfile
seek $expfile 0 start
log "[llength [gets $expfile]] Attributkombinationen zum Erfinden nötig!"
close $expfile

unset attribs materials tools fail item cn tttsection_tocall ttfile expfile explst

Error(3019):unknown class:
Kohle_
while executing
"get_class_category $name"
(procedure "MakeTTEntry" line 2)
invoked from within
"MakeTTEntry $ttfile $item $materials $tools [list $cn] $attribs"
("foreach" body line 40)
invoked from within
"foreach item $items {
# log " Item: $item\n";
if {[string first [get_class_type $cn] "productionstoreenergyprotection"]!=-1&&[string first $cn..."
("foreach" body line 11)
invoked from within
"foreach cn [ClassList] {
#log "Class: $cn\n";
if { ![regexp {^CObj*|^CTclRoot*} $cn] } {
# log "Testing Class: $cn\n";
set fail [catch {
set ..."
invoked from within
"call scripts/init/makettree.tcl":
log "parse systeminit script"
log "minimal:[minimalrun]"

log_mask -* +system +tclerror +gui

;# logmod Tcl ;# print only Tcl logs
logdebug off

if { ![minimalrun] } {
call scripts/init/customcommands.tcl
}

set info "[lmsg Language] Full version"
log "Loading $info"
set_run_info $info

;# useful procedures
proc ? { args } { print [eval {$args}] }

call scripts/init/shader.tcl
call scripts/init/txtinit.tcl
call scripts/init/animinit.tcl
call scripts/init/classinit.tcl
load_info "[lmsg "Classes done"]"

if { ![minimalrun] } {
call scripts/init/soundinit.tcl
load_info "[lmsg "Soundinit done"]"
call scripts/init/adaptiveinit.tcl
load_info "[lmsg "Musicinit done"]"

call scripts/init/lginit.tcl
load_info "[lmsg "LGInit done"]"

call scripts/init/talkinit.tcl

call scripts/init/claninit.tcl

call scripts/init/makettree.tcl
init_techtree scripts/gameplay/gen_tt.tcl
load_info "[lmsg "Techtree done"]"
}

if { ![minimalrun] } {
call scripts/init/fight.tcl
load_info "[lmsg "Fightinit done"]"
}

#log "initializing artificial inteligence"
ai init 0 data/scripts/ai/std_ai.tcl
set aideflevel [perfoptions playeraidefault]
if { $aideflevel != 0 } {
log "ai enabled"
ai enable 0
}
#log "AI initialized"

;# create map and excute procedure gameinit

map create 128 128 { }

map create 64 64 { }

call data/gamesave/preset_Urwald.tcl

call data/gamesave/preset_Urwald_a.tcl

if { [file exists data/userstartup.tcl] } {
call userstartup.tcl
} else {
if { ![minimalrun] && ![get_mapedit] } {
call data/templates/unq_menue.tcl
MapTemplateSet 25 28

        call templates/urw_gng_021_a.tcl
        MapTemplateSet 21 40


        call templates/urw_gng_022_a.tcl
        MapTemplateSet 45 40


    	set_view 32.368 40.858 1.38 -0.355 0.165		;# set inital camera view (x y zoom)
    	sel /obj
		set FR [new FogRemover]
		set pos { 32.368 39.5 10 }
		set_pos $FR [vector_add $pos {0 0 0}]
		call_method $FR fog_remove 0 50 50
		call_method $FR timer_delete -1
		adaptive_sound marker menue $pos
		adaptive_sound primary menue


    	sel /obj
    	set ts [new Trigger_StartScreen]
    	call_method $ts validate
    	call_method $ts disable_logging


} else {
	perfoptions simplecontrol 0
}
gui_new_game

}

show_loading no
gametime start
load_done
log "systeminit script succesfully parsed"

`