Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal


  • Content count

  • Joined

  • Last visited

  • Days Won


LordJashin last won the day on November 9 2012

LordJashin had the most liked content!

Community Reputation

21 Excellent

About LordJashin

  • Rank
    GMRL Developer

Personal Information

  • Location
  • Studies
    C, C++, Assembly, SCAR

Contact Information

  • Skype
  1. On drawing on Screen - Example request

    Idk what kind of effect you want this to have. But if you want just a red outline, and no window. You're going to have to create it in Delphi and import it using a plugin. If you want a Window that has a red box in it. You can do that with SCAR. But idk how you'll be able to drag an icon there. You could take your current background into a paint editor. And draw the box in there. If you want a See Through window. With a Red Outline. That is also Transparent (where you can drag stuff through the window as if it wasn't even there). You'll need to make a delphi plugin. SCAR's targeting system uses this mechanic. The select a client tool (you click on it and drag it over the window you want to select and it dynamically updates a form thats see through and draws a red box outline it). I've been able to reproduce the same thing as SCAR pretty much on my own a long time ago. Was fun to code that.
  2. Unknown identifier "Pixel" :(

    Yeah its been quite a while hasn't it. Can't believe 3 years since i joined haha. I recommend you just grab the functions out of MSSL that you need. Instead of trying to load the library. Nice to see all of you on here still. I messaged Freddy a while back and he's alright. Felt bad for him. SCAR and Delphi programming taught me a lot. I hope everyone that used it, got some learning out of it. Thanks all of you for doing stuff to keep me learning too. ~LordJashin
  3. 'Internal error (20)' When Using Exit(True)

    As far as I know. You can't pass a value to Exit;. It's not used for results or returns. Exit; is a Flow Control statement, used to exit the function that's currently executing. Break, Continue, Exit are all flow control statements. They usually don't have anything to do with that. If anything you might be able to put a number after them e.g. Break 3; to indicate how many loops or w/e you want to break out of.
  4. SCAR Divi 4.00.00 Pre-Alpha

    Just lemme know when everything's multi threadable or just super amazing and I'll come code some SCAR 4 stuff ups. I wanna see some OpenCV, that'd be fun to learn. The next language I'm gonna tackle one day'll be python for sure. If multi threading isn't supported and SCAR 4 is awesome, then ima go make a plugin for it somehow, maybe w/ mormon's help luls. I wanna have like 5 finding functions running at the same time Freddy. It'd be like as powerful as those Drones that fly over and shoot lazer beams. EDIT: Alright I fixed the problem. For all ye web goers out there. Check this out: http://www.complexspiral.com/publications/uncollapsing-margins/ But uh, basically had to set UL margin,padding to 0, and change the padding on my buttons. Presets are a pain to deal with. It's no wonder no1 likes browser compatibility. What gives them the right to set defaults for the css elements, like cmon. It's hard enough finding properties/techniques that work across the board. After normalize.css, and it still has presets. i'm so happy every element has its place, and there's no extra spaces yays: and uh. Stick with floating. screw inline-blocking. Update: Woo
  5. Show Message on Button Click

    You forgot to set your event handler! Put this in your with Button1 do block OnClick := @Button1Click; Scar Divi has a nice form editor under Tools if you want one.
  6. SCAR Divi 4.00.00 Pre-Alpha

    (function Woop() { gimmiegimmiegimmie(); }()); Just merge it allz! I wanna see fireworks! Muhahaa. and with this. We have the greatest punch in the worlds! I want the new SCAR to fire lazerz! Lets go Freddy, lets go, wooo woo! And everyone support the build a robot foundation created by Shadow Recon and the help Jashin learn web programming languages foundation luls.
  7. Lol that made my day thx Bixby. Lol u get like 10000 reps from me Walgreens has them. LOL. bout right, u can get em anywhere now. Anyway, I vouch for this shit. mac book pro. Eww.
  8. Just need some 15 year olds to make some bots and post em Lol. People want the easy stuff. Not many would go and develop their own stuff based off of shortcuts we make (includes). I'd help, but I'm not interested atm. Maybe in a couple years I might try again. Be cool if we did like a community script project, where we tried to bot something. Maybe like a woodcutter or something. That's what most of the includes sprang from. Pose a problem, then solve it. Then others use your function in their scripts. Etc. Nobody starts with all the scripts problems solved from the start Lol, not usually anyway. I might have stated that wrong, but I hope you get what I mean sort of. I might be generalizing, but I think I am partly correct. Lol its pretty hard to start from scratch though, cuz Runescape has slowly been getting more bot detection, and etc.
  9. Script won't work

    You might need to increase OR decrease the wait between the keydown and keyup. Also, make sure you do this before attempting that: GetClient.Activate; Check out the tutorials section. Make sure you target the window with the crosshairs. Sadly, it may be whatever you're running the script for, it may not accept the keyboard input. Try VKeyDown too. Also recommend using the latest version of SCAR, if you don't have it already.
  10. SCAR Divi 3.40 Final

    man down! Lol. Iterating over enums. Cool.
  11. Hi Kamrua. Yes, you are correct. No win32 code, or code at all has been posted on here that will do that. As for my efforts, they were dignified. I learned much from them, much I could tell you. I will private message you the answers you seek, and if anyone else seeks them, feel free to pm me. Best regards, LordJashin
  12. Help to make bitmaps.

    Add more bitmap variables. You can't search for multiple bitmaps at once, so you'd have to go through them in a loop. Like from your first bitmap to your last. var bmp1, bmp2, bmp3: TScarBitmap; begin Bmp1 := TSCARBitmap.Create('deNpjZGBkCPb2AAAB6gDp'); Bmp2 := TSCARBitmap.Create('deNpjZGBkCPb2AAAB6gDp'); Bmp3 := TSCARBitmap.Create('deNpjZGBkCPb2AAAB6gDp'); if FindBitmapTol(X,Y,Bmp1, 94, 43, 171, 779, 10) then WriteLn('Found bitmap 1'); if FindBitmapTol(X,Y,Bmp2, 94, 43, 171, 779, 10) then WriteLn('Found bitmap 2'); if FindBitmapTol(X,Y,Bmp3, 94, 43, 171, 779, 10) then WriteLn('Found bitmap 3'); end.
  13. SCAR now and tomorrow

    Hehe. You gonna get a masters degree or something Freddy? I wonder what studies you're doing now. Good job on the websites you've been making, and mini projects or programs. I like how you try to be innovative every once and a while lol.
  14. Drawing to the client's window canvas

    Well if you really wanted this badly, you'd probably need multi threading in SCAR OR you could make a delphi forms plugin for SCAR. Otherwise the window might freeze up? Idk. All I know is that I produced this same sort of functionality in Free Pascal with window layers, transparent window, and the like. And i drew on it, this was the Targeting (Crosshairs) window used in the program I made. It Overlays any window your cursor is on. http://forums.scar-divi.com/programming/2367-auto-licious-ide-development-uses-fpc-compiler.html Same thing as SCAR's target, or works the same way i think . And that's a transparent window w/ the form drawn on and everything. My source code is linked on there too... GL lol. e.g. utargetwindow.pas or w/e { uTargetSelection - SetTarget Form Unit Created by LordJashin32 Copyright 2013 LordJashin32 License: GPL/Others Last Updated: 8/9/2013 Created: 7/27/2013 Credits: Freddy Control: uAutolicious -> uTargetSelection: - procedure frmAutolicious.tbSetTargetMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer); - var ButtonPDown: Boolean; } unit uTargetSelection; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, LCLType, LCLIntf; type TfrmTargetSelection = class(TForm) Shape1: TShape; // Colors the form Timer1: TTimer; public IsForShow: boolean; // Controls what instance does what in the timer private // CreateParams overrided to make the form transparent (Windows) {$IFDEF WINDOWS} procedure CreateParams(var Params: TCreateParams); override; {$ENDIF} // Used by the timer procedure CloseDown; published // Updates the form dynamically using GetWindowFromPoint (Windows method) procedure Timer1Timer(Sender: TObject); end; var frmTargetSelection: TfrmTargetSelection; // One form for Alpha transparency frmTargetSelection1: TfrmTargetSelection; // One form for transparent frmTargetSelectionHandle: HWND; // Targeted Window from GetWindowFromPoint // Various Variables TargetSet, KeyPressd: boolean; implementation uses uAutolicious{$IFDEF WINDOWS}, Windows{$ENDIF}; {$R *.lfm} {~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~ procedure TfrmTargetSelection.CreateParams(var Params: TCreateParams); Description: Changes the create params for the SelectWindow form so that it is click through-able. (Windows Method) Last Modified: 7/8/12 By LordJashin. ~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~} {$IFDEF WINDOWS} procedure TfrmTargetSelection.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := WS_EX_TRANSPARENT; end; {$ENDIF} {~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~ procedure TfrmTargetSelection.CloseDown; Description: Run by the Timer, Closes down the 2 instances, resets, and debugs the target handle to the Debug SynEdit. Last Modified: 7/31/13 By LordJashin. ~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~} procedure TfrmTargetSelection.CloseDown; var DebugStr: string; begin {$IFDEF WINDOWS} frmTargetSelection.Timer1.Enabled := False; {$ENDIF} frmTargetSelection1.Timer1.Enabled := False; Screen.Cursor := crDefault; TargetSet := True; DebugStr := frmAutolicious.synDebug.Text; frmAutolicious.synDebug.Text := 'New Target Selected: ' + IntToStr(frmTargetSelectionHandle) + #13#10 + DebugStr; KeyPressd := False; ButtonPDown := False; {$IFDEF WINDOWS} frmTargetSelection.Close; {$ENDIF} frmTargetSelection1.Close; end; {~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~ procedure TfrmTargetSelection.Timer1Timer(Sender: TObject); Description: Gets the Window From Point at the current mouse point. Changes the forms bounds to match the WindowFromPoint. One Instance is for SHOW only, to make the appearance look better. If the handle found = the handle of frmTargetSelection, then the shape is Disabled momentarily. The WindowFromPoint its handle is stored in frmTargetSelectionHandle. This is setting the Target window for Autolicious. If mbLeft is UP, or mbRight is DOWN. Then we call CloseDown(); Various Variables are used to make sure the user doesn't make this timer go on forever. Or doesn't click the button again while selecting a target, etc. Last Modified: 7/13/12 By LordJashin. ~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~} procedure TfrmTargetSelection.Timer1Timer(Sender: TObject); var P: TPoint; tempHandle: HWND; Rect: TRect; KeyState, KeyState1: boolean; begin if not IsForShow then begin KeyState := (GetKeyState(VK_LBUTTON) and $8000 <> 0); KeyState1 := (GetKeyState(VK_RBUTTON) and $8000 <> 0); if (not KeyState) or KeyState1 then KeyPressd := True; end; if KeyPressd then CloseDown(); P := Mouse.CursorPos; tempHandle := WindowFromPoint(P); if tempHandle = Handle then begin Shape1.Visible := False; Exit; end; GetWindowRect(tempHandle, Rect); BoundsRect := Rect; Shape1.Visible := True; if not IsForShow then frmTargetSelectionHandle := tempHandle; end; end.