SRL Archive - Discussions and Debates

You read correctly, this if YOUR chance to constribute to SCAR!
I want to create a new manual for SCAR which will be a tidy chm, the manual will contain a page for each function in SCAR with detailed explanations and an example. However, due to the fact that coding SCAR alone is already robbing most of my time, I don't have the additional time to do this within the next year or so. ;) That's why I need help making the pages for the functions.

Added to the thread is an archive with a few example pages (all have to be html, use the examples for getting the layout right)
Also the current chm file.
Finally I also added procedureparams, which contains the functions of SCAR Divi 3.05 (The really basic functions aren't in it though, check the current manual for them)

Now, what do you get out of this? Well, there isn't a whole lot I can offer, but your name will be put in the manual.

The pages do have to meet a certain … quality ;)

Well, thx in advance for the help.

Will do. :)

How's this? (attached a FindWindowBySize document)

Sweet I can't wait to help XD

Heres one that includes:

clickmouse
sendinterscarmessage
releasemouse
readinterscarmessage
holdmouse
sendinterscarinteger

EDIT: and if everyone did atleast 1, we can get this done.

From: bullzeye95
How's this? (attached a FindWindowBySize document)

Description:
Clears the text in the debugbox.

You might want to fix that.

–

I can try to do some form stuff. And maybe Sky can do a lot too. ;)

Here's a list of what needs to be done (will be updated if it's helpful to anyone…)

I guess Ima have to decide what to write about…

Todo (my list)

procedure rs_FixMouse(var x,y: integer; slot: Integer);
procedure rs_FixMouseEx(var x,y: integer; slot, maxshift, squaresx, squaresy, squaresize: Integer; minaccuracy: Extended);
function rs_GetUpText: string;
function rs_GetCompassAngleDegrees: Extended;
function rs_GetCompassAngleRadians: Extended;
function rs_ScanMiniMap(iFrom, iTo, Distance, Color: Integer): Integer;
function rs_OnMinimap(x, y: Integer): Boolean;
function rs_FindMMColors(Color: Integer): TIntegerArray;
procedure rs_DeleteUID;
function rs_DeleteUIDEx(Folder: string): Boolean;
function rs_GetInvSlot(xx, yy: Integer): Integer;
procedure rs_GetInvRC(xx, yy: Integer; var Row, Col: Integer);
function rs_GetShopSlot(xx, yy: Integer): Integer;
function rs_GetShopRC(xx, yy: Integer): Integer;
function rs_ShopScreen: Boolean;
function rs_FindShopColorSlot(var Slot: Integer; Color, Tolerance: Integer): Boolean;
function rs_FindShopBitmapSlot(var Slot: Integer; Bitmap, Tolerance: Integer): Boolean;
function rs_FindShopDTMSlot(var Slot: Integer; DTM: Integer): Boolean;
function rs_FindShopColorRC(var Row, Col: Integer; Color, Tolerance: Integer): Boolean;
function rs_FindShopBitmapRC(var Row, Col: Integer; Bitmap, Tolerance: Integer): Boolean;
function rs_FindShopDTMRC(var Row, Col: Integer; DTM: Integer): Boolean;
function rs_GetCurrentTab: Integer;
function rs_FindInvColorSlot(var Slot: Integer; Color, Tolerance: Integer): Boolean;
function rs_FindInvBitmapSlot(var Slot: Integer; Bitmap, Tolerance: Integer): Boolean;
function rs_FindInvDTMSlot(var Slot: Integer; DTM: Integer): Boolean;
function rs_FindInvColorRC(var Row, Col: Integer; Color, Tolerance: Integer): Boolean;
function rs_FindInvBitmapRC(var Row, Col: Integer; Bitmap, Tolerance: Integer): Boolean;
function rs_FindInvDTMRC(var Row, Col: Integer; DTM: Integer): Boolean;
  //procedure GetMousePos(var x, y: Integer);
  //procedure MoveMouse(x, y: Integer);
  //procedure MoveMouseSmooth(x, y: Integer);
procedure MoveMouseSmoothEx(x, y: Integer; minsleeptime, maxsleeptime, maxdistance, gravity, forces: Integer);
procedure MoveMouseSmoothFrom(x1, y1, x2, y2: Integer);
procedure MoveMouseSmoothFromEx(x1, y1, x2, y2: Integer; minsleeptime, maxsleeptime, maxdistance, gravity, forces: Integer);
  //procedure ClickMouse(x, y: Integer; Left: Boolean);
  //procedure HoldMouse(x, y: Integer; Left: Boolean);
  //procedure ReleaseMouse(x, y: Integer; Left: Boolean);
