Results 1 to 7 of 7

Thread: ISO Help to Translate this to Scar Script

  1. #1
    Join Date
    Mar 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    ISO Help to Translate this to Scar Script

    Could anyone translate this into something scar would recognise? im unsure what its even written in Thanks for the help guys
    ~Brandon

    ; Script Start - Add your code below here

    Sleep(5000)
    WinActivate("Guild Wars")
    Call("main")

    func main()
    Call("infuseposition")
    Call("dead???")
    EndFunc



    func dead???()
    If PixelGetColor(299, 698) = 4792088 Then
    Call("dead!!!")
    EndIf
    EndFunc



    func dead!!!()
    Send("{ENTER}")
    sleep(200)
    Send("<----rezzing fast")
    sleep(200)
    Send("{ENTER}")
    call("main")
    EndFunc


    func infuse()
    send("4")
    If PixelGetColor(568, 699) = 5670578 Then
    Call("energy")
    endif
    EndFunc


    func energy()
    send("f")
    sleep(100)
    send("2") <--to self heal after that infuse (for ask)
    call("main")
    endfunc






    func infuseposition()
    If PixelGetColor(439, 24) = 3741459 Then
    Call("infuse")
    EndIf
    EndFunc

  2. #2
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    This is the best I can do without knowing what it was made in, I'm just trusting my skills so I'm not 100% sure it'll work in the same way.

    SCAR Code:
    program GuildWars;

    procedure Main; forward;

    procedure DeadE;
    begin
      SendKeys(Chr(13));
      Wait(200);
      SendKeys('<----rezzing fast');
      Wait(200);
      SendKeys(Chr(13));
      Main;
    end;

    procedure DeadQ;
    begin
      if (GetColor(299, 698) = 4792088) then
        DeadE;
    end;

    procedure Energy;
    begin
      SendKeys('f');
      Wait(100);
      SendKeys('2'); //<-- to self heal after that infuse (for ask)
      Main;
    end;

    procedure Infuse;
    begin
      SendKeys('4');
      if (GetColor(568, 699) = 5670578) then
        Energy;
    end;

    procedure InfusePosition;
    begin
      if (GetColor(439, 24) = 3741459) then
        InFuse;
    end;

    procedure Main;
    begin
      InfusePosition;
      DeadQ;
    end;

    begin
      Wait(5000);
      if FindWindow('Guild Wars') then
      begin
        ActivateClient;
        Main;
      end;
    end.

  3. #3
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just wonderin freddy, whats the Forward keyword all about?

  4. #4
    Join Date
    Mar 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you Freddy yeah the original author didnt specify what it was written in

  5. #5
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    what it for btw?

  6. #6
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by ~alex~ View Post
    Just wonderin freddy, whats the Forward keyword all about?
    It forwards a function so functions below the forward, but above the actual function can also use it...

  7. #7
    Join Date
    Mar 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hugolord View Post
    what it for btw?
    Tbo i cant recall lol. what ever it was didn't work
    not many scripts floating around for Conquer Online
    oh what was it for? a game Called Conquer Online

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First Scar Script!
    By Vivoxity in forum First Scripts
    Replies: 16
    Last Post: 06-04-2008, 11:21 PM
  2. Replies: 2
    Last Post: 03-02-2008, 09:26 AM

Posting Permissions

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