Its because the prices from the GE arent being pulled down correctly. Their server was overloaded. In Version 1.2 im adding a failsafe for that. For now, change procedure GetPrices to:
Mind you that the price calculations wont work if this is the case.Code:procedure GetPrices; var url, strPrice : String; i:Integer; ids:Array of Integer; begin ids := [1625,1627,1629,1623,1621,1619,1617]; for i:=0 to high(ids) do begin try url := 'http://glowbotting.x10.mx/GEPriceChecker.php?id='+IntToStr(ids[i]); strPrice := Trim(GetPage(url)); strPrice := Replace(strPrice,'k','00'); strPrice := Replace(strPrice,'.',''); prices[i] := StrToInt(strPrice); Writeln(gemNames[i] + ': ' + IntToStr(prices[i])); except Writeln('GE prices were not recieved. The server is either down or busy'); Exit; end; end; end;


Reply With Quote


Though, an anti-leech method should have been implemented here, seeing as you're using banking .


Quite funny. Your standards are a bit off at times, but I am not one to talk as I suck with them :P I would surely have added an antileach, as this is potent money making for sure.