Simba Code:
////////////////////Ignore This Part////////////////////////
program New; //
//{$DEFINE SMART} //
{$i srl/srl.scar} //
var x,y,next :integer;
//
const //
////////////////////////////////////////////////////////////
Select_Task = 1; // 0 = Clean berbs. 1 = Make potions
Tolerance = 15;
AreaSize = 0;
AreaShape = 0;
////////////////////////////////////////////////////////////
///////////////////Begining of Script///////////////////////
////////////////////////////////////////////////////////////
function SetHerbDTM(Hcolor, Gcolor: integer): integer;
var
Sub_Pt: array[0..5] of TDTMPointDef;
Main_Pt: TDTMPointDef;
Herb_TDTM: TDTM;
begin
Main_Pt.x:=184;
Main_Pt.y:=103;
Main_Pt.areasize:=1;
Main_Pt.areashape:=0;
Main_Pt.color:=Hcolor;
Main_Pt.tolerance:=10;
Sub_Pt[0].x:=192;
Sub_Pt[0].y:=109;
Sub_Pt[0].areasize:=AreaSize;
Sub_Pt[0].areashape:=AreaShape;
Sub_Pt[0].color:=Gcolor; //This color is green or brown for clean or grimy
Sub_Pt[0].tolerance:=Tolerance;
Sub_Pt[1].x:=198;
Sub_Pt[1].y:=106;
Sub_Pt[1].areasize:=AreaSize;
Sub_Pt[1].areashape:=AreaShape;
Sub_Pt[1].color:=131072 ;
Sub_Pt[1].tolerance:=Tolerance;
Sub_Pt[2].x:=189;
Sub_Pt[2].y:=115;
Sub_Pt[2].areasize:=AreaSize;
Sub_Pt[2].areashape:=AreaShape;
Sub_Pt[2].color:=131072 ;
Sub_Pt[2].tolerance:=Tolerance;
Sub_Pt[3].x:=183;
Sub_Pt[3].y:=113;
Sub_Pt[3].areasize:=AreaSize;
Sub_Pt[3].areashape:=AreaShape;
Sub_Pt[3].color:=131072 ;
Sub_Pt[3].tolerance:=Tolerance;
Sub_Pt[4].x:=175;
Sub_Pt[4].y:=109;
Sub_Pt[4].areasize:=AreaSize;
Sub_Pt[4].areashape:=AreaShape;
Sub_Pt[4].color:=131072 ;
Sub_Pt[4].tolerance:=Tolerance;
Sub_Pt[5].x:=172;
Sub_Pt[5].y:=104;
Sub_Pt[5].areasize:=AreaSize;
Sub_Pt[5].areashape:=AreaShape;
Sub_Pt[5].color:=131072 ;
Sub_Pt[5].tolerance:=Tolerance;
Herb_TDTM.MainPoint := Main_Pt;
Herb_TDTM.SubPoints := Sub_Pt;
Result := AddDTM(Herb_TDTM);
end;
procedure Get_Herb_Info(herb:string; Herb_Text: TStringArray; Herb_DTM: integer);
begin
case herb of
'Guam' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
for next:=0 to high(Herb_Text) do
writeln(Herb_Text[next])
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Marrentill' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Tarromin' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Harralander': begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Ranarr' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Toadflax' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'SpiritWeed' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Irit' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Wergali' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Avantoe' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Kwuarm' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Snapdragon' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Cadantine' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Lantadyme' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'DwarfWeed' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Torstol' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
'Fellstalk' : begin
if(Select_Task = 1)then
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Clean g', 'ean guam', 'an guam'];
end else
begin
Herb_DTM := SetHerbDTM(604423, 1980229);
Herb_Text := ['Grimy g', 'imy guam','my guam'];
end;
end;
end;
end;
{function Store_Item(item: string,
begin
end; }
function Find_Item(x, y: integer; item: string): Boolean;
var
rightcount, downcount, Slotx, Sloty, DTM: integer;
text: TStringArray;
begin
Slotx := 31;
Sloty := 85;
rightcount := 0;
downcount := 0;
Get_Herb_Info(item, text, DTM);
repeat
repeat
if(FindDTM(DTM, x, y, Slotx, Sloty, Slotx + 44, Sloty + 44))then
begin
MMouse(x - 5, y - 5, 10, 10);
end;
Slotx := Slotx + 44;
rightcount := rightcount + 1;
until(IsUpTextMultiCustom([text]))or(rightcount >= 9)
Sloty := Sloty + 44;
Slotx := 31;
downcount := downcount + 1;
until(IsUpTextMultiCustom([text]))or(downcount >= 3)
if(IsUpTextMultiCustom([text]))then Result:= true;
end;
procedure Get_Item(item: string);
var
DTM,i: integer;
text: TStringArray;
begin
//if(Find_Item(x,y,item))then
//begin
//Store_Item(x,y,item)
//Mouse(x, y, 0, 0, false);
//end else writeln('Could not find ' + item);
Get_Herb_Info(item, text, DTM);
writeln(item)
for i:=0 to high(text) do
writeln(text[i])
end;
begin
ClearDebug();
//Smart_Server := 44;
SetupSRL();
//Withdraw_Herbs('Guam');
Get_Item('Guam')
end.