Procedure WhatToCut;
Begin
Case lowercase(Players[CurrentPlayer].String1) of
'shorts ' : CutShorts;
'longs ' :=CutLongs;
End;
End;
Theres your problem.
longs .
Should be longs. :P.
Fixed longbow version:
program BuckFletch;
{.Include srl/srl.scar}
Var
DX,DY : Integer;
BX,BY : Integer;
XX,YY : Integer;
BT,Exp: Integer;
LogsCut : Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';//username
Players[0].Pass := '';//Password
Players[0].Nick := '';//Nick..3 or 4 letters from your name
Players[0].String1 := 'longs';//what to cut....long or short
Players[0].String2 := 'Willow';//What type of log?
Players[0].Integer1 := 15000;//how many logs to fletch
Players[0].Integer2 := 40;//EXP Per logs
Players[0].Active := True;//is this player active
{Players[1].Name := '';//username
Players[1].Pass := '';//Password
Players[1].Nick := '';//Nick..3 or 4 letters from your name
Players[1].String1 := '';//what to cut....longs or shorts
Players[1].String2 := '';//What type of log?
Players[1].Integer1 := 0;//how many logs to fletch
Players[1].Integer2 := 0;//EXP Per logs
Players[1].Active := True;//is this player active
Players[2].Name := '';//username
Players[2].Pass := '';//Password
Players[2].Nick := '';//Nick..3 or 4 letters from your name
Players[2].String1 := '';//what to cut....longs or shorts
Players[2].String2 := '';//What type of log?
Players[2].Integer1 := 0;//how many logs to fletch
Players[2].Integer2 := 0;//EXP Per logs
Players[2].Active := True;//is this player active
Players[3].Name := '';//username
Players[3].Pass := '';//Password
Players[3].Nick := '';//Nick..3 or 4 letters from your name
Players[3].String1 := '';//what to cut....longs or shorts
Players[3].String2 := '';//What type of log?
Players[3].Integer1 := 0;//how many logs to fletch
Players[3].Integer2 := 0;//EXP Per logs
Players[3].Active := True;//is this player active }
end;
Procedure BankOpener;
begin
OpenBankGlass('veb',False,False);
BT := BT + 1;
FixBank;
WithDraw(1,1,0);
Wait(150+Random(100));
CloseBank;
End;
Procedure Randoms;
Begin
FindMod;
FindDead;
FindName;
FindLamp('fletching');
SolveBox;
SolveDemon;
FindMaze;
End;
Procedure CutShorts;
Begin
UseItem(1);
Wait(150+Random(150));
UseItem(2);
Wait(1000+Random(150));
BX := 96;
BY := 468
Mouse(BX,BY,10,10,False);
ChooseOption(BX,BY,'X');
TypeSend('27');
Repeat
Wait(150+Random(150));
Randoms;
MMouse(710, 440, 3, 3);
until(IsUpTextMulti('long','short','(U)'))
LogsCut := LogsCut + 27;
EXP := EXP + players[CurrentPlayer].Integer2;
End;
Procedure CutLongs;
Begin
UseItem(1);
Wait(150+Random(150));
UseItem(2);
Wait(1000+Random(150));
DX := 240;
DY := 388
Mouse(DX,DY,10,10,False);
ChooseOption(DX,DY,'X');
Wait(1000)
TypeSend('27');
Repeat
Wait(150+Random(150));
Randoms;
MMouseItem(28);
until(IsUpTextMulti('long','short','(u)'))
LogsCut := LogsCut + 27;
EXP := EXP + players[CurrentPlayer].Integer2;
End;
Procedure WhatToCut;
Begin
Case lowercase(Players[CurrentPlayer].String1) of
'shorts' : CutShorts;
'longs' :CutLongs;
End;
End;
Procedure Report;
Var
Ver : String;
Begin
Ver := '1.0';
WriteLn('/--------------------------------------\');
WriteLn('| |');
WriteLn('| BUCKLEYINDAHOUSE''S FLETCHER |');
WriteLn('| REPORT '+Ver+' 2007 |');
WriteLn('|--------------------------------------|');
WriteLn('| Player :'+Players[CurrentPlayer].Name);
WriteLn('| Cutting:'+Players[CurrentPlayer].String1);
WriteLn('| Log Type :'+Players[CurrentPlayer].String2);
WriteLn('| Logs Cut :'+IntToStr(LogsCut));
WriteLn('| EXP Gained :'+inTtoStr(EXP));
WriteLn('|---------------------------------------|');
End;
Procedure Credits;
Begin
WriteLn('______ _ _');
Wait(750);
WriteLn('| ___ \ | | | |');
Wait(750);
WriteLn('| |_/ /_ _ ___| | _| | ___ _ _');
Wait(750);
WriteLn('| ___ \ | | |/ __| |/ / |/ _ \ | | |');
Wait(750);
WriteLn('| |_/ / |_| | (__| <| | __/ |_| |');
Wait(750);
WriteLn('\____/ \__,_|\___|_|\_\_|\___|\__, |');
Wait(750);
WriteLn(' __/ |');
Wait(750);
WriteLn(' Productions © |___/');
WriteLn(' Way better then UberBros ');
End;
Procedure DropOff;
Begin
OpenBankGlass('veb',False,False);
Mouse(633, 227, 3, 3, False);
ChooseOption(x, y, 'All')
End;
Begin
SetUpSRL;
DeclarePlayers;
Repeat
If(Not(LoggedIn)) Then
LoginPlayer;
Repeat
BankOpener;
WhatToCut;
DropOff;
Report;
If(Not(LoggedIn)) Then NextPlayer(False);
until(LogsCut = Players[CurrentPlayer].Integer1)
NextPlayer(False);
LogsCut := 0;
Until(False);
End.