procedure ClickMouseMid(x, y: Integer);
procedure HoldMouseMid(x, y: Integer);
procedure ReleaseMouseMid(x, y: Integer);
procedure SetMouseMode(Silent: Boolean);
procedure MoveMouseSpline(x, y, rx, ry: Integer);
procedure MoveMouseSplineEx(x, y, rx, ry, mouseSpeed, ctrlSpacing, ctrlVariance: Integer);
procedure MoveMouseSplineFrom(sx, sy, ex, ey, rx, ry: Integer);
procedure MoveMouseSplineFromEx(sx, sy, ex, ey, rx, ry, mouseSpeed, ctrlSpacing, ctrlVariance: Integer);
procedure ClickMouseSpline(x, y, rx, ry: Integer; left: Boolean);
procedure MouseBox(x1, y1, x2, y2: Integer);
procedure ClickMouseBox(x1, y1, x2, y2: Integer; left: Boolean);
procedure MoveMouseCC(x, y, range, segments, pcount, delay: Integer);
  //function SendInterSCARMessage(id, message: string): Boolean;
  //function ReadInterSCARMessage(id: string): string;
  //procedure SendInterSCARInteger(id: String; Int: Integer);
function ReadInterSCARInteger(id: String): Integer;
procedure SendInterSCARBoolean(id: String; Bool: Boolean);
function ReadInterSCARBoolean(id: String): Boolean;
procedure SendInterSCARExtended(id: String; Numb: Extended);
function ReadInterSCARExtended(id: String): Extended;
function ReadInterSCARInt64(id: String): Int64;
procedure SendInterSCARInt64(id: String; Numb: Int64);
function WriteFileByte(FileNum: Integer; b: Byte): Boolean;
function WriteFileInt(FileNum: Integer; i: Integer): Boolean;
function WriteFileString(FileNum: Integer; s: string): Boolean;
function ReadFileByte(FileNum: Integer; var b: Byte): Boolean;
function ReadFileInt(FileNum: Integer; var i: Integer): Boolean;
function ReadFileString(FileNum: Integer; var s: string; Length: Integer): Boolean;
procedure CloseFile(FileNum: Integer);
function EndOfFile(FileNum: Integer): Boolean;
function FileSize(FileNum: Integer): LongInt;
function OpenFile(Path: string; Shared: Boolean): Integer;
function RewriteFile(Path: string; Shared: Boolean): Integer;
procedure WriteINI(Section, KeyName, NewString, FileName: string);
function ReadINI(Section, KeyName, FileName: string): string;
function DirectoryExists(Directory: string): Boolean;
function FileExists(FileName: string): Boolean;
function ExtractFileName(FileName: string): string;
function ExtractFilePath(FileName: string): string;
function ExtractFileExt(FileName: string): string;
function ExtractFileDrive(FileName: string): string;
function GetFiles(Path, Ext: string): TStringArray;
procedure SaveToFile(Sender: TObject; FileName: string);
procedure LoadFromFile(Sender: TObject; FileName: string);
function GetSystemTime: Integer;
function GetTickCount: Integer;
function GetTimeRunning: Integer;
procedure ConvertTime(Ms: Integer; var H, M, S: Integer);
function Left(Text: string; Count: Integer): string;
function Right(Text: string; Count: Integer): string;
function Replace(Text, FindStr, ReplaceStr: string): string;
function GetNumbers(Text: string): string;
function GetLetters(Text: string): string;
function GetOthers(Text: string): string;
function TrimNumbers(Text: string): string;
function TrimLetters(Text: string): string;
function TrimOthers(Text: string): string;
function Capitalize(S: string): string;
function InStrArr(Str: string; Arr: TStringArray; CaseSensitive: Boolean): Boolean;
function Pow(Base, Exponent: Extended): Extended;
function IntPow(Base: Extended; Exponent: Integer): Extended;
function Max(a, b: Integer): Integer;
function MaxE(a, b: Extended): Extended;
function Min(a, b: Integer): Integer;
function MinE(a, b: Extended): Extended;
function SameValue(A, B: Extended): Boolean;
function Degrees(Radians: Extended): Extended;
function Radians(Degrees: Extended): Extended;
function ArcCos(X: Extended): Extended;
function ArcTan2(Y, X: Extended): Extended;
function Tan(X: Extended): Extended;
function ArcTan(X: Extended): Extended;
function ArcSin(X: Extended): Extended;
function Cotan(X: Extended): Extended;
function Secant(X: Extended): Extended;
function Cosecant(X: Extended): Extended;
function Hypot(X, Y: Extended): Extended;
function Cot(X: Extended): Extended;
function Sec(X: Extended): Extended;
function Csc(X: Extended): Extended;
function Cosh(X: Extended): Extended;
function Sinh(X: Extended): Extended;
function Tanh(X: Extended): Extended;
function CotH(X: Extended): Extended;
function SecH(X: Extended): Extended;
function CscH(X: Extended): Extended;
function ArcCot(X: Extended): Extended;
function ArcSec(X: Extended): Extended;
function ArcCsc(X: Extended): Extended;
function ArcCosh(X: Extended): Extended;
function ArcSinh(X: Extended): Extended;
function ArcTanh(X: Extended): Extended;
function ArcCotH(X: Extended): Extended;
function ArcSecH(X: Extended): Extended;
function ArcCscH(X: Extended): Extended;
function LnXP1(X: Extended): Extended;
function Log10(X: Extended): Extended;
function Log2(X: Extended): Extended;
function LogN(Base, X: Extended): Extended;
function Fract(number: Int64): Int64;
function BinCoe(a, b: LongInt): Extended;
function InRange(Value, Min, Max: Integer): Boolean;
function Distance(x1, y1, x2, y2: Integer): Integer;
function Sqr(X: Extended): Extended;
function Exp(Number: Extended): Extended;
function Rand: Extended;
function Inversus(E: Extended): Extended;
function Ceil(X: Extended): Integer;
function Floor(X: Extended): Integer;
function DecRet(E: Extended): Extended;
function InCircle(x, y, mx, my, r: Integer): Boolean;
procedure Inc(var Number: Integer);
procedure IncEx(var Number: Integer; nInc: Integer);
function Hypot(X, Y: Extended): Extended;
function InTriangle(x, y, x1, y1, x2, y2, x3, y3: Integer): Boolean;
  //procedure Writeln(s: string);
  //procedure ClearDebug;
