:nachalo Pln Тестовая игуля : Pause 1000 Pln GOLAZO Pln by >>>Nik-man<<< Btn 0,Начать Btn info,Инфо End :info Pln Это не игра ,а попытка сделать чтонибуть с графическим интерфейсом Pln в идеале хочелось бы сделать графический платформер Btn nachalo,В начало End :0 s=2 v1=1 v2=1 v3=1 pln _/^\_ proc vrag proc tureli proc svoi end :1 Cls pln _/^\_ proc vrag Proc tureli proc svoi Proc win end :2 Cls pln _/^\_ proc vrag end :win If v1=0 then if v2=0 then if v3=0 then btn pobeda, ПОБЕДА End :pobeda Pln Позравляю, если ты еще не понял ты только что розгромил последний корабль космического флота пишельцев. УРА! УРА! УРА! End :vrag if v1=1 then p v= if v1=0 then p W- if v2=1 then p V if v2=0 then p I if v3=1 then pln =v if v3=0 then pln -N end :svoi If s=1 then pln & pln & pln & pln pAq If s=2 then pln & pln & pln & pln ..pAq If s=3 then pln & pln & pln & pln .......pAq End :tureli If s=1 then Btn 1turel,Стелять! & btn pravo1,Правее If s=2 then Btn 2turel,Стелять! & btn pravo2,Правее & btn levo1,Левее If s=3 then Btn 3turel,Стелять! & btn levo2,Левее end :levo1 s=1 Proc 1 End :pravo1 s=2 Proc 1 End :levo2 s=2 Proc 1 End :pravo2 s=3 Proc 1 End :1turel Proc 2 Pln | Pln | Pln | Pln | pln pAq Pause 2000 v1=0 Proc 1 end :2turel Proc 2 P . P . P . P . Pln | P . P . P . P . Pln | P . P . P . P . Pln | P . P . P . P . Pln | pln ...pAq Pause 2000 v2=0 Proc 1 end :3turel Proc 2 P . P . P . P . P . P . P . P . Pln | P . P . P . P . P . P . P . P . Pln | P . P . P . P . P . P . P . P . Pln | P . P . P . P . P . P . P . P . Pln | pln .......pAq Pause 2000 v3=0 Proc 1 end