PDA

View Full Version : Soulsplit Include (V2)



rj
04-26-2014, 02:24 AM
I have decided to abandon my multi RSPS include project for the following reasons

1) Too much of an ass to keep up with all servers
2) You can't include everything in 1 include
3) Ended up being too sloppy



Now I am beginning work on a soulsplit include, which will utilize lape much better than the RSPS include did (which really didn't utilize it at all). It will pretty much have all the functions SRL has for Runescape


The work begins: https://github.com/officerBarbrady/SSInclude

Functions that are coded, but need to be corrected to be compatible with SS include:



procedure ActivateSoulsplit();
procedure SetUpSoulsplitInclude(update:boolean);
function SSBankScreen.open:boolean;
procedure SSBankScreen.close();
function ssChatBox.getchat(line:integer):string;
function ssChatBox.getchat:tstringarray;overload;
function ssChatBox.getchat(line:integer;colors:tintegerArra y):string;
function ssChatBox.getChatText(line:integer):string;
function ssChatBox.getChatText:tstringarray; overload;
function ssChatBox.chatTextExists(text:string):boolean;
function ssChatBox.chatTextExists(text:TStringArray):boolea n; overload;
function ssChatBox.getNpcText:array of chatOption;
function ssChatBox.clickNpcText(text:string):boolean;
function ssChatBox.clickNpcText(text:tstringarray):boolean; overload;
function TFile.exists():boolean;
procedure TFile.recall(const filePath, fileName, fileExtension:string);
function newFile(const filePath, fileName, fileExtension:string):TFile;
function TFile.open():integer;
function TFile.readString(const strLength:integer):string;
function TFile.readString():string; overload;
function TFile.rewrite():integer;
function TFile.setText(const str:string):boolean;
function TFile.parseData(const str1, str2:string):string;
function TFile.delete():boolean;
procedure TFile.create(const filePath, fileName, fileExtension, writeData:string;overwrite:boolean);
procedure TFile.create(const thePath, writeData, fileExtension, thename:string); overload;
function ssGameTab.getCurrentTab:integer;
function ssGameTab.getCurrentTabString:string;
function ssGameTab.gameTab(tab:integer):boolean;
procedure ssGameTab.openTab(tab:integer);
function ssGameTab.getFriendName(index:integer):string
function ssGameTab.getFriendNames:TStringArray;
function ssGameTab.getWeaponName:string;
function ssGameTab.getTotalLevel:integer;
function ssGameTab.getSpellBookBounds():TBox;
function ssGameTab.getSpellName():string;
function ssGameTab.getAttackMode():integer;
function ssGameTab.getAttackModeName(index:integer):string; overload;
function ssGameTab.getAttackModeString():string;
procedure ssGameTab.switchStyle(style:integer);
procedure ssGameTab.switchStyle(style:string); overload;
function ssGameTab.getCombatLevelString():string;
function ssGameTab.getCombatLevel():integer;
function ssInterface.getTPA:TPointArray;
function ssInterface.getBounds:TBox;
function ssInterface.open:boolean;
function ssInterface.getName:string;
function ssInterface.getDescription:string;
procedure ssInterface.close;
function SSinventory.getSlot(slot:integer):Tbox;
function SSinventory.slotFull(slot:Integer):Boolean;
function SSinventory.count:Integer;
function SSinventory.full:Boolean;
procedure SSinventory.interactItem(slot:Integer; Button:Integer);
procedure SSinventory.mouseItem(slot:Integer);
function SSinventory.bitmapExists(bmp, slot, tol:integer):boolean;
function SSinventory.searchBitmap(BMPSearch, tol:Integer;click, cont:Boolean):Boolean;
function SSinventory.countBitmap(bmpSearch, tol:Integer):Integer;
function SSinventory.DTMExists(DTM, slot:integer):boolean;
function SSinventory.countDTM(DTMSearch:Integer):Integer;
function SSinventory.searchDTM(DTMSearch:Integer;click, cont:Boolean;button:Integer):Boolean;
function SSinventory.searchDTM(DTMSearch:Integer;cont:Boole an;button:Integer):Boolean; overload;
function SSinventory.searchDTM(DTMSearch:Integer;button:Int eger):Boolean; overload;
function SSinventory.itemAmount(slot:integer):integer;
function SSinventory.totalItemAmount:Int64;
function SSinventory.DTMPosition(model:integer):integer;
function SSinventory.DTMPositionMulti(DTM:integer):TInteger Array;
function SSinventory.DTMPositionMulti(DTM:TIntegerarray):TI ntegerArray; overload;
function SSinventory.bitmapPosition(bmp, tol:integer):integer;
function SSinventory.bitmapPositionMulti(bmp, tol:integer):TIntegerArray;
function SSinventory.bitmapPositionMulti(bmp, tol:TIntegerarray):TIntegerArray; overload;
function SSinventory.getItemName(slot:integer):string;
function SSinventory.dropItem(slot:integer):boolean;
function SSinventory.dropAll:boolean;
function SSinventory.dropAll(pattern:TIntegerArray):boolean ; overload;
procedure SSinventory.dropAllExcept(slots:TIntegerArray);
procedure SSinventory.dropAllButUptext(text:TStringArray);
procedure SSinventory.dropAllButBitmap(bmp, tol:integer);
procedure SSinventory.dropAllButBitmap(bmp, tol:TIntegerArray);overload;
procedure SSinventory.dropAllBitmap(bmp, tol:integer);
procedure SSinventory.dropBitmap(bmp, tol:TIntegerArray);overload;
procedure SSinventory.dropAllButDTM(DTM:integer);
procedure SSinventory.dropAllButDTM(DTM:TIntegerArray);overl oad;
procedure SSinventory.dropAllDTM(DTM:integer);
procedure SSinventory.dropDTM(DTM:TIntegerArray);overload;
Procedure setAngleHigh();
function loggedIn:boolean;
function someType.findObject(Colors, tols:TintegerArray;hue,sat:TExtendedArray;dist, minLength:integer;uptext:tstringarray;Useuptext,ri ghtClick:boolean):boolean;
function someType.findObject(Color, tol:integer;hue,sat:Extended;dist, minLength:integer;uptext:tstringarray;Useuptext,ri ghtClick:boolean):boolean; overload;
function someType.findObject(Color, tol:integer;hue,sat:Extended;uptext:tstringarray): boolean; overload;
procedure TPointArray.offset(p: TPoint);
function TPointArray.getBounds:TBox;
procedure freeBitmaps(bitmaps: TIntegerArray);
function ArrInStr(arrS: TStringArray; str: string): Boolean;
function BoxClosestPoint(p : TPoint; b : TBox) : TPoint;
function RandomPointBoxEx(p : TPoint; b : TBox; extraDist : integer) : TPoint;
function getPixelShift(b: TBoxArray; time: integer): TIntegerArray;
function getPixelShift(b: TBox; time: integer): integer; overload;
function getPixelShift(atpa: T2DPointArray; time: integer): TIntegerArray; overload;
function getPixelShift(tpa: TPointArray; t: integer): integer; overload;
function getPixelShiftAverage(b: TBoxArray; waitPerLoop, maxTime: integer): TIntegerArray;
function getPixelShiftAverage(b: TBox; waitPerLoop, maxTime: integer): integer; overload;
function getPixelShiftAverage(atpa: T2DPointArray; waitPerLoop, maxTime: integer): TIntegerArray; overload;
function getPixelShiftAverage(b: TPointArray; waitPerLoop, maxTime: integer): integer; overload;
function SSminimap.getHealth:integer;
function SSminimap.getPrayer:integer;
function SSminimap.getRun:integer;
function SSminimap.getCompassRadians: Extended;
function SSminimap.GetCompassAngleDegrees: Extended;
function SSminimap.runOn:boolean;
function SSminimap.runOff:boolean;
procedure SSminimap.setRun(turnOn:boolean);
procedure SSminimap.setRun(turnOn:boolean;energy:integer) overload;
procedure TPointArray.addIndex(const p : TPoint; const index : Integer);
procedure TPointArray.append(const p : TPoint);
function SSminimap.getDots(WhatDot: String; x1, y1, x2, y2: Integer): TPointArray;
procedure WindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
procedure MMouse(x, y, rx, ry: integer);
procedure mmouse(x, y:Integer);overload;
function VariantIsBoolean(const v: Variant): Boolean;
procedure ClickMouse2(button: variant);
procedure Mouse(mousex, mousey, ranx, rany: Integer; button: variant);
procedure Mouse(mousex, mousey: Integer; button: variant);overload;
procedure Mouse(mousex, mousey: Integer; button: fnct_actionOptions);overload;
procedure Mouse(mousex, mousey: Integer)overload;
procedure MouseBoxEx(x1, y1, x2, y2: Integer; Dist,ClickType: Integer);
function DidClick(Red: Boolean; Time: integer): boolean;
procedure TPrayerArray.Init(book:string);
function TPrayerArray.getID(name:string):integer;
function TPrayerArray.getIDs(names:tstringarray):TIntegerAr ray;
function TPrayerArray.prayerException(prayUse:TIntegerArray ;prayerID:Integer):Boolean;
function TPrayerArray.prayerException(prayUse,prayerID:Inte ger):Boolean; overload;
function TPrayerArray.prayerException(PrayerList:TStringArr ay;Prayer:string):Boolean; overload;
function TPrayerArray.prayerException(PrayerList,Prayer:str ing):Boolean; overload;
function TPrayerArray.getActivatedPrayers():TIntegerarray;
function TPrayerArray.getPrayerPointArray():TPointarray;
function TPrayerArray.getLevel(ID:integer):integer;
function TPrayerArray.getLevel(IDs:TIntegerArray):TIntegerA rray; overload;
function TPrayerArray.getLevel(name:string):integer; overload;
function TPrayerArray.getLevel(names:TStringArray):TInteger Array; overload;
function TPrayerArray.getName(ID:integer):string;
function TPrayerArray.getNames(IDs:TIntegerArray):TStringAr ray;
function TPrayerArray.getPrayerPoint(name:String):TPoint;
function TPrayerArray.getPrayerPoint(ID:integer):TPoint; overload;
function TPrayerArray.isPrayerOn(ID:integer):boolean;
function TPrayerArray.isPrayerOn(IDs:TIntegerArray):boolean ; overload;
function TPrayerArray.isPrayerOn(name:string):boolean; overload;
function TPrayerArray.isPrayerOn(names:TStringArray):boolea n; overload;
procedure TPrayerArray.activatePrayer(IDs:TIntegerarray;igno reOn:boolean);
procedure TPrayerArray.activatePrayer(IDs:TIntegerArray); overload;
procedure TPrayerArray.activatePrayer(names:TStringArray;ign oreOn:boolean); overload;
procedure TPrayerArray.activatePrayer(names:TStringArray); overload;
procedure TPrayerArray.activatePrayer(ID:integer;ignoreOn:bo olean); overload;
procedure TPrayerArray.activatePrayer(ID:integer);overload;
procedure TPrayerArray.activatePrayer(name:string;ignoreOn:b oolean);overload;
procedure TPrayerArray.activatePrayer(name:string);overload;
procedure TPrayerArray.deActivatePrayer(IDs:TIntegerarray;ig noreOn:boolean);
procedure TPrayerArray.deActivatePrayer(IDs:TIntegerArray); overload;
procedure TPrayerArray.deActivatePrayer(names:TStringArray;i gnoreOn:boolean); overload;
procedure TPrayerArray.deActivatePrayer(names:TStringArray); overload;
procedure TPrayerArray.deActivatePrayer(ID:integer;ignoreOn: boolean); overload;
procedure TPrayerArray.deActivatePrayer(ID:integer);overload ;
procedure TPrayerArray.deActivatePrayer(name:string;ignoreOn :boolean);overload;
procedure TPrayerArray.deActivatePrayer(name:string);overloa d;
procedure TPrayerArray.deActivateAll();
function TPrayerArray.getActivatedPrayersString():TStringAr ray;
function TPrayerArray.canUse(ID:integer):boolean;
function TPrayerArray.canUse(name:string):boolean overload;
function TPrayerArray.getActivatedCount():integer;
function isText(Text, theText: TStringArray): Boolean;
function ss_xpBarOpen:boolean;
function ss_getXpBarTPA:TPointArray;
function ss_getXpBarTotalString:string;
function ss_getXPBarTotal:integer;
function Tbox.getAmount:integer;
function getSimpleText(Colors:TIntegerArray;x1, y1, x2, y2:integer;font:string):String;
function getUptext:string;
function _317_GetChooseOptions(): Array of TOptions;
function someType.ChooseOptionMulti(Texts: TStringArray; TextType: String; Action: fnct_ActionOptions): Boolean;
function someType.chooseOptionMulti(Txt: TStringArray): Boolean; overload;
function someType.chooseOption(Txt, TextType: string): Boolean;
function someType.chooseOption(Txt: String): Boolean; overload;
procedure TypeByte(k: Byte);
procedure TypeSend(Text: string; PressEnter: Boolean);
procedure TypeSend(Text: string);overload;
function LoadTextTPA(Text, Chars: string; var height: integer): TPointArray;
function FindTextTPAEx(Color,Tol,xs,ys,xe,ye : integer;var x,y : integer; Txt, Chars : string; Action :fnct_actionOptions ) : Boolean;
function FindTextTPA(Color, Tol, xs, ys, xe, ye: integer; Txt, Chars: string; Action: fnct_actionOptions): Boolean;
function getOverHeadChatText:TStringArray;
function someType.WaitOptionMulti(S: TStringArray; TextType: string; Action: fnct_ActionOptions; Time: Integer): Boolean;
function someType.IsUpTextMulti(Text: TStringArray): Boolean;
function someType.waitOptionMulti(S: TStringArray; Time: Integer): Boolean; overload;
function someType.waitOption(S: string; Time: Integer): Boolean; overload;
function someType.waitUpTextMulti(S: TStringArray; Time: Integer): Boolean;
function someType.IsUpText(UpText: string): Boolean;
function someType.waitUptext(S: string; Time: Integer): Boolean;
function WaitFunc(Func: function: Boolean; WaitPerLoop, MaxTime: Integer): Boolean;
procedure markTime(var t:Integer);
function timeFromMark(i:Integer):Integer;
function MsToTime(MS, TheType: Integer): string;
function TimeRunning: string;





All of these functions are working, and the include is in compiling order as of April 27 2014