Results 1 to 4 of 4

Thread: unable to call proc runtime error??? help

  1. #1
    Join Date
    Mar 2010
    Location
    New Hampshire, U.S.A
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default unable to call proc runtime error??? help

    this code gives me an error that i also get from yohojos pms, when other people didnt get the error from the exact same peice of code, if this is the same ill switch os in virtual box to windows 7 or something


    SCAR Code:
    const
      alertonguess = true;
      mx     = 15;
      my     = 104;
      sizex  = 16;
      sizey  = 16;
      sx     = 16;
      sy     = 16;
      waitmultiplier = 0.1;

      var c:array[1..8] of integer;
    procedure initvars;
    begin
      c := [16711680,32768,255,8388608,128,8421376,0,8421504];
    end;

    function statsurround(xloc,yloc:integer;click:boolean):array of array of integer;
    var x,y,xi,yi,startnumx,startnumy:integer;rarray:array of array of integer;
    begin                                            //values:
      x:= xloc*sx+mx                                 //-1 = clicked but blank
      y:= yloc*sy+my                                 //0  = unclicked
                                                     //1-8 = the corresponding
                                                     //      number of mines
      if xloc = 1 then startnumx := 0 else startnumx := -1;
      if yloc = 1 then startnumy := 0 else startnumy := -1;
      rarray[xi+1][yi+1] := -2 //if no values in case match then this val wont change
      for xi:= startnumx to 1 do     //which means, no color match
        for yi:= startnumy to 1 do
        if(xi=yi)and(yi=1)then break; //skip checking the center box
        begin
          case getcolor(x+xi*16,y+yi*16) of       //get color of topleft pixel in each box
            clWhite  : rarray[xi+1][yi+1] := 0;
            12632256 : rarray[xi+1][yi+1] := -1;
            c[1] : rarray[xi+1][yi+1] := 1;
            c[2] : rarray[xi+1][yi+1] := 2;
            c[3] : rarray[xi+1][yi+1] := 3;
            c[4] : rarray[xi+1][yi+1] := 4;
            c[5] : rarray[xi+1][yi+1] := 5;
            c[6] : rarray[xi+1][yi+1] := 6;
            c[7] : rarray[xi+1][yi+1] := 7;
            c[8] : rarray[xi+1][yi+1] := 8;
          end;
        end;
    end;

    begin
    initvars;
    end.
    ends with this error:
    SCAR Code:
    Line 17: [Hint] (17:10): Variable 'Result' never used in script C:\Documents and Settings\Josh\Desktop\Scar-Pre\Scripts\MineSkipper.scar
    [Runtime Error] : Could not call proc in line 14 in script C:\Documents and Settings\Josh\Desktop\Scar-Pre\Scripts\MineSkipper.scar
    why?
    Sell botted goods at mid to high prices!!! Else we lose our profit AND ruin the game!!!!

  2. #2
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    PHP Code:
    const
      
    AlertOnGuess true;
      
    mx     15;
      
    my     104;
      
    SizeX  16;
      
    SizeY  16;
      
    sx     16;
      
    sy     16;
      
    WaitMultiplier 0.1;

    var
      
    c: array of Integer;

    procedure StatSurround(XLocYLocIntegerClickBoolean);
    var
      
    xyxiyiStartNumXStartNumYInteger;
      
    RArray: array of array of Integer;
    begin                                            //values:
      
    := XLoc sx mx;                                 //-1 = clicked but blank
      
    := YLoc sy my;                                 //0  = unclicked
                                                     //1-8 = the corresponding
                                                     //      number of mines
      
    if(XLoc 1)then
        StartNumX 
    := 0
      
    else
        
    StartNumY := -1;
      if(
    YLoc 1)then
        StartNumY 
    := 0
      
    else
        
    StartNumY := -1;
      
    RArray[xi 1][yi 1] := -//if no values in case match then this val wont change
      
    for xi := StartNumX to 1 do     //which means, no color match
        
    for yi := StartNumY to 1 do
          if(
    xi yi)and(yi 1)then
            
    Break; //skip checking the center box
        
    begin
        
    case(GetColor(xi 16yi 16))of       //get color of topleft pixel in each box
          
    clWhiteRArray[xi 1][yi 1] := 0;
          
    12632256RArray[xi 1][yi 1] := -1;
          
    c[0]: RArray[xi 1][yi 1] := 1;
          
    c[1]: RArray[xi 1][yi 1] := 2;
          
    c[2]: RArray[xi 1][yi 1] := 3;
          
    c[3]: RArray[xi 1][yi 1] := 4;
          
    c[4]: RArray[xi 1][yi 1] := 5;
          
    c[5]: RArray[xi 1][yi 1] := 6;
          
    c[6]: RArray[xi 1][yi 1] := 7;
          
    c[7]: RArray[xi 1][yi 1] := 8;
        
    end;
      
    end;
    end;

    begin
      SetArrayLength
    (c7);
      
    := [16711680327682558388608128842137608421504];
    end
    Last edited by i luffs yeww; 04-18-2010 at 03:53 AM.

  3. #3
    Join Date
    Mar 2010
    Location
    New Hampshire, U.S.A
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    are the xloc/yloc if statements the only diference?
    Sell botted goods at mid to high prices!!! Else we lose our profit AND ruin the game!!!!

  4. #4
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    SetArrayLength(c, 7);

Thread Information

Users Browsing this Thread

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

Posting Permissions

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