Event Form1.扔瓶.Click
    扔瓶ID = BeginThread(扔瓶)
Call Plugin.Msg.Tips("扔瓶子启动成功")

End Event


Event Form1.瓶子停止.Click
//    Call Plugin.Msg.Tips("挂大奖赛成功停止" )	
	StopThread 扔瓶ID
    
End Event


Event Form1.Button38.Click
    漂流瓶ID = BeginThread(漂流瓶)
    Call Plugin.Msg.Tips("自动捞5回漂流瓶开启成功！")
End Event
Sub 恢复体力()
		
    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 2000
 
    For 1
	

        Call Plugin.Bkgnd.MoveTo(h, 786, 436)    
        Call Plugin.Bkgnd.LeftClick(h, 786, 436)
        Delay 500

        Call Plugin.Bkgnd.MoveTo(h, 540, 438)    
        Call Plugin.Bkgnd.LeftClick(h, 540, 438)
        Delay 500

        Call Plugin.Bkgnd.MoveTo(h, 336, 410)    
        Call Plugin.Bkgnd.LeftClick(h, 336, 410)
        Delay 500

        Call Plugin.Bkgnd.MoveTo(h, 575, 190)    
        Call Plugin.Bkgnd.LeftClick(h, 575, 190)
        Delay 500

        Call Plugin.Bkgnd.MoveTo(h, 579, 170)    
        Call Plugin.Bkgnd.LeftClick(h, 579, 170)
        Delay 500
    Next
End Sub
Event Form1.Button41.Click
    恢复ID = BeginThread(恢复体力)
End Event

Sub 挂大奖赛
    Dim s
    s = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(s, 0, 0)
    
    Rem 再来
    Call Plugin.Bkgnd.MoveTo(s, 26, 580)
    Call Plugin.Bkgnd.LeftClick(s, 26, 580) 
    Delay 100
    Call Plugin.Bkgnd.MoveTo(s, 118, 310)
    Call Plugin.Bkgnd.LeftClick(s, 118, 310)
    Delay 100
    Call Plugin.Bkgnd.MoveTo(s, 307, 385)
    Call Plugin.Bkgnd.LeftClick(s, 307, 385)
      Delay 100
    Call Plugin.Bkgnd.MoveTo(s, 265, 238)
    Call Plugin.Bkgnd.LeftClick(s, 265, 238)
          Delay 100
    Call Plugin.Bkgnd.MoveTo(s, 303, 399)
    Call Plugin.Bkgnd.LeftClick(s, 303, 399)
    Delay 60000
    Call Plugin.Window.SendKeyPress(s, 87)
       Call Plugin.Bkgnd.MoveTo(s, 572, 480)
    Call Plugin.Bkgnd.LeftClick(s, 572, 480) 
    goto 再来
End Sub

Event Form1.大奖赛开启.Click
	
 Call Plugin.Msg.Tips("挂大奖赛成功开启" )	
	   大奖赛ID = BeginThread(挂大奖赛)
End Event
Event Form1.大奖赛关闭.Click
	
    Call Plugin.Msg.Tips("挂大奖赛成功停止" )	
	StopThread 大奖赛ID

	End Event


Sub 飞车鱼坊
    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)