Results 1 to 4 of 4

Thread: Refl. info debugger

  1. #1
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Refl. info debugger

    Now, Im planning to make a script with refl. I made debugger.. rsupdate atm..so I though I share this, may come handy and spare few minutes..

    Also I would like to know is there something similar to items like NPCs..? Im pretty sure it's possible..

    This one, updates, v2, is pretty more useful, you can easily create and print tile arrays with this..

    F9 to create a point & press F10 whenever you want to print it..

    SCAR Code:
    program Debug;

    {.Include SRL\SRL\Misc\Smart.Scar}
    {.Include SRL\SRL.Scar}
    {.Include SRL\SRL\Reflection\Reflection.Scar}

    var
      mx, my, dx, dy, I,
      Speed, Animation : integer;
      MMAngleDeg : extended;
      CharMoving : boolean;
      NPCs : array of TNPC;
      Path : Tpointarray;
      Output, Piece : String;
     
    const

      GeneratePathArray = True;
      //True to great tile array,
      //later F10 to print it..
      //If false then it works as refl. debugger

      PrintNPCs = False; //Only if above is False.
     
    begin
      SmartSetup('world106', True, True, False);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      SetupReflection;
      repeat
     
        Wait(200);
       
        If IsFkeydown(10) then
        begin
          for i:=0 to High(Path) do
          begin
            Piece := ' Point('+inttostr(path[i].x)+', '+inttostr(path[i].y)+'),';
            If I = High(Path) then Piece[length(Piece)] := ']';
            Output := Output + Piece;
          end;
          writeln('Tiles := ['+Output+';');
        end;
       
        if IsFkeyDown(9) then
        if  GeneratePathArray then
        begin
          Setlength(Path, Length(Path)+1);
          GetMyPos(mx, my);
          Path[High(Path)] := Point(mx, my);
          writeln('Path['+inttostr(high(path))+']= '+inttostr(path[i].x)+', '+inttostr(path[i].y));
        end else
        begin
          GetMyPos(mx, my);
          Speed := GetSpeed;
          MMAngleDeg := GetMinimapAngleDeg;
          CharMoving := CharacterMoving;
          Animation := GetAnimation;
          GetFlag(dx, dy);
          if PrintNPCS then NPCs := GetNPCs;
          writeln('GetMyPos = '+inttostr(mx)+', '+inttostr(my))
          writeln('GetSpeed = '+inttostr(speed))
          writeln('GetMinimapAngleDeg = '+floattostr(MMAngleDeg))
          writeln('CharacterMoving = '+booltostr(CharMoving))
          writeln('GetAnimation = '+inttostr(Animation))
          writeln('Dest = '+inttostr(dx)+', '+inttostr(dy))
          For i:= 0 to high(NPCs) do
          writeln(
         'Name='+NPCs[i].Name+
         ' X='+inttostr(NPCs[i].TileX)+
         ' Y='+inttostr(NPCs[i].Tiley)+
         ' Type='+inttostr(NPCs[i].NPCType)+
         ' Height='+inttostr(NPCs[i].Height)+
         ' Fight='+booltostr(NPCs[i].InFight)+
         ' Moving='+booltostr(NPCs[i].IsMoving)+
         ' Anim='+inttostr(NPCs[i].Animation));
         writeln('');
       end;
     until false;
    end.
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  2. #2
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    1 problem, it won't give correct values..they're always same, they were good before update..just when I finished this debugger...now there are 2 options..rs update messed something up..or I messed my script up, someone smarter have a look please.

    The last one is more likely..
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  3. #3
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  4. #4
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, pretty logical, Kyab had same issue -.-, thanks man..
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Color Debugger by Cazax
    By Cazax in forum Research & Development Lounge
    Replies: 6
    Last Post: 03-05-2009, 09:48 PM
  2. Around The Web Info
    By TViYH in forum General
    Replies: 0
    Last Post: 02-23-2008, 10:24 PM
  3. My AutoLogin with Debugger
    By Nikize in forum First Scripts
    Replies: 16
    Last Post: 10-26-2007, 04:07 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •