wakawizzup
2007-07-18 19:30:14
<!– BEGIN TEMPLATE: formanswers –>
wakawizzup - SRL Member Application Form
wakawizzup
What is the meaning to life?
to make scripts
Where you Referred to SRL? If yes, by whom?
wizzup?
Programming Knowledge
PHP,java,html,pascal,flash,C++, python
Other Communitys
sythe, rs2cheating.
How Long have You Played Runescape
10 years
Are you affilated in anyway with Jagex LTD?
no
—————————————————–
Please write down a paragraph about Yourself.
my goal here is to make a scar script for the power training of skill for the rest of this community, yes they may be w/c ect, but the main purpose if for the exp and skils, not nesesraly for the GP. im goin to auto to lvl 126 combat, which is my current goal.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
wakawizzup - SRL Member Application Form
wakawizzup
What is the meaning to life?
to make scripts
Where you Referred to SRL? If yes, by whom?
wizzup?
Programming Knowledge
PHP,java,html,pascal,flash,C++, python
Other Communitys
sythe, rs2cheating.
How Long have You Played Runescape
10 years
Are you affilated in anyway with Jagex LTD?
no
—————————————————–
Please write down a paragraph about Yourself.
my goal here is to make a scar script for the power training of skill for the rest of this community, yes they may be w/c ect, but the main purpose if for the exp and skils, not nesesraly for the GP. im goin to auto to lvl 126 combat, which is my current goal.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
{.include srl/srl/misc/playerform.scar}
{.include srl/srl/extended/xInventory.scar}
{.include srl/srl/extended/xautotalk.scar}
{.include srl/srl/extended/xantiban.scar}
var position:string; enty,log,color1,color2,lastantiban,mmdungeon,closeddoortop,opendoortop:integer; runehead,addyhead,mithhead,steelhead,ironhead,bronzehead:integer; axelost:boolean; rundirection:string; mSpeed,logsToDo,wclvl:integer; // Initfrmdesign variables. frmdesign2 : TForm; Label1, Label2 : TLabel; GroupBox1 : TGroupBox; radN, radS, RadE, RadW : TRadioButton; Edit1, Edit2 : TEdit; btnStart : TButton;
//******************** Set These Constants if Needed *******************//
const StartPlayer = 0; // Determines who will play first
//**********************RuneScape Constants*******************************//
//************************************************************************//
const VersionNumber = '0.2'; // Compliant with Rev 568//************************************************************************//
procedure proggyReport;begin writeln('---------------------------------------------------')
writeln('Current Player ' + players[currentplayer].name)
writeln('Logs Chopped ' + inttostr(players[currentplayer].integer2))
writeln('Exp gained ' + intTostr(players[currentplayer].integer3))
writeln('Banked : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
writeln('Script running for '+timerunning) srlrandomsreport;end;
procedure loadbmps;
begin
entY := BitmapFromString(2, 7, 'z78DA73367536333074B1707174' + '737306B2612450C409C206CB3A199813603B22D800534513AF');
mmDungeon := BitmapFromString(4, 6, 'z78DA733330323436B0743' + '2303434727274B2707684906E48E2968E96168E648A4344DCCCCC' + '0CCC51D5638840480033CC20EB');
closedDoorTop := BitmapFromString(3, 18, 'z78DA333737353272' + '36279A347334B130321B0C22662E264E46161092AE2286262EA82' + '4007D934685');
openDoorTop := BitmapFromString(10, 3, 'z78DA33333331333233' + '238F7434B1209B74317132B230373471219D04006E7C264F');
end;
procedure saveInfo;
begin
SaveSetting('YewChopper','Logs',edit1.text)
Savesetting('YewChopper','MSpeed',edit2.text)
saveSetting('YewChopper','Direction',runDirection)
end;
procedure assign(sender :tobject);begin logsTodo:= strtoint(edit1.text) writeln(inttostr(logstodo)) mSpeed := StrtoInt(edit2.text) if radN.Checked then begin rundirection := 'N' end; if radS.Checked then begin rundirection := 'S' end; if radE.Checked then begin rundirection := 'E' end; if radW.Checked then begin rundirection := 'W' end; saveInfo; frmdesign2.modalresult := mrOk;end;
// This form was parsed using: DFM Form Parser v.22 by Ron.procedure Initfrmdesign2;var TimeInitfrmdesign2 : Integer;begin TimeInitfrmdesign2 := GetSystemTime; frmdesign2 := CreateForm; frmdesign2.Position := poDesktopCenter; frmdesign2.BorderStyle := bsSingle;// frmdesign2.BorderStyle := [biMinimize,biSystemMenu]; frmdesign2.ClientWidth := 316; frmdesign2.ClientHeight := 263; frmdesign2.Caption := 'frmdesign2'; frmdesign2.Color := clBtnFace; frmdesign2.Font.Color := clWindowText; frmdesign2.Font.Height := -11; frmdesign2.Font.Name := 'MS Sans Serif'; frmdesign2.Font.Style := []; frmdesign2.PixelsPerInch := 96; Label1 := TLabel.Create(frmdesign2); Label1.Parent := frmdesign2; Label1.Left := 12; Label1.Top := 144; Label1.Width := 134; Label1.Height := 13; Label1.Caption := 'Logs before switching player'; Label2 := TLabel.Create(frmdesign2); Label2.Parent := frmdesign2; Label2.Left := 85; Label2.Top := 173; Label2.Width := 64; Label2.Height := 13; Label2.Caption := 'Mouse speed'; GroupBox1 := TGroupBox.Create(frmdesign2); GroupBox1.Parent := frmdesign2; GroupBox1.Left := 22; GroupBox1.Top := 25; GroupBox1.Width := 137; GroupBox1.Height := 100; GroupBox1.Caption := 'Run away Direction'; GroupBox1.TabOrder := 0; rundirection:=loadsetting('AlexYewChopper','Direction') radN := TRadioButton.Create(GroupBox1); radN.Parent := GroupBox1; radN.Left := 6; radN.Top := 21; radN.Width := 113; radN.Height := 17; radN.Caption := 'North'; radN.TabOrder := 0; if rundirection ='N' then radN.checked := true if rundirection ='' then radN.checked := true radS := TRadioButton.Create(GroupBox1); radS.Parent := GroupBox1; radS.Left := 6; radS.Top := 37; radS.Width := 113; radS.Height := 17; radS.Caption := 'South'; radS.TabOrder := 1; if rundirection ='S' then radS.checked := true RadE := TRadioButton.Create(GroupBox1); RadE.Parent := GroupBox1; RadE.Left := 6; RadE.Top := 54; RadE.Width := 113; RadE.Height := 17; RadE.Caption := 'East'; RadE.TabOrder := 2; if rundirection ='E' then radE.checked := true RadW := TRadioButton.Create(GroupBox1); RadW.Parent := GroupBox1; RadW.Left := 6; RadW.Top := 70; RadW.Width := 113; RadW.Height := 17; RadW.Caption := 'West'; RadW.TabOrder := 3; if rundirection ='W' then radW.checked := true Edit1 := TEdit.Create(frmdesign2); Edit1.Parent := frmdesign2; Edit1.Left := 155; Edit1.Top := 139; Edit1.Width := 134; Edit1.Height := 21; Edit1.TabOrder := 1; Edit1.Text := loadsetting('AlexYewChopper','Logs'); Edit2 := TEdit.Create(frmdesign2); Edit2.Parent := frmdesign2; Edit2.Left := 156; Edit2.Top := 170; Edit2.Width := 132; Edit2.Height := 21; Edit2.TabOrder := 2; Edit2.Text := loadsetting('Alexyewchopper','Mspeed'); btnStart := TButton.Create(frmdesign2); btnstart.onclick := @assign btnStart.Parent := frmdesign2; btnStart.Left := 65; btnStart.Top := 207; btnStart.Width := 189; btnStart.Height := 44; btnStart.Caption := 'Start!'; btnStart.Font.Color := clWindowText; btnStart.Font.Height := -19; btnStart.Font.Name := 'MS Sans Serif'; btnStart.Font.Style := [fsBold]; btnStart.ParentFont := False; btnStart.TabOrder := 3; WriteLn('Initfrmdesign2 compiled in ' + IntToStr(GetSystemTime - TimeInitfrmdesign2) + ' milliseconds!');end; procedure SafeInitfrmdesign2;var V : TVariantArray;begin SetArrayLength(V, 0); ThreadSafeCall('Initfrmdesign2', V); SetArrayLength(V, 0)end; procedure ShowInitfrmdesign2Modal;begin frmdesign2.ShowModal;end; procedure SafeShowInitfrmdesign2Modal;var V : TVariantArray;begin SetArrayLength(V, 0); ThreadSafeCall('ShowInitfrmdesign2Modal', V);end; procedure MainInitfrmdesign2;begin try SafeInitfrmdesign2; SafeShowInitfrmdesign2Modal; finally FreeForm(frmdesign2); except WriteLn('An error seems to have occurred in: Initfrmdesign2'); end;end; //credit to starblaster for the next two proceduresprocedure Color32ToRGB(Color: Integer; var R, G, B: Integer); // Also from PowerSkills, Used In Ent Detectionbegin B := (Color and $00ff0000) shr 16; G := (Color and $0000ff00) shr 8; R := (Color and $000000ff);end;{ ---------------------------------------------------------------------------- ][ >> Part of Woodcutting ][ >> Function StarFindEnt(TreeName: String): Boolean; ][ >> Returns True if an Ent is Found ][ ---------------------------------------------------------------------------- } Function StarFindEnt(TreeName: String): Boolean;Var H, S, L: Extended; R, G, B: Integer; cx, cy, ax, ay, i: Integer; Temp: Array[0..5] of Integer;Begin if (IsTextInAreaEx(7, 7, 180, 25, cx, cy, TreeName, 100, UpChars, True, True, 0, 2, -1)) then Begin For i := 0 to 5 do Begin ax := cx + i; ay := cy + 3; Temp[i] := GetColor(ax, ay); //Writeln(IntToStr(Temp[i])+' '+IntToStr(ax)+' '+IntToStr(ay)); end; For i := 0 to 5 do Begin ColorToHSL(Temp[i], H, S, L); Color32ToRGB(Temp[i], R, G, B); If ((H >= 10) and (H <= 20) and (S >= 80) and (S <= 100) and (L >= 35) and (L <= 55)) then Begin Result := True; Exit; end else If ((R > 190) and (R < 225) and (G > 190) and (G < 225) and (B >= 0) and (B < 25)) then Begin Result := True; Exit; end end; end;end; procedure freebmps;begin freebitmap(enty)end; {//Oginially By Startblasterfunction AlexFindHead: Boolean;var c, AxeHeadDTM, Tries, x, y: Integer; hStart: Boolean;begin AxeHeadDTM := DTMFromString('78DA63CC62626078C180021C2312191E02694' + '620FE0F048C694035CF18D000231209A473816A9E12A1E6150135' + 'A94035AF09A801B9F9090135994498930C54F392809A3CCCF0415' + '70300FB8311DF'); GameTab(4); Result := True; c := CreateBitmapMaskFromText('You do not have an axe', SmallChars); if (FindBitmapMaskTolerance(c, x, y, 17, 410, 495, 452, 10, 85)) then begin if ((EquipAxe = False) and not (GetColor(590, 220) = Head) or not (GetColor(587, 219) = Head2) or not (GetColor(588, 218) = Head3)) then hStart := True; if (EquipAxe) then begin GameTab(5); Wait(200 + Random(200)); if not (GetColor(597, 294) = Head) or not (GetColor(600, 295) = Head2) or not (GetColor(599, 298) = Head3) then begin hStart := True; Mouse(592, 297, 2, 2, True); Wait(1000); end; end; end; if (hStart = True) then begin Result := False; Tries := 0; repeat if not LoggedIn then Exit; if (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) then Break; if not (FindObjMulti('Take', Head, Head2, Head3, 5)) then begin Tries := Tries + 1; WriteLn('Axe head not found. Taken ' + IntToStr(tries) + ' tries'); Status('Axe Head not found - Rotating Screen'); KeyDown(VK_LEFT); Wait(1000 + Random(1000)); KeyUp(VK_LEFT); Wait(400 + Random(300)); if FindObjMulti('Take', Head, Head2, Head3, 5) then begin Status('Found Axe Head'); WriteLn('Axe head was found. Picking it up'); Wait(450 + Random(400)); GetMousePos(x, y); Mouse(x, y, 0, 0, True); Flag; Wait(500 + Random(300)); end; end; until (tries > 9) or (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) if not (tries > 9) then if (AttachHead) then Result := True; end; FreeBitmap(c); FreeDTM(AxeHeadDTM);end; } //By wt-fakawiFunction FindFastRandoms: Boolean;var i: Integer;begin for i:=1 to 11 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; 8: begin if InBlack then begin Result := True; Players[CurrentPlayer].loc := 'InBlack'; Logout; Exit; end; end; 9: begin if not findhead then begin axelost:=true makecompass('N') end; end; 10: begin if starfindent('Yew') then begin mousespeed:=5 mouse(651,89,1,1,true) boredhuman; wait(30000+random(5000)) mousespeed:=mspeed EntsAvoided := EntsAvoided + 1; end; end; 11: begin if findfight then begin runawaydirection(rundirection) wait(25000+random(5000)) runback; end; end; end; wait(1); end;end; procedure getposition;begin if findsymbol(x,y,'water') then begin position:='North' end else begin position:='South' end;end; function switchposition:boolean;begin getposition; if position = 'South' then begin if findcolorspiraltolerance(x,y,91905,630,20,672,67,50) then begin mouse(x+6,y+5,2,2,true) flag; result:= true end else result:=false end; if position = 'North' then begin if findcolorspiraltolerance(x,y,91905,610,96,661,150,50) then begin mouse(x+6,y-5,2,2,true) flag; result:= true end else result:=false end;end; {if FindObj(x,y,'Door',2575216,40) then begin mmouse(x,y,0,0) wait(1000+random(245)) if isuptext('Open') then begin mouse(x,y,0,0,false) clickoption('pen',1) flag; end; end else begin writeln('Could not find door') result:=false end;} function checkDoor:boolean;var c:integer;beginrepeat c := c + 1 x:=mscx y:=mscy if ((findbitmapspiraltolerance(opendoortop,x,y,MSX1,MSY1,MSX2,MSY2,25)) Or (findbitmapspiraltolerance(closeddoortop,x,y,MSX1,MSy1,MSX2,MSY2,25))) then begin mmouse(x,y,0,0) wait(500+random(100)) if isuptext('Door') then begin if isuptext('Open') then begin mouse(x,y,0,0,false) clickoption('Open',1) flag; end; result:=true exit; end; end;until(c >= 10)if c >= 10 then result := falseend; function walktoyews:boolean; begin mouse(646,142,3,3,true) flag; x:=MMCX y:=MMCY //if FindColorspiralTolerance(x,y,236,MMX1,MMY1,MMX2,MMY2,20) then if findbitmaptolerancein(mmdungeon,x,y,MMX1,MMY1,MMX2,MMY2,50) then begin mouse(x,y,0,0,true) flag; end else begin result:=false writeln('Could not find dungeon symbol') exit; end; x:=mmcx y:=mmcy checkdoor;// mmyew:=getsymbolcolor(tx,ty,'tree') //if findcolorspiraltolerance(x,y,mmyew,mmx1,mmy1,mmx2,mmy2,30) then //if findcolorspiraltolerance(x,y,91905,630,20,672,67,30) then if findsymbol(x,y,'Tree') then begin mouse(x+10,y-3,3,3,true) flag; result := true end else begin writeln('Could not find tree symbol') result:=false end;end; // By Lorax -- Edited by startblasterFunction UpdateCoords(Var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;var Counter: Integer;Begin If (ax < 20) then ax := 20; If (ay < 20) then ay := 20; While (FlagPresent) and (FindColorSpiralTolerance(cx, cy, TheColor, ax-20, ay-20, ax+20, ay+20, Tol)) do begin ax := cx; ay := cy; Wait(15); end; If (ax < 10) then ax := 10; If (ay < 10) then ay := 10; While (FindColorSpiralTolerance(cx, cy, TheColor, ax-10, ay-10, ax+10, ay+10, Tol)) and (Counter < 60) do begin ax := cx; ay := cy; Counter := Counter + 1; Wait(15); end; Result := FindColorSpiralTolerance(cx, cy, TheColor, ax-10, ay-10, ax+10, ay+10, Tol); if (not Result) then elseend; procedure tobank;begin getposition; if position = 'North' then switchposition; if findbitmaptolerancein(mmdungeon,x,y,MMX1,MMY1,MMX2,MMY2,50) then begin mouse(x,y,2,2,true) flag; checkdoor; mouse(650,20,5,5,true) flag; if findcolortolerance(x,y,6082797,mmx1,mmy1,mmx2,mmy2,50) then begin mouse(x,y,3,3,true) flag; end else begin writeln('Cannot find bank') nextplayer(true) end; end else begin writeln('Cannot find dungeon') nextplayer(true) end;end; procedure loadHeadbmps;begin{Runehead := BitmapFromString(7, 7, 'z78DA75CE3B12C0200804D' + '02BA1ECA2969ACFFD8F94442CC86442B10D0F66010E336436D395' + 'C26212734E824B4FE3612D7A2B09525DEA4661D793E08EF8FF2B8' + '946D18A4144E3B7512E2FC8E8D1FC4AC0B0FBE765F26362F216C8' + 'AF26B37934BEBD00FCF13C86'); }{runehead := BitmapFromString(6, 6, 'z78DA75CC311280200C05D' + '12B45D81FA014D1FB1FC961A0C05153A4D99780AA3BAED30B41C5' + '23A6E4E669C3B2F5D9E225D418F2CF64AA58EBB87A1823B0AFF5C' + '380D3C6B75943AFEB9E5214593C64DADFF50603202C9D');} runehead := BitmapFromString(4, 7, 'z78DA6DC8B90DC0201' + '005D19616FD0348C1B8FF922C6482B5E40926786C0E0F52D326D4' + '0DF7A2E8AC5A6E3F9E844555F7F124D931B8548F68CB7B340E014' + 'BD0953D760553A18F3CC036234B'); addyHead := BitmapFromString(6, 8, 'z78DA658F4B12C0200843A' + 'F4449ACBA6C3BF5FE47123F0B1861C8260F8394A4144E456343F3' + '2AA3AEE512898427EF6C56590C3EBE36C73B8121150C2973CB33F' + 'AE3B171EEC9C012A0C8764EDEAE0ED76B483C98FDAF6AB7729385' + '157157D4BA0396A63C73');mithhead := BitmapFromString(5, 7, 'z78DA758C310EC0200C03BF' + '64B003ACA888FF3FA9503284A1B1E4E1AC8B20147072DAE0C361B' + 'DD42434EC4B9173C5EAB51EFEB77EC4BBB199AE5594865B79F3D8' + '04B3BA5B811FD73F18CD103991575E5C2F2B9F'); steelhead := BitmapFromString(5, 7, 'z78DA558E4B0EC0200805A' + 'F841F1EBAB415EF7FA44234913A898B99409029D5E8420663E285' + 'A44A8DFCA5E8A5E0C1F855C1826E2F09DD88357A8538B702ACACA' + '766F7F1E7C58D9BDD528DE0F7ECD930909DEB0B65E3033B532BA0' + ''); ironhead := BitmapFromString(6, 7, 'z78DA754D5B0EC0200CBA92' + '0A55F7E9F3FE479AA6FDD02CA309698000279F753FEC36BC04565' + '6210787FEEAC6E4E9B266D899184F57952B034CCC6BE593418140' + '54372E5CB8321D19D9DAB4216CF7645B746868D6F0715F9246350' + 'C'); bronzehead := BitmapFromString(5, 7, 'z78DA6D8CC10DC0300803' + '57029BA6F94694FD576AD3F0404AB0E4C79DB0051DB4C10E59DD6' + 'E35E9324F2BB7C64BE3607F7EB085EF960F423D3926AF9D16847A' + 'E5EB37F78BCD4DC19717E6D42B0D');end; procedure freeheadbmps;begin freebitmap(runehead) freebitmap(addyhead) freebitmap(mithhead) freebitmap(steelhead) freebitmap(ironhead) freebitmap(bronzehead)end; //Adapted from my Guild miner.function findbestaxe:boolean;varnewpick:boolean;begin loadheadbmps; if axelost then begin depositall; if (FindBitmapTolerancein(runehead,x,y,MSX1,MSY1,MSX2,MSY2,20)) and (wclvl >40) then begin mouse(x,y,2,2,true) axelost:=false closebank; wait(500+random(300)) mouse(586, 218,0,0,true) newpick:=true result:=true exit; end; if FindBitmapTolerancein(addyhead,x,y,MSX1,MSY1,MSX2,MSY2,20) and (wclvl >=31) then begin mouse(x,y,2,2,true) axelost:=false closebank; wait(500+random(300)) mouse(586, 218,0,0,true) newpick:=true exit; end; if findbitmaptolerancein(mithhead,x,y,MSX1,MSY1,MSX2,MSY2,20) and (wclvl >=21) then begin mouse(x,y,2,2,true) axelost:=false closebank; wait(500+random(300)) mouse(586, 218,0,0,true) result:=true exit; end; if findbitmaptolerancein(steelhead,x,y,MSX1,MSY1,MSX2,MSY2,20) and (wclvl >=6) then begin mouse(x,y,2,2,true) axelost:=false closebank; wait(500+random(300)) mouse(586, 218,0,0,true) result:=true exit; end; if findbitmaptolerancein(ironhead,x,y,MSX1,MSY1,MSX2,MSY2,20) and (wclvl >=0)then begin mouse(x,y,2,2,true) axelost:=false closebank; wait(500+random(300)) mouse(586, 218,0,0,true) result:=true exit; end; if findbitmaptolerancein(bronzehead,x,y,MSX1,MSY1,MSX2,MSY2,20) and (wclvl >=0) then begin mouse(x,y,2,2,true) axelost:=false closebank; wait(500+random(300)) mouse(586, 218,0,0,true) result:=true exit; end; if not result then begin writeln('Could not find any more picks in bank') closebank; end; end; freeheadbmps;end; procedure Depositstuff;beginlog:= DTMFromString('78DA8DD0310E40000C85E1D6E64A0C6211913' + '020CEEC0AC226B120DC807FC4F2BCA47DCBB7B45E04668BBDD224' + 'A1F5B43317F10C33D927FED874891984A931A3302D6616A6C3ACC' + '254985D981C730893624E6122CC264CFCE3AE44FFF906625F13BA' + '');wclvl:= getskilllevel('Woodcutting')gametab(4)if axelost thenbegin openbank3; flag; if pinscreen then begin writeln('Pinscreen found. remove pin') nextplayer(false) end; fixbank; if not findbestaxe then begin nextplayer(false) exit; end;end;openbank3;flag;players[currentplayer].integer2:= players[currentplayer].integer2 + CountItemDtm(log)players[currentplayer].integer3:= players[currentplayer].integer2 * 175reportvars[0]:=reportvars[0] + CountItemDtm(log)writeln(inttostr(reportvars[0]))reportvars[1]:= reportvars[1] + (CountItemDtm(log) * 175)writeln(inttostr(reportvars[1]))players[currentplayer].banked := players[currentplayer].banked + 1if pinscreen then begin writeln('Pinscreen found. remove pin') nextplayer(false) end;if bankscreen thenbeginDeposit(2,28,2)closebank;makecompass('N')end; if players[currentplayer].integer2 >= logstodo thenbegin writeln('All logs chopped') nextPlayer(true)end;end; procedure waitwhilecutting;begin color2:=getcolor(x,y) marktime(mark) repeat findtalk; findnormalrandoms; findfastrandoms; if invfull then break; if timefrommark(mark) > 40000 then exit; until(not isuptext('Chop'))end; function chop: boolean;var fx,fy,c:integer;begin repeat //if FindObj(fx,fy,'Yew',2048,5) then if FindObj3(fx,fy,'Yew',1718328,5) then begin color1:=getcolor(fx,fy) mmouse(fx,fy,3,3) findfastrandoms mouse(fx,fy,3,3,true) result:= true c:=0 if Updatecoords(x,y,fx,fy,color1,2) then begin mmouse(x,y,0,0) waitwhilecutting; end else exit; end else begin wait(1000+random(500)) c:=c+1 end; until((result = true) or (c >5 )) if c > 5 then begin result:=false c:=0 end; end; procedure antibannage;begin case random(20) of 1: Boredhuman 3: hoverskill('Random',false) 5: begin RandomRClick clickoption('Cancel',1) end; 7: RandomChat 9: pickupmouse 11: antiBan; 13: begin gametab(1+random(11)) wait(3000+random(1000)) gametab(4) end; end;end; procedure VersionCheck;var versionString:string; version:extended; begin versionstring:=Getpage('http://www.freewebs.com/scaralex/ScriptVersions/YewChopper.txt') version:=strtofloat(versionstring) writeln('Curren version is '+floattostr(version)) writeln('Version running at the moment is '+versionnumber) if version > strtofloat(versionnumber) then begin writeln('Update is available') writeln('http://www.srl-forums.com/forum/alexs-edge-yew-p99410.html#post99410') end else begin writeln('You are completly uptodate.') end;end; //By Sumilionprocedure WriteNews(HowMany: Integer);var Timer, i, x, y: Integer; News :array of string; New, TheNews: string;begin ChangeReportWidth(280); SetArrayLength(News, HowMany+1); Status('Downloading news ...'); Wait(1); TheNews := Getpage('http://www.freewebs.com/scaralex/ChangeLogs/yewchopper.txt'); x := 0; AddToReport('//============================\\'); AddToReport('| >> fakawizzup (v' + VersionNumber + ')'); AddToReport('|'); y := 1; for i := 1 to HowMany do begin MarkTime(Timer); repeat x := x + 1; Thenews:= trim(thenews) new := copy(TheNews, x, x+1); if(new = '|')then begin i := HowMany; Break; end; until(copy(new, 1, 1) = ',')or(TimeFromMark(Timer) >= 2000); news[i]:= copy(TheNews, y, (x-y)); y := x + 1; AddToReport('| :: '+news[i]); Wait(1); end; AddToReport('|'); AddToReport('\\============================//');end; procedure setup;begin setupsrl; scriptid := '127' writenews(30) versioncheck; setupplayers; ClearDebug; MainInitfrmdesign2; activateclient; ClearDebug; wait(2500+random(500)) proggyreport; {if loggedin then begin Logout; end; wait(2000) if loggedin then begin Logout; end;} wait(2000) loginplayer; proggyreport; cleardebug; mousespeed:=mSpeed; makecompass('N') highestangle;end; beginsetup; repeat loadbmps; if not findaxeheadcolor then begin axelost:=true end; walktoyews; players[currentplayer].integer1 :=logstoDo if not loggedin then loginplayer; repeat players[currentplayer].integer1 :=logstoDo lastantiban:= lastantiban + 1 if lastantiban > 10 then begin lastantiban:=0 if random(3) = 1 then
begin antibannage; end; end; if not chop then begin if not switchposition then begin writeln('Lost') nextplayer(true) end; end; freebmps; until((invfull) or (axelost)) if invfull or axelost then begin makecompass('N') tobank; depositstuff; proggyReport; end; until(false)
end.