-- script by IiI

xstart=0 --Hier x und y start und end tile angeben
ystart=0
xend=5
yend=5

pos={}
healready={}
timetoheal={}

addhook("join","_join")
function _join(id)
	pos[id]=false  --Startwert auf false lassen
	healready[id]=true	--hier kannst du schreiben, ob der spieler beim Serverjoin sich sofort heilen kann (true) oder warten muss(false)
	timetoheal[id]=0 --Startwert bei 0 lassen
end

addhook("say","_say")
function _say(id,message)
	if message=="!UseGreen" then
	
		if pos[id] and healready[id]  then
		
			if player(id,"health")~=player(id,"maxhealth") then
				timetoheal[id]=0
				parse("sethealth "..id.." "..player(id,"maxhealth"))
				healready[id]=false
				msg2(id,"©000255000Heal used")
			else
				msg2(id,"©000255000You have fulllive")
			end
			
		else
		
			if not pos[id] then
			
				if healready[id] then
					msg2(id,"©000255000You are not in the healarea")
				else
					msg2(id,"©000255000You are not in the healarea and wait "..(25-timetoheal[id]).."Minutes until heal is ready")
				end
				
			else
				msg2(id,"©000255000Heal is not ready. Please wait "..(25-timetoheal[id]).."Minutes until heal is ready")
			end
			
		end
		
	elseif string.sub(message,1,1)=="!" then
		msg2(id,'©000255000Do you want to heal? Then write "!UseGreen"') -- hier mit "--" wegmachen wenn es stört
	end
end

addhook("movetile","_movetile")
function _movetile(id,x,y)
	if x>=xstart and x<=xend and y>=ystart and y<=yend then
		pos[id]=true
		
		if healready[id] then								-- Wenn dass hintergrundbild schlecht ist vor dieser zeile "--[[" schreiben 
			playerimg=image("gfx/shadow.bmp<b>",0,0,100+id,id) 
			imageblend(playerimg,1)
			imagecolor(playerimg,0,255,0)
			imagescale(playerimg,1.5,1.5)
		end
		
		function _freeimage(deleteimage)
			freeimage(deleteimage)
		end
		
		timer(100,"_freeimage",playerimg) -- hier dann "]]" schreiben
	else
		pos[id]=false
	end
end

addhook("minute","_minute")
function _minute()
	for p=1, 32 do
		timetoheal[p]=timetoheal[p]+1
		
		if timetoheal[p]==25 then	--hier kannst du die zeit, in der ein Spieler auf seine Heilung warten muss, ändern
			healready[p]=true
			msg2(p,"©000255000Heal is ready")
		end
		
	end
end