Code snippet

program New;

var S: String;

const
warningprice ='0.0190504'; //0.0167957
fuckkkkprice ='0.0130000';

function Get: String;
begin
S := GetPage('https://api.coinmarketcap.com/v1/ticker/siacoin/');
S := Between('price_usd": "', '", ', S);
Result := S;
end;

procedure loop;
begin
WriteLn(Get);
if S > warningprice then
PlaySound('C:\Users\ditch\Downloads\beachresort\beachresort\images\krs.wav')
end;

procedure loop1;
begin
if S < fuckkkkprice then
PlaySound('C:\Users\ditch\Downloads\beachresort\beachresort\images\krs.wav')
end;

begin
repeat
cleardebug;
loop;
loop1;
wait(10000);
until false
end.