Wiggles Installation und Start

[cech12]

Hey! Schau mal in der Videobeschreibung von dem genannten Video nach. Dort findest du den aktuellen Link

[mutsu]

Guten Abend,

ich würde gerne mal wieder eine Runde wigglen wollen, jedoch bekomme ich einen TCL-Fehler. An das Video con Cech12 habe ich mich gehalten. Die Fehlermeldung bzgl. TCL kommt beim Ladebildschirm von Wiggles.

OS: Win 10 Pro
GPU: AMD Radeon R9 M380

Die TCL-Datei beinhaltet das Folgende:

Code: Alles auswählen

Error(3401):can't unset "attribs": no such variable
    while executing
"unset attribs materials tools fail item cn tttsection_tocall ttfile expfile explst":


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(2550):can't unset "attribs": no such variable
    while executing
"unset attribs materials tools fail item cn tttsection_tocall ttfile expfile explst"
    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"

Für jegliche Hilfe bin ich sehr dankbar.

[cech12]

Das sieht nach einer kaputten TLC-Datei aus. Da ist sicherlich was beim Installieren schief gegangen. Am besten nochmal komplett deinstallieren und neu installieren
Wenn dann immer noch die gleichen Probleme sind, vielleicht mal alle Dateien von der CD auf einen Stick kopieren und darüber die Installation laufen lassen. Schreib dann nochmal, wie es ausgegangen ist.

Viel Erfolg!
Chris

[mutsu]

Hm, lag an der Auflösung. 5k schaffte er dann doch nicht. Alles über 1920 klappt bei mir nicht. Mit 1920 gehts jetzt. Danke dennoch.

[cech12]

Also wenn es an der Auflösung lag, dann ist die Fehlermeldung echt sehr komisch. Ich habe nie eine höhere Auflösung als 1080p ausprobiert, da ich nie so einen Bildschirm hatte. Eigentlich dachte ich sollten auch höhere Auflösungen funktionieren, aber naja^^

Aber wenn du es zum Laufen bekommen hast, dann freut es mich! Dann viel Spaß beim Wiggeln!