View difference between Paste ID: Aq2TPkxX and ax5DjTPg
SHOW: | | - or go back to the newest paste.
1
program Lukes_KickAss_Alcher;
2
//*********************************************************************************//
3
//                                                                                 //
4
//                                                                                 //
5
//                    WELCOME TO LUKE'S KICK ASS ALCHER!                           //
6
//                 Made by Fredbear/RSisDead(Simba username)                       //
7
//                     1. Fill out the setup                                       //
8
//                     2. Hit "Run"!                                               //
9
//                     3. Enjoy!                                                   //
10
//                                                                                 //
11
//                                                                                 //
12
//*********************************************************************************//
13
{$DEFINE SMART}
14
{.include SRL/SRL/Misc/Smart.simba}
15
  {.include SRL/SRL.simba}
16
  {.include SRL/SRL/Skill/Magic.simba}
17
  {$i sps/sps.simba}
18
  {$i SRL/SRL/misc/paintsmart.simba}
19
var
20
  AlchStacked :Boolean;
21
Function IDKWhatImDoing :extended;
22
begin
23
AlchStacked := False; // If the item you are alching is stacked (I.E arrows, bolts etc,) change this to true!
24
 // If you are using a stacked item, place it in your second Item slot, the first being your nature runes.
25-
  NUMBER_OF_ALCHS := 27; //Replace this number with the number of alchs you plan on performing
25+
26
const
27
  NUMBER_OF_ALCHS =27; //Replace this number with the number of alchs you plan on performing
28
29
30
procedure DeclarePlayers;
31
begin
32
  HowManyPlayers := 0;
33
  NumberOfPlayers(HowManyPlayers);
34
  CurrentPlayer  := 0;
35
36
  with Players[0] do
37
  begin
38
    Name := '';
39
    Pass := '';
40
    Member := True;
41
    Active := True;
42-
while AlchStacked = False;
42+
43
end;
44
45
procedure Alch_Multislot;
46
begin
47
while AlchStacked = False do;
48
Mouse(784, 190, 2, 2, true);
49
Mouse(571, 375, 2, 2, true);
50
Mouse(611, 226, 2, 2, true);
51
Mouse(565, 377, 2, 2, true);
52
Mouse(662, 221, 2, 2, true);
53
Mouse(577, 368, 2, 2, true);
54
Mouse(703, 228, 2, 2, true); // fourth slot
55
Mouse(566, 377, 2, 2, true);
56
Mouse(576, 257, 2, 2, true); //fifth slot
57
Mouse(566, 377, 2, 2, true);
58
Mouse(616, 265, 2, 2, true); // sixth
59
Mouse(566, 377, 2, 2, true);
60
Mouse(656, 262, 2, 2, true); // seventh
61
Mouse(566, 377, 2, 2, true);
62
Mouse(706, 268, 2, 2, true); // eighth
63
Mouse(566, 377, 2, 2, true);
64
Mouse(580, 297, 2, 2, true); // 9th slot
65
Mouse(566, 377, 2, 2, true);
66
Mouse(622, 297, 2, 2, true); // 10th
67
Mouse(566, 377, 2, 2, true);
68
Mouse(657, 299, 2, 2, true); // 11th
69
Mouse(566, 377, 2, 2, true);
70
Mouse(698, 303, 2, 2, true); // 12th
71
Mouse(577, 368, 2, 2, true);
72
Mouse(569, 341, 2, 2, true); // 13th
73
Mouse(577, 368, 2, 2, true);
74
Mouse(627, 330, 2, 2, true); // 14th
75
Mouse(577, 368, 2, 2, true);
76
Mouse(668, 331, 2, 2, true); // 15th
77
Mouse(577, 368, 2, 2, true);
78
Mouse(702, 342, 2, 2, true); // 16th
79
Mouse(577, 368, 2, 2, true);
80
Mouse(573, 370, 2, 2, true); // 17th
81
Mouse(577, 368, 2, 2, true);
82
Mouse(624, 369, 2, 2, true); // 18th
83
Mouse(577, 368, 2, 2, true);
84
Mouse(653, 368, 2, 2, true); // 19th
85
Mouse(577, 368, 2, 2, true);
86
Mouse(707, 373, 2, 2, true); // 20th
87
Mouse(577, 368, 2, 2, true);
88
Mouse(574, 414, 2, 2, true); // 21st
89
Mouse(577, 368, 2, 2, true);
90
Mouse(621, 407, 2, 2, true); // 22nd
91
Mouse(577, 368, 2, 2, true);
92
Mouse(656, 408, 2, 2, true); // 23rd
93
Mouse(577, 368, 2, 2, true);
94
Mouse(698, 408, 2, 2, true); // 24th
95
Mouse(577, 368, 2, 2, true);
96
Mouse(573, 447, 2, 2, true); // 25th
97
Mouse(577, 368, 2, 2, true);
98-
goto Alch_Multislot;
98+
99
Mouse(577, 368, 2, 2, true);
100
Mouse(660, 439, 2, 2, true); // 27th
101
Mouse(577, 368, 2, 2, true);
102
Mouse(702, 447, 2, 2, true); // 28th
103
end;
104
105
106
procedure Start;
107
begin
108
  Alch_Multislot;
109
  end;
110
begin
111
end.