digglesmods / betterstorage Goto Github PK

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"


[Lagerverbesserung.zip](https://github.com/DigglesMods/BetterStorage/files/2217302/Lagerverbesserung.zip)