define script CreatureEvil

begin script CreatureEvil
// by LUCINDREA

	eCreature = 0
	ePlayer = 0
	ePen = 0
	SelectPos = marker at {1300,1283}
	aStatue = 0
	lStatue = 0
	wStatue = 0
	cStatue = 0
	tStatue = 0
	gStatue = 0
	Cnt = 0
	eTown = 0
	Scroll = 0

start
		//create statues
	aStatue = create with angle 0 and scale 1.5 SCRIPT_OBJECT_TYPE_FEATURE FEATURE_INFO_APE_STATUE at {SelectPos}+{25,0}
	lStatue = create with angle 0 and scale 1.5 SCRIPT_OBJECT_TYPE_FEATURE FEATURE_INFO_LION_STATUE at {SelectPos}+{15,0}
	wStatue = create with angle 0 and scale 1.5 SCRIPT_OBJECT_TYPE_FEATURE FEATURE_INFO_WOLF_STATUE at {SelectPos}+{5,0}
	cStatue = create with angle 0 and scale 1.5 SCRIPT_OBJECT_TYPE_FEATURE FEATURE_INFO_COW_STATUE at {SelectPos}+{-5,0}
	tStatue = create with angle 0 and scale 1.5 SCRIPT_OBJECT_TYPE_FEATURE FEATURE_INFO_TIGER_STATUE at {SelectPos}+{-15,0}
	gStatue = create with angle 0 and scale 1.0 SCRIPT_OBJECT_TYPE_FEATURE FEATURE_INFO_GORILLA_STATUE at {SelectPos}+{-25,0}



	//ePlayer = player 1
	eTown = get town with id 1
	ePlayer = get eTown player

	ePen = get building ABODE_NUMBER_CREATURE_PEN in eTown min built 1.0
	//Scroll = create visual effect VISUAL_EFFECT_SCROLL_BEAM on ePen time -1
	
	begin loop
		
		wait until bindable action BINDABLE_ACTION_TYPE_ACTION performed
		//increment tribute by 1000 + Cnt
		
		if aStatue right clicked or aStatue left clicked
		
			Scroll = create visual effect VISUAL_EFFECT_SCROLL_BEAM on aStatue time 5
			increment tribute by 1000
			if eCreature exists
				delete eCreature
				wait 1 second
				eCreature = 0
			end if
			Cnt = 1
			clear right clicked object
			eCreature = create SCRIPT_OBJECT_TYPE_CREATURE CREATURE_TYPE_APE at {ePen} using only alignment good neutral evil
			Scroll = create visual effect VISUAL_EFFECT_GOLD_SCROLL on eCreature time -1
			
		elsif cStatue right clicked or cStatue left clicked
		
			Scroll = create visual effect VISUAL_EFFECT_SCROLL_BEAM on cStatue time 5
			increment tribute by 2000
			if eCreature exists
				delete eCreature
				wait 1 second
				eCreature = 0
			end if
			Cnt = 1
			clear right clicked object
			eCreature = create SCRIPT_OBJECT_TYPE_CREATURE CREATURE_TYPE_COW at {ePen} using only alignment good neutral evil
			Scroll = create visual effect VISUAL_EFFECT_GOLD_SCROLL on eCreature time -1
			
		elsif tStatue right clicked or tStatue left clicked
			delete eCreature
			Cnt = 1
			eCreature = create SCRIPT_OBJECT_TYPE_CREATURE CREATURE_TYPE_TIGER at {ePen} using only alignment good neutral evil
		elsif wStatue right clicked or wStatue left clicked
			delete eCreature
			Cnt = 1
			eCreature = create SCRIPT_OBJECT_TYPE_CREATURE CREATURE_TYPE_WOLF at {ePen} using only alignment good neutral evil
		elsif lStatue right clicked or lStatue left clicked
			delete eCreature
			Cnt = 1
			eCreature = create SCRIPT_OBJECT_TYPE_CREATURE CREATURE_TYPE_LION at {ePen} using only alignment good neutral evil
		elsif gStatue right clicked or gStatue left clicked
			delete eCreature
			Cnt = 1
			eCreature = create SCRIPT_OBJECT_TYPE_CREATURE CREATURE_TYPE_GORILLA at {ePen} using only alignment good neutral evil
		end if
		
		
		
		if Cnt == 1		
			set creature eCreature happiness to maximum
			set creature eCreature energy to 1.0
			set player ePlayer creature to eCreature
			//set player 1 creature to eCreature
			set eCreature DEVELOPMENT_PHASE_FULLY_MATURE development
			set creature eCreature CREATURE_SCRIPT_TRANSITIONAL_ATTRIBUTE_TYPE_SIZE 1.0
			set creature eCreature CREATURE_SCRIPT_TRANSITIONAL_ATTRIBUTE_TYPE_ALIGNMENT -1

			teach eCreature all
			set eCreature desire CREATURE_DESIRE_TO_LOOK_AROUND to 1.0
			set eCreature desire CREATURE_DESIRE_WANDERLUST to 1.0
			//set eCreature desire CREATURE_DESIRE_TO_IMPRESS to 1.0
			set eCreature desire CREATURE_DESIRE_CURIOSITY to 1.0
			set eCreature desire CREATURE_DESIRE_TO_STAY_NEAR_HOME to 0
			set eCreature desire CREATURE_DESIRE_TO_HANG_AROUND_AT_HOME to 0
			set eCreature desire CREATURE_DESIRE_TO_STEAL to 1.0
			//set eCreature desire CREATURE_DESIRE_TO_ATTACK_TOWN to 1.0
			set eCreature desire CREATURE_DESIRE_MISCHIEF to 1.0
			set eCreature desire CREATURE_DESIRE_TO_PERFORM_EXPRESSIVE_IDLE to 0
			set eCreature desire CREATURE_DESIRE_TO_STAY_IN_FRIENDLY_TERRITORY to 0
			set eCreature desire CREATURE_DESIRE_ANGER to 0.0
			set eCreature desire CREATURE_DESIRE_HUNGER to 0.3
			enable leash on eCreature
			detach eCreature leash
			wait 3 seconds
			disable leash on eCreature

			enable eCreature can learn LA_EAT
			enable eCreature can learn LA_SLEEP
			enable eCreature can learn LA_POO
			enable eCreature can learn LA_STEAL
			enable eCreature can learn LA_WEIGHTLIFT
			enable eCreature can learn LA_GATHER
			enable eCreature can learn LA_BUILD
			enable eCreature can learn LA_PLAY
			enable eCreature can learn LA_WATER
			enable eCreature can learn LA_HEAL
			enable eCreature can learn LA_ATTACK
			enable eCreature can learn LA_SACRIFICE
			enable eCreature can learn LA_EXPLORE
			enable eCreature can learn LA_MAX

			set eCreature home position {ePen}
			
			release eCreature
			Cnt = 0
		end if
	end loop
	
end script CreatureEvil	
