SRL Archive - Outdated / Broken

Hey guys, I made my old Alcher compatible with SRL.
I changed nearly everything, and I used some of the newest SRL Procedures.
Thanks to odie3ooo for his randoms, as I was too lazy to write them my own :p
Here it is guys, have fun, constructive criticism and errors should be posted here.
~Thanks

program DUBAlcher;
//////////////////////////////////////////////////
//             Production By Dub                //
//       First Real SRL Compatible Script       //
//     Hope you like it, I'm not responsible    //
//          For anything that happens           //
//  STRONGLY RECCOMENDED FOR USE IN BURTHORPE   //
//                  GAMES ROOM                  //
//////////////////////////////////////////////////

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}

const
AmountOfAlchs=10; // Put the amount of items you want to alch here
SpellbookColor=1881790;
Lampcolor=('fishing');

var HighAlch:integer;

Procedure RenameScar;
begin
DisguiseScar(Maskname);
end;
// Randoms thanks to stupid3ooo
procedure FindRandoms;
begin
  CloseWindow;
  FindLamp(Lampcolor);
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;

  FindDemon;

  if Findname Then FindTalk;
end;

procedure OpenSpellScreen;
begin
wait(1000);
findcolor(x,y,Spellbookcolor,1,1,736,188)
mouse(736,188,1,1,true)
wait(750+random(250))
end;

procedure ClickAlch;
begin
wait(500+random(250));
mouse(636,326,1,1,true);
wait(400)
end;

procedure ClickItems;
begin
mouse(585,230,2,2,true)
wait(1000)
end;

procedure ProgressReport;
begin
writeln('');
writeln('<------------------------------>');
writeln('Burthorpe Games Room High Alcher');
writeln('   Made By DUB aka Masterdup');
writeln('      Hope you enjoyed!');
writeln('        Alched '+inttostr(Highalch)+' times');
writeln('<------------------------------>');
writeln('');
end;

begin
renamescar;
openspellscreen;
Highalch:=0
repeat
ClickAlch;
ClickItems;
HighAlch:=Highalch+1
ProgressReport;
until(Highalch=AmountOfAlchs)
end.

:eek: my eyes… lol, it looks like you need to learn the standards…

anyway, good first script!

lol uber.. so do you :p ive seen your script uber.. i wouldnt be talking ;)

good job for your first srl script

it hurts now that i've looked at the standards. standards are way better and more organized.

my first real working script was embarrassing:o

Why's it recomended for burthrope's games room?

Well, don't you know, that Burthorpe Games Room = RANDOMLESS ^^ :D
There aren't any randoms, so if you want to be 100% sure to not die, put him in there ^^ ;)
because I just can't promise that randoms won't get you outside, in the mean mean world ;) :D
Also, thanks for the comments guys, this is already better than 41 views, no replies ( Guess 3x where I had that >.< )
~Thanks

From: Dub
Well, don't you know, that Burthorpe Games Room = RANDOMLESS ^^ :D
There aren't any randoms, so if you want to be 100% sure to not die, put him in there ^^ ;)
because I just can't promise that randoms won't get you outside, in the mean mean world ;) :D
Also, thanks for the comments guys, this is already better than 41 views, no replies ( Guess 3x where I had that >.< )
~Thanks

:eek: :eek: :eek: :eek:

i never knew that

why do dyou need spell book colour?

use gametab(6); :p that loads up the spell page (i think its 6)

Remember to put SetUpSRL; and SetUpSRLMagic; in your main loop ;)

This will fo shizzle the dizzle get you banned :O!

I know :p its like 6 months old? dont use pplz ;p

i've seen Dub do better :p

This was my very first script ^^

Is this the dub from Fagex? If it is, he can do better :P

But all in all, it's kinda a nice script.

P.S: It's game tab 7 :P


-Ashur

Ashur I don't think they are wondering anymore…Look at the date of the posts.

From: bobarkinator
Ashur I don't think they are wondering anymore…Look at the date of the posts.

LOL!!! Sorry, my mistake. :( LOL, i knew he could do better then that :P
He did verify my script :P

Lol sorry :/

-Ashur