Delay 500
KeyPress "Enter", 1


ElseIf Form1.开始游戏1.ListIndex = 1 Then

Delay 500
KeyPress "Enter", 1
SayString "jiao ben ce shi cheng gong.//jiao ben zi dong ting zhi "
Delay 2000
KeyPress "Enter", 1
Delay 500
End If


	
End Sub
    Sub 启动无效()
SayString " Jiao - Ben - Wei - Qi - Dong  [Jin Ru Han Hua Gong Neng]"
        KeyPress "Enter", 1
        Delay 5000
Do 

Dim a
a=a+1

SayString "[Tip] - " & Form1.hhhhh1.Text & "    " & a & " ... "

KeyPress "Enter", 1

Delay 4000

Loop

End Sub

If Form1.caonima1.ListIndex = 0 Then 
	
Delay 1000
MoveTo 43, 38
LeftClick 1
Delay 1000
	Call 启动有效()



	ElseIf Form1.caonima1.ListIndex = 1 Then
	Delay 1000
MoveTo 43, 38
LeftClick 1
Delay 1000
	Call 启动无效()
	ElseIf Form1.caonima1.ListIndex = 2 Then
	Call 无效脚本()


End If
Event Form1.Button1.Click
RunApp "http://good.gd/2205929.htm"
End Event


Event Form1.Button2.Click

Call Plugin.Sys.SetSc(1024,768,32)
End Event
Event Form1.caonima1.SelectChange

If Form1.caonima1.ListIndex = 2 Then 
	
  MsgBox "团队脚本已选择为无效...如要使用歼灭脚本.请自行选择 ‘游戏基本设置-[Tip]-歼灭设置’ "
//首先 在界面上放1个“选项卡控件”。
//其次 复制以下脚本进行调试：

//显示鼠标点击的选项触发的事件
    //弹出选项卡编号
End If


End Event
Event Form1.启动歼灭脚本1.SelectChange
If Form1.启动歼灭脚本1.ListIndex = 0 Then
MsgBox "歼灭脚本功能没有.等待添加..."

	ElseIf  Form1.启动歼灭脚本1.ListIndex = 1 Then 
	MsgBox "歼灭脚本功能没有.等待添加..."
	
	ElseIf  Form1.启动歼灭脚本1.ListIndex = 2 Then 
	  MsgBox "歼灭脚本已选择为无效...如要使用团队脚本.请自行选择 ‘游戏基本设置-[Tip]-团队设置’ "
	
End If


End Event

Sub 无效脚本
	
	MsgBox "你未选择任何脚本启动，请设置好后重新启动.   [Tip] - <注：>歼灭脚本功能未添加..请勿启动..."
End Sub