Delphi & Pascal (česká wiki)
Procedure RiskDolni; Begin Key[35]:=False; {HLAVA} Key[24]:=False; {OREL} Repeat RiskScreen; If AutoStart=True then Begin Dec(RiskRandom2); If RiskRandom2=0 then Begin RiskAuto:=False; If RiskRandom1=0 then Begin {RiskRandom1=1} If RiskRandom4<6 then {1/2 chance} Begin {WIN} If Hlava.Enable=True then Begin Key[35]:=True; {HLAVA AUTO TRUE} Key[24]:=False; {OREL AUTO FALSE} End; If Orel.Enable=True then Begin Key[35]:=False; {HLAVA AUTO FALSE} Key[24]:=True; {OREL AUTO TRUE} End; End else Begin {LOSE} If Hlava.Enable=True then Begin Key[35]:=False; {HLAVA AUTO FALSE} Key[24]:=True; {OREL AUTO TRUE} End; If Orel.Enable=True then Begin Key[35]:=True; {HLAVA AUTO TRUE} Key[24]:=False; {OREL AUTO FALSE} End; End; End else Begin {RiskRandom1=1} If RiskRandom4>=6 then {1/2 chance} Begin {WIN} If Hlava.Enable=True then Begin Key[35]:=True; {HLAVA AUTO TRUE} Key[24]:=False; {OREL AUTO FALSE} End; If Orel.Enable=True then Begin Key[35]:=False; {HLAVA AUTO FALSE} Key[24]:=True; {OREL AUTO TRUE} End; End else Begin {LOSE} If Hlava.Enable=True then Begin Key[35]:=False; {HLAVA AUTO FALSE} Key[24]:=True; {OREL AUTO TRUE} End; If Orel.Enable=True then Begin Key[35]:=True; {HLAVA AUTO TRUE} Key[24]:=False; {OREL AUTO FALSE} End; End; End; End; End; For N:=0 to DatRec.fpsProdleva+1 do Begin {HLAVA} If ((Key[35]=True) or (HlavaStiskly1=1)) then Begin If AutoStart=False then While Key[35]=True do Begin End; If AutoStart=False then While HlavaStiskly1=1 do Begin End; If Key[35]=True then Key[35]:=False; NextVyhra:=Vyhra.Castka*2; If NextVyhra<7777 then Begin If Hlava.Enable=True then Begin Vyhra.Castka:=Vyhra.Castka*2; If AutoStart=True then Begin Inc(RiskCounter); End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(26); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(16); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End else Begin Vyhra.Castka:=0; If AutoStart=True then Begin RiskCounter:=2; End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(9) else SBPlayRaw(31); End else Begin If DatRec.RawEnable=True then PlayRaw(9) else PlaySound(21); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End; Randomize; RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; End else Begin If Hlava.Enable=True then Begin If AutoStart=True then Begin NextVyhra:=7777; Vyhra.Castka:=7777; RiskCounter:=2; End else Begin NextVyhra:=7777; Vyhra.Castka:=7777; End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(26); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(16); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End else Begin Vyhra.Castka:=0; If AutoStart=True then Begin RiskCounter:=2; End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(9) else SBPlayRaw(31); End else Begin If DatRec.RawEnable=True then PlayRaw(9) else PlaySound(21); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End; End; End; {OREL} If ((Key[24]=True) or (OrelStiskly1=1)) then Begin If AutoStart=False then While Key[24]=True do Begin End; If AutoStart=False then While OrelStiskly1=1 do Begin End; If Key[24]=True then Key[24]:=False; NextVyhra:=Vyhra.Castka*2; If NextVyhra<7777 then Begin If Orel.Enable=True then Begin Vyhra.Castka:=Vyhra.Castka*2; If AutoStart=True then Begin Inc(RiskCounter); End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(26); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(16); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End else Begin Vyhra.Castka:=0; If AutoStart=True then Begin RiskCounter:=2; End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(9) else SBPlayRaw(31); End else Begin If DatRec.RawEnable=True then PlayRaw(9) else PlaySound(21); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End; Randomize; RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; End else Begin If Orel.Enable=True then Begin If AutoStart=True then Begin NextVyhra:=7777; Vyhra.Castka:=7777; RiskCounter:=2; End else Begin NextVyhra:=7777; Vyhra.Castka:=7777; End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(26); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(16); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End else Begin Vyhra.Castka:=0; If AutoStart=True then Begin RiskCounter:=2; End; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(9) else SBPlayRaw(31); End else Begin If DatRec.RawEnable=True then PlayRaw(9) else PlaySound(21); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End; End; End; {MULTI} If (((Key[50]=True) or (Key[57]=True) or (DoMultiwinuStiskly1=1)) and (AutoStart=False)) then Begin While Key[50]=True do Begin End; While Key[57]=True do Begin End; While DoMultiwinuStiskly1=1 do Begin End; Risk.Enable:=False; Risk.Blinking:=False; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; AddScore(Vyhra.Castka); End; {AUTO} If ((RiskRandom2=0) and (RiskAuto=False) and (AutoStart=True)) then Begin Risk.Enable:=False; Risk.Blinking:=False; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; RiskScreen; End; TestStopAutoStart; Wait(1); End; Until ((Vyhra.Castka=0) or (NextVyhra=7777) or (RiskAuto=False)); Key[35]:=False; {HLAVA} Key[24]:=False; {OREL} End; Procedure RiskDolniNahodny; Var losovani: Word; Begin Repeat RiskScreen; For N:=0 to DatRec.fpsProdleva+1 do Begin If ((Key[35]=True) or (HlavaStiskly1=1) or (Key[24]=True) or (OrelStiskly1=1)) then Begin losovani:=Random(66); losovani:=losovani*1000; If losovani<DatRec.Nahoda[8] then {chance na vyhru 32000} Begin {pokazde vyhra} If ((Key[35]=True) or (HlavaStiskly1=1)) then Begin While Key[35]=True do Begin End; While HlavaStiskly1=1 do Begin End; Hlava.Enable:=True; Orel.Enable:=False; Btn[4].Phase:=1; Btn[5].Phase:=0; MakeRiskScreen; End; If ((Key[24]=True) or (OrelStiskly1=1)) then Begin While Key[24]=True do Begin End; While HlavaStiskly1=1 do Begin End; Hlava.Enable:=False; Orel.Enable:=True; Btn[4].Phase:=0; Btn[5].Phase:=1; MakeRiskScreen; End; NextVyhra:=Vyhra.Castka*2; If NextVyhra<7777 then Begin Vyhra.Castka:=Vyhra.Castka*2; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(26); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(16); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End else Begin NextVyhra:=7777; Vyhra.Castka:=7777; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(26); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(16); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End; End else Begin {pokazde prohra} If ((Key[35]=True) or (HlavaStiskly1=1)) then Begin While Key[35]=True do Begin End; While HlavaStiskly1=1 do Begin End; Hlava.Enable:=False; Orel.Enable:=True; Btn[4].Phase:=0; Btn[5].Phase:=1; MakeRiskScreen; End; If ((Key[24]=True) or (OrelStiskly1=1)) then Begin While Key[24]=True do Begin End; While HlavaStiskly1=1 do Begin End; Hlava.Enable:=True; Orel.Enable:=False; Btn[4].Phase:=1; Btn[5].Phase:=0; MakeRiskScreen; End; Vyhra.Castka:=0; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(9) else SBPlayRaw(31); End else Begin If DatRec.RawEnable=True then PlayRaw(9) else PlaySound(21); End; For I:=0 to 49 do Wait(DatRec.fpsProdleva); End; End; {MULTI} If (((Key[50]=True) or (Key[57]=True) or (DoMultiwinuStiskly1=1)) and (AutoStart=False)) then Begin While Key[50]=True do Begin End; While Key[57]=True do Begin End; While DoMultiwinuStiskly1=1 do Begin End; Risk.Enable:=False; Risk.Blinking:=False; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; AddScore(Vyhra.Castka); End; End; Until ((Vyhra.Castka=0) or (NextVyhra=7777)); End;