Pokaż wyniki 1 do 3 z 3

Temat: Kod pomoc w compile

  1. #1
    Zarejestrowany
    Nov 2013
    Postów
    2

    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
    ocb
    ocb jest offline
    Zarejestrowany
    May 2011
    Postów
    392

    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. #3
    Zarejestrowany
    Nov 2013
    Postów
    35

    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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52