am 24 . November nochmal, in diggels kopie reinkopiert
hmm
werde bei gelegenheit mal komplett alles deinstalieren neu diggels instalieren
hab ja vor dem diggelsmanager schon daten verändert
Waffen, Werkzeug und Tränke einlagern
Re: Waffen, Werkzeug und Tränke einlagern
Diggelmanager am Dienstag, 10. November 2015, 22:04:11 heruntergeladen
am 24 . November nochmal, in diggels kopie reinkopiert
hmm
werde bei gelegenheit mal komplett alles deinstalieren neu diggels instalieren
hab ja vor dem diggelsmanager schon daten verändert
am 24 . November nochmal, in diggels kopie reinkopiert
hmm
werde bei gelegenheit mal komplett alles deinstalieren neu diggels instalieren
hab ja vor dem diggelsmanager schon daten verändert
Re: Waffen, Werkzeug und Tränke einlagern
Gibt es denn bei dir im Verzeichnis Data/Scripts/classes/items eine Datei transport.tcl?
Aber ja es ist vielleicht sinnvoll, ein frisches Wiggles für den ModManager zu benutzen.
Falls weiterhin Probleme sein sollten, immer raus damit, ich helfe gern!
Euer Chris
Aber ja es ist vielleicht sinnvoll, ein frisches Wiggles für den ModManager zu benutzen.
Falls weiterhin Probleme sein sollten, immer raus damit, ich helfe gern!
Euer Chris
Re: Waffen, Werkzeug und Tränke einlagern
ja klar aber neuinstallation und kiepen sind im lager, nach komplett neuanfang 
danke für die mühe !
danke für die mühe !
Re: Waffen, Werkzeug und Tränke einlagern
Hoffentlich liest das jemand!
Es nervt wirklich, jedes Mal, wenn ein Wiggle stirbt, suchen zu müssen, wo das passiert ist.
Nachdem ich die Dateien wie hier beschrieben verändert habe, bekomme ich einen Absturz und eine Fehlermeldung. Wäre nett, wenn mir jemand weiterhelfen würde.
Error(3923):unknown class:
_Mineralien_einlagern_Waffen_Werkzeug_und_Traenke_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
Es nervt wirklich, jedes Mal, wenn ein Wiggle stirbt, suchen zu müssen, wo das passiert ist.
Nachdem ich die Dateien wie hier beschrieben verändert habe, bekomme ich einen Absturz und eine Fehlermeldung. Wäre nett, wenn mir jemand weiterhelfen würde.
Error(3923):unknown class:
_Mineralien_einlagern_Waffen_Werkzeug_und_Traenke_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
- # 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(3072):unknown class:
_Mineralien_einlagern_Waffen_Werkzeug_und_Traenke_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"
- }