mob
	var
		arrows = 0
		maxarrows = 20
		bombs = 0
		maxbombs = 20
		hearts = 3
		maxhearts = 3
		magic = 0
		maxmagic = 40
		rupees = 0
		maxrupees = 100
		amount = 0
		canfight

mob
	player
		icon = 'link.dmi'

mob
	proc
		projectile(obj/projectile,var/dir,var/delay)
			sleep(1)
			walk(projectile,dir)
			sleep(delay)
			del(projectile)
obj
	var
		canfight

	arrow
		icon='arrow.dmi'
		icon_state = "normal"
		density=1
		layer = 5
		canfight=1

		Bump(mob/M)
			//here is the effects
			//here is the effects
			if(istype(M,/mob) && M.canfight == 1)//if it is in the fighting area
				M.hearts -=0.5
				M <<sound('hit.wav')
				flick("hurt",M)
				if(M.hearts <=0)
					M.loc=locate(2,2,2)//Locate the person to the warp pad
					M<<("You were killed")
					M.hearts = 3
					M.canfight=0
					M.arrows = 0
					M.magic = 0
					var/obj/rupee/G = new(loc)	//create a new obj from the gold blueprint
					G.amount = rand(10,50)		//set its amount variable randomly
					..()				//call the parent
			del(src)



mob
	verb
		Arrow()
			if(canfight==1)
				if(usr.arrows>0)
					usr.arrows -= 1
					view(6)<<sound('arrow.wav') //Anyone 6 steps away hears the sound.
					usr<<sound('arrow.wav')
					flick("arrow",usr) //Flick shows (iconstate,who/what) once.
					usr.projectile(new/obj/arrow(usr.loc),usr.dir,40)
				else
					usr<<("\blue You dont have any \red arrows.")



		say(msg as text)
			set category = "Communication"

		Peek(mob/M as mob in oview(1))
			usr<<("[M]'s Stats")
			usr<<("Life: [M.hearts]")
			usr<<("Arrows: [M.arrows]")
			usr<<("Magic: [M.magic]")
			usr<<("Rupees: [M.rupees]")

		Who()
			for(var/mob/M in world)
				if(M.client)
					usr<<"\red [M] \black : \blue [M.key]"

//Stats & Inventory Panels

mob
	Stat()
		statpanel("[usr]'s Stats")
		stat(usr)
		stat("Life: [usr.hearts]/[usr.maxhearts]")
		stat("Bombs: [usr.bombs]")
		stat("Arrows: [usr.arrows]")
		stat("Magic: [usr.magic]/[usr.maxmagic]")
		stat("Rupees: [usr.rupees]")
		statpanel("Inventory")
		stat(src.contents)