Help
Programm LiveRPG; var key, pos, lang: integer; mn, pro, nv, pri, sd, op, root, fname : string; begin mn :Меню; pro :Пофиль; nv :=Навыки; pri :=Привычки; sd :=Список_дел; op :Настройки; pos :=1; SetColor(255,255,255); FillRect(0,0,getWidth,getHeight); DrawText(mn,(getWidth-getStringWidht(mn))/2,15); DrawText(pro,30,(getHeight-getStringHeight(pro))/2); DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25); DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50); repaint; key := keyToAction(getKeyClicked); if key = GA_UP then if pos>1 then pos := pos-1; if key = GA_DOWN then if pos<5 then pos := pos+1; if pos = 1 then begin DrawText(mn,(getWidth-getStringWidht(mn))/2,15); DrawText(pro,30,(getHeight-getStringHeight(pro))/2); DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25); DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50); repaint; end; if pos = 2 then begin DrawText(mn,(getWidth-getStringWidht(mn))/2,15); DrawText(pro,20,(getHeight-getStringHeight(pro))/2-25); DrawText(nv,30,(getHeight-getStringHeight(nv))/2); DrawText(pri,20,(getHeight-getStringHeight(pri))/2+25); DrawText(sd,10,(getHeight-getStringHeight(sd))/2+50); repaint; end; if pos = 3 then begin DrawText(mn,(getWidth-getStringWidht(mn))/2,15); DrawText(pro,10,(getHeight-getStringHeight(pro))/2-50) DrawText(nv,20,(getHeight-getStringHeight(nv))/2-25); DrawText(pr,30,(getHeight-getStringHeight(pr))/2); DrawText(sd,20,(getHeight-getStringHeight(sd))/2+25); DrawText(op,10,(getHeight-getStringHeight(op))/2+50); repaint; end; if pos = 4 then begin DrawText(mn,(getWidth-getStringWidht(mn))/2,15); DrawText(nv,10,(getHeight-getStringHeight(nv))/2-50); DrawText(pri,20,(getHeight-getStringHeight(pri))/2-25); DrawText(sd,30,(getHeight-getStringHeight(sd))/2); DrawText(op,20,(getHeight-getStringHeight(op))/2+25); repaint; end; if pos = 5 then begin DrawText(mn,(getWidth-getStringWidht(mn))/2,15); DrawText(pri,10,(getHeight-getStringHeight(pri))/2-50); DrawText(sd,20,(getHeight-getStringHeight(sd))/2-25); DrawText(op,30,(getHeight-getStringHeight(op))/2); repaint; end; if key = GA_FIRE then begin { if pos = 1 then begin if pos = 2 then if pos = 3 then if pos = 4 then if pos = 5 then } Буду рад если кому то пригодиться этот код |
Ответ: Help
омг, учи учебники, это кошмар, а не код, ошибки перечислять устанешь >_<
|
Ответ: Help
Цитата:
|
Ответ: Help
Тебе компилятор указал на ошибку. И вместо того чтобы это написать, лучше бы включил мозг.
|
Ответ: Help
Код:
Program LiveRPG; |
Ответ: Help
Спасибо, но я уже сам переписал
|
Часовой пояс GMT +4, время: 10:12. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot