Wiggles Forum

1. Patch_1_0_707
2. Patch_1_0_814
3. Patch_1_0_844

• Wiggles.exe - keine Kompatibilitätseinstellung, Berechtigungsstufe: Als Administrator ausführen
• WigHelper.exe - Kompatibilitätsmodus Windows 98 / Windows Me, Berechtigungsstufe: Als Administrator ausführen

	.
	.
	// work_breakable - workplace assigned, executing breakable task
	// sparetime	- sparetime

	obj_init {
		perfoptions maxframerate 40
		perfoptions particles 1

		set info_string ""
		set logon 0
	.
	.

• es kann sein das beim Start das Intro nicht zu sehen, sondern nur der Sound zu hören ist. Einfach mit der Maus klicken, dadurch überspringt ihr das Intro und der Ladebildschirm erscheint.
• Falls es das Spiel dennoch nicht in den Ladebildschirm schafft, in der SetMode den Fullscreen-Modus deaktivieren. Wenn das Spiel dann das erste mal richtig gestartet wurde, kann man wieder den Vollbildmodus aktivieren.

Tammy25 hat geschrieben: Hier der Auszug aus meiner tclerrors.txt:
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

• # log " materials: $materials\n";
  if { [check_method $cn prod_item_attribs] } {
  set attribs [call_method_static $cn prod_item_attribs $item]
  } else {
  set attribs
  • }
    }
    
    
    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"