Burt
2007-07-22 10:39:19
<!– BEGIN TEMPLATE: formanswers –>
Burt - SRL Member Application Form
Burt
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, VB
Other Communitys
Rune-server.org cheatengine.org moparisthebest.com
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a nice person. Helps people when they need it.I like to socialize with others. Im never a noob who makes sensless post like GTFO N00b@@,but i do apply with copied scripts. I help a lot of people here with errors and so on. I think it would be great if I was a member,that way I could leech scripts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Spins flax in lumby
ScarScript:By Drunkenoldma [LEFT]// be in lumby bank with full inv of flax, may take 1 min to find bank symbol color // Fill lines 17 - 24. Dont forget to declare players // Post Progress reports and bugs Program Flax0r; {.include srl/srl.scar } var BankSymbolColor, MMStairColor, Ix, Iy, TimeMarker, I, FlaxColor: integer; XpGained, BsMade, TotalBsMade, BsToMake, DoorsOpened, SymbolTime: integer; Floor3StairColor, Floor2StairColor, WheelColor, BankBoothColor, BankBoothColor2: integer; SearchSymbol: boolean; Procedure Parameters; begin BankSymbolColor := 4643039; // If script cant detect bank color , add it here . Leave 0 for autocoloring BsToMake := 280; // How many Bs to make before switching players SRLID := ''; SRLPassword := ''; SearchSymbol := True; // Add true if you dont want to add bank color manually // Will search for symbol 1 min //Change only if necessary //—————————————————————————— Floor3StairColor := 10043; Floor2StairColor := 7208; WheelColor := 871280; BankBoothColor := 2707804; BankBoothColor2 := 3625825; MMStairColor := 0; // Leave 0 to autocolor end; procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; Players[0].Pass := ''; Players[0].Nick := ''; Players[0].Active := True; Players[0].String1 := '0000' //Bank pin if any end; procedure ClearVars; var I: Integer; begin for I := 0 to 4 do ReportVars := 0; end; Procedure AntiBann; Begin I := Random(25); case I of 1: HoverSkill('random', false); 2: PickUpMouse; //3: DragItem(2, 1+Random(18)); 4: GameTab(1 + Random(12)); 5: begin Ix := Random (500); Iy := random (500); MMouse (Ix, Iy, 10 , 10) end; end; end; Function LoggedIn2: boolean; // I had bug with prievisly loggedIn function Begin Result := GetColor (27, 475) = 16777215; end; function UpgradeColor(color: integer): integer; var I: integer; begin for I := 1 to 30 do if FindColorTolerance(Ix, Iy, Color, msx1, msy1, msx2, msy2, I) then begin Result := GetColor(Ix, Iy) Break; end; end; Function FindFastRandoms: Boolean; var i: Integer; begin NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); for i:=1 to 8 do begin case I of 1: If FindDead then Result := True; 2: If FindMod then Result := True; 3: If FindMime then Result := True; 4: If FindMaze then Result := True; 5: If FindQuiz then Result := True; 6: If FindDemon then Result := True; 7: begin if NoGameTab then begin Result := True; Players[CurrentPlayer].loc := 'No GameTab'; Logout; Exit; end; end; end; wait(1); end; end; Procedure GetBankSymbolColor; Begin MarkTime (SymbolTime); Status ('Searching for bank symbol… It may take 1 min'); Writeln ('Searching for bank color , if you dont want to wait , add color manually '); If BankSymbolColor <> 0 then exit; Repeat BankSymbolColor := GetSymbolColor(Ix, Iy, 'bank'); Wait(100); Until (not SearchSymbol) or (BankSymbolColor <> 0) or (TimeFromMark (SymbolTime) > 60000); If BankSymbolColor = 0 then Begin writeln ('Did not find bank symbol , add color manually'); TerminateScript; end; Writeln (Inttostr (BankSymbolColor)); Status ('Running'); end; function Floor3: boolean; begin Result := FindColor(Ix, Iy, BankSymbolcolor, mmx1, mmy1, mmx2, mmy2) end; procedure MakeScreenPerfect; begin if not LoggedIn2 then exit; MarkTime(TimeMarker) if GetColor(653, 117) = 0 then KeyDown(37) else KeyDown(39); repeat wait(1); until (GetColor(655, 106) = 0) and (GetColor(655, 135) = 0) and (GetColor(655, 145) = 0) and (GetColor(653, 117) <> 0) or (TimeFromMark(TimeMarker) > 30000) Keyup(37); KeyUp(39); if TimeFromMark(TimeMarker) > 30000 then begin writeln('MakeScreenPerfect did not work ! .. '); MakeCompass('S'); end; end; Procedure AutoColorStair; begin for I := 1 to 50 do if FindColorTolerance(Ix, Iy, 4673, mmx1, mmy1, mmx2, mmy2, I) then begin MMStairColor := GetColor(Ix, Iy); break; end; If MMStairColor = 0 then begin writeln ('Cant find stair color , add it manually') TerminateScript; end; end; function ClickStair: boolean; var Ix2, Iy2: integer; begin if not LoggedIn2 then exit; If MMStairColor = 0 then AutoColorStair; if FindColor(Ix2, Iy2, MMStairColor, mmx1, mmy1, mmx2, mmy2) then Mouse(Ix2, Iy2, 2, 2, True) Wait(100 + random(50)); if FindColor(Ix, Iy, 255, mmx1, mmy1, mmx2, mmy2) then begin if Distance(Ix2, Iy2, Ix + 1, Iy + 15) - 2 <= 10 then Result := true else begin writeln(' Doors are closed … Walking to doors now'); Flag; end; end; end; function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color, tolerance, waitx: Integer): Boolean; var x, y, a, c, i, x1, y1, x2, y2: Integer; begin Color := UpgradeColor(Color); if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then begin x1 := 245; y1 := 165; x2 := 277; y2 := 185; repeat if (not (Loggedin2)) then Break; a := a + 1; if (a = 1) or (a = 3) then c := c + 1; for i := 1 to c do begin if (a = 1) then begin x1 := x1 + 30; x2 := x2 + 30; end else if (a = 2) then begin y1 := y1 - 20; y2 := y2 - 20; end else if (a = 3) then begin x1 := x1 - 30; x2 := x2 - 30; end else if (a = 4) then begin y1 := y1 + 20; y2 := y2 + 20; end; if (x1 = 485) and (x2 = 517) then x2 := x2 - 2; if (y1 = 325) and (y2 = 345) then y2 := y2 - 7; if (x2 > 515) then Break; if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then begin MMouse(x, y, 0, 0) cx := x; cy := y; Wait(waitx); if (IsUpTextMulti(UT1, UT2, UT3)) then begin Result := True; Break; end; end; end; if (a = 4) then a := 0; until (x2 > 515) or (Result = True); end; end; procedure ClimbDown; begin if not LoggedIn2 then exit; if (FindObjMultiText2(Ix, Iy, 'Cl', 'ca', 'Sta', Floor3StairColor, 5, 100)) then begin Mouse(Ix, Iy, 0, 0, False); ChooseOption(Ix, Ix, 'own'); end; end; procedure ClimbUp; begin if not LoggedIn2 then exit; if (FindObjMultiText2(Ix, Iy, 'Cl', 'ca', 'Sta', Floor2StairColor, 5, 100)) then begin Mouse(Ix, Iy, 0, 0, False); ChooseOption(Ix, Ix, 'up'); end; end; function ClickInRoom: boolean; begin if not LoggedIn2 then exit; Mouse(636 - 2, 111, 1, 1, True); Wait(100 + random(50)); if FindColor(Ix, Iy, 255, mmx1, mmy1, mmx2, mmy2) then begin if Distance(637, 111, Ix + 1, Iy + 15) - 2 <= 3 then Result := true else begin writeln('Doors are closed … Walking to doors now'); Flag; exit; end; end; end; function OpenDoors: boolean; begin if not LoggedIn2 then exit; MarkTime(TimeMarker) if not LoggedIn2 then Exit; MakeCompass('S') repeat if FindObjMultiText2(Ix, Iy, 'Do', 'or', 'oo', 2509163, 3, 100) then begin Wait(100 + random(100)); if IsUpTextMulti('Op', 'pen', 'Open') then begin Mouse(Ix, Iy, 0, 0, True); Result := True; exit; end; if IsUpTextMulti('lose', 'Close', 'Cl') then begin Result := true exit; end; end; wait(1000 + random(1000)); until TimeFromMark(TimeMarker) > 10000 Writeln('Did not find door '); end; Procedure GetFlaxColor; Begin GameTab (4); FlaxColor := GetColor (584, 229); end; Function LevelGained: boolean; Begin Result := FindNpcChatText('ongr'); end; Function FindWheel: Boolean; Var LittleMarker: integer; begin If not LoggedIn2 then exit; MarkTime(LittleMarker); Repeat if GetColor(44, 37) = 3358280 then exit; if FindObjMultiText2(Ix, Iy, 'wh', 'el', 'Sp', WheelColor, 3, 100) then Begin Mouse (Ix, Iy, 0, 0, True); Result := True; end; Wait(100+random(100)); If FindFastRandoms then Result := False; Until Result or (TimeFromMark (LittleMarker) > 7000) or (not LoggedIn2) end; Function DetectScreen: boolean; Var LittleMarker: Integer; Begin If Not LoggedIn2 then exit; MarkTime (LittleMarker); Repeat Wait(100+Random(100)); If FindFastRandoms then exit; if GetColor(44, 37) = 3358280 then Result := True; Until Result or (TimeFromMark (LittleMarker) > 5000) or (not LoggedIn2) End; Function SelectAll: boolean; Var LittleMarker: integer; Begin If not LoggedIn2 then exit; Mouse(265, 112, 3, 3, False); Wait(500+random(500)); If not ChooseOption(Ix, Iy, ' X') then exit; MarkTime (LittleMarker); Repeat Wait(100+Random(100)); If FindFastRandoms then exit; Result := GetColor(266, 396) = 0 // every1 say thx to e-men Until Result or (TimeFromMark(LittleMarker) > 5000) or (not LoggedIn2) If Result then Begin wait (500+Random(500)); TypeSend('28' + Chr(13)); end; end; Function FindAndSpinn: boolean; Var SpecialMarker: integer; Begin If Not LoggedIn2 then exit; MarkTime (SpecialMarker); Repeat If FindWheel then If DetectScreen then If SelectAll then Result := True Wait(1000+random(500)); FindFastRandoms; FindNormalRandoms; Until Result or (TimeFromMark (SpecialMarker)> 30000) or (not LoggedIn2); If TimeFromMark (SpecialMarker)> 30000 then Writeln ('Did not find wheel within 30 sec… Going to bank'); end; Function NoMoreFlax: boolean; Begin Result := not findColor (Ix, Iy, FlaxColor, mix1, miy1, mix2, miy2) end; Procedure Spin; Var WaitMarker: integer; begin If not LoggedIn2 then exit; MarkTime(WaitMarker); If not FindAndSpinn then exit; Repeat Wait(1000+random(500)); If FindNormalRandoms or FindFastRandoms or LevelGained then If not FindAndSpinn then exit; If FindFight then begin writeln ('Found fight.. Running to bank') exit; end; AntiBann; GameTab (4); Until NoMoreFlax or (TimeFromMark (WaitMarker) > 80000) or (not LoggedIn2) end; function MyBankScreen: boolean; begin Result := IsTextAtEx(184, 34, 'The Bank', 30, upchars, True, False, 0, 0, -1); end; function FindBank2(Colors: integer): boolean; var I: integer; begin if not LoggedIn2 then exit; if MyBankScreen then exit; if (FindObjMultiText2(Ix, Iy, 'Us', 'Ba', 'Boo', Colors, 5, 350)) then begin Mouse(Ix, Iy, 0, 0, false); if (ChooseOption(x, y, 'qui')) or (ChooseOption(x, y, 'kly')) then begin Flag; i := 0 repeat Wait(100); I := I + 1 If PinScreen Then InPin(Players[CurrentPlayer].String1) until (MyBankScreen) or (I > 50) if (MyBankScreen) then begin if not (Getcolor(475, 75) = 5531254) then Mouse(475, 77, 2, 0, true); Result := True Exit; end; end; end; end; Procedure Bank; Begin If not FindBank2 (BankBoothColor) then If not FindBank2 (BankBoothColor2) then If not FindBank2 (3955563) then If not FindBank2 (5339791) then Begin Writeln ('Did not find Bank'); Players[CurrentPlayer].Active := false Logout; exit; end; Mouse (586, 230, 2, 2, False); wait(500+random(500)); ChooseOption (Ix, Iy, 'All'); BsMade := BsMade +28; ReportVars[0] := ReportVars[0] + 28; XpGained := BsMade * 15; ReportVars[3] := ReportVars[3] + 28 * 15; TotalBsMade := TotalBsMade + BsMade; If FindColor (Ix, Iy, FlaxColor, msx1, msy1, msx2, msy2) then Begin Mouse (Ix, Iy, 2, 2, False); Wait(500+random(500)); ChooseOption (Ix, Iy, 'All'); end else Begin Writeln ('Did not find flax .. make sure its in top of the bank '); If MyBankScreen then Mouse (487, 41, 2, 2, True); Logout; Players[CurrentPlayer].Active := false; exit; end; If MyBankScreen then Mouse (487, 41, 2, 2, True); end; Procedure ToWheel; Begin If Not LoggedIn2 then exit; MakeCompass('S'); SetRun(true); ClickStair; Flag; wait(1000+random(500)); MarkTime (TimeMarker); repeat ClimbDown; Wait(1000 + random(500)) repeat wait(100 + random(10)); until GetColor(200, 148) <> 16777215 wait(1000+random(500)); until (not Floor3) or (TimeFromMark(TimeMarker) > 30000) or (not LoggedIn2) If TimeFromMark(TimeMarker) > 30000 then begin writeln('Cant find stairs '); Logout; Players[CurrentPlayer].Active := false; exit; end; Wait(1000+Random(500)); MakeScreenPerfect; if not ClickInRoom then begin OpenDoors; DoorsOpened := DoorsOpened + 1; ReportVars[1] := ReportVars[1] + 1; end; Flag; end; Procedure ToBank; Begin If not LoggedIn2 then exit; MakeCompass('S'); if not ClickStair then begin OpenDoors; DoorsOpened := DoorsOpened + 1; ReportVars[1] := ReportVars[1] + 1; wait(500 + random(500)); if findColor(Ix, Iy, MMStairColor, mmx1, mmy1, mmx2, mmy2) then Mouse(Ix, Iy, 2, 2, True) end; Flag; wait(500 + random(500)) MarkTime(TimeMarker); repeat ClimbUp; Wait(1000 + random(300)) repeat wait(100 + random(10)); until GetColor(200, 148) <> 16777215 Wait(1000+random(500)); until (Floor3) or (TimeFromMark(TimeMarker) > 30000) or (not LoggedIn2) if TimeFromMark(TimeMarker) > 30000 then begin writeln('Cant find stairs '); Logout; Players[CurrentPlayer].Active := false; exit; end; Mouse(632, 130, 3, 0, True); flag; wait(500 + random(500)); end; procedure ProgressReport; begin Writeln(' '); writeln('——–Proggy :)——–'); Writeln('Total time Running: ' + TimeRunning); Writeln('Bow strings made: ' + inttostr(XpGained/15)); Writeln('Xp gained: ' + inttostr(XpGained)); Writeln('Doors opened: ' + inttostr (DoorsOpened)); Writeln('——–Proggy :)——–'); Writeln(' '); SRLRandomsReport; end; Procedure SetUpScript; Begin SetUpsrl; DeclarePlayers; ActivateClient; ScriptID := '172' end; begin SetUpScript; If not LoggedIn2 then LoginPlayer; GetFlaxColor; Parameters; GetBankSymbolColor; Repeat BsMade := 0; Repeat ToWheel; Spin; ToBank; Bank; ProgressReport; SendSRLReport; ClearVars; Until (BsMade>=BsToMake) or (not LoggedIn2) NextPlayer (True); Until False; end. [/LEFT]
——————————————————
<!– END TEMPLATE: formanswers –>
Burt - SRL Member Application Form
Burt
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java, VB
Other Communitys
Rune-server.org cheatengine.org moparisthebest.com
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a nice person. Helps people when they need it.I like to socialize with others. Im never a noob who makes sensless post like GTFO N00b@@,but i do apply with copied scripts. I help a lot of people here with errors and so on. I think it would be great if I was a member,that way I could leech scripts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Spins flax in lumby
ScarScript:By Drunkenoldma [LEFT]// be in lumby bank with full inv of flax, may take 1 min to find bank symbol color // Fill lines 17 - 24. Dont forget to declare players // Post Progress reports and bugs Program Flax0r; {.include srl/srl.scar } var BankSymbolColor, MMStairColor, Ix, Iy, TimeMarker, I, FlaxColor: integer; XpGained, BsMade, TotalBsMade, BsToMake, DoorsOpened, SymbolTime: integer; Floor3StairColor, Floor2StairColor, WheelColor, BankBoothColor, BankBoothColor2: integer; SearchSymbol: boolean; Procedure Parameters; begin BankSymbolColor := 4643039; // If script cant detect bank color , add it here . Leave 0 for autocoloring BsToMake := 280; // How many Bs to make before switching players SRLID := ''; SRLPassword := ''; SearchSymbol := True; // Add true if you dont want to add bank color manually // Will search for symbol 1 min //Change only if necessary //—————————————————————————— Floor3StairColor := 10043; Floor2StairColor := 7208; WheelColor := 871280; BankBoothColor := 2707804; BankBoothColor2 := 3625825; MMStairColor := 0; // Leave 0 to autocolor end; procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; Players[0].Pass := ''; Players[0].Nick := ''; Players[0].Active := True; Players[0].String1 := '0000' //Bank pin if any end; procedure ClearVars; var I: Integer; begin for I := 0 to 4 do ReportVars := 0; end; Procedure AntiBann; Begin I := Random(25); case I of 1: HoverSkill('random', false); 2: PickUpMouse; //3: DragItem(2, 1+Random(18)); 4: GameTab(1 + Random(12)); 5: begin Ix := Random (500); Iy := random (500); MMouse (Ix, Iy, 10 , 10) end; end; end; Function LoggedIn2: boolean; // I had bug with prievisly loggedIn function Begin Result := GetColor (27, 475) = 16777215; end; function UpgradeColor(color: integer): integer; var I: integer; begin for I := 1 to 30 do if FindColorTolerance(Ix, Iy, Color, msx1, msy1, msx2, msy2, I) then begin Result := GetColor(Ix, Iy) Break; end; end; Function FindFastRandoms: Boolean; var i: Integer; begin NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); for i:=1 to 8 do begin case I of 1: If FindDead then Result := True; 2: If FindMod then Result := True; 3: If FindMime then Result := True; 4: If FindMaze then Result := True; 5: If FindQuiz then Result := True; 6: If FindDemon then Result := True; 7: begin if NoGameTab then begin Result := True; Players[CurrentPlayer].loc := 'No GameTab'; Logout; Exit; end; end; end; wait(1); end; end; Procedure GetBankSymbolColor; Begin MarkTime (SymbolTime); Status ('Searching for bank symbol… It may take 1 min'); Writeln ('Searching for bank color , if you dont want to wait , add color manually '); If BankSymbolColor <> 0 then exit; Repeat BankSymbolColor := GetSymbolColor(Ix, Iy, 'bank'); Wait(100); Until (not SearchSymbol) or (BankSymbolColor <> 0) or (TimeFromMark (SymbolTime) > 60000); If BankSymbolColor = 0 then Begin writeln ('Did not find bank symbol , add color manually'); TerminateScript; end; Writeln (Inttostr (BankSymbolColor)); Status ('Running'); end; function Floor3: boolean; begin Result := FindColor(Ix, Iy, BankSymbolcolor, mmx1, mmy1, mmx2, mmy2) end; procedure MakeScreenPerfect; begin if not LoggedIn2 then exit; MarkTime(TimeMarker) if GetColor(653, 117) = 0 then KeyDown(37) else KeyDown(39); repeat wait(1); until (GetColor(655, 106) = 0) and (GetColor(655, 135) = 0) and (GetColor(655, 145) = 0) and (GetColor(653, 117) <> 0) or (TimeFromMark(TimeMarker) > 30000) Keyup(37); KeyUp(39); if TimeFromMark(TimeMarker) > 30000 then begin writeln('MakeScreenPerfect did not work ! .. '); MakeCompass('S'); end; end; Procedure AutoColorStair; begin for I := 1 to 50 do if FindColorTolerance(Ix, Iy, 4673, mmx1, mmy1, mmx2, mmy2, I) then begin MMStairColor := GetColor(Ix, Iy); break; end; If MMStairColor = 0 then begin writeln ('Cant find stair color , add it manually') TerminateScript; end; end; function ClickStair: boolean; var Ix2, Iy2: integer; begin if not LoggedIn2 then exit; If MMStairColor = 0 then AutoColorStair; if FindColor(Ix2, Iy2, MMStairColor, mmx1, mmy1, mmx2, mmy2) then Mouse(Ix2, Iy2, 2, 2, True) Wait(100 + random(50)); if FindColor(Ix, Iy, 255, mmx1, mmy1, mmx2, mmy2) then begin if Distance(Ix2, Iy2, Ix + 1, Iy + 15) - 2 <= 10 then Result := true else begin writeln(' Doors are closed … Walking to doors now'); Flag; end; end; end; function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color, tolerance, waitx: Integer): Boolean; var x, y, a, c, i, x1, y1, x2, y2: Integer; begin Color := UpgradeColor(Color); if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then begin x1 := 245; y1 := 165; x2 := 277; y2 := 185; repeat if (not (Loggedin2)) then Break; a := a + 1; if (a = 1) or (a = 3) then c := c + 1; for i := 1 to c do begin if (a = 1) then begin x1 := x1 + 30; x2 := x2 + 30; end else if (a = 2) then begin y1 := y1 - 20; y2 := y2 - 20; end else if (a = 3) then begin x1 := x1 - 30; x2 := x2 - 30; end else if (a = 4) then begin y1 := y1 + 20; y2 := y2 + 20; end; if (x1 = 485) and (x2 = 517) then x2 := x2 - 2; if (y1 = 325) and (y2 = 345) then y2 := y2 - 7; if (x2 > 515) then Break; if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then begin MMouse(x, y, 0, 0) cx := x; cy := y; Wait(waitx); if (IsUpTextMulti(UT1, UT2, UT3)) then begin Result := True; Break; end; end; end; if (a = 4) then a := 0; until (x2 > 515) or (Result = True); end; end; procedure ClimbDown; begin if not LoggedIn2 then exit; if (FindObjMultiText2(Ix, Iy, 'Cl', 'ca', 'Sta', Floor3StairColor, 5, 100)) then begin Mouse(Ix, Iy, 0, 0, False); ChooseOption(Ix, Ix, 'own'); end; end; procedure ClimbUp; begin if not LoggedIn2 then exit; if (FindObjMultiText2(Ix, Iy, 'Cl', 'ca', 'Sta', Floor2StairColor, 5, 100)) then begin Mouse(Ix, Iy, 0, 0, False); ChooseOption(Ix, Ix, 'up'); end; end; function ClickInRoom: boolean; begin if not LoggedIn2 then exit; Mouse(636 - 2, 111, 1, 1, True); Wait(100 + random(50)); if FindColor(Ix, Iy, 255, mmx1, mmy1, mmx2, mmy2) then begin if Distance(637, 111, Ix + 1, Iy + 15) - 2 <= 3 then Result := true else begin writeln('Doors are closed … Walking to doors now'); Flag; exit; end; end; end; function OpenDoors: boolean; begin if not LoggedIn2 then exit; MarkTime(TimeMarker) if not LoggedIn2 then Exit; MakeCompass('S') repeat if FindObjMultiText2(Ix, Iy, 'Do', 'or', 'oo', 2509163, 3, 100) then begin Wait(100 + random(100)); if IsUpTextMulti('Op', 'pen', 'Open') then begin Mouse(Ix, Iy, 0, 0, True); Result := True; exit; end; if IsUpTextMulti('lose', 'Close', 'Cl') then begin Result := true exit; end; end; wait(1000 + random(1000)); until TimeFromMark(TimeMarker) > 10000 Writeln('Did not find door '); end; Procedure GetFlaxColor; Begin GameTab (4); FlaxColor := GetColor (584, 229); end; Function LevelGained: boolean; Begin Result := FindNpcChatText('ongr'); end; Function FindWheel: Boolean; Var LittleMarker: integer; begin If not LoggedIn2 then exit; MarkTime(LittleMarker); Repeat if GetColor(44, 37) = 3358280 then exit; if FindObjMultiText2(Ix, Iy, 'wh', 'el', 'Sp', WheelColor, 3, 100) then Begin Mouse (Ix, Iy, 0, 0, True); Result := True; end; Wait(100+random(100)); If FindFastRandoms then Result := False; Until Result or (TimeFromMark (LittleMarker) > 7000) or (not LoggedIn2) end; Function DetectScreen: boolean; Var LittleMarker: Integer; Begin If Not LoggedIn2 then exit; MarkTime (LittleMarker); Repeat Wait(100+Random(100)); If FindFastRandoms then exit; if GetColor(44, 37) = 3358280 then Result := True; Until Result or (TimeFromMark (LittleMarker) > 5000) or (not LoggedIn2) End; Function SelectAll: boolean; Var LittleMarker: integer; Begin If not LoggedIn2 then exit; Mouse(265, 112, 3, 3, False); Wait(500+random(500)); If not ChooseOption(Ix, Iy, ' X') then exit; MarkTime (LittleMarker); Repeat Wait(100+Random(100)); If FindFastRandoms then exit; Result := GetColor(266, 396) = 0 // every1 say thx to e-men Until Result or (TimeFromMark(LittleMarker) > 5000) or (not LoggedIn2) If Result then Begin wait (500+Random(500)); TypeSend('28' + Chr(13)); end; end; Function FindAndSpinn: boolean; Var SpecialMarker: integer; Begin If Not LoggedIn2 then exit; MarkTime (SpecialMarker); Repeat If FindWheel then If DetectScreen then If SelectAll then Result := True Wait(1000+random(500)); FindFastRandoms; FindNormalRandoms; Until Result or (TimeFromMark (SpecialMarker)> 30000) or (not LoggedIn2); If TimeFromMark (SpecialMarker)> 30000 then Writeln ('Did not find wheel within 30 sec… Going to bank'); end; Function NoMoreFlax: boolean; Begin Result := not findColor (Ix, Iy, FlaxColor, mix1, miy1, mix2, miy2) end; Procedure Spin; Var WaitMarker: integer; begin If not LoggedIn2 then exit; MarkTime(WaitMarker); If not FindAndSpinn then exit; Repeat Wait(1000+random(500)); If FindNormalRandoms or FindFastRandoms or LevelGained then If not FindAndSpinn then exit; If FindFight then begin writeln ('Found fight.. Running to bank') exit; end; AntiBann; GameTab (4); Until NoMoreFlax or (TimeFromMark (WaitMarker) > 80000) or (not LoggedIn2) end; function MyBankScreen: boolean; begin Result := IsTextAtEx(184, 34, 'The Bank', 30, upchars, True, False, 0, 0, -1); end; function FindBank2(Colors: integer): boolean; var I: integer; begin if not LoggedIn2 then exit; if MyBankScreen then exit; if (FindObjMultiText2(Ix, Iy, 'Us', 'Ba', 'Boo', Colors, 5, 350)) then begin Mouse(Ix, Iy, 0, 0, false); if (ChooseOption(x, y, 'qui')) or (ChooseOption(x, y, 'kly')) then begin Flag; i := 0 repeat Wait(100); I := I + 1 If PinScreen Then InPin(Players[CurrentPlayer].String1) until (MyBankScreen) or (I > 50) if (MyBankScreen) then begin if not (Getcolor(475, 75) = 5531254) then Mouse(475, 77, 2, 0, true); Result := True Exit; end; end; end; end; Procedure Bank; Begin If not FindBank2 (BankBoothColor) then If not FindBank2 (BankBoothColor2) then If not FindBank2 (3955563) then If not FindBank2 (5339791) then Begin Writeln ('Did not find Bank'); Players[CurrentPlayer].Active := false Logout; exit; end; Mouse (586, 230, 2, 2, False); wait(500+random(500)); ChooseOption (Ix, Iy, 'All'); BsMade := BsMade +28; ReportVars[0] := ReportVars[0] + 28; XpGained := BsMade * 15; ReportVars[3] := ReportVars[3] + 28 * 15; TotalBsMade := TotalBsMade + BsMade; If FindColor (Ix, Iy, FlaxColor, msx1, msy1, msx2, msy2) then Begin Mouse (Ix, Iy, 2, 2, False); Wait(500+random(500)); ChooseOption (Ix, Iy, 'All'); end else Begin Writeln ('Did not find flax .. make sure its in top of the bank '); If MyBankScreen then Mouse (487, 41, 2, 2, True); Logout; Players[CurrentPlayer].Active := false; exit; end; If MyBankScreen then Mouse (487, 41, 2, 2, True); end; Procedure ToWheel; Begin If Not LoggedIn2 then exit; MakeCompass('S'); SetRun(true); ClickStair; Flag; wait(1000+random(500)); MarkTime (TimeMarker); repeat ClimbDown; Wait(1000 + random(500)) repeat wait(100 + random(10)); until GetColor(200, 148) <> 16777215 wait(1000+random(500)); until (not Floor3) or (TimeFromMark(TimeMarker) > 30000) or (not LoggedIn2) If TimeFromMark(TimeMarker) > 30000 then begin writeln('Cant find stairs '); Logout; Players[CurrentPlayer].Active := false; exit; end; Wait(1000+Random(500)); MakeScreenPerfect; if not ClickInRoom then begin OpenDoors; DoorsOpened := DoorsOpened + 1; ReportVars[1] := ReportVars[1] + 1; end; Flag; end; Procedure ToBank; Begin If not LoggedIn2 then exit; MakeCompass('S'); if not ClickStair then begin OpenDoors; DoorsOpened := DoorsOpened + 1; ReportVars[1] := ReportVars[1] + 1; wait(500 + random(500)); if findColor(Ix, Iy, MMStairColor, mmx1, mmy1, mmx2, mmy2) then Mouse(Ix, Iy, 2, 2, True) end; Flag; wait(500 + random(500)) MarkTime(TimeMarker); repeat ClimbUp; Wait(1000 + random(300)) repeat wait(100 + random(10)); until GetColor(200, 148) <> 16777215 Wait(1000+random(500)); until (Floor3) or (TimeFromMark(TimeMarker) > 30000) or (not LoggedIn2) if TimeFromMark(TimeMarker) > 30000 then begin writeln('Cant find stairs '); Logout; Players[CurrentPlayer].Active := false; exit; end; Mouse(632, 130, 3, 0, True); flag; wait(500 + random(500)); end; procedure ProgressReport; begin Writeln(' '); writeln('——–Proggy :)——–'); Writeln('Total time Running: ' + TimeRunning); Writeln('Bow strings made: ' + inttostr(XpGained/15)); Writeln('Xp gained: ' + inttostr(XpGained)); Writeln('Doors opened: ' + inttostr (DoorsOpened)); Writeln('——–Proggy :)——–'); Writeln(' '); SRLRandomsReport; end; Procedure SetUpScript; Begin SetUpsrl; DeclarePlayers; ActivateClient; ScriptID := '172' end; begin SetUpScript; If not LoggedIn2 then LoginPlayer; GetFlaxColor; Parameters; GetBankSymbolColor; Repeat BsMade := 0; Repeat ToWheel; Spin; ToBank; Bank; ProgressReport; SendSRLReport; ClearVars; Until (BsMade>=BsToMake) or (not LoggedIn2) NextPlayer (True); Until False; end. [/LEFT]
——————————————————
<!– END TEMPLATE: formanswers –>