//复活圣诞框坐标：
//安全复活按键：680,510    (5分钟/300秒)
//免费原地按钮：680,546    (3分钟/180秒)

//╱╳╲╱╳╲╱╳╲╱╳╲╱╳╲
//╲╳╱╲╳╱╲╳╱╲╳╱╲╳╱
//       光头前锋制作 :）
//╱╳╲╱╳╲╱╳╲╱╳╲╱╳╲
//╲╳╱╲╳╱╲╳╱╲╳╱╲╳╱
//UserVar posX=420 "挂机点X坐标"		//默认定点坐标(北宫门口)
//UserVar posY=280 "挂机点Y坐标"

//UserVar posX=droplist{"北宫X":420|"大厅X":480|"中苑X":580|"左草地X":350|"右草地X":650}=0 "挂机点X坐标"
//UserVar posY=droplist{"北宫Y":280|"大厅Y":320|"中苑Y":370|"左草地Y":400|"右草地Y":250}=0 "挂机点Y坐标"

UserVar posCode=droplist{"北宫":0|"大厅":1|"中苑":2|"左草地":3|"右草地":4}=0 "冷宫挂机地点选择"
Dim posX,posY
Select Case posCode
	Case 0
		posX = 420 : posY = 280		
	Case 1
		posX = 480 : posY = 320	
	Case 2
		posX = 580 : posY = 370	
	Case 3
		posX = 350 : posY = 400	
	Case 4
		posX = 650 : posY = 250	
End Select

Dim t, t1, t2
t = now
t1 = 300	//5分钟后自动安全复活
t2=180		//3分钟后才能免费原地复活；如果不原地，则2分钟后自动安全复活

While true
    //条件无限循环
    //免费原地复活//////////////////////////////////////////////////////////////////    
    If DateDiff("s",t,now)>=12 Then	//121秒尝试一次免费复活+定点
        //< DateDiff 函数：返回两个日期之间的时间间隔>
        //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
        Delay 1000
        MoveTo 680,546		//免费原地复活 按钮中心点位置
        LeftClick 1			//点击按钮 
        
        //冷宫回本基地
        Delay 1000
        KeyPress "M", 1		//打开地图
        Delay 1000
        MoveTo posX,posY	//移动光标到挂机点
        LeftClick 1		//回基地
        KeyPress "M", 1	//关闭地图
        
        t=now
        //重新赋值日期时间到变量
    End If
    
    Delay 10
Wend

//╱╳╲╱╳╲╱╳╲╱╳╲╱╳╲
//╲╳╱╲╳╱╲╳╱╲╳╱╲╳╱
//       光头前锋制作 :）
//╱╳╲╱╳╲╱╳╲╱╳╲╱╳╲
//╲╳╱╲╳╱╲╳╱╲╳╱╲╳╱