Pokaż wyniki 1 do 3 z 3

Temat: Kod pomoc w compile

  1. #1

    Exclamation Kod pomoc w compile

    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

  2. #2

    Domyślnie

    Cytat Napisał misiek120 Zobacz post
    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
    ściśgnij kompilator i skompiluj?

  3. Domyślnie

    true story ... az tak Ci ciezko sciagnac kompilator do pascala? ...

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj