Here is a new sailor macro for qmacro, I'm useing global variables to pass information between functions here and i know its bad practice so if you know how to return values or set perameters in vb could you post a link or a brief example of the syntax. Thanks
Cut and paste this into Qmacro, set it on a loop and edit checkStats to keep the sailors you want, I leave it running when i go to bed and it burns just over 200,000 points during the night and finds two or three premo sailors(sometimes none at all).
Also virus scan the qmacro folder after you install it and you will find the trogan gen virus, remove it and the program still works fine, dodgy huh. Qmacro 6.20 and a crack for it are attached.
VBS Dim pot, acc, rel, trp, aaw, rep, res, eng, air, fgt, bmr, lPot, lAcc, lRel, lTrp, lAaw, lRep, lRes, lEng, lAir, lFgt, lBmr, badStats, sailorName, timeDelay
Sub Main
badStats = True
MoveTo 895 722
Gosub genRand
Delay timeDelay
LeftClick 1
Gosub genRand
Delay timeDelay
MoveTo 659 420
Gosub genRand
Delay timeDelay
Gosub findStats
Gosub checkStats
While badStats
lPot = pot
lAcc = acc
lRel = rel
lTrp = trp
lAaw = aaw
lRep = rep
lRes = res
lEng = eng
lAir = air
lFgt = fgt
lBmr = bmr
LeftClick 1
Gosub genRand
Delay timeDelay
Gosub findStats
If pot = lPot And acc = lAcc And rel = lRel And trp = lTrp And aaw = lAaw And rep = lRep And res = lRes And eng = lEng And air = lAir And fgt = lFgt And bmr = lBmr
Delay 1500
Gosub findStats
EndIf
Gosub checkStats
EndWhile
SayString sailorName
MoveTo 552 420
Gosub genRand
timeDelay = timeDelay + 4500
Delay timeDelay
LeftClick 1
Return main
EndScript
Sub genRand
Randomize
timeDelay = ((Rnd * 500) + 1250)
Return genRand
Sub findStats
IfColor 451 245 f7fbf7 0
pot = 15
Else
IfColor 449 246 f7fbf7 0
pot = 14
Else
IfColor 448 250 f7fbf7 0
pot = 13
Else
IfColor 451 251 f7fbf7 0
pot = 12
Else
IfColor 451 248 f7fbf7 0
pot = 10
Else
pot = 11
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 259 f7fbf7 0
acc = 7
Else
IfColor 451 264 f7fbf7 0
acc = 8
Else
IfColor 449 262 f7fbf7 0
acc = 9
Else
IfColor 448 262 f7fbf7 0
acc = 10
Else
IfColor 450 260 f7fbf7 0
acc = 11
Else
acc = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 273 f7fbf7 0
rel = 7
Else
IfColor 451 278 f7fbf7 0
rel = 8
Else
IfColor 449 276 f7fbf7 0
rel = 9
Else
IfColor 448 276 f7fbf7 0
rel = 10
Else
IfColor 450 274 f7fbf7 0
rel = 11
Else
rel = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 287 f7fbf7 0
trp = 7
Else
IfColor 451 292 f7fbf7 0
trp = 8
Else
IfColor 449 290 f7fbf7 0
trp = 9
Else
IfColor 448 290 f7fbf7 0
trp = 10
Else
IfColor 450 288 f7fbf7 0
trp = 11
Else
trp = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 301 f7fbf7 0
aaw = 7
Else
IfColor 451 306 f7fbf7 0
aaw = 8
Else
IfColor 449 304 f7fbf7 0
aaw = 9
Else
IfColor 448 304 f7fbf7 0
aaw = 10
Else
IfColor 450 302 f7fbf7 0
aaw = 11
Else
aaw = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 315 f7fbf7 0
rep = 7
Else
IfColor 451 320 f7fbf7 0
rep = 8
Else
IfColor 449 318 f7fbf7 0
rep = 9
Else
IfColor 448 318 f7fbf7 0
rep = 10
Else
IfColor 450 316 f7fbf7 0
rep = 11
Else
rep = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 329 f7fbf7 0
res = 7
Else
IfColor 451 334 f7fbf7 0
res = 8
Else
IfColor 449 332 f7fbf7 0
res = 9
Else
IfColor 448 332 f7fbf7 0
res = 10
Else
IfColor 450 330 f7fbf7 0
res = 11
Else
res = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 343 f7fbf7 0
eng = 7
Else
IfColor 451 348 f7fbf7 0
eng = 8
Else
IfColor 449 346 f7fbf7 0
eng = 9
Else
IfColor 448 346 f7fbf7 0
eng = 10
Else
IfColor 450 344 f7fbf7 0
eng = 11
Else
eng = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 357 f7fbf7 0
air = 7
Else
IfColor 451 362 f7fbf7 0
air = 8
Else
IfColor 449 360 f7fbf7 0
air = 9
Else
IfColor 448 360 f7fbf7 0
air = 10
Else
IfColor 450 358 f7fbf7 0
air = 11
Else
air = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 371 f7fbf7 0
fgt = 7
Else
IfColor 451 376 f7fbf7 0
fgt = 8
Else
IfColor 449 374 f7fbf7 0
fgt = 9
Else
IfColor 448 374 f7fbf7 0
fgt = 10
Else
IfColor 450 372 f7fbf7 0
fgt = 11
Else
fgt = 12
EndIf
EndIf
EndIf
EndIf
EndIf
IfColor 451 385 f7fbf7 0
bmr = 7
Else
IfColor 451 390 f7fbf7 0
bmr = 8
Else
IfColor 449 388 f7fbf7 0
bmr = 9
Else
IfColor 448 388 f7fbf7 0
bmr =10
Else
IfColor 450 386 f7fbf7 0
bmr = 11
Else
bmr = 12
EndIf
EndIf
EndIf
EndIf
EndIf
Return findStats
Sub checkStats
If acc = 11 And rel = 12
sailorName = "RldGunner"
badStats = False
EndIf
If acc = 12 And rel = 11
sailorName = "Gunner"
badStats = False
EndIf
If acc = 12 And rel = 12
sailorName = "SuperGunner"
badStats = False
EndIf
If trp = 12 And rel >= 11
sailorName = "Torpedo"
badStats = False
EndIf
If aaw = 12 And rel >= 11
sailorName = "AA-Gunner"
badStats = False
EndIf
If rep = 12 And res >= 10 And eng >= 10
sailorName = "Repairer"
badStats = False
EndIf
If res = 12 And rep >= 10 And eng >= 10
sailorName = "Restorer"
badStats = False
EndIf
If eng = 12 And rep >= 10 And res >= 10
sailorName = "Engineer"
badStats = False
EndIf
If air = 12 And fgt = 11
sailorName = "AirFighter"
badStats = False
EndIf
If air = 11 And fgt = 12
sailorName = "Fighter"
badStats = False
EndIf
If air = 12 And fgt = 12
sailorName = "SuperFighter"
badStats = False
EndIf
If air = 12 And bmr = 11
sailorName = "AirBomber"
badStats = False
EndIf
If air = 11 And bmr = 12
sailorName = "Bomber"
badStats = False
EndIf
If air = 12 And bmr = 12
sailorName = "SuperBomber"
badStats = False
EndIf
If acc >= 10 And rel >= 10 And trp >= 10 And aaw >= 10 And rep >= 10 And res >= 10 And eng >= 10 And air >= 10 And fgt >= 10 And bmr >= 10
sailorName = "Seaman"
badStats = False
EndIf
Return checkStats