Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Constantly logs out cause it has issues finding the banking chest, usually after around 30 minutes after start up, and also seems to have a problem with finding (unf) all that i have tried so far , i have to set it to manual mode instead which does fix the problem but affects the banking more so then Manual Off.Other then that its pretty sweet
It works, It just can't seem to bank for me?
"SRL Compiled in 0 msec
SMART Initialized.
Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
Now Making 5000 guam
Bank Uptext found, clicking bank
We are in bank
Error: Exception: "" is an invalid integer at line 3741
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]"
What am I doing wrong? It finds the vial, withdraws them, but not the herbs. :S
budwiser where'd you learn to script from seeing basically your first script, you've put more code in and looks like you learned more. I watched all of yoho videos and read some parts of the stickys on this site but I haven't learned enough to make my own script.
Oh, no I didn't, but now I did put everything in the correct slot and still nothing changed. :S
Items only have to go in specific slots if you are using manual mode. Manual mode is for when script is not finding item on it's own.
I will test making "unf dwarf weed" right now.
I started back in 2002, Scripting back then was very easy compared to today. Back in rs1(runescape classic) bout the only thing you had to worry about was a shifting screen. No random colors, no random events. Everything could stay the same. There was a runescape train too. Don't remember any names, but it was several bot char that walked a circle around runescape. If there was a place you wanted to go you could catch the runescape people train. Anyways over the years it got harder and harder and I just learned a little by a little. I took a break from rs for a few years. I got married had 2 kids. Then 2 yrs ago got a divorce. I started playing rs again. But the paid refection bots where out. I was very impressed by them, Compared to the old ways. I bought one, then 2, then 3, etc. I didn't need to script. But when the bot nuke came it was back to scripting for me. I had to relearn a lot of forgotten stuff.
Don't understand this error. Did it pop up a srl file and point to ln 3741 in that one? Or way it pointing to ln 3741 in the main script?
I just saw the bank bug. Let me show you how to properly explain something. If you explain in detail I won't always have to find it myself.
log:
First it moved mouse to northern part of bank with the screen facing south. It was looking too low so it didn't find the uptext. It the used the obj finding... I know this because in the log---> Looking for bank with Findobj ....to find the bank. but it misclicked in the south eastern corner of the chest. My char then movedover one square to the east.Code:We are in bank Bank Uptext not found Bank not found, trying find_chest Looking for bank with Findobj Think we found bank, checking uptext Bank Uptext found, clicking bank We did not find bank after clicking, checking for pin screen We did not find bank after clicking or the pin screen Bank not found, trying find_chest2
I stopped it b4 the spiral finding method could give it a try, but it should never get that far. That spiral method is a last ditch effort to find bank if all else fails. But it's a crappy last ditch. I could slow it down and it would be a lot more accurate. I will fix this in next update in about an hour or so.
Last edited by bud_wis_er_420; 01-23-2012 at 10:30 PM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
you need --> Make[0] := SetVars('ranging', 28, 2); to make unf dwarf weed. Listing herb only cleans them. You need to enter the name of the pot you would make with all items begin used.
For example:
Make[0] := SetVars('Attack', 28, 1); uses all items(Vial of water, clean guam, eye of newt)
if you select task 2: It only uses the first 2 itms the vial of water and clean guam. Make[0] := SetVars('Attack', 28, 2);
if you select task 3: It uses the outcome of task one(unf pot) and the 2nd item it needs. Make[0] := SetVars('Attack', 28, 3);
Hope this clears it up for you. Have you looked at the form I'm building? on page 8.
Ver 1.4c-7 is out
Last edited by bud_wis_er_420; 01-23-2012 at 11:44 PM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Man I am sooo close to being finished with the setup form. I have it added and everything. Only thing holding me back is an out of range error. I don't understand it. It should be working fine. Everything works fine in my test script, but when added over to main script I get the error. Until I figure this out I'm stuck.
I figured I post the script here and let others give it a try. 2 heads better than one right?
here is the test script and the full script is at the dl link below.
All Potion Maker 1.5(Not working)
Simba Code:program New;
type
MakeArray = record
Potion: string;
Amount: integer;
Select_Task: integer;
end;
var
PotionArray, HerbArray: TStringArray;
count, FType, AddTaskCount: integer;
SType: String;
FormItem: TStringArray;
FormAmount, FormTask: TIntegerArray;
Make: array of MakeArray;
Fmake: TStringArray;
APMForm : TForm;
ChatLable, HerbsLable, PotionsLable, Banner, AmountLable,
ToDoLable, UserSLable, NeedLable : TLabel;
AddTask, StartB, ClearB : TButton;
HerbsTask, MakeFull, MakeUnf, UnfToFin : TRadioButton;
HerbsList, PotionsList, ToDoList, NeedList: TListBox;
Login44, CheckBox2, CheckBox3 : TCheckBox;
ChatSel : TComboBox;
Amount, Username, Password, BankPinNum, Nickname : TEdit;
procedure LoadItemList;
begin
PotionArray := ['attack', 'antipoison', 'relicyms balm', 'strength',
'serum 207', 'restore', 'guthix balance', 'Blamish Oil', 'energy',
'defense', 'super fishing', 'explosive', 'agility', 'combat', 'prayer',
'summoning', 'crafting', 'super attack', 'vial of stench',
'super antipoison', 'fishing', 'super energy', 'hunter', 'super strength',
'magic essence', 'fletching', 'weapon poison', 'super restore',
'sanfew serum', 'super defense', 'antipoison+', 'antifire', 'ranging',
'weapon poison+', 'magic', 'zamorak brew', 'antipoison++', 'weapon poison++',
'recover special', 'super antifire', 'extreme attack', 'extreme strength',
'extreme defense', 'extreme magic', 'extreme ranging', 'super prayer',
'prayer renewal', 'Overload'];
HerbArray := ['Rogues Purse', 'Snake Weed', 'Guam', 'Marrentill', 'Tarromin',
'Harralander', 'Ranarr', 'Toadflax', 'Spirit Weed', 'Irit', 'Wergali',
'Avantoe', 'Kwuarm', 'Snapdragon', 'Cadantine', 'Lantadyme', 'Dwarf Weed',
'Torstol', 'Fellstalk'];
end;
procedure LoadLists(Sender: TObject);
begin
LoadItemList;
for count := 0 to High(HerbArray) do
HerbsList.Items.Add(HerbArray[count]);
for count := 0 to High(PotionArray) do
PotionsList.Items.Add(PotionArray[count])
end;
procedure ClearSettings;
begin
PotionsList.ItemIndex := -1;
HerbsList.ItemIndex := -1;;
HerbsTask.CHECKED := false;
MakeFull.CHECKED := false;
MakeUnf.CHECKED := false;
UnfToFin.CHECKED := false;
HerbsList.Enabled := True;
HerbsTask.Enabled := True;
MakeFull.Enabled := True;
MakeUnf.Enabled := True;
UnfToFin.Enabled := True;
PotionsList.Enabled := True;
Amount.text := '0';
NeedList.Clear;
end;
procedure ClearAllSettings(Sender: TObject);
begin
ToDoList.Clear;
ClearSettings;
AddTaskCount := 0;
FormItem[AddTaskCount] := '';
FormAmount[AddTaskCount] := 0;
FormTask[AddTaskCount] := 0;
end;
procedure GetHerbInfo(var HerbText: TStringArray);
begin
SetArrayLength(HerbText, 3);
HerbText[0] := ' Clean Herbs:';
HerbText[1] := 'Grimy ' + HerbArray[HerbsList.ItemIndex];
end;
procedure HerbsListClick(Sender: TObject);
var
HText: TStringArray;
begin
NeedList.Clear;
PotionsList.ItemIndex := -1;
HerbsTask.Enabled := true;
HerbsTask.CHECKED := true;
MakeFull.Enabled := False;
MakeUnf.Enabled := False;
UnfToFin.Enabled := False;
FType := 0;
GetHerbInfo(HText);
for count := 0 to High(HText) do
NeedList.Items.Add(HText[count]);
end;
function GetPOne: TStringArray;
var
PotionText: TStringArray;
begin
SetArrayLength(PotionText, 5);
if(FType = 1)then PotionText[0] := ' Make Full Pots: ';
if(FType = 2)then PotionText[0] := ' Make Unf Pots: ';
if(FType = 3)then PotionText[0] := ' Make UTF Pots: ';
case PotionArray[PotionsList.ItemIndex] of
'attack' : begin
if(FType = 1)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Guam';
PotionText[3] := '3: Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := '1: Unf Guam';
PotionText[2] := '2: Eye of Newt';
end;
end;
'antipoison' : begin
if(FType = 1)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Marrentill';
PotionText[3] := '3: Unicorn horn dust';
end;
if(FType = 2)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Marrentill';
end;
if(FType = 3)then
begin
PotionText[1] := '1: Unf Marrentill';
PotionText[2] := '2: Unicorn horn dust';
end;
end;
'relicyms balm' : begin
if(FType = 1)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Snake weed';
PotionText[3] := '3: Clean Rogue''s purse';
end;
if(FType = 2)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Snake weed';
end;
if(FType = 3)then
begin
PotionText[1] := '1: Snake weed mixture';
PotionText[2] := '2: Rogue''s purse';
end;
end;
'strength' : begin
if(FType = 1)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Tarromin';
PotionText[3] := '3: Limpwurt root';
end;
if(FType = 2)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Tarromin';
end;
if(FType = 3)then
begin
PotionText[1] := '1: Unf Tarromin';
PotionText[2] := '2: Limpwurt root';
end;
end;
'serum 207' : begin
if(FType = 1)then
begin
PotionText[1] := '1: Vial of Water';
PotionText[2] := '2: Clean Tarromin';
PotionText[3] := '3: Ashes';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Tarromin';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Tarromin';
PotionText[2] := 'Ashes';
end;
end;
'restore': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Harralander';
PotionText[3] := 'Red spiders'' eggs';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Harralander';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Harralander';
PotionText[2] := 'Red spiders'' eggs';
end;
end;
'guthix balance' : begin
if(FType = 1)then
begin
PotionText[1] := 'Restore Potion(3)';
PotionText[2] := 'Garlic';
PotionText[3] := 'Silver Dust';
end else
begin
FType := 1;
PotionText[0] := ' Make Full Pots:';
PotionText[1] := 'Restore Potion(3)';
PotionText[2] := 'Garlic';
PotionText[3] := 'Silver Dust';
end;
end;
'Blamish Oil' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Harralander';
PotionText[3] := 'Blamish snail slime';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Harralander';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Harralander';
PotionText[2] := 'Blamish snail slime';
end;
end;
'energy' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Harralander';
PotionText[3] := 'Chocolate Dust';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Harralander';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Harralander';
PotionText[2] := 'Chocolate Dust';
end;
end;
'defense' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Ranarr';
PotionText[3] := 'White Berries';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Ranarr';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Ranarr';
PotionText[2] := 'White Berries';
end;
end;
'super fishing' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'explosive' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'agility' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'combat' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'prayer' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'summoning' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'crafting' : begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'super attack': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'vial of stench': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'super antipoison': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'fishing': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'super energy': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'hunter': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'super strength': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'magic essence': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'fletching': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'weapon poison': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'super restore': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'sanfew serum': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'super defense': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'antipoison+': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'antifire': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'ranging': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'weapon poison+': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'magic': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'zamorak brew': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'antipoison++': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'weapon poison++': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
'Overload': begin
if(FType = 1)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
PotionText[3] := 'Eye of Newt';
end;
if(FType = 2)then
begin
PotionText[1] := 'Vial of Water';
PotionText[2] := 'Clean Guam';
end;
if(FType = 3)then
begin
PotionText[1] := 'Unf Guam';
PotionText[2] := 'Eye of Newt';
end;
end;
end;
Result := PotionText;
end;
procedure PotionsListClick(Sender: TObject);
var
PText: TStringArray;
begin
SetArrayLength(PText, 5);
NeedList.Clear;
HerbsList.ItemIndex := -1;
HerbsTask.Enabled := False;
MakeFull.Enabled := true;
MakeUnf.Enabled := true;
UnfToFin.Enabled := true;
PText := GetPOne;
if(MakeFull.CHECKED = false)and(FType = 1)then
begin
MakeFull.CHECKED := true;
MakeUnf.Enabled := False;
UnfToFin.Enabled := False;
end;
for count := 0 to 4 do
NeedList.Items.Add(PText[count]);
end;
procedure HerbsTaskClick(Sender: TObject);
begin
PotionsList.ItemIndex := -1;
MakeFull.Enabled := False;
MakeUnf.Enabled := False;
UnfToFin.Enabled := False;
FType := 0;
end;
procedure MakeOtherClick(Sender: TObject);
var
PText: TStringArray;
begin
SetArrayLength(PText, 5);
NeedList.Clear;
HerbsList.ItemIndex := -1;
HerbsTask.Enabled := False;
if(MakeFull.CHECKED = true)then FType := 1;
if(MakeUnf.CHECKED = true)then FType := 2;
if(UnfToFin.CHECKED = true)then FType := 3;
if(PotionsList.ItemIndex > -1)then
begin
PText := GetPOne;
for count := 0 to 4 do
NeedList.Items.Add(PText[count]);
end;
end;
procedure GetTypeString;
begin
if(FType = 0)then SType := 'Clean';
if(FType = 1)then SType := 'Full';
if(FType = 2)then SType := 'Unf';
if(FType = 3)then SType := 'UTF';
end;
procedure AddTItem;
begin
ToDoList.Items.Add(FMake[0] + ', ' + FMake[1] + ', ' + FMake[2]);
ClearSettings;
FormItem[AddTaskCount] := Lowercase(FMake[0]);
FormAmount[AddTaskCount] := StrToInt(FMake[1]);
case FMake[2] of
'Clean' : FormTask[AddTaskCount] := 0;
'Full' : FormTask[AddTaskCount] := 1;
'Unf' : FormTask[AddTaskCount] := 2;
'UTF' : FormTask[AddTaskCount] := 3;
end;
Inc(AddTaskCount);
end;
procedure AddTheTask(Sender: TObject);
begin
if(StrToInt(Amount.Text) = 0)then
begin
ShowMessage('Please enter an amount to make.');
end else
begin
if(HerbsList.ItemIndex < 0)then
begin
if(MakeFull.CHECKED = false)and
(MakeUnf.CHECKED = false)and
(UnfToFin.CHECKED = false)then
begin
ShowMessage('Please select a task');
end else
begin
GetTypeString;
FMake := [PotionArray[PotionsList.ItemIndex], Amount.Text, SType];
AddTItem;
end;
end else
begin
GetTypeString;
FMake := [HerbArray[HerbsList.ItemIndex], Amount.Text, SType];
AddTItem;
end;
end;
end;
function SetVars(Potion: string; amount, Select_Task: Integer): MakeArray;//////
begin Result.Potion:= Potion; Result.Amount:= Amount;///////////////////////////
Result.Select_Task:= Select_Task;end;
procedure StartScript(Sender: TObject);
begin
SetArrayLength(Make, AddTaskCount);
for count := 0 to AddTaskCount-1 do
Make[count] := SetVars(FormItem[count], FormAmount[count], FormTask[count]);
for count := 0 to AddTaskCount-1 do
Writeln('Item: ' + Make[count].Potion + '; Amount: ' + inttostr(Make[count].Amount) +
'; TaskType: ' + inttostr(Make[count].Select_Task) + ';');
//if(Login44.CHECKED = true)then Login_44 := 1;
// Players[0].Name := Username.Text; //Youe Rs username //
// Players[0].Pass := Password.Text; //Your RS password //
// Players[0].Nick := Nickname.Text; //3-4 letters from name //
// Players[0].Active:= True; //
// Players[0].Pin := BankPinNum.Text;
APMForm.CLOSE;
end;
Procedure InitForm;
Begin
APMForm := TForm.Create(nil);
APMForm.Left := 200;
APMForm.Top := 200;
APMForm.Width := 482;
APMForm.Height := 400;
APMForm.Caption := 'All Potions Maker';
APMForm.Color := clBlack;
APMForm.Font.Color := clWhite;
APMForm.Font.Height := -11;
APMForm.Font.Name := 'MS Times New Roman';
APMForm.OnActivate := @LoadLists;
ChatLable := TLabel.Create(APMForm);
ChatLable.Parent := APMForm;
ChatLable.Left := 173;
ChatLable.Top := 195;
ChatLable.Caption := 'Chat Finding Options -->';
HerbsLable := TLabel.Create(APMForm);
HerbsLable.Parent := APMForm;
HerbsLable.Left := 25;
HerbsLable.Top := 25;
HerbsLable.Caption := 'Herbs to Clean:';
PotionsLable := TLabel.Create(APMForm);
PotionsLable.Parent := APMForm;
PotionsLable.Left := 25;
PotionsLable.Top := 195;
PotionsLable.Caption := 'Potions to Make:';
Banner := TLabel.Create(APMForm);
Banner.Parent := APMForm;
Banner.Left := 160;
Banner.Top := 5;
Banner.Caption := 'All Potions Maker';
ToDoLable := TLabel.Create(APMForm);
ToDoLable.Parent := APMForm;
ToDoLable.Left := 300;
ToDoLable.Top := 25;
ToDoLable.Caption := 'To Do List:';
AmountLable := TLabel.Create(APMForm);
AmountLable.Parent := APMForm;
AmountLable.Left := 185;
AmountLable.Top := 135;
AmountLable.Caption := 'Amount:';
UserSLable := TLabel.Create(APMForm);
UserSLable.Parent := APMForm;
UserSLable.Left := 300;
UserSLable.Top := 230;
UserSLable.Caption := 'User Settings:';
NeedLable := TLabel.Create(APMForm);
NeedLable.Parent := APMForm;
NeedLable.Left := 155;
NeedLable.Top := 275;
APMForm.Font.Color := clWhite;
NeedLable.Caption := 'Items Needed:';
ClearB := TButton.Create(APMForm);
ClearB.Parent := APMForm;
ClearB.Left := 185;
ClearB.Top := 50;
ClearB.Width := 80;
ClearB.Height := 25;
ClearB.Caption := 'Clear';
ClearB.TabOrder := 23;
ClearB.OnClick := @ClearAllSettings;
AddTask := TButton.Create(APMForm);
AddTask.Parent := APMForm;
AddTask.Left := 185;
AddTask.Top := 80;
AddTask.Width := 80;
AddTask.Height := 25;
AddTask.Caption := 'Add Task';
AddTask.TabOrder := 9;
AddTask.OnClick := @AddTheTask;
StartB := TButton.Create(APMForm);
StartB.Parent := APMForm;
StartB.Left := 185;
StartB.Top := 110;
StartB.Width := 80;
StartB.Height := 25;
StartB.Caption := 'Start';
StartB.TabOrder := 23;
StartB.OnClick := @StartScript;
HerbsTask := TRadioButton.Create(APMForm);
HerbsTask.Parent := APMForm;
HerbsTask.Left := 155;
HerbsTask.Top := 210;
HerbsTask.Caption := 'Clean Herbs';
HerbsTask.TabOrder := 10;
HerbsTask.OnClick := @HerbsTaskClick;
MakeFull := TRadioButton.Create(APMForm);
MakeFull.Parent := APMForm;
MakeFull.Left := 155;
MakeFull.Top := 225;
MakeFull.Height := 17;
MakeFull.Caption := 'Make full potions';
MakeFull.TabOrder := 11;
MakeFull.OnClick := @MakeOtherClick;
MakeUnf := TRadioButton.Create(APMForm);
MakeUnf.Parent := APMForm;
MakeUnf.Left := 155;
MakeUnf.Top := 240;
MakeUnf.Caption := 'Make Unf Potions';
MakeUnf.TabOrder := 12;
MakeUnf.OnClick := @MakeOtherClick;
UnfToFin := TRadioButton.Create(APMForm);
UnfToFin.Parent := APMForm;
UnfToFin.Left := 155;
UnfToFin.Top := 255;
UnfToFin.Caption := 'Unf --> Finished';
UnfToFin.TabOrder := 13;
UnfToFin.OnClick := @MakeOtherClick;
ToDoList := TListBox.Create(APMForm);
ToDoList.Parent := APMForm;
ToDoList.Left := 300;
ToDoList.Top := 40;
ToDoList.Width := 150;
ToDoList.Height := 150;
ToDoList.TabOrder := 8;
ToDoList.Color := clWhite;
ToDoList.Font.Color := clBlack;
NeedList := TListBox.Create(APMForm);
NeedList.Parent := APMForm;
NeedList.Left := 155;
NeedList.Top := 290;
NeedList.Width := 135;
NeedList.Height := 70;
NeedList.TabOrder := 8;
NeedList.Color := clBlack;
NeedList.Font.Color := clWhite;
HerbsList := TListBox.Create(APMForm);
HerbsList.Parent := APMForm;
HerbsList.Left := 25;
HerbsList.Top := 40;
HerbsList.Width := 120;
HerbsList.Height := 150;
HerbsList.TabOrder := 14;
HerbsList.Font.Color := clBlack;
HerbsList.OnClick := @HerbsListClick;
PotionsList := TListBox.Create(APMForm);
PotionsList.Parent := APMForm;
PotionsList.Left := 25;
PotionsList.Top := 210;
PotionsList.Width := 120;
PotionsList.Height := 150;
PotionsList.TabOrder := 24;
PotionsList.Font.Color := clBlack;
PotionsList.OnClick := @PotionsListClick;
Login44 := TCheckBox.Create(APMForm);
Login44.Parent := APMForm;
Login44.Left := 180;
Login44.Top := 175;
Login44.Width := 90;
Login44.Height := 17;
Login44.Caption := 'World 44 Login?';
Login44.TabOrder := 22;
ChatSel := TComboBox.Create(APMForm);
ChatSel.Parent := APMForm;
ChatSel.Left := 300;
ChatSel.Top := 195;
ChatSel.Width := 145;
ChatSel.Font.Color := clBlack;
ChatSel.TabOrder := 17;
ChatSel.Text := 'Chat Finding off';
ChatSel.Items.Add('Chat Finding off');
ChatSel.Items.Add('Look for any txt');
ChatSel.Items.Add('Look for your nick');
Amount := TEdit.Create(APMForm);
Amount := TEdit.Create(APMForm);
Amount.Parent := APMForm;
Amount.Left := 185;
Amount.Top := 150;
Amount.Width := 80;
Amount.TabOrder := 18;
Amount.Font.Color := clBlack;
Amount.Text := '0';
Username := TEdit.Create(APMForm);
Username := TEdit.Create(APMForm);
Username.Parent := APMForm;
Username.Left := 300;
Username.Top := 245;
Username.Width := 150;
Username.Font.Color := clBlack;
Username.TabOrder := 18;
Username.Text := 'Username';
Password := TEdit.Create(APMForm);
Password.Parent := APMForm;
Password.Left := 300;
Password.Top := 275;
Password.Width := 150;
Password.Font.Color := clBlack;
Password.TabOrder := 19;
Password.Text := 'Password';
Nickname := TEdit.Create(APMForm);
Nickname.Parent := APMForm;
Nickname.Left := 300;
Nickname.Top := 305;
Nickname.Width := 150;
Nickname.Font.Color := clBlack;
Nickname.TabOrder := 21;
Nickname.Text := 'Nickname';
BankPinNum := TEdit.Create(APMForm);
BankPinNum.Parent := APMForm;
BankPinNum.Left := 300;
BankPinNum.Top := 335;
BankPinNum.Width := 150;
BankPinNum.Font.Color := clBlack;
BankPinNum.TabOrder := 20;
BankPinNum.Text := 'Bank Pin#';
End;
Procedure SafeInitForm;
Var
v: TVariantArray;
Begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
End;
Procedure ShowFormModal;
Begin
APMForm.ShowModal;
End;
Procedure SafeShowFormModal;
Var
v: TVariantArray;
Begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
End;
Begin
FType := 99;
AddTaskCount := 0;
setarraylength(FormItem, 100)
setarraylength(FormAmount, 100)
setarraylength(FormTask, 100)
SetArrayLength(FMake, 3);
SafeInitForm;
SafeShowFormModal;
End.
Last edited by bud_wis_er_420; 01-24-2012 at 04:22 AM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
I'm trying to clean 554 of guam, then clean 20k tarromin.
this is my settings.
Make[0] := SetVars('attack', 554, 0); //
Make[1] := SetVars('strength', 20000, 0); //
Oh, and it occurs before the rs screen can load.
whoops.. forgot to change how many types of potions. my bad. hah.
Last edited by tight butts; 01-24-2012 at 04:23 AM.
and....
Make[0] := SetVars('guam', 554, 0); //
Make[1] := SetVars('tarromin', 20000, 0); //
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
yeah my bad.I'm used to puting the potion only.
unf super energy potions to full super energies work![]()
Banking is still buggy for me. I always find my character behind that one barrel.
I'll see what I can do to make it better. I run the same banking on all my other scripts. Are you getting a lot of lag? Maybe that why everything seems good to me. If so I can try to work something out. But I need more info to help me out.
This is the script I use for most of all my sw activity's. I just change the make and withdraw procedures. This one fletches. As you can see It is the exact same as the potions script. The potions script just has all the added stuff.
Simba Code:{/////////////////////Set_Up///////////////////////////
SoulWars Bank, North, all the way up.
Fixed screen
Logs, row 2 slot 10
//////////////////////////////////////////////////////}
program new;
{$DEFINE SMART}
{$i SRL/SRL.Simba}
var
x, y, count:integer;
found, Found_Bank, try_again: Boolean;
/////////////////////////////////////////////////////
const
Check_Text_Type = 0; // 0 = off; 1 = text; 2 = name //
Login_44 = 1; // 0 = off; 1 = on;
Fletch_Task = 0;
WarningSound = 'C:\botclient\config\sounds\alarm.wav';
Log = 'No';
procedure DeclarePlayers; //
begin //
HowManyPlayers := 1; //
NumberOfPlayers(HowManyPlayers); //
CurrentPlayer := 0; //
Players[0].Name := ''; //Youe Rs username //
Players[0].Pass := ''; //Your RS password //
Players[0].Nick := ''; //3-4 letters from name //
Players[0].Active:= True; //
Players[0].Pin := ''; //
end;
procedure Check_for_text;
var
time :longword;
Stime: string;
begin
if(found = false)then
begin
//Checks for text
if(Check_Text_Type = 1)then
begin
if(FindColorSpiral (x, y, 16711680, 22, 446, 134, 454))then
begin
playsound(WarningSound);
time := GetSystemTime;
Stime := MsToTime(time, Time_Bare);
writeln('Text found at ' + Stime);
found := true;
end;
end;
//Checks for nick
if(Check_Text_Type = 2)then
begin
if(FindChatBoxText(Players[0].Nick, 8, clBlue))then
begin
playsound(WarningSound);
time := GetSystemTime;
Stime := MsToTime(time, Time_Bare);
writeln('You name found at ' + Stime);
found := true;
end;
end;
end;
end;
procedure AntiBan;
var
j, WTime, SleepT1, SleepT2: integer;
begin
j := random(201)
WTime := 48000 + random(1000);
SleepT1 := 5000 + random(30000);
SleepT2 := WTime - SleepT1 + random(1000);
case j of
0: begin
sleep(SleepT1);
Check_for_text;
HoverSkill ('Herblore', False);
sleep(SleepT2 + random(5000));
GameTab(tab_Inv);
end;
1..5:
begin
sleep(SleepT1);
Check_for_text;
PickUpMouse;
sleep(SleepT2);
end;
6..10:
begin
sleep(SleepT1);
Check_for_text;
RandomRClick;
sleep(SleepT2);
end;
11:
begin
sleep(SleepT1);
Check_for_text;
sleep(SleepT2);
GameTab(tab_Inv);
end;
12:
begin
sleep(SleepT1);
Check_for_text;
ExamineInv;
sleep(SleepT2);
end;
13..200:
begin
sleep(48000 + random(1000));
end;
end;
end;
procedure Check_Login;
var
Login_Screen,Invalid_Screen, Update_Screen:integer;
begin
Login_Screen := DTMFromString('78DA6354656460D8C1800214656418B880345' +
'086E13F1030660059EDA86A5E3FD8035703028C6E40D605026A64' +
'81AC2B04D4D80359428C286A5616B0A0AA5943849A6620AB07BF5' +
'D00B3E316FA');
//Looks for Login and Lobby Screens
if(FindDTM(Login_Screen, x, y, 243, 107, 517, 418))or
(LobbyScreen)then
begin
Sleep(1000+random(1000));
if(LoginPlayerToLob)then
begin
if(Login_44 = 1)then
begin
if(OpenWorldScreen)then
begin
Sleep(1000+random(1000));
Mouse(123,125, 3, 3, true);//click world order arrow
Sleep(500+random(1000));
Mouse(686,157, 4, 0, true);//click scroll bar top
Sleep(1000+random(1000));
Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
Sleep(1000+random(1000));
Mouse(144, 281, 100, 8, true);//click world 44
Sleep(2000+random(1000));
Mouse(308, 452, 160, 19, true);//click login
Sleep(2000+random(1000));
Writeln('Logged into world 44');
end else
begin
Writeln('Could not log into world 44');
if(LoginPLayer)then
begin
Writeln('Logged in');
end else
begin
Check_Login
end;
end;
end else
begin
if(LoginPLayer)then
begin
Writeln('Logged in');
end else
begin
Check_Login
end;
end;
end else
begin
Check_Login;
end;
end;
FreeDTM(Login_Screen);
end;
function Check_Pin: Boolean;
begin
if(Players[CurrentPlayer].Pin = '')then
begin
Writeln('We are at the pin screen and you didn''t enter a pin');
TerminateScript;
end;
if(PinScreen)then
begin
Writeln('Found Pin Screen');
InPin(Players[CurrentPlayer].Pin);
Writeln('Pin successfully entered');
Sleep(1000 + random(500));
if(BankScreen)then
begin
Result := true;
Found_Bank := true;
Exit;
end;
end;
end;
function CheckForBank: Boolean;
begin
if(BankScreen)then
begin
Found_Bank := true;
Result := True;
end;
end;
function BankUptextClick: Boolean;
begin
if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then
begin
Writeln('Bank Uptext found, clicking bank')
GetMousePos(x, y);
Mouse(x,y,0,0,true);
count := 0;
repeat
Sleep(100 + random(10));
Inc(count);
until(count > 30)or(CheckForBank)
if(count > 30)then
begin
Writeln('We did not find bank after clicking, checking for pin screen');
if(Check_Pin)then
begin
Writeln('We are in bank');
Result := True;
end else
begin
Writeln('We did not find bank after clicking or the pin screen');
end;
end else
begin
Writeln('We are in bank');
Result := True;
end;
end else
begin
Writeln('Bank Uptext not found')
end;
end;
function Find_Chest2: Boolean;
var ax, ay, count1, count2 :integer;
Found_Box :Boolean;
begin
ax := 259;
ay := 170;
count2 := 1;
Found_Box := false;
Check_Login;
/////////Beginning Spiral Checker////////
repeat
//Move right
if(Found_box = false)and(count2<30)or not(BankScreen)then
begin
count1 := 0;
repeat
MMouse(ax, ay, 0, 0);
Sleep(200 + random(10));
ax := ax + 10;
count1 := count1 + 1;
if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
end;
//Move down
if(Found_box = false)and(count2<30)or not(BankScreen)then
begin
count1 := 0;
repeat
ay:=ay+10;
MMouse(ax, ay, 0, 0);
Sleep(200+random(10));
count1 := count1 + 1;
if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
count2 := count2 + 1;
end;
//Move left
if (Found_box = false)and(count2<30)or not(BankScreen)then
begin
count1 := 0;
repeat
MMouse(ax, ay, 0, 0);
Sleep(200+random(10));
ax := ax - 10;
count1 := count1 + 1;
if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
end;
//Move up
if(Found_box = false)and(count2<30)or not(BankScreen)then
begin
count1 := 0;
repeat
ay := ay - 10;
MMouse(ax, ay, 0, 0);
Sleep(200+random(10));
count1 := count1 + 1;
if(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))then Found_box := true;
until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
count2 := count2 + 1;
end;
until(Found_box = true)or(count2>30)or(BankScreen)
/////////End Spiral Checker////////
if(CheckForBank)then
begin
Result := True;
Exit;
end;
if(Found_box = true)then
begin
if(BankUptextClick)then
begin
Result := True;
end else
begin
Writeln('Bank not found, trying find_chest');
if(try_again = false)and not(BankScreen)then
end;
end;
if(try_again = false)and not(BankScreen)then
begin
try_again := true;
writeln('Could not find bank using first and second method, trying one more time');
if(Find_Chest2)then Result := True;
end;
end;
function Find_Chest: Boolean;
begin
Check_login;
MakeCompass('s');
count := 0;
if(CheckForBank)then
begin
Result := True;
Exit;
end;
Writeln('Looking for bank with Findobj')
if(FindObj(x, y, 'Bank', 5464171 , 5))then
begin
Writeln('Think we found bank, checking uptext')
if(BankUptextClick)then
begin
Result := True;
end else
begin
Writeln('Bank not found, trying find_chest2');
try_again := false;
if(find_chest2)then
begin
Result := True;
end else
begin
Writeln('Bank not found with find_chest2');
end;
end;
end;
end;
Procedure Open_Bank;
var
BankX, BankY :integer;
AngDeg: Extended;
begin
AngDeg := rs_GetCompassAngleDegrees;
if(AngDeg > 194)or(AngDeg < 166)then
begin
MakeCompass('s');
end;
Found_Bank := false;
if(CheckForBank)then Exit;
BankX := 259;
BankY := 222;
count := 0;
repeat
MMouse(BankX-10, BankY, 20, -10)
Sleep(400+random(100));
Inc(count);
until(count > 20)or
(IsUpTextMultiCustom(['Use Ba', 'e Bank', 'nk chest', 'Bank che', 'ank ches']))
if(BankUptextClick)then
begin
//Result := true;
end else
begin
Writeln('Bank not found, trying find_chest');
if(find_chest)then
else
begin
Writeln('Bank not found after all fail safes');
If(Lowercase(Log) = 'yes')then
begin
Logout;
end;
TerminateScript;
end;
end;
end;
procedure Withdraw_Stuff;
begin
if(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 10))then
begin
//get Logs, row 2 slot 10; Suppy tab
mouse(438,141,10,10,false)
sleep(500+random(200))
GetMousePos(x,y)
mouse(x-5,y+76,10,4,true)
sleep(500+random(200))
//Close Bank
CloseBank;
end;
end;
procedure Fletch;
begin
if(Fletch_Task = 0)then
begin
mouse(568, 328,10,10,true);
sleep(500+random(100));
mouse(269,405,30,30,true);
sleep(500+random(500));
mouse(230,405,30,40,true);
sleep(1000+random(100));
end;
end;
begin
ClearDebug();
Smart_Server := 44;
SetupSRL();
DeclarePlayers;
repeat
while (not RSReady) do Sleep(500 + Random(500));
Check_Login;
found := false;
try_again := false;
SetAngle(SRL_ANGLE_HIGH);
until(LoggedIn)
repeat
Open_Bank;
if(Found_Bank = true)then
begin
DepositAll;
Withdraw_Stuff;
Fletch;
sleep(48000+random(1000))
Found_Bank := false;
end;
until(false)
end.
Last edited by bud_wis_er_420; 01-25-2012 at 04:49 AM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Oh i see.. yeah it's probably just me then. I might be getting lag.
this would be awesome with GUI just like in herblore pro.
Last edited by bud_wis_er_420; 01-25-2012 at 02:44 PM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Yeah it is lag. I'm running too many bots at the same time >.<
So now i'm only going to run 3 bots. Which is still great for me![]()
Ok I will look into putting in fail safes for lag issues.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
I'll be releasing ver 1.5 tonight, when I get off work. Got only a few more changes to make. I ran out of time on my lunch break.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Same with me, I had like 20 bots and spent over $200 on the reflection bots until the bot nuke. Now I want to learn code and make my own bot.
Logged into world 44
Now Making 90004 Attack
Bank Uptext not found
Bank not found, trying find_chest
Looking for bank with Findobj
Think we found bank, checking uptext
Bank Uptext found, clicking bank
We did not find bank after clicking, checking for pin screen
We are at the pin screen and you didn't enter a pin
Successfully executed.
Don't have a pin
ran again after manually putting the angle to the highest
We have made/cleaned a total of 336 Attacks
Bank Uptext found, clicking bank
We are in bank
Getting unf guam
Found stored unf guam
Getting eye_of_newt
Found stored eye_of_newt
We have made/cleaned a total of 350 Attacks
Bank Uptext found, clicking bank
We did not find bank after clicking, checking for pin screen
We are at the pin screen and you didn't enter a pin
Successfully executed.
The following bitmaps were not freed: [3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52]
yet it was in the bank
3rd time trying it
We have made/cleaned a total of 196 Attacks
Bank Uptext found, clicking bank
We are in bank
Getting unf guam
Found stored unf guam
Getting eye_of_newt
Found stored eye_of_newt
Didn not find make screen, shutting down
Successfully executed.
The following bitmaps were not freed: [3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32]
I give up
Last edited by NFL; 01-27-2012 at 04:28 AM.
Vers 1.5 now avaliable, with new setup interface. This is my first Form ever so it will get better. Don't get me wrong though, it works. I am very proud of my self, lol.
![]()
Last edited by bud_wis_er_420; 01-27-2012 at 05:11 AM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
There are currently 1 users browsing this thread. (0 members and 1 guests)