forum.boolean.name - Показать сообщение отдельно

Spy4433 · 08.05.2012, 17:50

а в чем проблема то ?

Global rr1=Graphics(800,600,0,60,0)



Repeat 
DrawRect 10,10,100,40


If KeyHit(KEY_E) Then 
set=1-set
If set=0 Then 
EndGraphics
rr1=Graphics(800,600,0,60,0)
SetGraphics(rr1)
EndIf 

If set=1 Then 
EndGraphics
rr2=Graphics(320,240,0,60,0)
SetGraphics(rr2)
EndIf 

EndIf 
Flip 

Until KeyHit(KEY_ESCAPE)

08.05.2012, 17:50	#337
Spy4433 ПроЭктировщик Регистрация: 16.04.2008 Сообщений: 161 Написано 36 полезных сообщений (для 63 пользователей)	Ответ: Vivo а в чем проблема то ? Global rr1=Graphics(800,600,0,60,0) Repeat DrawRect 10,10,100,40 If KeyHit(KEY_E) Then set=1-set If set=0 Then EndGraphics rr1=Graphics(800,600,0,60,0) SetGraphics(rr1) EndIf If set=1 Then EndGraphics rr2=Graphics(320,240,0,60,0) SetGraphics(rr2) EndIf EndIf Flip Until KeyHit(KEY_ESCAPE) __________________ форум эт вещь... и почему я раньше им не пользовался? AMD Phenom(tm) II X6 3.20GHz 8GB GTX 550(1Gb)
(Offline)