Gammon Forum

For iSpell = 1 to UBound(List)
    bSuccess = False
    iAttempt = 0
    Do
        iAttempt = iAttempt + 1
        Cast List(iSpell)
        'Read a few lines from output to determine results
        'If spell does not fail, bSuccess = true
    Loop until bSuccess or (iAttempt = 5)
    If Not (bSuccess) then
        world.send "Unable to cast " & List(iSpell)
        Exit Sub
    End If
Next iSpell

'These variable get initialized in the code, but will start
'out with these values
sVariable1 = delimited list of spells to be cast and their Success/Fail trigger lines
'(i.e. SpellName, SuccessLine, FailLine;)

sVariable2 = sVariable1 'temp list of spells
iVariable3 = 0 'track # of attempts

'saftey check - will be set to false if sleeping, if
'healing spells become priority, etc.
bVariable4 = True

Alias1 calls Script1

'I don't remember what parameters an Alias passes, so I'll
'use 3 (like Triggers).  Doesn't matter since I'm going to
'be looking only at variables anyway.
Sub Script1 (x, y, z) 
    Check value of iVariable3 'Check # of attempts
    If iVariable3 <= 5 and bVariable4 then 'cast spell
        world.send "cast " & 1st spell in Variable2
        create 2 temp triggers (success and fail lines)
    Else 'quit after 5th attempt
        world.note "Failed cast"
        Delete temp triggers
        iVariable3 = 0
        sVariable2 = sVariable1
        Exit Sub
    End If
End Sub

Trigger1 catches failed cast line
    Call Script2

Sub Script2 (x, y, z)
    iVariable3 = iVariable3 + 1 'Count attempts
    Call Script1
End Sub

Trigger2 catches successful cast line
    Call Script3

Sub Script3 (x, y, z)
    Delete temp triggers
    iVariable3 = 0
    Delete 1st spell in sVariable2
    If sVariable2 = "" then
        sVariable2 = sVariable1
        Exit Sub
    Else
        Call Script1
    End If
End Sub