Results 1 to 8 of 8

Thread: what does that mean?

  1. #1
    Join Date
    Aug 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default what does that mean?

    "Include file C:\Program Files\SCAR 3.11\includes\Si.scar does not exist.
    Failed when compiling"

    here is the script

    SCAR Code:
    program UltimateFisher;
    {.include Si.scar}
    var
    FishText,BankText,Movement:string;
    x,y,trips,NetFindCounter,
    LostNetcount,WhirlpoolCount,
    xx,yy,Fishcolor1,Fishcolor2,myattk,
    FishTimeOut,lobtimeout,sharktimeout,
    Harpoon,EquipColor,whirlpool,TunatimeOut,
    whirlpool2,cage,Bitmap:integer;
    ST:longint;
    Castout,Lostnet,click,RightMove,LeftMove:boolean;
    //For me....5360864 banksym tol 50
    //15750425 fishsym tol 40

    Const
    userSet=1;//in Si
    FishMode=3;// 1 for karjma fishing 2 for guild fishing 3 for catherby fishing
    LeftClick=True;//right or left click lob spots (true or false)
    KarajamaFishType='Lobster';//fish lobsters or tuna on karajama
    CatherbyFishType='Lobster';//lobster, shark, or tuna
    GuildFishType='Lobster';//shark or lobster or tuna
    LampSkill='fishing';//skill for lamp to pick lower case

    {Needed for any fishing}
    UtensilColor=939386;//color of your fishing untensil while your fishing

    {Only need for Lob fishing on karajama}

    DirtRoad=939386;//dirt road on karjma (sorry almost no colors)
    PotColor=1331103;//General Store pot symbol
    StoreGuy=3037054;//shirt color like on shoulders
    Trees=1396779;//banana tree lightest color ON MINI-MAP

    {Only needed for guild fishing}

    Dock=4136;//the brown dock color ON MINI-MAP
    GuildBankFloor=2243678;//the brown color of the guild bank
    Grass=1863022;//gree grass color ON MINI-MAP

    {Only need for catherby fishing}

    Road=5592411;//Road through catherby
    BankPeople=60909;//yellow bank people on MINI-MAP

    {End of colors}

    Procedure Report(doing:string); //modified from Phalanx's script
    var
      RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
      Time:String;
    begin
      Seconds:=(GetSystemTime-ST) div 1000;
      Minutes:=Seconds div 60;
      RHours:=Minutes div 60;
      Time:=inttostr(Seconds)+' Seconds';
      if(Trips>0)then
        avtime:=Seconds/TRips;
      if Minutes<>0 then
        begin
        RSeconds:=Seconds Mod (Minutes*60);
        Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
        end;
      if RHours<>0 then
        begin
        RMinutes:=Minutes Mod (RHours*60);
        RSeconds:=Seconds Mod (Minutes*60);
        Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
        end;
    Writeln('Ultimate Fisher by Renagade');
    writeln('***********************');
    writeln('Currently: '+doing);
    Writeln('Worked for '+Time);
    if(Trips>0)then Writeln('Finished: '+inttostr(trips)+' trips')
    Writeln('Fished: '+inttostr(trips*27)+' Fishies');
    if(avtime>0)then
    Writeln('Averaging: '+inttostr(3600/avtime*27)+' fish an hour');
    if(whirlpoolcount>0)then Writeln('WhirlPools Avoided: '+inttostr(WhirlPoolCount))
    if(gSiRandoms[0]>0)then Writeln('Attacks: '+inttostr(GSirandoms[0]))
    if(gSiRandoms[1]>0)then writeln('Talked: '+inttostr(GSirandoms[1]));
    if(gSiRandoms[4]>0)then Writeln('Loged in/out: '+inttostr(GSirandoms[4])+' times')
    if(gSiRandoms[3]>0)then Writeln('Solved: '+inttostr(GSirandoms[3])+' Boxes')
    if(gSiRandoms[2]>0)then Writeln('Dealt with: '+inttostr(GSirandoms[2])+' Lamps')
    if(gSiRandoms[6]>0)then Writeln('Picked: '+inttostr(GSirandoms[6])+' Strange plant''s')
    writeln('***********************');
    end;

    Procedure RunFarAway;//good
     var ax,ay:integer;
     begin
    myattk:=myattk+1
    if(fishmode=1)then
    begin
      mouse(648,149,3,3,true)
      flag;
       Wait(4000+random(6000))
     if(FindColorTolerance(ax,ay,15750425,572,8,722,160,40))then
    begin
     Mouse(ax,ay+15,1,1,True)
     wait(1000)
     flag;
     wait(766+random(132))
      end;
     If(FishMode=2)then
     begin
     if(findcolorspiral2(x,y,Grass,591,93,619,121))then
     begin
     Mouse(x,y,1,1,true)
     flag;
     Wait(5000)
      if(FindColorTolerance(x,y,15750425,661,34,711,80,40))then
    begin
     Mouse(x,y,1,1,True)
     end;
     if(fishmode=3)then
     begin
     Run('N',False)
     end;
    end;
    end;
    end;
    end;

    procedure randoms;//good
    Begin
    if(beingAttacked)then
    begin
    RunFarAway;
    end;
    if(fishmode=1)then
    CheckRandoms(userset,LampSkill,'S',True,True,srtall)
    If(fishmode=2)then
    CheckRandoms(userset,LampSkill,'N',False,True,srtall)
    If(fishmode=3)then
    CheckRandoms(userset,LampSkill,'E',False,True,srtall)
    end;

    Procedure NetFinder;//good
    var ax,ay:integer;
    begin
    if(findcolorspiraltolerance(x,y,equipcolor,5,144,360,515,5))then
     begin
      MMouse(ax,ay,0,0)
     If(isuptext('Take'))then
    begin
    Mouse(ax,ay,0,0,true)
    flag;
    Wait(643+random(644))
    LostNet:=False
    NetFindCounter:=NetFindCounter+1
    end else
    LostNet:=True
    LostNetCount:=LostnetCount+1
    end;
    end;

    funCtion AntiWhirlPool:boolean;
    var acc:extended;
    begin
    WhirlPool := BitmapFromString(9, 8,
           '9DA7B5C3BFC1C6C3C6C5C9D0A7B1BE697E9B9B9CA69B9CA6B4B0B4' +
           '697E9BC9C7CAC2C7CEACB6C2697E9B9EA0ABC6C3C6A8ACB5A8ACB5' +
           '697E9BD2D2D5B7BBC5B0B9C6A2A5B0A2A5B0A2A5B08B95A58C96A5' +
           '697E9BC9CACFCCCED3A2ADBAB3B2B8949EAE939FADC6CAD199A3B2' +
           '697E9B697E9B697E9B697E9BA4A7B2A4A7B2697E9B697E9B697E9B' +
           'B4B7BFABAFB6969AA3A09CA29AA5B3AFB4BF9EA0AB9EA0AB697E9B' +
           'D3CECDCCC6C6B8B2B3C6C8CC98A3B1A4A7B2A5A9B3A0A2ADB0ABAE' +
           'BBC1CCDADADEBBC2CD697E9B9BA6B398A2B19A9BA69A9BA6ADA8AB' +
           '');
    WhirlPool2 := BitmapFromString(11, 4,
           'AAB6C3C5C8CCC5C8CCC5C8CCC1C5C9BCBFC5C1C4C2D6D6CAD6D6CA' +
           'D6D6CAD7D7CBCCCED3BEC1C6BABFC2BFC3C6BBC1C5AFB4B6E1E0E1' +
           'CFD0D3BEC1B7D0CFC2D0CFC2C9CCCEC9CCCED0D0D2D2D1D3BBBFC3' +
           'D8D9DBCFD3D6BDC4CBC0C3B8C7CAC9C0C3B9B4B8BBA3A9ADE4E0E0' +
           'DBD8DACBCCD0BFC4CCA5AFBDA5AFBDA6A9B4CACBC7C2C5BA');
    if(FindDeformedBitmapToleranceIn(WhirlPool,x,y,218,130,320,217,15,0,True,acc))or
    (FindDeformedBitmapToleranceIn(WhirlPool2,x,y,218,130,320,217,15,0,True,acc))then
    Result:=True
    FreeBitmap(whirlpool)
    FreeBitmap(whirlpool2)
    end;


    {======================Karajama specfic stuff=================}

    procedure StoreToFish;
    begin
    If(FindColoredAreaTolerance(xx,yy,Dirtroad,693,56,720,90,21,2))then
    begin
    Mouse(xx,yy,0,0,True)
    flag;
    findcolor(xx,yy,trees,687,12,722,51)
    Mouse(xx,yy,0,0,True)
    wait(6000)
    Flag;
    findcolorspiraltolerance(xx,yy,15750425,559,5,731,157,40)
    Mouse(xx,yy+15,0,0,True)
    flag;
    end else
    If(not(FindColoredAreaTolerance(xx,yy,Dirtroad,693,56,720,90,21,2)))then
    begin
    logout;
    Writeln('You got Lost')
    terminatescript;
    end;
    end;

    procedure SellFishies;
    var trade:Integer;
    begin
    Trade := BitmapFromString(36, 5, 'z78DA333000013724608001DC' +
           '70004A54D2C77C524D23DE045275916A0E79AE22469698F0A4DC9' +
           'D03E52F7ABA9F16E97030F8CB80080000A849F54D');
    xx:=244;
    yy:=313;
    repeat
    FindColoredAreaTolerance(xx,yy,storeguy,0,0,390,335,2,3)
    MMouse(xx,yy,0,0)
    If(istextat2(9,9,'Talk',75))then
    Mouse(xx,yy,0,0,false)
    wait(200)
    until(FindBitmapMaskTolerance(trade,xx,yy,0,0,513,337,20,20))
    FindBitmapMaskTolerance(trade,xx,yy,0,0,513,337,20,20)
    Mouse(xx,yy,0,0,true)
    repeat
    SLeep(100);
    until(getcolor(216,41)=2070783)
    wait(1000)
    SellColor(Fishcolor1,10)
    SellColor(FishColor2,10)
    StoreToFish;
    end;

    procedure ToStorekarajama;
    begin
    If(Not(ExistsItem(0,0)))then
    begin
    Logout;
    Writeln('Lost Pot')
    Terminatescript;
    End else
    Begin
    Report('Heading to the store')
    findcolor(xx,yy,trees,627,130,728,162)
    mouse(xx,yy,0,0,True)
    flag;
    mouse(xx,yy,0,0,True)
    flag;
    wait(500)
    if(findcolor(xx,yy,potcolor,570,15,721,162))then
    begin
    mouse(xx+8,yy,0,0,True)
    flag;
    end else
    begin
    findcolor(xx,yy,DirtRoad,590,70,685,89)
    Mouse(xx,yy,0,0,True)
    flag;
    findcolor(xx,yy,potcolor,570,15,721,162)
    mouse(xx,yy,0,0,True)
    flag;
    end;
    wait(1000)
    SellFishies;
    end;
    end;

    {======================End Karajama specfic stuff====================}
    procedure Tofish; forward;

    Procedure Banking;//good
    begin
    gametab(4);
    Report('Banking')
    OpenBank;
    if(not(existsitem(0,0)))then
    begin
    depositarea(562,209,737,460)
    MMouse(96,77,1,1)
     If(not(IsTextUp(BankText)))then
     begin
      CloseWindow;
      Logout;
      Writeln('Out of fishing equipment')
      TerminateScript;
      end else
      begin
      Mouse(96,71,1,1,true)
      end;
    end else
    begin
    DepositArea(610,220,727,454)
    depositarea(565,256,725,454)
    CloseWindow;
    end;
    end;

    Procedure ToFishGuild;
    begin
    Report('Going to fish in the Guild')
    if(findcolorspiraltolerance(x,y,dock,692,50,714,87,3))then
    begin
    Mouse(x,y,0,0,true)
    Flag;
    end;
    if(FindColorTolerance(x,y,15750425,572,8,722,160,40))then
    begin
    Mouse(x,y,0,0,True)
    Flag;
    end;
    end;

    Procedure ToBankGuild;
    begin
    Report('Going to Bank in the Guild')
    if(not(FindColortolerance(x,y,5360864,570,8,725,162,50)))then
    begin
    if(findcolorspiral2(x,y,GuildBankFloor,575,81,614,133))then
    MouseFlag(x,y,1,1)
    if(FindColortolerance(x,y,5360864,570,8,725,162,50))then
    Mouseflag(x,y,1,1)
    end else
    MouseFlag(x+6,y,1,1)
    end;

    { Edited from janglebits <3 }

    procedure SetSymBolPosition;
    begin
    rightMove:=False
    LeftMove:=False                       //left
    If(FindColorSpiralTolerance(x,y,15750425,566,40,645,138,40))Then
    begin
    LeftMove:=True
    end;                                    //right
    If(FindColorSpiralTolerance(x,y,15750425,655,63,723,157,40))Then
    begin
    RightMove:=True
    end;
    if(RightMove=True)and(LeftMove=False)then
    begin
    MoveMent:='Right';
    end;
    if(LeftMove=True)and(RightMove=False)then
    begin
    MoveMent:='Left';
    end;
    if(LeftMove=True)and(RightMove=True)then
    begin
    MoveMent:='Right'; end;
    end;


    procedure CenterOnFish2;
    begin
    Report('Centering on Catherby fish')
    If(Movement='Right')Then
    begin
    x:=679;
    y:=90;
    If(FindColorSpiralTolerance(x,y,15750425,655,63,723,157,40))Then
    begin
    Mouse(x+random(5),y+2-random(8),0,0,True)
    Flag;
    end;
    end;
    If(Movement='Left')Then
    begin
    x:=607;
    y:=73;
    If(FindColorSpiralTolerance(x,y,15750425,566,59,645,138,40))Then
    begin
    MouseFlag(x-random(5),y+2-random(8),0,0)
    end;
    end;
    end;

    procedure ToFishCatherby;
    begin
    Report('Going to Catherby fish spot')
    If(FindColorTolerance(x,y,5360864,625,65,675,98,50))Then
    begin
    x:=714;
    y:=112;
    If(FindColorSpiral(x,y,Road,691,87,700,128))Then
    begin
    Repeat
    Mouse(x-random(5),y-random(4),0,0,True)
    Wait(2623+random(1324));
    Flag;
    FindColorSpiral(x,y,Road,691,73,700,128);
    until(FindColorTolerance(x,y,15750425,571,93,723,157,40))
    end;
    x:=611;
    y:=137;
    If(FindColorSpiraltolerance(x,y,15750425,571,93,723,157,40))Then
    begin
    MouseFlag(x,y,5,4)
    end;
    end;
    end;

    Procedure ToBankCatherby;
    Var x1,y1,Count:integer;
    begin
    Report('Going to Catherby bank')
    If(Not(FindColorSpiral(x,y,Road,550,50,600,95)))Then
    begin
    Repeat
    x:=615;
    y:=73;
    If(FindColorSpiraltolerance(x,y,15750425,566,40,645,138,40))Then
    wait(100+random(450));
    MouseFlag(x,y,1,1)
    until((FindColorSpiral(x,y,Road,570,50,600,95)))
    end;
    If((FindColorSpiral(x,y,Road,570,50,600,95)))Then
    begin
    repeat
    x:=580;
    y:=85;
    FindColorSpiral(x,y,Road,570,50,600,95);
    Mouse(x+3+random(10),y+random(4),0,0,True)
    wait(3120+random(1150));
    Flag;
    Count:=Count+1;
    If(Count>1)Then
    begin
    Flag;
    end;
    until(FindColorTolerance(x,y,5360864,596,30,688,132,50))and(Count>1)
    end;
    If(FindColorTolerance(x1,y1,5360864,596,30,688,132,50))then
    begin
    repeat
    FindColorTolerance(x,y,Bankpeople,x1-18,y1-35,x1+18,y1+5,12);
    MouseFlag(x+random(5),y+9+random(4),0,0)
    until(FindColorTolerance(x,y,5360864,625,65,675,98,50))
    end;
    end;

    Procedure ToBank;//good
    begin
    case FishMode of
    1:begin ToStoreKarajama; end;
    2:begin ToBankGuild; end;
    3:begin ToBankCatherby; end;
    end;
    end;

    ProCedure ToFish;
    begin
    case FishMode of
    1:begin StoreToFish; end;
    2:begin ToFishGuild; end;
    3:begin ToFishCatherby end;
    end;
    end;

    Procedure CenterONFish;
    begin
    if(FindColorTolerance(x,y,15750425,572,76,722,160,40))then
    begin
    Report('Centering on fish')
    wait(2000)
    Mouse(x,y,0,0,True)
    Flag;
    end else
    begin
    logout;
    Writeln('Got Lost...')
    terminateScript;
    end;
    end;


    procedure Catchfish;
    var c,Openslitx,openSlity,b,fx,fy,cx,cy,ax,ay:integer;
    TimedOut:boolean;
    begin
    ax:=15;
    ay:=5;
    Report('finding Fish')
    timedout:=false;
    castout:=False;
    If(not(existsItem(0,0)))or(existsItem(3,6))then
     exit;
     repeat
     ax:=ax+15;
     ay:=ay+5;
     x:=100+random(ax)
     y:=100+random(ay)
     b:=b+1
      if(FindColorSpiralTolerance(x,y,15249528,5,5,514,337,20))then
      MMouse(x,y,2,2);
      wait(100+random(50))
      If(Ax>415)then Ax:=15;
      If(Ay>237)then Ay:=5;
      until(IsTextAt2(9,9,FishText,100))or(b>25)or(Not(existsItem(0,0)))or(existsItem(3,6))
     if(b>10)then
     begin
      if(FishMode=3)then
      begin
      b:=0;
      SetSymbolPosition;
      CenterOnFish2;
      Catchfish;
      end else
      begin
      b:=0;
      CenterOnFish;
      catchfish;
      end;
      end;
      If(Not(ExistsItem(0,0)))or(existsItem(3,6))then
       exit;
      If(IsTextAt2(9,9,FishText,250))and(existsitem(0,0))then
       begin
       Report('Fishing')
     Mouse(x,y,0,0,Click)
     fx:=x; fy:=y;
     Flag;
      wait(200+random(200))
       If(Not(ExistsItem(0,0)))or(existsItem(3,6))then
       exit;
      If(findbitmap(HarPoon,x,y))and(bitmap=2)or(findBitmap(Cage,x,y))and(bitmap=1)then
      begin
       MouseFlag(x,y,2,2)
      end;
      wait(500+random(500))
      if(FindColorSpiralTolerance(cx,cy,UtensilColor,218,130,320,217,5))and(existsitem(0,0))then
       begin
      castout:=True
       If(Not(ExistsItem(0,0)))or(existsItem(3,6))then
       exit;
     end else
     begin
      CatchFish;
        end;
    begin
     Report('Fishing')
     repeat
     GhostSpeak('Fishing')
     Randoms;
     GetEmptyItemPosition(openSlitx,openslity)
    wait(500)
    c:=c+1
    if(c>FishTimeOut*2)then
     begin
    timedout:=True;
     end;
    If(existsitem(openslitx,openslity))then
      c:=0
    until(timedout=True)or(not(existsItem(0,0)))or(ExistsItem(3,6))or(getcolor(143,426)=0)and(getcolor(140,426)=0)and(getcolor(70,430)=0)or
      (not(FindColorSpiralTolerance(cx,cy,Utensilcolor,218,130,320,217,5)))and(not(ExistsItem(3,6)))or(antiwhirlpool)
     if(timedout=true)then
      begin
      Timedout:=false;
     Status('Man you suck at fishing...')
     wait(200+random(500))
    catchFish;
     end;
     if(antiwhirlpool)then
     begin
     Whirlpoolcount:=WhirlPoolCount+1
       Mouse(649,84,0,2,true);
       wait(8000);
      end;
    if(not(FindColorSpiralTolerance(cx,cy,Utensilcolor,218,130,320,217,5)))and(Not(existsitem(3,6)))then
      begin
      If(not(ExistsItem(0,0)))or(existsItem(3,6))then
      Exit;
      CatchFish;
      end;
    if(getcolor(143,426)=0)and(getcolor(140,426)=0)and(getcolor(70,430)=0)then
     begin
     logout;
     writeln('you died')
     terminatescript;
     end;
    end;
    end;
    end;

    Procedure LoadBitmaps;
    begin
    HarPoon := BitmapFromString(51, 3,
           'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '');//bmp by benleegt
    Cage := BitmapFromString(32, 6,
           'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
           '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
           '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
           '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
           '000000000000000000');//bmp by benleegt
    end;

    procedure SetStuffUp;
    begin
    Report('Setup')
    TunaTimeOut:=20;
    LobTimeOut:=25;
    SharkTimeOut:=60;
    Fishcolor1:=getcolor(661,228)
    FishColor2:=Getcolor(711,224)
    if(fishmode=1)and(karajamaFishType='Lobster')or(fishmode=1)and(karajamaFishType='lobster')then
    begin
    Bitmap:=1;
    EQuipcolor:=getcolor(581,233)
    FishTimeOut:=LobTimeOut;
    FishText:='Cage';
    Click:=LeftClick;
    BankText:='Withdraw 1 Lobster';
    end;
    if(fishmode=1)and(karajamaFishType='Tuna')or(fishmode=1)and(karajamaFishType='tuna')then
    begin
    Bitmap:=2;
    EQuipcolor:=getcolor(581,232)
    FishTimeOut:=TunaTimeOut;
    FishText:='Cage';
    Click:=false;
    BankText:='Withdraw 1 Harpoon';
    end;
    if(fishmode=2)and(GuildFishType='Shark')or(fishmode=2)and(guildfishtype='shark')then
    begin
    Bitmap:=2;
    EquipColor:=getcolor(581,232)
    FishTimeOut:=SharkTimeOut;
    FishText:='Net';
    Click:=False;
    BankText:='Withdraw 1 Harpoon';
    end;
    if(fishmode=2)and(GuildFishType='Tuna')or(fishmode=2)and(guildfishtype='tuna')then
    begin
    Bitmap:=2;
    EquipColor:=getcolor(581,232)
    FishTimeOut:=tunaTimeOut;
    FishText:='Cage';
    Click:=False;
    BankText:='Withdraw 1 Harpoon';
    end;
    if(fishmode=2)and(GuildFishType='Lobster')or(fishmode=2)and(guildfishtype='lobster')then
    begin
    Bitmap:=1;
    EQuipcolor:=getcolor(581,233)
    FishTimeOut:=lobTimeOut;
    FishText:='Cage';
    Click:=LeftClick;
    BankText:='Withdraw 1 Lobster';
    end;
    if(fishmode=3)and(CatherbyFishType='Shark')or(fishmode=3)and(Catherbyfishtype='shark')then
    begin
    Bitmap:=2;
    EquipColor:=getcolor(581,232)
    FishTimeOut:=SharkTimeOut;
    FishText:='Net';
    Click:=False;
    BankText:='Withdraw 1 Harpoon';
    end;
    if(fishmode=3)and(CatherbyFishType='Lobster')or(fishmode=3)and(Catherbyfishtype='lobster')then
    begin
    Bitmap:=1;
    EQuipcolor:=getcolor(581,233)
    FishTimeOut:=LobTimeOut;
    FishText:='Cage';
    Click:=LeftClick;
    BankText:='Withdraw 1 Lobster';
    end;
    if(fishmode=3)and(CatherbyFishType='Tuna')or(fishmode=3)and(Catherbyfishtype='Tuna')then
    begin
    Bitmap:=2;
    EquipColor:=getcolor(581,232)
    FishTimeOut:=TunaTimeOut;
    FishText:='Cage';
    Click:=False;
    BankText:='Withdraw 1 Harpoon';
    end;
    end;

    begin
    loadinclude(' ',true)
    LoadBitmaps;
    ST:=Getsystemtime;
    SetRun(true);
    GameTab(4);
    ChatsOff;
    Trips:=0;
    WhirlpoolCount:=0
    SetStuffUp;
    Movement:='Right';
    repeat
    If(Not(FindColorSpiralTolerance(x,y,15249528,5,5,514,337,20)))then
      Banking;
      ToFish;
     Repeat
     CatchFish;
     Until(ExistsItem(3,6))or(Not(ExistsItem(0,0))or(Invincount=28))
     Trips:=Trips+1
     ToBank;
    Until(false)
    end.

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

    Default

    It means you're leeching an old script.

  3. #3
    Join Date
    Aug 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    btw im trying to do it for catherby and bank

  4. #4
    Join Date
    Aug 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah i got it off a website but it said for anyone to use...soi its to old to use?

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

    Default

    Yes. Only use SRL scripts.

    And don't double post.

  6. #6
    Join Date
    Aug 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i didnt mean to double post im new to this...where can i get an srl script? that auto fishes in caterby and banks? ive looked everywhere

  7. #7
    Join Date
    Aug 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    do u know of anywhere??



    This is an
    EDIT
    Button, please learn how to use it !

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

    Default

    No...now stop double posting.
    [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]

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
  •