Results 1 to 12 of 12

Thread: will this work

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default will this work

    SCAR Code:
    If Not (FindFight) Then Writeln (' Killed Guard =]')
          Guards : Guards + 1;
          Until Guards = Killz;
          End;
        End;
      End;
    End;

    i have ends becasue there is some procedure above it.
    i have killz in the const

  2. #2
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It depends on how good your FindFight function is..

  3. #3
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    erm no.

    function findfight is looking for your charaters hp. if your hp is less like 40/40 (when it become's 40/39-) the result will be true

    so rude, what your procedure is saying: if i'm die'ing then i killed the guard! so that won't work

  4. #4
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh kool lol ok then thanks il work on thhat later

    EDIT: here is the whole porcedure i have fakawi credits

    SCAR Code:
    Procedure FightTheGuards;
    var CBx,CBy : Integer;
    Begin
      for Numbers := 1 to 10 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, GuardColors[Numbers], MSX1, MSY1, MSX2, MSY2, 15) then
          begin
          Mouse(CBx, CBy, 0, 0, True);
          Wait(17000 + Random ( 2000 ));
          If Not (FindFight) Then Writeln (' Killed Guard =]')
          Guards := Guards + 1;
          Until Guards = Killz;
          End;
        End;
      End;
    End;

  5. #5
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rudeboialex View Post
    ahh kool lol ok then thanks il work on thhat later

    EDIT: here is the whole porcedure i have fakawi credits
    Something like this?
    SCAR Code:
    Procedure FightTheGuards;
    var CBx,CBy : Integer;
    Begin
      for Numbers := 1 to 10 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, GuardColors[Numbers], MSX1, MSY1, MSX2, MSY2, 15) then
          begin
            While not Guards = killz do
            begin;
              Mouse(CBx, CBy, 0, 0, True);
              Wait(17000 + Random ( 2000 ));
              If Not (FindFight) Then Writeln (' Killed Guard =]')
              Guards := Guards + 1;
            end;
          End;
        End;
      End;
    End;
    Verrekte Koekwous

  6. #6
    Join Date
    Jun 2007
    Location
    I'm not sure...
    Posts
    581
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    But what if you killed the guard without losing health at all... That wouldn't work then.
    ---------------------------------------------------------


    Pm me if you need any math functions made. Me = l0ving t3h mathz

    ---------------------------------------------------------

  7. #7
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I believe there is something like
    OutFight;
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

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

    Default

    waiting is booring lol, try this

    Quote Originally Posted by rudeboialex View Post
    ahh kool lol ok then thanks il work on thhat later

    EDIT: here is the whole porcedure i have fakawi credits

    SCAR Code:
    Procedure FightTheGuards;
    var CBx,CBy : Integer;
    Begin
      for Numbers := 1 to 10 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, GuardColors[Numbers], MSX1, MSY1, MSX2, MSY2, 15) then
          begin
            Mouse(CBx, CBy, 0, 0, True);
                repeat
              Wait(100);
              until(not(findfight));
            Writeln (' Killed Guard =]')
              Guards := Guards + 1;
            Until Guards = Killz;
          End;
        End;
      End;
    End;
    Should be faster
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  9. #9
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by negaal View Post
    waiting is booring lol, try this

    ...

    Should be faster
    You dont know what that wait is for, that wait is waiting untill the CPU is dead.

  10. #10
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    meh negaal is still teh sex im gonna try it

  11. #11
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rudeboialex View Post
    meh negaal is still teh sex im gonna try it
    then at least make something simular to the OutFight; function, it checks the colors of being attacked.
    Make something that checks that + checks if you're under attack by checking ig you get damaged (GetHpAmount or percent, use your imagination ).
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  12. #12
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Look for your HP Bar and the Attack Blobs and determine if they are on you etc... be creative
    The truth finally came out...


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. how come this does not work?
    By takeout in forum OSR Help
    Replies: 3
    Last Post: 09-14-2007, 03:44 PM
  2. how come this does not work?
    By takeout in forum OSR Help
    Replies: 2
    Last Post: 09-11-2007, 09:19 PM
  3. Been Trying To Get This To Work : /
    By Speci in forum OSR Help
    Replies: 15
    Last Post: 07-21-2007, 12:17 PM
  4. how does rc work
    By del_signo in forum OSR Help
    Replies: 4
    Last Post: 05-10-2007, 02:47 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
  •