Wiggles Installation und Start
Re: Wiggles Installation und Start
Hey! Schau mal in der Videobeschreibung von dem genannten Video nach. Dort findest du den aktuellen Link
Re: Wiggles Installation und Start
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:
Für jegliche Hilfe bin ich sehr dankbar.
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"
Re: Wiggles Installation und Start
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
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
Re: Wiggles Installation und Start
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.
Re: Wiggles Installation und Start
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!
Aber wenn du es zum Laufen bekommen hast, dann freut es mich! Dann viel Spaß beim Wiggeln!