dim $mc4, $mc3, $mc2, $mc1 

HotKeySet("{´}", "_move")
HotKeySet("{HOME}","copypointnpc1")
HotKeySet("{END}","copypointnpc2")
HotKeySet("{INSERT}","copypointdd1")
HotKeySet("{PGUP}","copypointdd2")
HotKeySet("{DELETE}","setdiamond")
HotKeySet("{PGDN}","remdiamond")
HotKeySet("{<}","close")

while 1
    sleep(200)
WEnd

Func _move()
	WinMove("Insanity FlyFF", "", 0, 0)
EndFunc

func copypointnpc1()
    $mc1 = MouseGetPos()
EndFunc

func copypointnpc2()
    $mc2 = MouseGetPos()
EndFunc

func copypointdd1()
    $mc3 = MouseGetPos()
EndFunc

func copypointdd2()
    $mc4 = MouseGetPos()
EndFunc

func setdiamond()
    MouseClick("left", $mc1[0], $mc1[1], 1, 0)
	sleep(500)
	MouseClick("left", $mc3[0], $mc3[1], 1, 0)
	sleep(1000)
	MouseClickDrag ( "left", 72, 317, 780, 470, 10 ) 
	sleep(1000)
	MouseClick("left", 130, 317, 2, 0)
	sleep(500)
	MouseClick("left", 840, 740, 2, 0)
	sleep(7000)
	MouseMove(72, 317, 0)
	EndFunc

func remdiamond()
	MouseClick("left", $mc2[0], $mc2[1], 1, 0)
	sleep(500)
	MouseClick("left", $mc4[0], $mc4[1], 1, 0)
	sleep(500)
	MouseClick("left", 72, 317, 2, 0)
	sleep(100)
	MouseClick("left", 167, 317, 2, 0)
	sleep(100)
	MouseClick("left", 841, 736, 1, 0)
EndFunc


Func close ()
	Exit 0
EndFunc