Temat: Blue Bot dice script. Do piekła. Zamknijcie, bo nie aktualne

{ Casino Gambling Game High/Low }
{ Beta stange. Written by Lord Compi }
const
someconst=100;

var
rolled:integer;
timer:integer;
x,y,z:integer;
function getroll:integer;
var i:integer;
begin
if itemcount(5792)=0 then i:=1;
if itemcount(5793)=0 then i:=2;
if itemcount(5794)=0 then i:=3;
if itemcount(5795)=0 then i:=4;
if itemcount(5796)=0 then i:=5;
if itemcount(5797)=0 then i:=6;
result:=i;
end;

function getplayername:string;
var x,y,z:integer;
begin
x:=getinfo(playerid,44);
y:=getinfo(playerid,40);
z:=getinfo(playerid,36);
result:=getnamebyid(getidonpos(x-2,y,z));
end;

procedure payout;
var x,y,z:integer;
cc,ile:integer;
begin
x:=getinfo(playerid,44);
y:=getinfo(playerid,40);
z:=getinfo(playerid,36);
cc:=itemcount(3043); 
ile:=(cc-setup_read_int('cc'));
ile:=ile*2;
say('You win '+inttostr(ile)+'cc');
drop_item(3043,ile,x-1,y+1,z);
end;

function getplayermsg:string;
var s:string;
begin
s:=getlastmsg();
if extractname(s)=getplayername then
result:=extractmsg(s);
end;


begin
setup_write_int('cc',itemcount(3043));

clearhud;
sethud('HIGH LOW GAME by Lord Compi');
sethud('Last roll: '+inttostr(getroll));
sethud('Current player:'+getplayername);

if itemcount(3043)<3 then begin alarm;end;
setup_write_int('timer',setup_read_int('timer')+1);
timer:=setup_read_int('timer');
if timer mod 15 = 0 then begin if itemcount(3043)<3 then say('Out of money!') else say('[Blue Bot] Casino Min=1cc Max=1kk 100% Payout! Accept only CC!');
if itemcount(2949)>-1 then useiteminbp(2949); end;
if (getplayername()<>setup_read('player'))and(getplayername()<>'') then begin

say('Welcome '+getplayername()+'. Put +10k  and say low or high. I accept only cc');
setup_write('player',getplayername());

end;


if (getplayermsg='l') or (getplayermsg='low') then begin

loot(3043);
loot(3043);
loot(3043);
wait(1000);
if itemcount(3043)>setup_read_int('cc') then begin

useiteminbp(5791+getroll());
wait(1000);
say('You roll: '+inttostr(getroll));
if getroll<4 then begin payout; end
 end else say('First put money');
end;

if (getplayermsg='h') or (getplayermsg='high') then begin
loot(3043);
loot(3043);
loot(3043);
wait(1000);
if itemcount(3043)>setup_read_int('cc') then begin

useiteminbp(5791+getroll());
wait(1000);
say('You roll: '+inttostr(getroll));
if getroll>3 then begin payout; end
 end else say('First put money');
end;


end.