//Programme setting
Sub dungeons
// Call shiftMap1
// Call clickPoint(177, 272) //Forest of Wood God
// Call clickPoint(358, 254) //Big Lake
// Call clickPoint(375, 147) //Evil Temple
// Call clickPoint(104, 127) //Dragon Temple
// Call clickPoint(81, 492) //Daily Shrine
// Call clickPoint(274, 502) //Shrine of Mage
// Call clickPoint(718, 361) //**Hideout of Mischievous Spirits
//
// Call shiftMap2
// Call clickPoint(543, 94) //Graveyard Forest
// Call clickPoint(542, 262) //Great Pit of Madarame Plain
// Call clickPoint(411, 519) //Depleted Mining Mountain
// Call clickPoint(279, 291) //**Forest of Mischievous Spirits
// Call clickPoint(559, 358) //**House of Mischievous Spirits
//
Call shiftMap3
// Call clickPoint(82, 505) //Fort of Spearman
Call clickPoint(203, 435) //Shrine of Black Smoke
// Call clickPoint(381, 255) //Fire Dragon Temple
// Call clickPoint(491, 491) //Fort of Axeman
// Call clickPoint(684, 396) //Unexplored Cave
// Call clickPoint(484, 130) //Sauna of Hell
// Call clickPoint(296, 401) //Silent Abandoned Village
//
// Call shiftMap4
// Call clickPoint(65, 208) //Shrine Covered in Miasma
// Call clickPoint(236, 331) //Castle of Recovery
// Call clickPoint(639, 485) //Temple of Delusion
End Sub
Sub difficulty
// Call clickPoint(653, 176) //Bronze
// Call clickPoint(653, 260) //Silver
Call clickPoint(653, 344) //Gold
End Sub
Sub team
// Call clickPoint(119, 514) //Team 1
Call clickPoint(229, 514) //Team 2
// Call clickPoint(339, 514) //Team 3
// Call clickPoint(449, 514) //Team 4
// Call clickPoint(559, 514) //Team 5
End Sub
/*=================================================
Shikihime Garden
Automatic Subjugate Programme
Programme Info
Version: R2.04
Default browser: Firefox 33.02
Last updated: 03/11/2014 21:42
Programme Requirements:
1. Coins > 60000
2. Maximum AP > 90
3. "AP Recovery Pill" for recovering AP
4. "Bottle of God Wine" for restoring health
=================================================*/
//Initialization
screenWide = Plugin.Sys.GetScRX()
screenHeight = Plugin.Sys.GetScRY()
FindColor 0, 0, screenWide, screenHeight, "3E7258", intX, intY
If intX < 0 And intY < 0 Then
Msgbox "Error: Unable to intialize"
End If
Delay 300
//Script starts
Do While intX > 0 And intY > 0
//Battle
Call checkPoint(277, 539, "C7D6D9")
//Subjugation
IfColor 620 + intX, 550 + intY, "52A895", 0 Then
Call checkValue
Call dungeons
//Check if dungeon is found
IfColor 224 + intX, 321 + intY, "00A9F5", 0 Then
Delay 300
Call team
Delay 1200
Call difficulty
Call checkHealth
Call clickPoint(509, 364)
//Increase number of subjugation by 1
n = n + 1
Else
//Return to garden
Call clickPoint(659, 514)
End If
End If
Rem checkFinished
Delay 300
//Fight
Call clickPoint(285, 284)
//Next floor
Call checkPoint(197, 105, "1F8FE3")
//Receive reward
Call checkPoint(528, 473, "353C1A")
//Return
// IfColor 16 + intX, 33 + intY, "4B9DD4", 0 Then
// //Underworld monter appeared
// End If
// Delay 300
Call checkPoint(382, 256, "4EB4F5")
//Pandemonium
IfColor 39 + intX, 446 + intY, "5149E1", 0 Then
Call clickPoint(39, 446)
Call holdPoint(312, 332, "0A1F96")
Call holdPoint(566, 503, "32A4E5")
Call holdPoint(634, 391, "00006A")
For 180000
IfColor 372 + intX, 226 + intY, "46ABFC", 0 Then
Call clickPoint(386, 509)
End If
Delay 300
Call checkPoint(115, 223, "1212A7")
Call checkPoint(372, 226, "46ABFC")
//Receive reward
IfColor 528 + intX, 473 + intY, "353C1A", 0 Then
Call clickPoint(528, 473)
Exit For
End If
Delay 300
Next
End If
Delay 300
//Check if programme has suspended for 10 minutes
m = m + 1
If m > 250 Then
Delay 300
Call checkPoint(372, 226, "46ABFC")
Call checkPoint(312, 332, "0A1F96")
Call checkPoint(376, 347, "444444")
Call checkPoint(545, 85, "6868FC")
Call checkPoint(732, 88, "6868FC")
Call checkPoint(655, 86, "6868FC")
Call clickPoint(509, 364)
m = 0
End If
Delay 300
Loop
//Script Ends
//Define variable methods
Sub moveCursor(x, y)
MoveTo x + intX, y + intY
End Sub
Sub clickPoint(x, y)
MoveTo x + intX, y + intY
LeftClick 1
Delay 300
End Sub
Sub checkPoint(x, y, c)
IfColor x + intX, y + intY, c, 0 Then
Delay 300
MoveTo x + intX, y + intY
LeftClick 1
End If
Delay 300
End Sub
Sub holdPoint(x, y, c)
For 180000
IfColor x + intX, y + intY, c, 0 Then
Delay 600
MoveTo x + intX, y + intY
LeftClick 1
Exit For
End If
Delay 300
Next
Delay 300
End Sub
//Define static method
Sub shiftMap1
Delay 900
End Sub
Sub shiftMap2
For 2
Call moveCursor(620, 550)
LeftDown 1
For i = 0 To 376
Call moveCursor(620 - i, 550)
Delay 2
Next
LeftUp 1
LeftClick 1
Delay 300
Next
Delay 300
End Sub
Sub shiftMap3
Call shiftMap4
For 2
Call moveCursor(244, 550)
LeftDown 1
For i = 0 To 376
Call moveCursor(244 + i, 550)
Delay 2
Next
LeftUp 1
LeftClick 1
Delay 300
Next
Delay 300
End Sub
Sub shiftMap4
Call moveCursor(620, 550)
LeftDown 1
Call moveCursor(244, 550)
LeftUp 1
Delay 900
End Sub
Sub checkValue
//Check if number of subjugation > 5
If n > 5 Then
Delay 300
Call clickPoint(659, 514)
//Sell cards
Call holdPoint(20, 125, "3E74B7")
For 180000
IfColor 173 + intX, 467 + intY, "004B73", 0 Then
Call holdPoint(173, 467, "004B73")
Call holdPoint(312, 332, "0A1F96")
Call holdPoint(376, 347, "444444")
Exit For
End If
Delay 300
IfColor 173 + intX, 467 + intY, "2F5655", 0 Then
Exit For
End If
Delay 300
Next
Call holdPoint(545, 85, "6868FC")
//Reset number of subjugation
n = 0
Goto checkFinished
End If
Delay 300
//Check if coins > 400k
IfColor 33 + intX, 38 + intY, "000000", 0 Then
IfColor 35 + intX, 43 + intY, "000000", 0 Then
Delay 300
Call clickPoint(659, 514)
//Purchase 3 "Pattern of Basic Race"
Call holdPoint(612, 531, "529BEB")
Delay 900
Call checkPoint(195, 132, "40491F")
For 3
Call holdPoint(667, 271, "343B19")
Call holdPoint(312, 332, "0A1F96")
Call holdPoint(376, 347, "444444")
Next
Call holdPoint(732, 88, "6868FC")
Goto checkFinished
End If
End If
Delay 300
//Check if coins = 500k
IfColor 35 + intX, 37 + intY, "000000", 0 Then
IfColor 31 + intX, 43 + intY, "000000", 0 Then
Delay 300
Call clickPoint(659, 514)
//Purchase 4 "Pattern of Basic Race"
Call holdPoint(612, 531, "529BEB")
Delay 900
Call checkPoint(195, 132, "40491F")
For 4
Call holdPoint(667, 271, "343B19")
Call holdPoint(312, 332, "0A1F96")
Call holdPoint(376, 347, "444444")
Next
Call holdPoint(732, 88, "6868FC")
Goto checkFinished
End If
End If
Delay 300
//Check if AP < 10%
i = 231 + 110 * 0.1
IfColor i + intX, 18 + intY, "162622", 0 Then
Delay 300
Call clickPoint(659, 514)
//Consume a "AP Recovery Pill"
Call holdPoint(20, 180, "3D77BE")
Delay 900
Call checkPoint(88, 123, "3C441D")
Call holdPoint(157, 163, "1E1E1E")
Call holdPoint(131, 466, "090782")
Call holdPoint(312, 332, "0A1F96")
Call holdPoint(376, 347, "444444")
Call holdPoint(655, 86, "6868FC")
Goto checkFinished
End If
Delay 300
End Sub
Sub checkHealth
//Check if health < 5%
i = 80 + 5.4 * 0.05
IfColor i + intX, 492 + intY, "2000C0", 0 Then
Delay 300
Call clickPoint(659, 514)
//Consume a "Bottle of God Wine"
Call holdPoint(20, 180, "3D77BE")
Delay 900
Call checkPoint(88, 123, "3C441D")
Call moveCursor(658, 431)
For 20
LeftClick 1
Delay 100
Next
Call holdPoint(157, 428, "1E1E1E")
Call holdPoint(131, 466, "090782")
Call holdPoint(312, 332, "0A1F96")
Call holdPoint(376, 347, "444444")
Call holdPoint(655, 86, "6868FC")
Goto checkFinished
End If
Delay 300
End Sub
|
