i was getting errors using it so i jsut fixed it u dont have to use them but it does work
Code:{*******************************************************************************
Function GESetPrice(value: string): boolean;
By: Rasta Magician
Description: Sets the price of an item.
'0', 'min' - Minimum Value
'1', 'med' - Market Value
'2', 'max' - Max value
Other - Exact value
*******************************************************************************}
Function GESetPrice(Value: Variant): boolean;
var
price : integer;
begin
if not InGE then exit;
if not GESellMenu then
if not GEBuyMenu then
exit;
if value = 'min' then price := 0;
if value = 'med' then price := 1;
if value = 'max' then price := 2;
wait(100+Random(50));
case price of
0: MouseBox(269, 208, 304, 232, 1); // min price
1: exit; // market price
2: MouseBox(376, 210, 408, 233, 1); // max price
else begin
MouseBox(429, 209, 462, 234, 1);
wait(100+Random(100));
TypeSend(IntToStr(value));
wait(200+Random(100));
if IsChatBoxTextAnyLine('price range', clblack) then
begin
writeln('wrong price! Out of Price Range!');
GEMenuExit;
end;
end;
end;
Result := true;
end;
Code:{*******************************************************************************
Function InGE: boolean;
By: Rasta Magician
Description: Checks if we are in GE
*******************************************************************************}
function Inge: Boolean;
var
gebmp, x, y : Integer;
begin
gebmp := BitmapFromString(107, 15, 'beNrNmFFOAzEMRDlT4beILwQ35' +
'FAcipUsjUYztuss224jq8qmTmy/OG6218v3x9vX++v2uSTbFMjn9R' +
'LCg3PZZ/QokfV3cED/9+cFMgwE6IYAY3H3n00vOdCsfODG9W5wCNG' +
'aENLEm6cfrIj/bB1tiSGv/ACAsg77HwpVCBW9VYCybDU+j+IsgFvg' +
'c/+b9DsFILtUAWycPCT9BKCXIK5L4m0IfJMilqLrAaamve/6sj5bF' +
'8dSf6ReTcZ5dyQBgFEMReO9hqYAlBV4ys0MlNIh2OMrL5ismfrP3n' +
'pcvlOVvoynAPlRJmKKbN/WMMgmKuBLR9jrc6pcWfdk671K+1IiOOo' +
'5QKHXgJr0hwCbo10BrCxOQN0EKMcBANOCk9JmgNx/AMBhBk5g7gbI' +
'DUCagpMCTI9wA606RBUobGVzNfXMrCCk1ht9d6aKwgHi+gd6IQI8R' +
'C69rOl9PIp+ZRoVr7ma+pV7qDzXF4AetQOcXJhX7373fp+6n3j9T6' +
'UB2NNzgPve958QmgDsIRxC75//nJzCqjJd/drm8gcF+e3g');
Result := Findbitmap(gebmp, x, y);
freebitmap(gebmp);
end;