procedure DeleteDebugLine(Line: Integer);
function GetDebugLineCount: Integer;
function GetDebugText: String;
  //procedure Status(s: string);
  //function GetStatus: string;
function Readln(question: string): string;
function GetTextAtEx(x, y: Integer; Tolerance: Integer; Chars: Integer; CheckShadow, CheckOutline: Boolean; MinSpacing, MaxSpacing: Integer; TextColor: Integer; TextLength: Integer; Strict: Boolean; Range: TCharRange): string;
function IsTextAtEx(x, y: Integer; S: String; Tolerance: Integer; Chars: Integer; CheckShadow, CheckOutline: Boolean; MinSpacing, MaxSpacing: Integer; TextColor: Integer): Boolean;
function IsTextInAreaEx(x1, y1, x2, y2: Integer; var x, y: Integer; S: String; Tolerance: Integer; Chars: Integer; CheckShadow, CheckOutline: Boolean; MinSpacing, MaxSpacing: Integer; TextColor: Integer): Boolean;
procedure PlaySound(s: string);
procedure SaveScreenshot(s: string);
function AppPath: string;
function ScriptPath: string;
function Random(Range: Integer): Integer;
function RandomRange(aFrom, aTo: Integer): Integer;
function RBool: Boolean;
function RBoolEx(Chance: Integer): Boolean;
  //function GetColor(x,y: Integer): Integer;
  //function FindColor(var x,y: Integer; color, xs, ys, xe, ye: Integer): Boolean;
function FindColorSpiral(var x,y: Integer; color, xs, ys, xe, ye: Integer): Boolean;
function FindColorSpiral2(var x,y: Integer; color, xs, ys, xe, ye: Integer): Boolean;
  //function FindColorTolerance(var x,y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean;
