Wiggles Forum

Code: Alles auswählen

       	if {[get_info Drachenmama] == "true"} {
       		log "[get_objname this] : Ich bin die Drachenmama..."
       		set_texturevariation this 1

Code: Alles auswählen

		if {$myclass=="Lavabrut"} {
			set is_lava 1
			set walk_animset 0
			set run_animset 1
			set scan_range 25
			set_texturevariation this 0 1
			set_texturevariation this 1 1

Code: Alles auswählen

def_class Eisen metal material 0 {} {
	class_defaultanim eisen.standard
	call scripts/misc/animclassinit.tcl
	call scripts/classes/items/calls/resources.tcl
	method change_owner {new_owner} {
//		add_owner_attrib [get_owner this] [get_objclass this] -1
		set_owner this $new_owner
//		add_owner_attrib [get_owner this] [get_objclass this] 1
	}
	obj_init {
		call scripts/classes/items/calls/resources.tcl
		set_anim this eisen.standard 0 0
		set_viewinfog this 1
		set_storable this 1
		set_physic this 1
		set_hoverable this 1
		set_texturevariation this 1
	}
}

Code: Alles auswählen

;#					texturname				variation#0						variation#1

def_texture			Struktur_Rohstoffe_c_256	Struktur_Rohstoffe_c_256.tga	brainposter.tga

Code: Alles auswählen

def_texture		enviro_chrome	brainposter.tga	hi.tga

Code: Alles auswählen

set_texturevariation this 1

Code: Alles auswählen

set ani [string tolower [string map {brocken ""} [get_objclass this]]]
set_anim this "$ani\_00.standard" 0 0

Code: Alles auswählen

ani = kupfererz

Code: Alles auswählen

set_anim this "kupfererz\_00.standard" 0 0

Code: Alles auswählen

set_anim this "stein\_00.standard" 0 0

Code: Alles auswählen

	set ani [string tolower [string map {brocken ""} [get_objclass this]]]		
	if {$ani == "kupfererz"} {													
		set_anim this "eisenerz_00.standard" 0 0								
	} else {																	
		set_anim this "$ani\_00.standard" 0 0									
	}

Code: Alles auswählen

		set ani [string tolower [string map {brocken ""} [get_objclass this]]]
		if {$ani == "kupfererz"} {
			set_anim this eisenerz_00.standard $aniph 0								
		} else {																	
			set_anim this $ani\_00.standard $aniph 0								
		}

Code: Alles auswählen

if {$itemclass=="Eisenerzbrocken"||$itemclass=="Golderzbrocken"} {
	set animname mann.buddeln_unten_metall
	set attr [hmin [get_attrib this exp_Metall] 0.4]
} else {
	set animname mann.buddeln_unten_stein
	set attr [hmin [get_attrib this exp_Stein] 0.4]
}

Code: Alles auswählen

log [list [get_objname this] found: [obj_query this "-class \{Steinbrocken Kohlebrocken Eisenerzbrocken Golderzbrocken Kristallerzbrocken\} -range 10 -limit 1 -flagneg locked"]]
if {[get_remaining_sparetime this]<0.1&&[set nextbrock [obj_query this "-class \{Steinbrocken Kohlebrocken Eisenerzbrocken Golderzbrocken Kristallerzbrocken\} -range 10 -limit 1 -flagneg locked"]]} {
	tasklist_clear this
	tasklist_add this "mine $nextbrock [get_attrib $item PilzAge]"
	tasklist_add this "set_objworkicons this Spitzhacke [string map {brocken {}} [get_objclass $nextbrock]]"
	log "[get_objname this]: [state_get this] [tasklist_list this]"
	unlock_item
}

Code: Alles auswählen

if {$itemclass=="Eisenerzbrocken"||$itemclass=="Kupfererzbrocken"||$itemclass=="Golderzbrocken"} {

Code: Alles auswählen

log [list [get_objname this] found: [obj_query this "-class \{Steinbrocken Kohlebrocken Eisenerzbrocken Kupfererzbrocken Golderzbrocken Kristallerzbrocken\} -range 10 -limit 1 -flagneg locked"]]

Code: Alles auswählen

def_class Kupfererzbrocken metall material 0 {} {
	call scripts/misc/animclassinit.tcl
	
	call scripts/classes/items/calls/resources.tcl
	call scripts/misc/aggr_events.tcl
	method mine {obj} {
		if {$content > 0} {
			incr content -1
			add_attrib this PilzAge -1
			set pos [get_pos $obj]
			set pos [vector_add $pos [vector_random 0.6 0 0.6]]
			sel /obj
			set ns [new Gold]
			set_pos $ns $pos
			set_owner $ns [get_owner this]
			eval "add_expattrib $obj $expincr"
			setanim
		}
		if {$content == 0} {
			del this
		}
	}
	method change_owner {new_owner} {
		add_owner_attrib [get_owner this] [get_objclass this] -1
		set_owner this $new_owner
		add_owner_attrib [get_owner this] [get_objclass this] 1
	}

	method Editor_Set_Info {ifo} {
		global info_string
		set info_string $ifo
		set ifo [lindex $ifo 0]
		set cnt [lindex $ifo 1]
		if { [string is integer $cnt] } {
			set content $cnt
			set_attrib this PilzAge $cnt
			setanim
		} else {
			log "[get_objname this]: Error content is not an integer: '$ifo'"
		}
		foreach entry $ifo {
			switch [lindex $entry 0] {
				"aggr" {set player_aggressivity [lindex $entry 1]}
				"aggrmax" {set aggr_max [lindex $entry 1]}
			}
		}
	}
	
	obj_init {
		call scripts/classes/items/calls/resources.tcl
		call scripts/misc/aggr_events.tcl
		set content 30
		set_attrib this PilzAge 30
		set info_string "\{inhalt 30\}"
		set ani stein
		set_anim this "$ani\_00.standard" 0 0
		set_viewinfog this 1
		set_storable this 1
		set_physic this 1
		set_attrib this weight 0.38
		set_hoverable this 1
		set_collision this 1

		proc setanim {} {
			global content
			//set aniph [hmax [expr 9 - int($content / 3)] 0]
			set aniph 0
			if 			{$content <= 2} {
				set aniph 9
			} elseif	{$content <= 3} {
				set aniph 8
			} elseif 	{$content <= 4} {
				set aniph 7
			} elseif 	{$content <= 5} {
				set aniph 6
			} elseif 	{$content <= 7} {
				set aniph 5
			} elseif 	{$content <= 10} {
				set aniph 4
			} elseif 	{$content <= 13} {
				set aniph 3
			} elseif 	{$content <= 16} {
				set aniph 2
			} elseif 	{$content <= 20} {
				set aniph 1
			}

			set ani stein
			set_anim this $ani\_00.standard $aniph 0
		}
		set expincr  "exp_Metall 0.002"
	}
}

Code: Alles auswählen

lg_addfilterclass {	Zwerg Wuker Troll Pilz Kohle Kristallerz Golderz Eisenerz Schatztonne }