龙族公告脚本

[General]
Description=龙放公告脚本
BeginHotkey=191
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1943230752
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
Gosub [防交易防震]
Rem 开始
KeyPress 13,1
Delay 1000
Boss=Boss+1
Plugin s=GetSysInfo.GetDateTime()
Mystring= "BOSS[" & Boss & "]次｜"
Gosub [说话]
Delay 1000
Boss=Boss +1
Delay 200
Delay 1000
MoveTo 381,148
//公告
Delay 500
LeftDown 2
Delay 500
LeftUp 1
Delay 1000
MoveTo 450,319
//国家
Delay 500
LeftDown 2
Delay 500
LeftUp 1
Delay 500
MoveTo 309,175
//
Delay 500
LeftDown 10
Delay 500
LeftUp 1
Boss=Boss+1
SayString ""NND试脚本别密我``````````````````````````````"
Delay 2000
MoveTo 334,406
Delay 500
LeftDown 2
Delay 500
LeftUp 1
Delay 500
Gosub 跳过边境国战
Gosub 死亡等待复活
Goto 开始
//........................................................主程序开始
//.......................................................主程序开始
Sub 判断血量并喝水
IfColor 33 584 10046b 1
Delay 200
MoveTo 473 577
Delay 200
RightDown 1
Delay 200
RightUp 1
Delay 200
MoveTo 400 245
Delay 500
Delay 200
Else
EndIf
Return 判断血量并喝水
Sub 跳过边境国战
// 取消边境
IfColor 518 424 425d73 0
Delay 200
MoveTo 518 424
Delay 500
LeftDown 1
Delay 500
LeftUp 1
Delay 500
MoveTo person_x person_y
Delay 500
Else
EndIf
Return 跳过边境国战
Sub 死亡等待复活
//以下这个战斗模式的点来源于"有点另类",如果不是战斗状态说明死亡,挂机请勿PK状态
//731 564颜色为FFFFFF时是战斗状态
//我以前用血量来判断死亡,但是作为不用左键攻击的角色来说,这种方式要好一些
IfColor 731 564 ffffff 1
Delay 1000
Rem 等待复活
Delay 1000
KeyPress 13 1
Delay 10000
SayString /@ 名字 点死了速来就
Delay 1000
KeyPress 13 1
Delay 5000
Gosub 跳过边境国战
Delay 1000
//当然是不是活了还是要依靠血量的
IfColor 23 595 292494 0
Delay 1000
//以下代码为了保证能切换到战斗状态
Rem 切换状态
Delay 200
//按ESC保证能将说话框去掉,空格居中一下(如果不想要就删了吧)
KeyPress 27 1
Delay 500
KeyPress 32 1
Delay 200
// 以下这个判断点和颜色来源于"有点另类",在此感谢他~
IfColor 731 564 ffffff 1
Delay 100
KeyDown 9 1
Delay 100
KeyUp

9 1
Delay 100
EndIf
Delay 500
MoveTo person_x person_y
Goto 开始
Else
Delay 100
Goto 等待复活
EndIf
Else
EndIf
Return 死亡等待复活
Sub [防交易防震]
KeyPress 13 1
Delay 50
Mystring = "/trade off"
Gosub [说话]
Mystring = "/effectoff"
Gosub [说话]
Mystring = "/off"
Gosub [说话]
Mystring = "/关闭天气效果"
Gosub [说话]
KeyPress 27 3
Delay 400
KeyDown 160 1
Delay 100
Return [防交易防震]
Sub [说话]
SayString Mystring
Delay 600
KeyPress 13 1
Delay 50
Return [说话]