function FindColorSpiralTolerance(var x,y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean;
function FindColoredAreaTolerance(var x,y: Integer; color, xs, ys, xe, ye: Integer; MinArea, Tolerance: Integer): Boolean;
procedure FindColorsTolerance(var Points: TPointArray; color, xs, ys, xe, ye: Integer; Tolerance: Integer);
procedure ColorToleranceSpeed(x: integer);
function SimilarColors(col1, col2, tolerance: integer): Boolean;
procedure FindColorsSpiralTolerance(x, y: Integer; var Points: TPointArray; color, xs, ys, xe, ye: Integer; Tolerance: Integer);
function FastGetPixel(bitmap: Integer; x, y: Integer): TColor;
procedure FastSetPixel(bitmap: Integer; x, y: Integer; c : TColor);
procedure SetColorspeed2Modifiers(huemodifier, saturationmodifier: Extended);
procedure PickColor(var Color: TColor; var X, Y: Integer);
function FindColorSkipBox(var x, y: Integer; color, x1, y1, x2, y2: Integer; SkipBox: TBox): Boolean;
function FindColorSkipBoxTolerance(var x, y: Integer; color, x1, y1, x2, y2, Tolerance: Integer; SkipBox: TBox): Boolean;
function FindColorSkipBoxArray(var x, y: Integer; color, x1, y1, x2, y2: Integer; SkipBoxes: TBoxArray): Boolean;
function FindColorSkipBoxArrayTolerance(var x, y: Integer; color, x1, y1, x2, y2, Tolerance: Integer; SkipBoxes: TBoxArray): Boolean;
function FindHue(var x, y: Integer; Hue: Extended; x1, y1, x2, y2: Integer): Boolean;
function FindHueTolerance(var x, y: Integer; Hue: Extended; x1, y1, x2, y2: Integer; Tolerance: Extended): Boolean;
function FindSaturation(var x, y: Integer; Sat: Extended; x1, y1, x2, y2: Integer): Boolean;
function FindSaturationTolerance(var x, y: Integer; Sat: Extended; x1, y1, x2, y2: Integer; Tolerance: Extended): Boolean;
function FindLuminance(var x, y: Integer; Lum: Extended; x1, y1, x2, y2: Integer): Boolean;
function FindLuminanceTolerance(var x, y: Integer; Lum: Extended; x1, y1, x2, y2: Integer; Tolerance: Extended): Boolean;
function CountColor(Color, x1, y1, x2, y2: Integer): Integer;
function CountColorTolerance(Color, x1, y1, x2, y2, Tolerance: Integer): Integer;
function FindColorSkipCoords(var x, y: Integer; color, x1, y1, x2, y2: Integer; const SkipCoords: TPointArray): Boolean;
function FindColorSkipCoordsTolerance(var x, y: Integer; color, x1, y1, x2, y2, Tolerance: Integer; const SkipCoords: TPointArray): Boolean;
function FindColorCircle(var x, y: Integer; color, mx, my, r: Integer): Boolean;
function FindColorCircleTolerance(var x, y: Integer; color, mx, my, r, Tolerance: Integer): Boolean;
  //function GetColors(Coords: TPointArray): TIntegerArray;
function FindColorTriangle(var x, y: Integer; color, x1, y1, x2, y2, x3, y3: Integer): Boolean;
function FindColorTriangleTolerance(var x, y: Integer; color, x1, y1, x2, y2, x3, y3, Tolerance: Integer): Boolean;
function GetBitmapAreaColors(xs, ys, xe, ye: Integer): T2DIntArray;
procedure ColortoHSL(C: TColor; var H, S, L: Extended);
function HSLtoColor(H, S, L: Extended): TColor;
procedure RGBtoHSL(R, G, B: Integer; var H, S, L: Extended);
procedure HSLtoRGB(H, S, L: Extended; var R, G, B: Integer);
function RGBtoColor(R, G, B: Integer): TColor;
procedure ColortoRGB(Color: TColor; var R, G, B: Integer);
procedure RGBtoXYZ(R, G, B: Integer; var X, Y, Z: Extended);
procedure XYZtoRGB(X, Y, Z: Extended; var R, G, B: Integer);
procedure ColortoXYZ(Color: TColor; var X, Y, Z: Extended);
function XYZtoColor(X, Y, Z: Extended): TColor;
procedure HSLtoXYZ(H, S, L: Extended; var X, Y, Z: Extended);
procedure XYZtoHSL(X, Y, Z: Extended; var H, S, L: Extended);
procedure Wait(ms: Integer);
procedure Sleep(ms: Integer);
function SetTimeout(secs: Cardinal; procname: string): Integer;
procedure ClearTimeouts;
procedure ClearTimeout(s: string);
procedure SendKeys(S: string);
procedure SendKeysVB(S: string; Wait: Boolean);
procedure KeyDown(Key: Byte);
procedure KeyUp(Key: Byte);
procedure KeyDownSilent(Key: Byte);
procedure KeyUpSilent(Key: Byte);
function GetKeyCode(Key: Char): Byte;
procedure SendKeysSilent(S: string);
procedure SendArrowSilent(a: Byte);
procedure SendArrowSilentWait(a: Byte; WaitTime: Integer);
function IsMouseButtonDown(LeftButton: Boolean): Boolean;
function IsFunctionKeyDown(Key: Byte): Boolean;
function IsFKeyDown(Num: Byte): Boolean;
function IsArrowDown(Num: Byte): Boolean;
function IsKeyDown(C: Char): Boolean;
procedure SendKeysWait(Text: String; tWait, tRandom: Integer);
procedure SendArrow(Key: Byte);
procedure SendArrowWait(Key: Byte; WaitTime: Integer);
function FindWindow(Title: string): Boolean;
function FindWindowTitlePart(Title: string; CaseSensitive: Boolean): Boolean;
  //function FindWindowBySize(Width, Height: Integer): Boolean;
procedure ActivateClient;
function GetClientWindowHandle: Integer;
procedure SetClientWindowHandle(H: Integer);
  //function LoadBitmap(path: string): Integer;
function CreateBitmapMaskFromText(Text: string; Chars: Integer): Integer;
procedure LoadDebugBitmap(path: string);
function BitmapFromString(Width, Height: Integer; str: string): Integer;
procedure SaveBitmap(bitmap: Integer; path: string);
  //procedure FreeBitmap(bitmap: Integer);
function GetBitmapCanvas(bitmap: Integer): TCanvas;
function FindBitmap(bitmap: Integer; var x, y: Integer): Boolean;
function FindBitmapIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer): Boolean;
function FindBitmapToleranceIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer): Boolean;
function FindDeformedBitmapToleranceIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer; Range: Integer; AllowPartialAccuracy: Boolean; var accuracy: Extended): Boolean;
function FindDeformedBitmapToleranceRotationIn(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; tolerance: Integer; Range: Integer; var accuracy: Extended; AngleIntervals: Extended; StartAngle, MaxAngle: Extended; var angle: Extended): Boolean;
function RotateBitmap(bitmap: Integer; angle: Extended): Integer;
function FindBitmapSpiral(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer): Boolean;
function FindBitmapSpiralTolerance(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; Tolerance: Integer): Boolean;
function FindBitmapMaskTolerance(mask: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; Tolerance, ContourTolerance: Integer): Boolean;
  //procedure CopyCanvas(Source, Dest: TCanvas; sxs, sys, sxe, sye, dxs, dys, dxe, dye: Integer);
  //procedure SafeCopyCanvas(Source, Dest: TCanvas; sx1, sy1, sx2, sy2, dx1, dy1, dx2, dy2: Integer);
  //function CreateMirroredBitmap(bitmap: Integer): Integer;
