TO ELb REPEAT 5 [RT 90 FD 80] RT 90 FD 40 LT 90 FD 40 END TO QQ TS SETC [8 36] PR [lοηιώεσλιε] SETC [9 38] PR [sθενω] SETC [11 38] PR [tεστ 3] SETC [20 56] WAIT 1000 PR [nαφνιτε lΰβυΰ kμαχιϋυ...] MAKE "QQQ RC tεστ3 END TO Q :X FS CS HT SOUND [1000 118] WAIT 1000 SOUND [500 135] SOUND [1000 118] REPEAT 150 [FD :X RT 122 MAKE "X :X + 2] REPEAT 50 [SOUND [30 + :X / 5 :X - 260] MAKE "X :X + 2] SOUND [1000 118] WAIT 2000 CS REPEAT 2 [LT 90 REPEAT 3 [FD 100 RT 90]] RT 180 PU FD 20 PD DYE 4 QQ END TO START_UP SS LT 30 SETSCRUNCH 0.65 Q 1 END TO oτχ WAIT 1000 MAKE "oγ1 :oγ1 + 1 SETC [19 1] PR [* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *] PR [* kαλαρ, pο - wαϋενυ, sθενα sλςωχαετσρ nα |τοτ rαϊ w "~εςξον qύιλε "? *] PR [* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *] PR [- - - - - - - (uλαφιτε nονες i nαφνιτε kμαχιϋυ < wχοδ >) - - - - - - -] WAIT 1500 SETC [13 22] TYPE [sθενα N] MAKE "A FIRST RL WAIT 500 sτις 19 sτις 20 sτις 21 sτις 22 SIGN 20 30 WAIT 1000 IF :A = :N [MAKE "iσλμ FPUT :N :iσλμ PR [$ $ uηαδαμι! $ $] SETC [5 + :A * 2 49] REPEAT 25 [TYPE [] SOUND [50 50]] MAKE "oγ2 :oγ2 + 1] [PR [nετ, nεπςαχιμψξο.]] SETC [22 33] (PR [sώετ] :oγ2 [:] :oγ1) WAIT 4000 IF (COUNT :iσλμ) = 5 [kοξ] [TYPE [* * * * * * * * dμρ pςοδομφεξιρ nαφνιτε lΰβυΰ kμαχιϋυ... * * * * * * * *] MAKE "B RC sνεξα] END TO rαϊχ MAKE "A RC IF :A = "N [sτις 20 oτχ STOP] [] IF :A = "D [sτις 20 iσπ] [SOUND [800 160] rαϊχ] END TO EL4 FD 40 PU BK 40 RT 90 FD 40 LT 90 PD FD 40 LT 90 FD 60 ELb END TO kοξ MAKE "s 9 REPEAT 9 [sτις :s MAKE "s :s + 1 SOUND [200 70]] SETC [13 20] MAKE "O :oγ1 - :oγ2 IF :O = 0 [PR [####### pοϊδςαχμρΰ! wαϋα oγεξλα - 5 + #######]] [] IF :O = 1 [PR [####### rαβοτα zαλοξώεξα. wαϋα oγεξλα - 5 #######]] [] IF :O = 2 [PR [####### rαβοτα zαλοξώεξα. wαϋα oγεξλα - 4 #######]] [] IF :O = 3 [PR [####### uχω, oγεξλα - 3... #######]] [] IF :O > 3 [PR [####### pμοθοχατο... nαδο pεςεδεματψ. #######]] [] END TO SIGN :sτς :pοϊ MAKE "p 10 REPEAT 60 [SETC [:sτς :p] TYPE [*] SOUND [50 50 + :p] MAKE "p :p + 1] WAIT 500 sτις :sτς SETC [:sτς :pοϊ] WAIT 500 END TO sτις :sτς SETC [:sτς 1] REPEAT 75 [TYPE []] END TO sνεξα sτις 19 sτις 20 sτις 21 sτις 22 sτις 23 SIGN1 20 22 PR [oπρτψ w "~εςξωκ qύιλ " pονεύαετσρ] SIGN1 21 22 PR [oδξα iϊ pεςεώισμεξξωθ sπςαχα sθεν] WAIT 1000 SETC [10 22] MAKE "s 10 REPEAT 7 [SETC [:s 22] REPEAT 9 [TYPE1 [#] SOUND [50 50 + :s]] MAKE "s :s + 1] MAKE "s 10 REPEAT 7 [SETC [:s 22] REPEAT 9 [TYPE [] SOUND [50 50 + :s]] MAKE "s :s + 1] WAIT 2000 sτις 20 sτις 21 wωβος iσπ END TO SIGN1 :sτς :pοϊ MAKE "p 10 REPEAT 60 [SETC [:sτς :p] TYPE [#] MAKE "p :p + 1] WAIT 500 SETC [:sτς :pοϊ] WAIT 500 END TO iσπ SETC [11 15] PR [] SETC [15 15] PR [] SETC [13 38] PR [] SIGN 20 20 PR [kαλιε zξαώεξιρ wω hοτιτε pοδατψ nα wθοδω?] wθ1 wθ2 sτις 20 RUN ITEM :N :sπισολ WAIT 1000 IF :Z [MAKE "wωθ 1] [MAKE "wωθ 0] SETC [13 38] WAIT 500 MELO TYPE :wωθ WAIT 1500 SIGN1 20 20 TYPE [bυδετε pςοδομφατψ iσπωταξιρ? (d / n)] WAIT 2000 rαϊχ END TO Z6 MAKE "Z NOT OR :X :Y END TO Z5 MAKE "Z NOT AND :X :Y END TO Z4 MAKE "Z AND OR :X :Y NOT AND :X :Y END TO Z3 MAKE "Z OR AND :X :Y NOT OR :X :Y END TO Z2 MAKE "Z OR :X :Y END TO Z1 MAKE "Z AND :X :Y END TO sθ SS SETSCRUNCH 1 CS PU SETPOS [- 195 15] RT 90 PD EL4 TS END TO tεστ3 sθ SETC [2 1] PR [pεςεδ wανι "~εςξωκ qύιλ " - uστςοκστχο s dχυνρ wθοδανι i oδξιν wωθοδον, wξυτςι -] PR [oδξα iϊ sθεν, pεςεώισμεξξωθ sπςαχα. wαϋα zαδαώα - uηαδατψ, kαλαρ iνεξξο.] SETC [7 50] PR [1 - sθενα "i "] SETC [9 50] PR [2 - sθενα "iμι "] SETC [11 50] PR [3 - sθενα sοχπαδεξιρ] SETC [13 50] PR [4 - sθενα nεσοχπαδεξιρ] SETC [15 50] PR [5 - sθενα "i - nε "] SETC [17 50] PR [6 - sθενα "iμι - nε "] MAKE "sπισολ [[Z1] [Z2] [Z3] [Z4] [Z5] [Z6]] MAKE "iσλμ [] MAKE "oγ1 0 MAKE "oγ2 0 SETC [20 10] TYPE [eσμι gοτοχω nαώατψ, nαφνιτε lΰβυΰ kμαχιϋυ...] MAKE "A RC wωβος iσπ END TO wωβος MAKE "N (ROUND RANDOM 5) + 1 IF MEMBERP :N :iσλμ [wωβος] [] END TO wθ1 SETC [11 15] MAKE "A RC IF :A = "0 [MAKE "X FALSE SOUND [200 60] PR :A] [IF :A = "1 [MAKE "X TRUE SOUND [200 60] PR :A] [SOUND [800 150] wθ1]] END TO wθ2 SETC [15 15] MAKE "A RC IF :A = "0 [MAKE "Y FALSE SOUND [200 50] PR :A] [IF :A = "1 [MAKE "Y TRUE SOUND [200 50] PR :A] [SOUND [800 150] wθ2]] END TO MELO REPEAT 2 [SOUND [400 50] SOUND [400 60] SOUND [400 50] SOUND [400 100]] END