-
Notifications
You must be signed in to change notification settings - Fork 0
/
KATYA_.PRG
60 lines (60 loc) · 1.91 KB
/
KATYA_.PRG
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
53
54
55
56
57
58
59
60
function tipplatbank()
local old_scr:=win_save(10,17,23,70),plategka,position
do case
case tip_plat==0
position:=1
case tip_plat==3
position:=3
case tip_plat==4
position:=4
case tip_plat==5
position:=5
case tip_plat==6
position:=6
// case tip_plat==7
// position:=8
case tip_plat==8
position:=8
case tip_plat==1 .or. .not.is_poruch
position:=1
case tip_plat==2 .or. is_poruch
position:=2
endcase
spisok:={" ’ॡ®¢ ¨¥ ",;
" ’ॡ®¢ ¨¥-®àã票¥ ",;
" ˆª áᮢ®¥ ¯®àã票¥ ",;
" ’ॡ®¢ ¨¥ ç¥à¥§ ‘¡¥à¡ ª ",;
" ’ॡ®¢ ¨¥-®àã票¥ ç¥à¥§ ‘¡¥à¡ ª ",;
' ’ॡ®¢ ¨¥ ç¥à¥§ "Šà ©¨¢¥áâ¡ ª" ',;
' ’ॡ®¢ ¨¥-®àã票¥ ç¥à¥§ "Šà ©¨¢¥áâ¡ ª" ',;
' ’ॡ®¢ ¨¥ ç¥à¥§ ”Š "¥âப®¬¬¥àæ"'}
//is_choice:={.t.,.t.,.t.,.t.}
is_choice:={.t.,.t.,.t.,.t.,.t.,.t.,.t.,.t.}
plategka=vert_menu(spisok,"’¨¯ ¢ëáâ ¢«ï¥¬®© ¯« ⥦ª¨",is_choice,10,17,position,'n/w,n/g,,,n/w',.F.)
if reclock()
do case
case plategka=1
replace is_poruch with .f.
replace tip_plat with 1
case plategka=2
replace is_poruch with .t.
replace tip_plat with 2
case plategka=3
replace tip_plat with 3
case plategka=4
replace tip_plat with 4
case plategka=5
replace tip_plat with 5
case plategka=6
replace tip_plat with 6
case plategka=7
replace tip_plat with 7
case plategka=8
replace tip_plat with 8
endcase
unlock
else
al_box({"ˆ§¬¥¨âì ¥ 㤠«®áì"})
endif
win_rest(old_scr)
return NIL