function FindBitmapRotated(bitmap: Integer; var x, y, Angle: Integer; x1, y1, x2, y2: Integer): Boolean;
procedure GetBitmapSize(Bitmap: Integer; var Width, Height: Integer);
function GetClientCanvas: TCanvas;
function GetDebugCanvas: TCanvas;
procedure SaveSetting(section, setting, value: string);
function LoadSetting(section, setting : string) : string;
  //procedure ClearReport;
  //procedure AddToReport(s: string);
procedure DisplayDebugImgWindow(Width, Height: Integer);
procedure HideDebugImgWindow;
function LoadChars2(path: string): Integer;
function LoadCharsFromFont2(fontname: string; fontsize: Integer; fontbold, fontitalic, fontunderline, fontstrike: Boolean): Integer;
procedure FreeChars2(i: Integer);
function LoadDTM(FileName: string): Integer;
function DTMFromString(s: string): Integer;
procedure FreeDTM(DTM: Integer);
function FindDTM(DTM: Integer; var x, y: Integer; x1, y1, x2, y2: Integer): Boolean;
function FindDTMRotated(DTM: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; StartAngle, EndAngle, AngleStep: Extended; var Angle: Extended): Boolean;
 function AddDTM(DTM: TDTM): Integer;
  //function CreateForm: TForm;
