SRL Archive - OSR Help

procedure LightFires;
begin
if (InventoryFull) then
repeat
MouseItem(1,true)
MouseItem(3,true)
LightWait;
until(false);
end;

is my code..

is there and easier way then going MouseItem 1-28 copy and pasting all those, or can i just do something simpler?

if someone can help me please post and explain so i can learn, i dont like leeching :)

function CoordsToInvSpot(gx,gy:integer):integer;
var col,row:integer;
begin
  if ((gx>569) and(gx<600)) then col:=1;
  if ((gx>611) and(gx<642)) then col:=2;
  if ((gx>653) and(gx<684)) then col:=3;
  if ((gx>695) and(gx<723)) then col:=4;

  if ((gy>213) and(gy<244)) then row:=1;
  if ((gy>249) and(gy<280)) then row:=2;
  if ((gy>285) and(gy<316)) then row:=3;
  if ((gy>322) and(gy<352)) then row:=4;
  if ((gy>357) and(gy<387)) then row:=5;
  if ((gy>393) and(gy<424)) then row:=6;
  if ((gy>429) and(gy<459)) then row:=7;
  
  result:=((row-1)*4)+col;
end;

procedure pauser;
begin
  if isfkeydown(12) then
  begin
    repeat
      wait(30);
    until isfkeydown(11);
  end;
end;

procedure Enchant;
var ex,ey,i:integer;
begin
  repeat
    pauser;
    i:=i+1;
    useitem(1);
    wait(200+random(100));
    pauser;
    finddtm(dtmuncutgem,ex,ey,554, 205, 743, 465);
    useitem(coordstoinvspot(ex,ey+10));
    wait(500+random(100));
    pauser;
  until countitemdtm(dtmuncutgem)=0;
end;

From my gemcutter, (which you can see was modified from my enchanter :p)

Use all black (65536) points for the DTM of the logs, and make the parent dot be near the top.

i was using the Log mask from the DTM in the Firemaking skill.scar script i'll just have to make my own now :p thanks boreas

Np. DTMs>Bmps

From: Boreas
Np. DTMs<Bmps

:)

I know you and Fawki and most of the other devs love bmps, but you gotta admit, for inventory, DTMs are better. There's no reason to store so much information about something that is 2D, and always has the same outline.