Code:
program PowerChoppin2Speced;
{.include srl/srl.scar}
Const
Tree = 2371135;
Login= 5464393;
var
x,y : integer;
procedure dropallfast;
begin
movemouse(581, 276)
wait(200)
ClickMouse(581,276,false)
wait(200)
ChooseOption('Drop') //inv 1
movemouse(631, 278)
wait(200)
ClickMouse(631, 278,false)
wait(200)
ChooseOption('Drop') //inv 2
movemouse(669, 277)
wait(200)
ClickMouse(669, 277,false)
wait(200)
ChooseOption('Drop') //inv 3
movemouse(708, 280)
wait(200)
ClickMouse(708, 280,false)
wait(200)
ChooseOption('Drop') //inv 4
movemouse(583, 314)
wait(200)
ClickMouse(583, 314,false)
wait(200)
ChooseOption('Drop') //inv 5
movemouse(625, 315)
wait(200)
ClickMouse(625, 315,false)
wait(200)
ChooseOption('Drop') //inv 6
movemouse(667, 316)
wait(200)
ClickMouse(667, 316,false)
wait(200)
ChooseOption('Drop') //inv 7
movemouse(716, 317)
wait(200)
ClickMouse(716, 317,false)
wait(200)
ChooseOption('Drop') //inv 8
movemouse(590, 348)
wait(200)
ClickMouse(590, 348,false)
wait(200)
ChooseOption('Drop') //inv 9
movemouse(630, 347)
wait(200)
ClickMouse(630, 347,false)
wait(200)
ChooseOption('Drop') //inv 10
movemouse(677, 351)
wait(200)
ClickMouse(677, 351,false)
wait(200)
ChooseOption('Drop') //inv 11
movemouse(716, 351)
wait(200)
ClickMouse(716, 351,false)
wait(200)
ChooseOption('Drop') //inv 12
movemouse(585, 388)
wait(200)
ClickMouse(585, 388,false)
wait(200)
ChooseOption('Drop') //inv 13
movemouse(629, 386)
wait(200)
ClickMouse(629, 386,false)
wait(200)
ChooseOption('Drop') //inv 14
movemouse(670, 381)
wait(200)
ClickMouse(670, 381,false)
wait(200)
ChooseOption('Drop') //inv 15
movemouse(718, 385)
wait(200)
ClickMouse(718, 385,false)
wait(200)
ChooseOption('Drop') //inv 16
movemouse(581, 425)
wait(200)
ClickMouse(581, 425,false)
wait(200)
ChooseOption('Drop') //inv 17
movemouse(631, 422)
wait(200)
ClickMouse(631, 422,false)
wait(200)
ChooseOption('Drop') //inv 18
movemouse(668, 423)
wait(200)
ClickMouse(668, 423,false)
wait(200)
ChooseOption('Drop') //inv 19
movemouse(708, 421)
wait(200)
ClickMouse(708, 421,false)
wait(200)
ChooseOption('Drop') //inv 20
movemouse(593, 455)
wait(200)
ClickMouse(593, 455,false)
wait(200)
ChooseOption('Drop') //inv 21
movemouse(624, 457)
wait(200)
ClickMouse(624, 457,false)
wait(200)
ChooseOption('Drop') //inv 22
movemouse(669, 457)
wait(200)
ClickMouse(669, 457,false)
wait(200)
ChooseOption('Drop') //inv 23
movemouse(709, 459)
wait(200)
ClickMouse(709, 459,false)
wait(200)
ChooseOption('Drop') //inv 24
movemouse(583, 493)
wait(200)
ClickMouse(583, 493,false)
wait(200)
ChooseOption('Drop') //inv 25
movemouse(633, 495)
wait(200)
ClickMouse(633, 495,false)
wait(200)
ChooseOption('Drop') //inv 26
movemouse(666, 495)
wait(200)
ClickMouse(666, 495,false)
wait(200)
ChooseOption('Drop') //inv 27
movemouse(707, 497)
wait(200)
ClickMouse(707, 497,false)
wait(200)
ChooseOption('Drop') //inv 28
end;
begin
SetupSRL
repeat
Mouse(681, 533,1,1,true)
wait(500)
Mouse(707, 279,1,1,true)
wait(500)
MakeCompass('perfectNorth')
Wait(2000)
if(FindColorTolerance(x,y,Login,0,1,516,340,5)) then
begin
Mouse(351, 307,1,1,true);
SendKeys('');
wait(500)
Mouse(348, 323,1,1,true);
SendKeys('');
Wait(500)
Mouse(373, 366,1,1,true)
wait(15000)
end else
if(FindColorTolerance(x,y,Tree,0,1,516,340,5)) then
Mouse(x,y,1,1,false);
ChooseOption('tree');
Mouse(644, 232,1,1,true)
Wait(55000)
dropallfast;
until(false);
end.
ok, so Basically I want to make this into a GUI.