Delphi & Pascal (česká wiki)
Procedure Roll; Begin AllStoped:=False; RollSetup; Repeat RollProc; KresliValce2; Wait(DatRec.RollSpeed); TestStopAutoStart; Until AllStoped=True; KresliValce; WaitRetrace; FlipPage(Buffer[3],Buffer[4]); TestWin; KresliValce; WaitRetrace; FlipPage(Buffer[3],Buffer[4]); {HORNI HRA} If ((Lista[1].Enable=True) and (Vyhra.Castka>0)) then Begin If AutoStartTyp<>0 then Begin If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(24); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(14); End; End; If AutoStart=True then Begin Case AutoStartTyp of 0: 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; VyhraShow:=False; CreditShow:=True; RiskScreen; MainGameScreen; End; 1: Begin RiskCounter:=0; Repeat If AutoStart=True then Begin MainGameScreen; Risk.Enable:=True; Risk.Blinking:=True; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; Btn[0].Blinking:=True; Btn[4].Blinking:=True; Btn[5].Blinking:=True; VyhraShow:=True; CreditShow:=False; Randomize; RiskRandom1:=Random(2); {nula nebo jedna} Case RiskCounter of 0: RiskRandom2:=Random(10)+40; {counter} 1: RiskRandom2:=Random(10)+50; {counter} End; {Case End} RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; RiskRandom4:=Random(12); {0..11} RiskAuto:=True; RiskHorni; VyhraShow:=True; CreditShow:=False; RiskScreen; End else Begin RiskCounter:=2; RiskAuto:=False; End; Until RiskCounter=2; NextVyhra:=0; End; 2: Begin RiskCounter:=1; Repeat If AutoStart=True then Begin MainGameScreen; Risk.Enable:=True; Risk.Blinking:=True; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; Btn[0].Blinking:=True; Btn[4].Blinking:=True; Btn[5].Blinking:=True; VyhraShow:=True; CreditShow:=False; Randomize; RiskRandom1:=Random(2); {nula nebo jedna} Case RiskCounter of 0: RiskRandom2:=Random(10)+40; {counter} 1: RiskRandom2:=Random(10)+50; {counter} End; {Case End} RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; RiskRandom4:=Random(12); {0..11} RiskAuto:=True; RiskHorni; VyhraShow:=True; CreditShow:=False; RiskScreen; End else Begin RiskCounter:=2; RiskAuto:=False; End; Until RiskCounter=2; NextVyhra:=0; End; End; {Case End} End else Begin MainGameScreen; Risk.Enable:=True; Risk.Blinking:=True; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; Btn[0].Blinking:=True; Btn[4].Blinking:=True; Btn[5].Blinking:=True; VyhraShow:=True; CreditShow:=False; RiskCounter:=0; RiskAuto:=True; Randomize; RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; For I:=0 to 14 do Wait(DatRec.fpsProdleva); If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(24); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(14); End; If DatRec.NahodnyRisk=False then RiskHorni else RiskHorniNahodny; VyhraShow:=True; CreditShow:=False; RiskScreen; NextVyhra:=0; 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; VyhraShow:=False; CreditShow:=True; RiskScreen; End else Begin VyhraShow:=False; CreditShow:=True; MainGameScreen; End; {HORNI HRA NASOBIC + BONUS} If ((Lista[1].Enable=True) and (Vyhra.Castka>0)) then {BONUS} Begin Vyhra.Castka:=Vyhra.Castka*Nasobic; VyhraShow:=True; CreditShow:=False; MainGameScreen; For I:=0 to 79 do Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End; VyhraShow:=False; CreditShow:=True; MainGameScreen; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; If Vyhra.Castka>750 then Begin Inc(Bonus,Vyhra.Castka); Vyhra.Castka:=0; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; WinGamble.Enable:=True; MainGameScreen; BetStore:=Bet; BetMultiStore:=BetMulti; Randomize; While ((Credit>=5) and (Bonus>0)) do Begin Dec(Credit,5); MainGameScreen; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; MainGameScreen; WinGamble.Blinking:=True; WinGambleGreen.Enable:=False; WinGambleRed.Enable:=False; WinGamble.Counter:=0; RandomGamble:=Random(5); If RandomGamble<2 then WinGamble.Counter2:=20 else WinGamble.Counter2:=30; For I:=0 to WinGamble.Counter2 do Begin If WinGamble.Counter<2 then Inc(WinGamble.Counter) else Begin WinGamble.Counter:=0; If WinGambleGreen.Enable=True then Begin WinGambleGreen.Enable:=False; WinGambleRed.Enable:=True; End else Begin WinGambleGreen.Enable:=True; WinGambleRed.Enable:=False; End; End; If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva); End else Begin UpdateGamble; Wait(DatRec.fpsProdleva div 2); End; TestStopAutoStart; End; If WinGambleGreen.Enable=True then Begin {Sound True} If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; For I:=0 to 49 do Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End; If Bonus-750>=0 then Begin Bonus750:=750; Dec(Bonus,750); End else Begin Bonus750:=Bonus; Bonus:=0; End; AddScore(Bonus750); End else Begin {Sound False} 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 Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End End; End; Bet:=BetStore; BetMulti:=BetMultiStore; WinGamble.Enable:=False; TestBetDown; End else AddScore(Vyhra.Castka); MainGameScreen; End else Begin VyhraShow:=False; CreditShow:=True; MainGameScreen; End; {DOLNI HRA} If ((Lista[0].Enable=True) and (Vyhra.Castka>0)) then {RISK} Begin If AutoStartTyp<>0 then Begin If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(24); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(14); End; End; If AutoStart=True then Begin Case AutoStartTyp of 0: 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; If Vyhra.Castka>750 then Begin Inc(Bonus,Vyhra.Castka); Vyhra.Castka:=0; End; If Vyhra.Castka>0 then AddScore(Vyhra.Castka); VyhraShow:=False; CreditShow:=True; RiskScreen; MainGameScreen; End; 1: Begin RiskCounter:=0; Repeat If AutoStart=True then Begin MainGameScreen; Risk.Enable:=True; Risk.Blinking:=True; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; Btn[0].Blinking:=True; Btn[4].Blinking:=True; Btn[5].Blinking:=True; VyhraShow:=True; CreditShow:=False; Randomize; RiskRandom1:=Random(2); {nula nebo jedna} Case RiskCounter of 0: RiskRandom2:=Random(10)+40; {counter} 1: RiskRandom2:=Random(10)+50; {counter} End; {Case End} RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; RiskRandom4:=Random(12); {0..11} RiskAuto:=True; RiskDolni; VyhraShow:=True; CreditShow:=False; RiskScreen; End else Begin RiskCounter:=2; RiskAuto:=False; End; Until RiskCounter=2; If Vyhra.Castka>0 then Begin If Vyhra.Castka>750 then Begin Inc(Bonus,Vyhra.Castka); Vyhra.Castka:=0; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; WinGamble.Enable:=True; MainGameScreen; BetStore:=Bet; BetMultiStore:=BetMulti; Randomize; While ((Credit>=5) and (Bonus>0)) do Begin Dec(Credit,5); MainGameScreen; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; MainGameScreen; WinGamble.Blinking:=True; WinGambleGreen.Enable:=False; WinGambleRed.Enable:=False; WinGamble.Counter:=0; RandomGamble:=Random(5); If RandomGamble<2 then WinGamble.Counter2:=20 else WinGamble.Counter2:=30; For I:=0 to WinGamble.Counter2 do Begin If WinGamble.Counter<2 then Inc(WinGamble.Counter) else Begin WinGamble.Counter:=0; If WinGambleGreen.Enable=True then Begin WinGambleGreen.Enable:=False; WinGambleRed.Enable:=True; End else Begin WinGambleGreen.Enable:=True; WinGambleRed.Enable:=False; End; End; If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva); End else Begin UpdateGamble; Wait(DatRec.fpsProdleva div 2); End; TestStopAutoStart; End; If WinGambleGreen.Enable=True then Begin {Sound True} If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; For I:=0 to 49 do Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End; If Bonus-750>=0 then Begin Bonus750:=750; Dec(Bonus,750); End else Begin Bonus750:=Bonus; Bonus:=0; End; AddScore(Bonus750); End else Begin {Sound False} 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 Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End End; End; Bet:=BetStore; BetMulti:=BetMultiStore; WinGamble.Enable:=False; TestBetDown; End else AddScore(Vyhra.Castka); MainGameScreen; End else Begin VyhraShow:=False; CreditShow:=True; MainGameScreen; End; NextVyhra:=0; End; 2: Begin RiskCounter:=1; Repeat If AutoStart=True then Begin MainGameScreen; Risk.Enable:=True; Risk.Blinking:=True; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; Btn[0].Blinking:=True; Btn[4].Blinking:=True; Btn[5].Blinking:=True; VyhraShow:=True; CreditShow:=False; Randomize; RiskRandom1:=Random(2); {nula nebo jedna} Case RiskCounter of 0: RiskRandom2:=Random(10)+40; {counter} 1: RiskRandom2:=Random(10)+50; {counter} End; {Case End} RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; RiskRandom4:=Random(12); {0..11} RiskAuto:=True; RiskDolni; VyhraShow:=True; CreditShow:=False; RiskScreen; End else Begin RiskCounter:=2; RiskAuto:=False; End; Until RiskCounter=2; If Vyhra.Castka>0 then Begin If Vyhra.Castka>750 then Begin Inc(Bonus,Vyhra.Castka); Vyhra.Castka:=0; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; WinGamble.Enable:=True; MainGameScreen; BetStore:=Bet; BetMultiStore:=BetMulti; Randomize; While ((Credit>=5) and (Bonus>0)) do Begin Dec(Credit,5); MainGameScreen; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; MainGameScreen; WinGamble.Blinking:=True; WinGambleGreen.Enable:=False; WinGambleRed.Enable:=False; WinGamble.Counter:=0; RandomGamble:=Random(5); If RandomGamble<2 then WinGamble.Counter2:=20 else WinGamble.Counter2:=30; For I:=0 to WinGamble.Counter2 do Begin If WinGamble.Counter<2 then Inc(WinGamble.Counter) else Begin WinGamble.Counter:=0; If WinGambleGreen.Enable=True then Begin WinGambleGreen.Enable:=False; WinGambleRed.Enable:=True; End else Begin WinGambleGreen.Enable:=True; WinGambleRed.Enable:=False; End; End; If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva); End else Begin UpdateGamble; Wait(DatRec.fpsProdleva div 2); End; TestStopAutoStart; End; If WinGambleGreen.Enable=True then Begin {Sound True} If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; For I:=0 to 49 do Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End; If Bonus-750>=0 then Begin Bonus750:=750; Dec(Bonus,750); End else Begin Bonus750:=Bonus; Bonus:=0; End; AddScore(Bonus750); End else Begin {Sound False} 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 Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End End; End; Bet:=BetStore; BetMulti:=BetMultiStore; WinGamble.Enable:=False; TestBetDown; End else AddScore(Vyhra.Castka); MainGameScreen; End else Begin VyhraShow:=False; CreditShow:=True; MainGameScreen; End; NextVyhra:=0; End; End; {Case End} End else Begin MainGameScreen; Risk.Enable:=True; Risk.Blinking:=True; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; Btn[0].Blinking:=True; Btn[4].Blinking:=True; Btn[5].Blinking:=True; VyhraShow:=True; CreditShow:=False; RiskCounter:=0; RiskAuto:=True; Randomize; RiskRandom3:=Random(2); If RiskRandom3=0 then Risk.Phase:=0 else Risk.Phase:=1; For I:=0 to 14 do Wait(DatRec.fpsProdleva); If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(1) else SBPlayRaw(24); End else Begin If DatRec.RawEnable=True then PlayRaw(1) else PlaySound(14); End; If DatRec.NahodnyRisk=False then RiskDolni else RiskDolniNahodny; VyhraShow:=True; CreditShow:=False; RiskScreen; NextVyhra:=0; End; Risk.Enable:=False; Risk.Blinking:=False; RiskScreen; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; If Vyhra.Castka>0 then Begin If Vyhra.Castka>750 then Begin Inc(Bonus,Vyhra.Castka); Vyhra.Castka:=0; If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; WinGamble.Enable:=True; MainGameScreen; BetStore:=Bet; BetMultiStore:=BetMulti; Randomize; While ((Credit>=5) and (Bonus>0)) do Begin Dec(Credit,5); MainGameScreen; For I:=0 to 8 do Btn[I].Blinking:=False; For I:=0 to 8 do Btn[I].Phase:=0; MainGameScreen; WinGamble.Blinking:=True; WinGambleGreen.Enable:=False; WinGambleRed.Enable:=False; WinGamble.Counter:=0; RandomGamble:=Random(5); If RandomGamble<2 then WinGamble.Counter2:=20 else WinGamble.Counter2:=30; For I:=0 to WinGamble.Counter2 do Begin If WinGamble.Counter<2 then Inc(WinGamble.Counter) else Begin WinGamble.Counter:=0; If WinGambleGreen.Enable=True then Begin WinGambleGreen.Enable:=False; WinGambleRed.Enable:=True; End else Begin WinGambleGreen.Enable:=True; WinGambleRed.Enable:=False; End; End; If DatRec.PS3=False then Begin MainGameScreen; Wait(DatRec.fpsProdleva); End else Begin UpdateGamble; Wait(DatRec.fpsProdleva div 2); End; TestStopAutoStart; End; If WinGambleGreen.Enable=True then Begin {Sound True} If DatRec.SBEnable=True then Begin If DatRec.RawEnable=True then SBPlayRaw(35) else SBPlayRaw(32); End else Begin If DatRec.RawEnable=True then PlayRaw(35) else PlaySound(22); End; For I:=0 to 49 do Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End; If Bonus-750>=0 then Begin Bonus750:=750; Dec(Bonus,750); End else Begin Bonus750:=Bonus; Bonus:=0; End; AddScore(Bonus750); End else Begin {Sound False} 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 Begin TestStopAutoStart; Wait(DatRec.fpsProdleva); End End; End; Bet:=BetStore; BetMulti:=BetMultiStore; WinGamble.Enable:=False; TestBetDown; End else AddScore(Vyhra.Castka); MainGameScreen; End else Begin VyhraShow:=False; CreditShow:=True; MainGameScreen; End; End else Begin VyhraShow:=False; CreditShow:=True; MainGameScreen; End; End;