ffkill.ser

飛飛,自動打怪源碼,僅做學習之用! 飛飛,自動打怪源碼,僅做學習之用!

#[HOTKEY]F11
dim se[5]
dim xy[2][2]
dim rxy[2][2]
dim tupian[4]


function FuncTimer01
	dim global Timer01 = -1
	
	if Timer01 < 0  or GetTime() - Timer01 >= 120 * 1000 then
		Timer01 = GetTime()
		keypress("f4")
	end if
end function

function FuncTimer02
	dim global Timer02 = -1
	
	if Timer02 < 0  or GetTime() - Timer02 >= 600 * 1000 then
		Timer02 = GetTime()
		keypress("f5")
	end if
end function

function main
	se[1] = Color(148, 98, 94)//土
	se[2] = Color(73, 189, 173)//風
	se[3] = Color(243, 193, 78)//電
	se[4] = Color(230, 98, 90)//火
	se[5] = Color(144, 144, 226)//水
	xy[1][1]=611
	xy[1][2]=36
	xy[2][1]=610
	xy[2][2]=36
	rxy[1][1]=397
	rxy[1][2]=521
	rxy[2][1]=397
	rxy[2][2]=524
	tupian[1] = "huo.sel"
	tupian[2] = "shui.sel"
	tupian[3] = "tu.sel"
	tupian[4] = "dian.sel"

	SetInputMode(2)


	FuncTimer01()
	FuncTimer02()
	while true
		
		if CheckColor(138, 33, Color(222, 222, 217), 30) then
			KeyPress("F7")
		end if
		if CheckColor(128, 63, Color(222, 222, 217), 30) then
			KeyPress("F8")
		end if
		if CheckColor(128, 48, Color(222, 222, 217), 30) then
			KeyPress("F9")
		end if
		FuncTimer01()
		FuncTimer02()
		
		if FindBlockEx(Color(255, 0, 0), 1, 1, 10, 190, 30, 844, 444, 0, 0, true, FoundX, FoundY) then
			MouseLeftClick(FoundX + 0, FoundY + 0)
		else
			if FindBlockEx(Color(234, 226, 0), 1, 1, 10, 910, 90, 950, 130, 0, 0, true, FoundX, FoundY) then
				MouseLeftClick(FoundX + 0, FoundY + 0)
				wait(10)
				
			end if
		
					
		do while CheckColor(611, 36, Color(213, 213, 203), 10)

			if CheckColor(138, 33, Color(222, 222, 217), 30) then
				KeyPress("F7")
			end if
			if CheckColor(128, 63, Color(222, 222, 217), 30) then
				KeyPress("F8")
			end if
			if CheckColor(128, 48, Color(222, 222, 217), 30) then
				KeyPress("F9")
			end if
			FuncTimer01()
			FuncTimer02()
			if FindBlockEx(Color(255, 0, 0), 1, 1, 10, 190, 30, 844, 444, 0, 0, true, FoundX, FoundY) then
				MouseLeftClick(FoundX + 0, FoundY + 0)
			else
				if FindBlockEx(Color(234, 226, 0), 1, 1, 10, 910, 90, 950, 130, 0, 0, true, FoundX, FoundY) then
					MouseLeftClick(FoundX + 0, FoundY + 0)
					wait(10)

				end if
			end if
			//判断怪物是否满血
		loop
	
		MouseMiddleClick(512, 384)
		wait(100)
		
	end if

		for n = 1 to 5					
				for	b = 1 to 2			
				FuncTimer01()
				FuncTimer02()
//判断怪物是否死亡,循环到死亡为止
do while CheckColor(413, 13, se[1], 10)
	do while CheckColor(rxy[b][1], rxy[b][2], Color(255, 0, 0), 1)
		FuncTimer01()
		FuncTimer02()
		if CheckColor(138, 33, Color(222, 222, 217), 30) then
			KeyPress("F7")
		end if
		if CheckColor(128, 63, Color(222, 222, 217), 30) then
			KeyPress("F8")
		end if
		if CheckColor(128, 48, Color(222, 222, 217), 30) then
			KeyPress("F9")
		end if
		if FindBlockEx(Color(234, 226, 0), 1, 1, 10, 910, 90, 950, 130, 0, 0, true, FoundX, FoundY) then
			MouseLeftClick(FoundX + 0, FoundY + 0)

		end if
		wait(100)
	loop
	do while CheckColor(rxy[b][1], rxy[b][2], Color(153, 204, 0), 1)
		FuncTimer01()
		FuncTimer02()
		if CheckColor(138, 33, Color(222, 222, 217), 30) then
			KeyPress("F7")
		end if
		if CheckColor(128, 63, Color(222, 222, 217), 30) then
			KeyPress("F8")
		end if
		if CheckColor(128, 48, Color(222, 222, 217), 30) then
			KeyPress("F9")
		end if

		if FindBlockEx(Color(234, 226, 0), 1, 1, 10, 910, 90, 950, 130, 0, 0, true, FoundX, FoundY) then
			MouseLeftClick(FoundX + 0, FoundY + 0)

		end if
		wait(100)
	loop
	FuncTimer01()
	FuncTimer02()
			KeyPress("F1")
			wait(500)
			KeyPress("F2")
			wait(500)
			if CheckColor(178, 48, Color(139, 138, 239), 30) then
				KeyPress("F3")
			end if
			if CheckColor(138, 33, Color(222, 222, 217), 30) then
				KeyPress("F7")
			end if
			if CheckColor(128, 63, Color(222, 222, 217), 30) then
				KeyPress("F8")
			end if
			if CheckColor(128, 48, Color(222, 222, 217), 30) then
				KeyPress("F9")
			end if
		loop 

	next
next

wend	
end function