SRL Archive - Help and Support

ok haha joke funny funny but seriously I need some help…on randoms I'm kinda lost.. and I need my xp progress report to work.. heres my randoms i need as many of them as i can to work and only some of them do…

procedure randoms;
begin
  ClickToContinue;
  CloseWindow;
  FindLamp('mining');
  FindDead;
  FindMime;
  FindNormalRandoms;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindDemon;
  FindPick;
  FindMod;
if(FindFight)then
  begin
    RunAwayDirection('N');
    Wait(9000+random(2000));
    RunBack;
    Randoms := Randoms + 1;
    end;
    if(FindNewBox)then
    begin
      Logout;
      Randoms := Randoms + 1;
      end;
      if(FindFrog)then
      begin
        Logout;
        Randoms := Randoms + 1;
          if(FindDemon)then
      begin
  SolveDemon;
  Randoms := Randoms + 1;
  end;
  if(FindMod)then
  begin
   Logout;
   Wait(10000);
   LoginPlayer;
   Randoms := Randoms + 1;
   end;
    end;
end;

then heres my progress report everything works expect the xp one it only reports 0

  Writeln('[]-------------Progress-Report---------------[]');
  Writeln('Worked For : ' + ScriptTime2(2))
  Writeln('Mined/Dropped : '+ IntToStr(Loadz) + ' Loads');
  Writeln('Gained '+IntToStr(Dropp*27*17) + 'xp');
  Writeln('Randoms Found/Solved : '+ IntToStr(Randoms));
  Writeln('[]-------------------------------------------[]');

well then, are you adding dropp cariable right?

I think I fixed It haha thanks I will post back If I didn't…Any suggestions on the random thing?