If kj = 1 Then
Delay 200
Call CheckTime
End If
//開制霸
If ke = 1 Then
Delay 200
MoveTo 70, 250
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 877, 254
Delay 1000
LeftClick 1
Delay 2000
MoveTo 668, 552
Delay 1000
LeftClick 1
Delay 2000
//第二
MoveTo 1085, 382
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 1015, 327
Delay 1000
LeftClick 1
Delay 2000
MoveTo 810, 618
Delay 1000
LeftClick 1
Delay 2000
//選關開始
MoveTo 70, 250
Delay 1000
LeftDoubleClick 1
Delay 2000
//領獎
MoveTo 591, 725
Delay 1000
LeftClick 1
Delay 2000
//確定
MoveTo 591, 780
Delay 1000
LeftClick 2
Delay 3000
//關獎品列表
MoveTo 848, 270
Delay 2000
LeftClick 2
Delay 2000
//六次
IfColor 211, 429, "68B7D6", 0 Then
Delay 300
//關視窗
MoveTo 919, 199
Delay 1000
LeftClick 1
Delay 2000
Else
//台北
MoveTo 726, 326
Delay 1000
LeftClick 2
Delay 1000
//桃園
MoveTo 663, 355
Delay 1000
LeftClick 2
Delay 1000
//台南
MoveTo 595, 575
Delay 1000
LeftClick 2
Delay 1000
//高雄
MoveTo 621, 625
Delay 1000
LeftClick 2
Delay 2000
//進入確認
MoveTo 466, 564
Delay 1000
LeftClick 2
Delay 2000
//路線確定
MoveTo 282, 692
Delay 1000
LeftClick 2
Delay 3000
//紅字
IfColor 544,323,"6E6EEB",0 Then
Delay 200
//關視窗
MoveTo 919, 199
Delay 1000
LeftClick 1
Delay 1000
Else
//台北關卡
//第十關
IfColor 262, 543, "19BC93", 0 Then
Delay 200
MoveTo 546, 424
Delay 500
LeftClick 1
Delay 300
Call kall
MoveTo 621, 394
Delay 500
LeftClick 1
Delay 300
Call kall
MoveTo 698, 441
Delay 500
LeftClick 1
Delay 300
Call kall
MoveTo 770, 495
Delay 500
LeftClick 1
Delay 300
Call kall
MoveTo 639, 485
Delay 500
LeftClick 1
Delay 300
Call kall
MoveTo 542, 486
Delay 500
LeftClick 1
Delay 300
MoveTo 600, 558
Delay 500
LeftClick 1
Delay 500
MoveTo 704, 541
Delay 500
LeftClick 1
Delay 500
MoveTo 685, 602
Delay 500
LeftClick 1
Delay 500
MoveTo 587, 638
Delay 500
LeftClick 1
Delay 500
End If
IfColor 246, 547, "C83DE", 0 Then
Delay 200
//桃園關卡
MoveTo 740, 430
Delay 500
LeftClick 1
Delay 300
call kall
MoveTo 680, 390
Delay 500
LeftClick 1
Delay 500
MoveTo 590, 410
Delay 500
LeftClick 1
Delay 500
MoveTo 525, 466
Delay 500
LeftClick 1
Delay 500
MoveTo 615, 470
Delay 500
LeftClick 1
Delay 1000
MoveTo 677, 497
Delay 500
LeftClick 1
Delay 500
MoveTo 594, 530
Delay 500
LeftClick 1
Delay 500
MoveTo 677, 586
Delay 500
LeftClick 1
Delay 500
MoveTo 750, 598
Delay 500
LeftClick 1
Delay 500
MoveTo 745, 665
Delay 500
LeftClick 1
Delay 500
End If
IfColor 208, 605, "95925D", 0 Then
Delay 200
//台南關卡
//第十關
MoveTo 489, 487
Delay 500
LeftClick 1
Delay 300
call kall
MoveTo 535, 545
Delay 500
LeftClick 1
Delay 500
MoveTo 588, 483
Delay 500
LeftClick 1
Delay 500
MoveTo 647, 407
Delay 500
LeftClick 1
Delay 500
MoveTo 728, 398
Delay 500
LeftClick 1
Delay 1000
MoveTo 700, 464
Delay 500
LeftClick 1
Delay 500
MoveTo 650, 523
Delay 500
LeftClick 1
Delay 500
MoveTo 783, 538
Delay 500
LeftClick 1
Delay 500
MoveTo 666, 604
Delay 500
LeftClick 1
Delay 500
MoveTo 608, 634
Delay 500
LeftClick 1
Delay 500
End If
IfColor 212, 617, "5367D4", 0 Then
Delay 200
//高雄關卡
//第十關
MoveTo 748, 360
Delay 500
LeftClick 1
Delay 500
MoveTo 690, 418
Delay 500
LeftClick 1
Delay 500
MoveTo 803, 403
Delay 500
LeftClick 1
Delay 500
MoveTo 724, 475
Delay 500
LeftClick 1
Delay 500
MoveTo 644, 482
Delay 500
LeftClick 1
Delay 1000
MoveTo 677, 577
Delay 500
LeftClick 1
Delay 500
MoveTo 581, 543
Delay 500
LeftClick 1
Delay 500
MoveTo 517, 579
Delay 500
LeftClick 1
Delay 500
MoveTo 452, 610
Delay 500
LeftClick 1
Delay 500
MoveTo 501, 660
Delay 500
LeftClick 1
Delay 500
End If
//休息中
MoveTo 480, 560
Delay 2000
LeftClick 2
Delay 1000
//開戰
MoveTo 592, 777
Delay 500
LeftDoubleClick 1
Delay 2000
//關視窗
MoveTo 919, 199
Delay 2000
LeftClick 1
Delay 1000
End If
End If
IfColor 388, 341, "1957BE", 0 Then
Delay 200
MoveTo 777, 233
Delay 1000
LeftClick 2
Delay 1000
MoveTo 919, 200
Delay 1000
LeftClick 1
Delay 1000
End If
//第二
MoveTo 1085, 382
Delay 1000
LeftDoubleClick 1
Delay 2000
//領獎
MoveTo 727, 798
Delay 1000
LeftClick 1
Delay 2000
//確定
MoveTo 727, 845
Delay 1000
LeftClick 2
Delay 3000
//關獎品列表
MoveTo 982, 340
Delay 2000
LeftClick 2
Delay 2000
//六次
IfColor 345, 523, "59A6C8", 0 Then
Delay 300
//關視窗
MoveTo 1055, 270
Delay 1000
LeftClick 1
Delay 2000
Else
//台北
MoveTo 860, 390
Delay 1000
LeftClick 2
Delay 1000
//桃園
MoveTo 795, 422
Delay 1000
LeftClick 2
Delay 1000
//台南
MoveTo 735, 640
Delay 1000
LeftClick 2
Delay 1000
//高雄
MoveTo 754, 690
Delay 1000
LeftClick 2
Delay 2000
//進入確認
MoveTo 598, 630
Delay 1000
LeftClick 2
Delay 2000
//路線確定
MoveTo 420, 758
Delay 1000
LeftClick 2
Delay 3000
//紅字
IfColor 678,390,"6E6EEB",0 Then
Delay 200
//關視窗
MoveTo 1055, 270
Delay 1000
LeftClick 1
Delay 1000
Else
IfColor 396,611,"19BC93",0 Then
Delay 200
//台北關卡
MoveTo 681, 490
Delay 500
LeftClick 1
Delay 300
Call kbll
MoveTo 755, 459
Delay 500
LeftClick 1
Delay 300
Call kbll
MoveTo 836, 512
Delay 500
LeftClick 1
Delay 300
Call kbll
MoveTo 903, 562
Delay 500
LeftClick 1
Delay 300
Call kbll
MoveTo 771, 553
Delay 500
LeftClick 1
Delay 300
Call kbll
MoveTo 675, 551
Delay 500
LeftClick 1
Delay 300
MoveTo 730, 625
Delay 500
LeftClick 1
Delay 500
MoveTo 837, 608
Delay 500
LeftClick 1
Delay 500
MoveTo 821, 669
Delay 500
LeftClick 1
Delay 500
MoveTo 720, 704
Delay 500
LeftClick 1
Delay 500
End If
IfColor 380,614,"981D8",0 Then
Delay 200
//桃園關卡
MoveTo 876, 495
Delay 500
LeftClick 1
Delay 300
Call kbll
MoveTo 815, 455
Delay 500
LeftClick 1
Delay 500
MoveTo 723, 478
Delay 500
LeftClick 1
Delay 500
MoveTo 663, 535
Delay 500
LeftClick 1
Delay 500
MoveTo 750, 536
Delay 500
LeftClick 1
Delay 1000
MoveTo 812, 566
Delay 500
LeftClick 1
Delay 500
MoveTo 730, 597
Delay 500
LeftClick 1
Delay 500
MoveTo 810, 655
Delay 500
LeftClick 1
Delay 500
MoveTo 882, 665
Delay 500
LeftClick 1
Delay 500
MoveTo 875, 730
Delay 500
LeftClick 1
Delay 500
End If
IfColor 342, 673, "95925D", 0 Then
Delay 200
//台南關卡
MoveTo 620, 553
Delay 500
LeftClick 1
Delay 300
Call kbll
MoveTo 668, 610
Delay 500
LeftClick 1
Delay 500
MoveTo 717, 549
Delay 500
LeftClick 1
Delay 500
MoveTo 777, 475
Delay 500
LeftClick 1
Delay 500
MoveTo 860, 465
Delay 500
LeftClick 1
Delay 1000
MoveTo 833, 532
Delay 500
LeftClick 1
Delay 500
MoveTo 788, 595
Delay 500
LeftClick 1
Delay 500
MoveTo 912, 609
Delay 500
LeftClick 1
Delay 500
MoveTo 801, 672
Delay 500
LeftClick 1
Delay 500
MoveTo 742, 702
Delay 500
LeftClick 1
Delay 500
End If
IfColor 347, 684, "475DCA", 0 Then
Delay 200
//高雄關卡
MoveTo 882, 430
Delay 500
LeftClick 1
Delay 500
MoveTo 825, 484
Delay 500
LeftClick 1
Delay 500
MoveTo 935, 474
Delay 500
LeftClick 1
Delay 500
MoveTo 853, 545
Delay 500
LeftClick 1
Delay 500
MoveTo 772, 549
Delay 500
LeftClick 1
Delay 1000
MoveTo 812, 644
Delay 500
LeftClick 1
Delay 500
MoveTo 715, 612
Delay 500
LeftClick 1
Delay 500
MoveTo 654, 649
Delay 500
LeftClick 1
Delay 500
MoveTo 583, 677
Delay 500
LeftClick 1
Delay 500
MoveTo 634, 728
Delay 500
LeftClick 1
Delay 500
End If
//休息中
MoveTo 618, 628
Delay 2000
LeftClick 2
Delay 1000
//開戰
MoveTo 727, 845
Delay 1000
LeftDoubleClick 1
Delay 2000
//關視窗
MoveTo 1055, 270
Delay 2000
LeftClick 1
Delay 1000
End If
End If
End If
IfColor 517, 409, "1957BE", 0 Then
Delay 200
MoveTo 913, 301
Delay 1000
LeftClick 2
Delay 1000
MoveTo 1054, 270
Delay 1000
LeftClick 1
Delay 1000
End If
Delay 300
Goto town
Sub CTi
//開始判斷時間
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
MyVer1 = DateDiff("s",TimeNow,RunTime)
If MyVer1 < 30 Then
Delay 200
MoveTo 70, 250
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 672, 343
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
MoveTo 605, 574
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
MoveTo 877, 254
Delay 1000
LeftClick 1
Delay 1000
//第二視窗
MoveTo 1085, 382
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 808, 410
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
MoveTo 758, 640
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
MoveTo 1012, 325
Delay 1000
LeftClick 1
Delay 1000
call star
Else
Delay 300
End If
End Sub
Sub CTl
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
MyVer1 = DateDiff("s",TimeNow,RunTime)
If MyVer1 < 30 Then
Delay 200
MoveTo 70, 250
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 672, 342
Delay 1000
LeftClick 1
Delay 1000
MoveTo 920, 198
Delay 1000
LeftClick 1
Delay 1000
//第二
MoveTo 1085, 382
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 810, 410
Delay 1000
LeftClick 1
Delay 1000
MoveTo 1053, 265
Delay 1000
LeftClick 1
Delay 1000
call star
Else
Delay 300
End If
End Sub
Sub CheckTime
//開始判斷時間
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
MyVer1 = DateDiff("s",TimeNow,RunTime)
If MyVer1 < 30 Then
Delay 200
call star
Else
Delay 300
End If
End Sub
Sub star
Beep
//開軍團
MoveTo 70, 250
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 976, 560
Delay 2000
LeftClick 1
Delay 2000
//第二
MoveTo 1085, 382
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 1095, 641
Delay 2000
LeftClick 1
Delay 2000
For 4
Delay 10000
Next
//開軍團
MoveTo 70, 250
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 535, 265
Delay 2000
LeftClick 2
Delay 2000
MoveTo 424, 265
Delay 2000
LeftClick 2
Delay 2000
MoveTo 612, 487
Delay 2000
LeftDoubleClick 1
Delay 3000
MoveTo 780, 696
Delay 3000
LeftDoubleClick 1
Delay 1000
//第二
MoveTo 1078, 395
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 672, 335
Delay 2000
LeftClick 2
Delay 2000
MoveTo 562, 335
Delay 2000
LeftClick 2
Delay 2000
MoveTo 741, 555
Delay 2000
LeftDoubleClick 1
Delay 2000
MoveTo 918, 769
Delay 3000
LeftDoubleClick 1
Delay 3000
Rem boss
Delay 100
//按討伐
MoveTo 70, 250
Delay 200
LeftDoubleClick 1
Delay 200
MoveTo 556, 762
Delay 200
LeftDoubleClick 1
Delay 200
MoveTo 1085, 382
Delay 200
LeftDoubleClick 1
Delay 200
MoveTo 688, 829
Delay 200
LeftDoubleClick 1
Delay 200
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
MyVer2 = DateDiff("s",TimeNow,endTime)
If MyVer2 < 30 Then
Delay 200
kj = 0
Call res
Else
Goto boss
End If
End Sub
Sub res
Delay 300
MoveTo 70, 250
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 82, 55
Delay 3000
LeftClick 1
Delay 10000
MoveTo 165, 475
Delay 3000
LeftClick 1
Delay 1000
//第二
MoveTo 1085, 382
Delay 1000
LeftDoubleClick 1
Delay 2000
MoveTo 1078, 135
Delay 3000
LeftClick 1
Delay 10000
MoveTo 290, 538
Delay 3000
LeftClick 1
Delay 1000
Goto town
End Sub
Sub kall
Delay 1500
//清空隨機種子數
Randomize
Delay 100
//得到 1~3 之間的一個隨機數
x = Int((3 * Rnd) + 1)
Delay 100
If x = 1 Then
Delay 100
MoveTo 462, 295
Delay 300
LeftClick 1
Delay 500
ElseIf x = 2 Then
Delay 100
MoveTo 600, 295
Delay 300
LeftClick 1
Delay 500
ElseIf x = 3 Then
Delay 100
MoveTo 725, 295
Delay 300
LeftClick 1
Delay 500
End If
//開戰
MoveTo 592, 777
Delay 1000
LeftClick 1
Delay 500
//確認
MoveTo 480, 560
Delay 1000
LeftClick 1
Delay 500
End Sub
Sub kbll
Delay 1500
//清空隨機種子數
Randomize
Delay 100
//得到 1~3 之間的一個隨機數
x = Int((3 * Rnd) + 1)
Delay 100
If x = 1 Then
Delay 100
MoveTo 600, 360
Delay 300
LeftClick 1
Delay 500
ElseIf x = 2 Then
Delay 100
MoveTo 730, 360
Delay 300
LeftClick 1
Delay 500
ElseIf x = 3 Then
Delay 100
MoveTo 860, 360
Delay 300
LeftClick 1
Delay 500
End If
//開戰
MoveTo 727, 845
Delay 1000
LeftClick 1
Delay 500
//確認
MoveTo 618, 628
Delay 1000
LeftClick 1
Delay 500
End Sub