Results 1 to 4 of 4

Thread: Type mismatches, un-findable!

  1. #1
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default Type mismatches, un-findable!

    *PLEASE NOTE I TRIED TO EDIT THE TOHER THREAD OF MINE*

    Well... This is to find colors in counterstrike, but I keep getting a type missmatch I can't figure out.

    SCAR Code:
    program CSSAimbot;
    {.Include SRL/SRL.scar}

    Var Targ, ShootY, HoldM, ShootT: String;
    Var Targ1, ShootY1, HoldM1: Boolean;
    Var ShootT1: Integer;

    Procedure Shoot(HoldMouse: Boolean; Time:Integer);
     begin;
      If HoldMouse Then
       begin;
        HoldMouse(x, y, True);
        Wait(Time);
        ReleaseMouse(x, y, True);
       end;
      If not HoldMouse;
       Mouse(x, y, True);
     end;

    Function FindTarget(CT, Shoot, HoldMouse: Boolean; ShootTime:Integer): Boolean;
     begin;
      Case CT of
         True: FindColorTolerance(x, y, 248, 3, 29, 1026, 770, 5);
         False: FindColorTolerance(x, y, 16252928, 3, 29, 1026, 770, 5);
        end;
       MoveMouse(x+10, y+10);
       Wait(1);
       If Shoot Then
        begin;
         If HoldMouse Then
          Shoot(True, 3);
         If not HoldMouse Then
          Shoot(False, 3);
        end;
     end;

    begin
     Targ:= ReadLn('Is Target CT? T/F');
     Targ1:= StrToBool(Targ);
     ShootY:= ReadLn('Shoot once found target? T/F');
     ShootY1:= StrToBool(ShootY);
     HoldM:= ReadLn('Hold mouse down if shooting? T/F');
     HoldM1:= StrToBool(HoldM);
     ShootT:= ReadLn('How long to hold down mouse in seconds? INT');
     ShootT1:= StrToInt(ShootT);
     repeat;
      While (IsNumpadKeyDown(5)) Do
       begin;
        FindTarget(Targ1, ShootY1, HoldM1, ShootT1);
       end;
     until(IsNumPadKeyDown(0));
    end.
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    HoldMouse(x, y, True);
        Wait(Time);
        ReleaseMouse(x, y, True);

    Not too sure, but x and y aren't any defined points...so it doesn't know where to hold the mouse.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can't use HoldMouse as a boolean; its already a procedure. Try, like, HoldDown as a boolean or somthing.

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Infintry001 View Post
    Can't use HoldMouse as a boolean; its already a procedure. Try, like, HoldDown as a boolean or somthing.
    Correct.
    You might want to use IsMouseButtonDown to check if you hold your mouse.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. type mismatch
    By drizzt in forum OSR Help
    Replies: 2
    Last Post: 02-16-2008, 03:19 PM
  2. type mismatch
    By Maxcore in forum OSR Help
    Replies: 12
    Last Post: 11-10-2007, 12:54 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
  •