Simba Code:
Procedure ClickMagebane;
Begin
MagebaneDTM := DTMFromString('mQwAAAHicY2ZgYHBnZmBwBmIXII5gZGCIBOJQIC7LqmLorZvE0FXdz8AKVAfDjEgYCAD+RgaB');
GameTab(Tab_Inv);
if FindDTM(MagebaneDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
wait(randomrange(500,600));
MMouse(X, Y + 3, 0, 0);
wait(randomrange(350,400));
ClickMouse2(false);
Writeln ('Found seed, Time to farm!')
wait(randomrange(200,300));
ChooseOption('Use');
wait(randomrange(300, 350));
FreeDTM(MagebaneDTM);
end else
begin
writeln ('Not found Magebane seed, buying new seeds!')
wait(randomrange(100,200));
GameTab(Tab_Magic);
wait(randomrange(100,200));
CreateGatestoneDTM := DTMFromString('mbQAAAHicY2VgYAhmYmAIBGJfIPYE4jAgtmZkYDAGYisgtmWE8KX3z2IIeX2HQfb1MQbx2c1gzAzUj44ZsWAwAACvCAqg');
if FindDTM(CreateGatestoneDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Create','Gatestone'], 500) Then
Begin
ClickMouse2(true);
wait(randomrange(1000,1500));
GameTab(Tab_Inv);
wait(randomrange(500,600));
DropGateStoneDTM := DTMFromString('mggAAAHicY2NgYFjIxMCwEojXA/FmIF4LpU0YGRjUgVgPiM2BWAOIjYBYy9yYwcnXkyFv2RQG+/hQBnFleQafiBAGVqBZ2DAjDgwBALD5Crs=');
if FindDTM(DropGateStoneDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
wait(randomrange(200,300));
If WaitUptextMulti(['Gatestone'], 500) Then
Begin
ClickMouse2(false);
wait(randomrange(100,150));
ChooseOption('Drop');
wait(randomrange(1000,1500));
HomeTeleportDTM := DTMFromString('mWAAAAHicY2FgYPBmYmDwQ8KcjAwMHEDMDMTcQBwbuJTBQSmZoSxuBphmBupBxoxoGAQALoIFvg==');
if FindDTM(HomeTeleportDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Dungeon', 'Home','Teleport'], 500) Then
Begin
ClickMouse2(true);
wait(randomrange(6000,7000));
TradeTheSmuggler := DTMFromString('mbQAAAHicY2VgYNBiZGAwB2IVILaCsicCxacC8QIgXg7EW4G4o8iXoS7LnSHUz4AhLcyKoTw/gIEVKI6OGbFgMAAAiQAJtg==');
if FindDTM(TradeTheSmuggler, x, y, MSX1, MSY1, MSX2, MSY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Talk','Smuggler'], 500) Then
Begin
ClickMouse2(false);
wait(randomrange(300,400));
ChooseOption('Trade');
wait(randomrange(1500,2000));
MMouse(503,312+ 3, 0, 0);
wait(randomrange(100,150));
ClickMouse2(false);
wait(randomrange(100,150));
BuyMagebaneSeeds := DTMFromString('mQwAAAHicY2ZgYHABYlcgdgTiQiAug+Ke2okMHVW9DIsnrWRgBfJhmBEJAwEAGvwHRA==');
if FindDTM(BuyMagebaneSeeds, x, y, MSX1, MSY1, MSX2, MSY2) then
Begin
MMouse(X, Y + 3, 0, 0);
ClickMouse2(false);
wait(randomrange(300,400));
ChooseOption('Buy 250');
wait(randomrange(1500,2000));
MMouse(507,53+ 3, 0, 0);
wait(randomrange(100,200));
ClickMouse2(true);
GameTab(Tab_Magic);
UseGateStoneTeleport := DTMFromString('mWAAAAHicY2FgYEhmYmBIB+J8IM4BYhNGBgZbILYAYkMgLms7y+DmfJAhTH86Q8+0kwzMQD3ImBENgwAAzH0Iug==');
if FindDTM(UseGateStoneTeleport, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Gatestone','Teleport'], 500) Then
Begin
ClickMouse2(true);
wait(randomrange(1500,2000));
GameTab(Tab_Inv);
wait(randomrange(500,600));
FreeDTM(CreateGatestoneDTM);
FreeDTM(DropGateStoneDTM);
FreeDTM(HomeTeleportDTM);
FreeDTM(TradeTheSmuggler);
FreeDTM(BuyMagebaneSeeds);
FreeDTM(UseGateStoneTeleport);
//Restart this procedure from start
wait(randomrange(500,600));
ClickMagebane;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;