Simba Code:
Procedure FastDropSlot(Slot: Integer);
Var
X,Y,MenuHeader: Integer;
TB: TBox;
begin
Case Slot of
1: TB := IntToBox(564,214,598,244);
2: TB := IntToBox(606,214,640,244);
3: TB := IntToBox(648,214,682,244);
4: TB := IntToBox(690,214,724,244);
5: TB := IntToBox(564,250,598,280);
6: TB := IntToBox(606,250,640,280);
7: TB := IntToBox(648,250,682,280);
8: TB := IntToBox(690,250,724,280);
9: TB := IntToBox(564,286,598,316);
10: TB := IntToBox(606,286,640,316);
11: TB := IntToBox(648,286,682,316);
12: TB := IntToBox(690,286,724,316);
13: TB := IntToBox(564,322,598,352);
14: TB := IntToBox(606,322,640,352);
15: TB := IntToBox(648,322,682,352);
16: TB := IntToBox(690,322,724,352);
17: TB := IntToBox(564,358,598,388);
18: TB := IntToBox(606,358,640,388);
19: TB := IntToBox(648,358,682,388);
20: TB := IntToBox(690,358,724,388);
21: TB := IntToBox(564,394,598,424);
22: TB := IntToBox(606,394,640,424);
23: TB := IntToBox(648,394,682,424);
24: TB := IntToBox(690,394,724,424);
25: TB := IntToBox(564,430,598,460);
26: TB := IntToBox(606,430,640,460);
27: TB := IntToBox(648,430,682,460);
28: TB := IntToBox(690,430,724,460);
end;
MouseSpeed := RandomRange(26,39);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, mouse_right);
Wait(RandomRange(20, 75));
MenuHeader := BitmapFromString(85, 3, 'meJxj4eaauuMYELFwc6EhZHFK2Pj' +
'NREb41ZNtNR6VVPQmed7HVENn76NFBDFOxRVleMwhqB5XUOBSQ4yx' +
'BB0PAFlnADk=');
if FindBitmapToleranceIn(MenuHeader, X, Y, 490, 190, 764, 475, 10) then
begin
MMouse(X, (Y+50), 20, 3);
Wait(RandomRange(20, 75));
ClickMouse2(True);
end;
FreeBitmap(MenuHeader);
end;