SRL Archive - News and General

Starting from the basics [Step 2]


RudeBoiAlex

2007-09-06 12:04:42

I already posted this in the srl members section but i think ill get more help here.

Step 1
Well as you know my scripting is terrible and isnt advancing rapidly!

I would like someone to point out some tutorials from the basics includeing everythink such as

- radialwalk
- bitmaps/Dtms
- A easy DDtm tut ( i dont get fakawi )

and everythink else please i will read each one other and other again there not all the tuts i need ( explaining most srl things ).

Then after i will make myself a kickass script then you can see if i learnt alot!


Step 2
My Progress chart
I will need people to mark my procedures crtisize whatever please!

Whats Been Learnt Again:
Bitmaps


What Ive Learnt Procedures

Bitmaps

program BitmapsFtw;
{.include SRL/SRL.scar}

Var
Chicken, x , y: Integer;


Procedure LoadBmps;
Begin
Chicken := BitmapFromString2(False, 'a72E5B78DAAD8EC111C0' +
'2008045B0204824F35DA7F49E178240D84C70EB3DC0044C4CC94B' +
'54EC27C80938AFB3377313CE9A4495EC8C8404602C60CCA4E6504' +
'53EF0DDC019EFE9A8B71C0A7A1D7DA50F9A6F84466FDD3E07FAC0' +
'7AF5');
End;


Procedure ClickChicken;
Begin
if(FindBitmap(Chicken, x, y)) then
begin
WriteLn('Found Chicken');
Mouse(x, y, 1, 1, true);
end else
WriteLn('Chicken not found.');
end.


begin
SetupSRL;
ClickChicken;
Writeln('Whocares Is The Sex!')
end.



Currently Learning:
- Dtms Again

What Im Gonna Do:
- Gonna Make A DTM procedure Like The Bitmap 1