Napisał
misiek120
witam posiadam oto taki kod.. potrzebuje go skompilowac do pliku exe
{ 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(getplay ername()<>'') 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.
prosze o pomoc;3