Ok a few problems. You MUST have HighestAngle; in at the start.
Done. It didnt raise the angle, and when the red guide walked behind the wall. the program sorta froze up a bunch. Then the guide walked all the way to left side and my character talked to him there. when it was time to find the door, it couldnt be found, froze for a bit, thought it found the door, and started looking for the survival guide. Having HighestAngle is essential for having the most viewing area. if you need it back down just use LowestAngle; LA isnt in srl, but just take HA, and edit it to use the down arrow. Heres my version of it. Just add it to the bottom of login.scar
Code:
{*******************************************************************************
procedure LowestAngle;
By: IronTeapot, Based on Starblaster100's HighestAngle
Description: Makes the Screen at the lowest angle it can be
*******************************************************************************}
procedure LowestAngle;
begin
if (Loggedin) then
begin
keydown(40);
sleep(1000 + random(100) + random(200));
keyup(40);
wait(1000 + random(100));
end;
end;
Also instead of using
Code:
ClickToContinue;
Sleep(500);
ClickToContinue;
all those times, you can just use TalkToRand;
Ok, I did do that, but when I did, I figured it stops when it finds blue thext in the chat area. This was bad. It stopped when there was a blue title and the npc had more to say. I might try fixing that later. The main loop is also quite messy. Instead, try having it do each thing in a procedure. (each guide+ related actions, Walking to a guide, doing different things for the guide) then you just call to them in your main loop.
Done.
begin
findguide;
talktoguide;
findandexitdoor;
gotosurvival;
talktosurvival;
cutlogs;
burnlogs;
catchfish;
etc...
Done.
this way you can have it repeat in the procedure if it fails to light a fire, or burns a fish.
EX:
cutlog
burnlogs
if not(burnlogs)then (move somewhere and (burnlogs))
Will do.
you can also call your cut log and burn log procedures again when you have to cook the fish ((and call it once again as well as the catchfish procedure) if you burn the shrimp)
Done.
You can shorten your finddtm lines with the following from dtm.scar
function FindInvDtm(var x, y: Integer; DTM: Integer): Boolean;
By: Dankness
Description:
Finds Inventory DTM.
Done.
Lastly instead of using all the sleeps when your walking, just use MouseFlag(x,y,#,#) instead of just mouse. This way it will wait until the flag is gone, without having all the extra Wait lines.
Done.
But yeah. once you shorten up alot of the current version, mainly the clicktocontinues into talk to rand. it will be alot better. and eaiser on the eyes.