procedure FreeForm(Form: TForm);
procedure TabSheetCaption(Tab: TTabSheet; Caption: String);
function GetSCARVersion: Integer;
procedure TerminateScript;
function IsFontSmoothingEnabled: Boolean;
procedure SetFontSmoothing(Enable: Boolean);
function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;
procedure SetTargetBitmap(bitmap: Integer);
procedure GetClientDimensions(var Width, Height: Integer);
procedure CopyClientToBitmap(bitmap: Integer; xs, ys, xe, ye: Integer);
  //procedure ChangeReportWidth(Width: Integer);
procedure SetBitmapFastDrawTarget(bitmap: Integer);
procedure SetTransparentColor(bitmap, color: Integer);
procedure SetTransparencyFromBitmap(Bitmap, AlphaMaskBitmap: Integer);
procedure Disguise(Caption: string);
procedure MoveToTray;
procedure SetClientPos(OnTop: Boolean);
function GetSoundDuration(FileName: string): Integer;
procedure MakeWindowTransparent(Window, Transparancy: Integer);
  //function GetSelf: TScar;
  //function GetApplication: TScarApp;
function PointInBox(Point: TPoint; Box: TBox): Boolean;
function IntInBox(x, y: Integer; Box: TBox): Boolean;
procedure FastDrawTransparent(x, y: Integer; SourceBitmap, TargetBitmap: Integer);
procedure FastDrawSizeTransparent(x1, y1, x2, y2: Integer; sourcebitmap, targetbitmap: Integer);
procedure FastDrawClear(bitmap: Integer; Color: TColor);
procedure SafeDrawBitmap(Source: Integer; Dest: TCanvas; x, y: Integer);
function GetPage(URL: string): string;
procedure OpenWebPage(URL: string);
function InitializeHTTPClient(HandleCookies, HandleRedirects: Boolean): Integer;
procedure FreeHTTPClient(i: Integer);
function GetHTTPPage(Client: Integer; URL: string): string;
procedure SetHTTPUserAgent(Client: Integer; Agent: string);
function PostHTTPPage(Client: Integer; Url: string; PostData: string): string;
function Between(s1, s2, s: string): string;
function PostHTTPPageEx(Client: Integer; Url: string): string;
procedure ClearPostData(Client: Integer);
procedure AddPostVariable(Client: Integer; VarName, VarValue: string);
function GetRawHeaders(Client: Integer): string;
function OpenConnection(Host: string; Port, TimeOut: Integer): Integer;
function ReadConnectionData(Connection: Integer; var s: string): Boolean;
function SendConnectionData(Connection: Integer; s: string): Boolean;
procedure FreeConnection(i: Integer);
function IsConnectionOpen(Connection: Integer): Boolean;
function IntToPoint(x, y: Integer): TPoint;
function Point(x, y: Integer): TPoint;
function BoolToStr(Bool: Boolean): String;
function StrToBool(Str: String): Boolean;
function PointToBox(p1, p2: TPoint): TBox;
function IntToBox(x1, y1, x2, y2: Integer): TBox;

I can try to do some form stuff. And maybe Sky can do a lot too.

if your referring to me then.. sounds good :D

If anyone needs a crack for Dreamweaver (html editor, helps when making the function pages)
download dreamweave from http://www.macromedia.com i beleive.


(if there is no cracks allowed on this site please delete)

Scan yourself:
http://www.kaspersky.com/scanforvirus

Downloaded off limewire and rated great - and virus free of the Bitzy or w/e it is called

WARNING - This hasn't done anything to my computer, and to me seems 100% virus free, but since i dont know the author of this, still download at your own risk.

If anyone needs a crack for Dreamweaver (html editor, helps when making the function pages)
download dreamweave from http://www.macromedia.com i beleive.


(if there is no cracks allowed on this site please delete)

Scan yourself:
http://www.kaspersky.com/scanforvirus

Downloaded off limewire and rated great - and virus free of the Bitzy or w/e it is called

WARNING - This hasn't done anything to my computer, and to me seems 100% virus free, but since i dont know the author of this, still download at your own risk.

when you basically steal from them, can you easily caught?


Should We Also Say What Procedures In Typs Do For Example:

Procedure TForm.setbounds(sx, sy, ex, ey : Integer);

sx and sy are the pixels to start the form at.
ex and ey are the width and height of the form

From: SKy Scripter
when you basically steal from them, can you easily caught?

