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

Rooster

Members
  • Content Count

    10
  • Joined

  • Last visited

Community Reputation

10 Good

About Rooster

  • Rank
    Junior Member
  1. Hi all, How can I do the following and make ik work? begin While (condition) do begin if (condition) then begin command end; command command end; end. Because he perfectly checks for the while loop but it completely ignores the if... Any ideas? Thanks
  2. Maple trees So i should just add colors to the constants and then adjust the times? Is that all?
  3. OK wow i see you've put a lot of work in that... So im using a spot with 4 trees. How should i adjust the constants? And what other stuff should i adjust for me? Thank you so much for helping me out with this
  4. Hi all, I am writing a script for RS which cuts trees automatically - but that's not important now. What is important is that the script doesn't execute a certain part. I'll abbreviate the code: While (condition) do; begin; wait(); If findcolor() then; begin; clickmouse(); end end It's the if then part he doesn't do... Here's the full code: program CutMapleBank; var x,y,a,b,c,d : integer ; BmpBankIcon : TSCARBitmap; begin BmpBankIcon := TSCARBitmap.Create('deNoBiwB0/wUACQDEmSpxTxDCmBmFYRqRax2+k' + 'yhmRRHPpikuDwU1FQfwuzPUpCm8kRUvDwQsDAXGmCvyuTL4vjXfri9cNhMyEgm' + 'yhhmyhSPvsjTTni0yFAmshCVdOxO5hSjorTKufSaRZw1rRxHXnjDXnTDZnzHgp' + 'jPhpjPXnTGebSV3TBuzgSWgcCR4TBw+Gg1EVzZU'); repeat clickmouse(815,433,false) wait(5000) while findcolor(x,y,3548518,629,264,750,421) do begin wait(200) if findcolor(a,b,801626,1237,465,1265,491) then begin findbitmap(c,d,BmpBankIcon,1183,85,1325,202) clickmouse(c,d,false) wait(15000) end; end; clickmouse(622,177,false) wait(5000) while findcolor(x,y,3548518,480,200,750,421) do begin wait(200) if findcolor(a,b,801626,1237,465,1265,491) then begin findbitmap(c,d,BmpBankIcon,1183,85,1325,202) clickmouse(c,d,false) wait(15000) end; end; clickmouse(434,248,false) wait(5000) while findcolor(x,y,3548518,480,200,750,421) do begin wait(200) if findcolor(a,b,801626,1237,465,1265,491) then begin findbitmap(c,d,BmpBankIcon,1183,85,1325,202) clickmouse(c,d,false) wait(15000) end; end; clickmouse(414,318,false) wait(5000) while findcolor(x,y,3548518,480,200,750,421) do begin wait(200) if findcolor(a,b,801626,1237,465,1265,491) then begin findbitmap(c,d,BmpBankIcon,1183,85,1325,202) clickmouse(c,d,false) wait(15000) end; end; clickmouse(1028,735,false) wait(12000) clickmouse(693,654,false) wait(1000) clickmouse(812,101,false) wait(2000) clickmouse(777,249,false) wait(8000) until(false) ; end.
  5. Hi everyone, As the title of the thread says... Would Legacy Mode allow me to use RS2 scripting commands in today's RuneScape? I'm looking to write some scripts but I'm very stuck since I don't seem to get things done What I need are commands from the RS2 - by which I mean that I need a command to open the bank i.e. Anyone any ideas? Thanks in advance, Rooster
  6. Hello everyone, How do I run a procedure in a script? It's for RuneScape. I'm mining and when the inventory is full I want my character to run to the bank. I've already written this procedure, but I want this part of the script to run only when the inventory is full. I already have written something to check that with an "IF FindBitmap THEN" but I want the consequence of this "THEN" to be a procedure... What command do I need for this? Thanks, Rooster
  7. Hey Janilabo, Ok now that I know that I'll go back to writing 'clickmouse' scripts --' Any idea on how I would write a function that checks if the inventory is full? Thanks
  8. Hi everyone, Are there any commands for RS3 to like check if the inventory is full or open the bank or anything? Thanks, Rooster
  9. Hi everyone, I'm slowly getting the hang of scripting so Please keep your as simplified as possible. After making some besic scripts I want to combine them under 1 single program... So I'm trying to make a form with basic buttons to assign my scripts to, but I can't even make a button click to show a message. I succeeded in getting a message box with a basic script using the ShowMessage function, but as soon as i try it in a form, it won't work. Here's the code: type TForm1 = record Form1: TForm; Button1: TButton; end; var Form1: TForm1; procedure TestButton; begin ShowMessage('ok') end; procedure Button1Click(sender: TObject); begin case sender of Form1.Button1: TestButton; end; end; procedure Form1_Init; begin with Form1 do begin Form1 := CreateForm; Button1 := TButton.Create(Form1); with Form1 do begin Left := 228; Top := 129; Caption := 'Form1'; ClientHeight := 202; ClientWidth := 304; Color := clWindow; Font.Charset := DEFAULT_CHARSET; Font.Color := clWindowText; Font.Height := -11; Font.Name := 'Tahoma'; Font.Style := []; OldCreateOrder := False; PixelsPerInch := 96; end; with Button1 do begin Parent := Form1; Left := 4; Top := 4; Width := 296; Height := 40; Caption := 'Button1'; TabOrder := 0; end; end; end; procedure Form1_SafeInit; var v: TVariantArray; begin SetLength(v, 0); ThreadSafeCall('Form1_Init', v); end; function Form1_ShowModal: Boolean; begin Result := Form1.Form1.ShowModal = mrOk; end; function Form1_SafeShowModal: Boolean; var v: TVariantArray; begin SetLength(v, 0); Result := ThreadSafeCall('Form1_ShowModal', v); end; begin Form1_SafeInit; Form1_SafeShowModal; FreeForm(Form1.Form1); end.; So if anyone sees what I'm doing and wants to tell me, Thanks in advance
×
×
  • Create New...