Simba Code:
program LongBowMaker;
{$DEFINE SMART}
{$i SRL\SRL.simba}
var
t: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Member := True;
Players[0].Active := True;
Players[0].Pin := '';
end;
Procedure Llamas;
var
x, y, Logs, Knife: integer;
begin
Logs := DTMFromString('mbQAAAHicY2VgYMhkYWDIBuJyII6BYhdGBgZvRgTtAMRBptxA1UwomB9IomNGLBgMAGphBGo=');
Knife := DTMFromString('mggAAAHicY2NgYLBlYWAwBGIXFgjbEoitgdiekYHBF4gtgNgSiB2B2A2IYyMjgbqYsGDsgBEHhgAAkUQEKw==');
InvenKnife := DTMFromString('mggAAAHicY2NgYDjAxMBwEoi3AvF+KD4MxP+A+AMQ8zAzMDAD8W8g+zMQR4SGAHUxYcHYASMODAEA0KoJnA==');
InvenLog := DTMFromString('mrAAAAHic42BgYEhhY2DIAOIiII4F4igozoGKrWBkYNgCxEuAeBEQrwbiTUA8H0rH2vAATWHCg/EDRgIYBgDftAl5');
Setangle(0);
MakeCompass('w');
x:= MSCX;
Y := MSCY;
FindObjCustom(x, y, ['Talk-'], [4141109], 10);
Mouse(x, y, 3, 3, false);
WaitOption('ank B', 2000);
Wait(randomrange(1200, 1600));
FindDTM(knife, x, y, MSX1, MSY1, MSX2, MSY2);
Mouse(x,y, 2, 2, true);
Wait(randomrange(1200, 1600));
FindDTM(Logs, x, y, MSX1, MSY1, MSX2, MSY2);
Mouse(x,y, 2, 2, False);
Wait(randomrange(1200, 1600));
ChooseOption('All M');
CloseWindow;
Wait(randomrange(400,550));
FindDTM(InvenKnife, x, y, MSX1, MSY1, MSX2, MSY2);
Mouse(x,y, 2, 2, true);
Wait(randomrange(100,150));
FindDTM(InvenLog, y, MSX1, MSY1, MSX2, MSY2);
Mouse(x,y, 2, 2, true);
//Chooseoption all; //Mouse(x,y, 2, 2, false); Chooseoption all. Bye
end;
Begin
smart_server := 91;
smart_members := false;
smart_signed :=true;
smart_superdetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Llamas;
end.
I've been making my first DTM scripts, and have gotten to this point (Look above) but it appears that there's something wrong with the DTM's. Especially the 3rd Declared one