Lol…don't worry. It won't happen. Lol.

Showing how all the procedures and functions work will help otu a lot of people, but there are a lot to do. I might to some, but I don'y know exactly how you want me to do them because i know basically nothing about the html editor. I can type them up the way you want in notepad if you want though.

here some functions /procedures. only like 5.

[ATTACH]3521[/ATTACH]

Originally Posted by SKy Scripter
when you basically steal from them, can you easily caught?

Lol…don't worry. It won't happen. Lol.

i would rather do it the harder way (notepad)
then maybe being caught… stealing a $400 program…
they could sue you for a alotz of money… but that just me.. :D

rofl I was thinking of fixing up the manual yesterday =P

Heh, gonna look trough all of this tonight, don't have time right now, but erm, sky scripter, types and such will be done later, i want to get all procedures first, after that's done i'll start working on "types", "constants" and "tutorials" ;)

I made an 'assistant' script thing to help you guys out.

There's still a few bugs, just make sure everything looks right after you save it.

From: SKy Scripter
i would rather do it the harder way (notepad)
then maybe being caught… stealing a $400 program…
they could sue you for a alotz of money… but that just me.. :D

Oh, and it comes with a 30 day trial. My clock just 'conveniently' got stuck and is stuck at midnight… hmmm… :p

Edit: Oh crap lol, didn't remember I just posted… *goes to get more caffeine*
Another Edit: Argh almost quoted myself instead of editing. That would have been nice, a triple post…:duh:

bullzeye, looks pretty much ok, but please don't use word to edit the files, lol, it adds tons of crap to it :)
But erm, you didn't change the page title, the description and didn't add the paramaters… But i'll make that findwindowbysize quickly shouldn't take long :)

rs_monkey, looks great, 99% correct ^^
only small thing, for example in sendinterscarmessage.html:
<a name="ClickMouse" class="style11" id="ClickMouse"></a>
that's near the actual displayed function name, that has to be changed as well :)

:( I could write about forms, but im not too good in HTML…

I don't need you to write about forms, I need functions! lol, I'll check out the rest tonight, but I haven't had much time so far

lol, well functions and procedures it is…. :D

From: Freddy1990
bullzeye, looks pretty much ok, but please don't use word to edit the files, lol, it adds tons of crap to it :)
But erm, you didn't change the page title, the description and didn't add the paramaters… But i'll make that findwindowbysize quickly shouldn't take long :)

rs_monkey, looks great, 99% correct ^^
only small thing, for example in sendinterscarmessage.html:
<a name="ClickMouse" class="style11" id="ClickMouse"></a>
that's near the actual displayed function name, that has to be changed as well :)

Oopsy lol… srry. i was editting the Visual part, not the code itself =S

Heh, Sky Scripter, I really appreciate the input, but ur files still take some time to patch up, heh :)
You need to put in the paramaters section thingy, look for it in the examples, also including the result :)
And err, I dunno exactly what that SafeCopyCanvas is supposed to be, looks loike a canvas-getapplication mixture :)
But appart from that (and the example, which I could fix if you can't get it right… it's good :)

Erm, I attached what I've got so far, some files I still need to process though :)

OOps got it wrong :D
nvm :D

Heh, Sky Scripter, I really appreciate the input, but ur files still take some time to patch up, heh
You need to put in the paramaters section thingy, look for it in the examples, also including the result
And err, I dunno exactly what that SafeCopyCanvas is supposed to be, looks loike a canvas-getapplication mixture
But appart from that (and the example, which I could fix if you can't get it right… it's good

Erm, I attached what I've got so far, some files I still need to process though

that kinda sucks, now i have to go back and remake the them :(
oh well…

lol, i was making copycanvas and saved it as safecopycanvas.
nvm its hard to explain. but sorry about that :)

oh and yah i wont be able to go through what you have done (at school no winzip) but anyway i hope you dont have anything i have made at home :p

When thsi is done, this will help a lot, really easy to understand and really organized lol. Sicne the SRL manual is out, why not have a Scar manual also :p

From: SKy Scripter

Edit : i dont enough time to put the results in sorry freddy1990 i am really busy but herz they are
[ATTACH]3558[/ATTACH]

Meh, close enough I guess, I'm adding these, well after some editing :) Should have a new updated manual uploaded soon

EDIT: There you do…

05-07-2007, 04:42 AM

Bump please? :)