i have installed ModManager and 2 mods (Seltene* and Lagerver*) gives me errors
tclerror:
Code: Alles auswählen
Error(3882):unknown class:
_Pilzhut_einlagern
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(3031):unknown class:
_Pilzhut_einlagern
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"
the modmanager works, cause zwergenstatistik works fine
Anyone see the solutions?
Thanks
