// Script: bardtwst.xys
// Description: Twist Bard Songs
// Created : 3.29.2002
// Written By: Sym
// Copyright (c) 2002. All Rights Reserved.

var Gem : array[1..4] of string;
var LogMarker, ElapTime, StartTime, Buffer : integer;
var LogText : string;
var CastTime : integer;

// I could twist 3 easy over dialup, 4 were sustained about half of the time
// with only about a second of one buff being dropped.
// Slots you want to twist
Gem[1] := '1';
Gem[2] := '2';
Gem[3] := '3';
Gem[4] := '4';

// try 50 for 4 songs, 150 for 3 songs.
// If you see song stop before you get effect text/icon increase this number.
Buffer := 150;
CastTime := 3000 + Buffer;

procedure SingSong(Song : string);
begin
    LogMarker := SetLogMarker;
    StartTime := GetTickCount;
    SendKeys('/cast ' + Song + '<CR>');
    repeat
        ElapTime := GetTickCount - StartTime;
        LogText := GetNewLogText(LogMarker);
        if (HasToken(LogText, 'miss a note')) or
           (HasToken(LogText, 'recovered yet')) then begin
            LogMarker := SetLogMarker;
            StartTime := GetTickCount;
            SendKeys('/cast ' + Song + '<CR>');
            ElapTime := GetTickCount - StartTime;
        end;
    until (ElapTime > CastTime);
    SendKeys('/stopsong<CR>');
end;

while True do begin
    SingSong(Gem[1]);
    SingSong(Gem[2]);
    SingSong(Gem[3]);
//    SingSong(Gem[4]);
end;