it's not loading the item
does the ver at top say 1.4c-4?Simba Code:Could not find uptext: , , or
I just tested it and ver 1.4c-4 is loading the item fine. The only way this can fail is by entering incorrect settings.
it's not loading the item
does the ver at top say 1.4c-4?Simba Code:Could not find uptext: , , or
I just tested it and ver 1.4c-4 is loading the item fine. The only way this can fail is by entering incorrect settings.
Last edited by bud_wis_er_420; 01-22-2012 at 06:49 AM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
I'm on 1.4c-4.
I'll copy and paste everything I've got:
Set_how_many_types = 1; //how many different kinds of pots are you making //
Check_Text_Type = 0; // 0 = off; 1 = text; 2 = name //
Login_44 = 1; // 0 = off; 1 = on; //
ManualMode = 'Off'; //Look at setup inst. below
__________________________________________________ _____________
Make[0] := SetVars('Extreme Attack', 1076, 0); //
//Make[1] := SetVars('Attack', 55, 1); //
//Make[2] := SetVars('Super Strength', 42, 2); //
//Make[3] := SetVars('Extreme Attack', 1000, 3);//Copy and past more if you want more//
end; //Just be sure to change the numbers //
just look very carefully at the one I gave you a few post ago
Make[0] := SetVars('Extreme Attack', 1000, 3);
and the one you are using above.
Make[0] := SetVars('Extreme Attack', 1076, 0);
u need 3 for Extreme's
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
yeah sorry, my post wasnt very coherent as i was tired...
basically, due to lag once the vial and herbs had been withdrawn therd be a delay in the herbs actually appearing in the invent, but the script wouldnt recognise this and would click the empty spot where the herbs would soon appear.
hope this explains it better
Last edited by nathan lad; 01-22-2012 at 08:04 AM.
What does this mean?Simba Code:SRL Compiled in 15 msec
SMART Initialized.
Loaded: Server 44, Members: False, Signed: False, Super Detail: False.
Now Making 39000 energy
Getting unf harralander
unf harralander is not found in storage
I Think we found the unf harralander
Checking the uptext nder potion (un, ander potion (unf, or lander potion (u
Could not find uptext: nder potion (un, ander potion (unf, or lander potion (u
Could not find the nder potion (un BMP
Retrying with block checker
Could not item with finditem 2
Retrying with FindColorSpiralTolerance
Could not find the unf harralander
Successfully executed.
The following DTMs were not freed: [2]
The following bitmaps were not freed: [3]
I have this atm
Simba Code:Make[0] := SetVars('energy', 39000, 3); //
//Make[1] := SetVars('Attack', 55, 3); //
//Make[2] := SetVars('Super Strength', 42, 3); //
//Make[3] := SetVars('Serum 207', 42, 3);//Copy and past more if you want more//
end; //Just be sure to change the numbers
Bank looks like this atm :![]()
Last edited by lowbridd; 01-22-2012 at 08:00 AM.
find text failed. That is a srl function and not much i can do about it. I will try to figure out another fail safe tomorrow for this and play with the text to fine tune it. But it only calls the function the first time it looks for an item. After that it goes off a stored location. if it fails just try rerunning it or use the manual option for now. I see you already got the unf pot and 2nd in the correct place. Once it finds the item the first time it stores it's location and only uses uptext finding for opening the bank. Thx for the detailed bug report.
Search for this in the script "nder potion (un" you will see 2 other strings right next to it. Shorten those to something like this. "nder po". I took out this part "tion (un". Do the same for the other 2. This should improve it's chances alot. I didn't realize uptext finding was so buggy when I used it in this script.
This i what I plain to do tomorrow. GN for now
Last edited by bud_wis_er_420; 01-22-2012 at 08:26 AM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Alright thanks for responding
i explained the problem im incurring more clearly three posts up
Everytime I try and start it, it can't find the chest. I think its because what I brought up in previous posts that it won't go to highest angle. Anyways you say people aren't being descriptive enough well I went and made a video on youtube want me to show you it?
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Hey Bud would you teamviewer me?
I have skype but I can get teamviewer.
Edit: Got it. PM me you link info. Have you char logged on and ready and erase user and pass from the script if you added it. This so I don't see it. Not that I would steal it, just for your safety.
Last edited by bud_wis_er_420; 01-22-2012 at 06:06 PM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
thanks for the quick fixes, the small delay prevents the error i was getting, but i agree it should be only a temp fix as ultimately you want to be speeding things up not slowing them down.
edit: one more problem ive incured is that again due to lagg it sometimes clicks the middle box where it asks u how many to mix before that appears also
Last edited by nathan lad; 01-22-2012 at 06:17 PM.
Yes, I want to change all my sleeps to
Simba Code:While not('what we are waiting for') do
Sleep(100+random(10);
I want to make sure all the potions all the methods of making herb thins is working. The method is a set thing, once it's all right it can never be messed up. What I mean is, there may be some potions or any other thing this script supports that won't work atm. I am not aware that the method it takes to make it is different from the rest. For example, one that I am aware of is the Antiposion+'s. So what I'm proposing to do to help me keep track of what works and what don't, I am going to start a list on the front page of all the methods and what has been confirmed to work
Last edited by bud_wis_er_420; 01-22-2012 at 06:23 PM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Check out my PM I sent you. With all this bug reporting people are doing your Script should become flawless soon and be the best herblore script. It did 80k Potions before and that was a really simple script the one you have now is much more advanced.
Hey,
This is probally real simple, but I cannot get it to make Unfinshed potions, It withdraws the vial of water, and then, stops. Am I setting it up right?
" // 2 = unfinished Pots 3 = Unf to finished, or extreme //
// (make, amount, Task) //
Make[0] := SetVars('irit', 10000, 2); //
//Make[1] := SetVars('irit', 10000, 2); //
//Make[2] := SetVars('irit', 10000, 2); "
Cheers.
Had it going for about 45 minutes then:
Error: Out Of Range at line 842
The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2, 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, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 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, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185]
Line 842:
if ((B.x2-B.x1) > 90) and ((B.y2-B.y1) > 18) then
Break
Last edited by bud_wis_er_420; 01-22-2012 at 11:14 PM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
Change alot of things. A short list of them are:
1. Totally redone banking. DTMs where a no go. I think this is gona be the one.
2. Added alot more debugging notes for easier bug finding.
3. Added a repeat wait, nathan lad, for the bug you mentioned.
Redownload ver 1.4c-6
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
How many unf does it make / hour at SW ?
greets
Around 2500 Yobesti
Looks nice, will certainly test this out
Going to bed now but got alot done on the setup form. I'm almost done. The hardest part was making the failsafes to turn on/off setting when you pick things. You will see.
This is the first form I ever made so give me some slack. Also I'm not done this is just for you to get the feel of it.
Test your scripting skills and see if you can help me find the 'out of range' error, that occurs when you click on one of the bottom 3 radio buttons first. It should just do what it does just without the popup error. I'm having a hard time finding it. Maybe it's just because I'm tired.
copy and paste this into a new scar or simba window and run.
Simba Code:program New;
var
PotionArray, HerbArray: TStringArray;
count, FType: integer;
SType: String;
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;
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 ClearP;
begin
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;
PText := GetPOne;
for count := 0 to 4 do
NeedList.Items.Add(PText[count]);
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 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];
ToDoList.Items.Add(FMake[0] + ', ' + FMake[1] + ', ' + FMake[2]);
ClearSettings;
end;
end else
begin
GetTypeString;
FMake := [HerbArray[HerbsList.ItemIndex], Amount.Text, SType];
ToDoList.Items.Add(FMake[0] + ', ' + FMake[1] + ', ' + FMake[2]);
ClearSettings;
end;
end;
end;
Procedure InitForm;
Begin
APMForm := TForm.Create(nil);
APMForm.Left := 200;
APMForm.Top := 200;
APMForm.Width := 450;
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 := 140;
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 := 270;
ToDoLable.Top := 25;
ToDoLable.Caption := 'To Do List:';
AmountLable := TLabel.Create(APMForm);
AmountLable.Parent := APMForm;
AmountLable.Left := 160;
AmountLable.Top := 135;
AmountLable.Caption := 'Amount:';
UserSLable := TLabel.Create(APMForm);
UserSLable.Parent := APMForm;
UserSLable.Left := 270;
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 := 160;
ClearB.Top := 50;
ClearB.Width := 60;
ClearB.Height := 25;
ClearB.Caption := 'Clear';
ClearB.TabOrder := 23;
ClearB.OnClick := @ClearAllSettings;
AddTask := TButton.Create(APMForm);
AddTask.Parent := APMForm;
AddTask.Left := 160;
AddTask.Top := 80;
AddTask.Width := 60;
AddTask.Height := 25;
AddTask.Caption := 'Add Task';
AddTask.TabOrder := 9;
AddTask.OnClick := @AddTheTask;
StartB := TButton.Create(APMForm);
StartB.Parent := APMForm;
StartB.Left := 160;
StartB.Top := 110;
StartB.Width := 60;
StartB.Height := 25;
StartB.Caption := 'Start';
StartB.TabOrder := 23;
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 := 270;
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 := 150;
NeedList.Top := 290;
NeedList.Width := 115;
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 := 160;
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 := 270;
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 := 160;
Amount.Top := 150;
Amount.Width := 60;
Amount.TabOrder := 18;
Amount.Font.Color := clBlack;
Amount.Text := '0';
Username := TEdit.Create(APMForm);
Username := TEdit.Create(APMForm);
Username.Parent := APMForm;
Username.Left := 270;
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 := 270;
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 := 270;
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 := 270;
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;
SetArrayLength(FMake, 3);
SafeInitForm;
SafeShowFormModal;
End.
Pretty cool huh!!
Last edited by bud_wis_er_420; 01-23-2012 at 08:59 AM.
Not scripting for RS anymore, sorry. Banned too many times.MY SCRIPTS
dwarf weed to unf ranging pots work
There are currently 1 users browsing this thread. (0 members and 1 guests)