1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
addhook("movetile","speed") function speed(id,x,y) freeimage(id) if (tile(x,y, "property")==15) then 		parse("speedmod "..id.." 20") elseif (tile(x,y, "property")==11) then 		parse("speedmod "..id.." 0") 		id1=image("gfx/sprites/block.bmp",1,1,132+id,id) 		imagecolor(id1,0,0,0) 		imagealpha(id1,0.9) 		imagescale(id1,640,480) 	else 		parse("speedmod "..id.." 0") 	end end