это не сокращение кода, это называется говнокод
|
Сообщение от polopok
Y = ( KeyDown(203) ) - ( KeyDown(205) )
TurnEntity entity_name,0, Y ,0
|
1) скобки не нужны
2) TurnEntity относительно тяжелая, потому в данном случае надо If Y Then TurnEntity...
|
Сообщение от polopok
; прибавление и сброс на 0
if KeyHit(57) and nomer <4 Then nomer = nomer+1 Else if nomer >3 Then nomer =0
|
number = number + KeyHit(57)
If number >= 4 Then number = 0
а если граничное значение степень двойки, то вообще замечательно
number = (number + KeyHit(57)) And (4 - 1)
|
Сообщение от polopok
;пустой цикл: ожидает нажатие мыши или клавиатуры,завершает программу
Repeat :Until GetMouse()<>0 Or GetKey()<>0 :End
|
это есть в справке
|
Сообщение от polopok
;цвет меняется синусоидально
Color 0,0 , 64 +Sin ( MilliSecs() /10)*32
|
спасибо КЭП, без тебя мы не поняли что Sin это синус
|
Сообщение от polopok
; клавиши управления
Select True
Case KeyDown(205 ) : x = x +1; вправо
Case KeyDown(203 ) : x = x -1; влево
Case KeyDown(208 ) : y = y +1; вниз
Case KeyDown(200 ) : y = y -1; вверх
End Select
|
хорошо сократил, аж на две строчки больше чем с If
|
Сообщение от polopok
;меняем значение переменой
A = Not A
|
не меняем, а отрицаем, удобно для [1, 0] флажков, но тогда лучше так
A = 1 - A
т.к. компилятор блица тупой и умеет not только для условий, соответственно генерит избыточный код
|
Сообщение от polopok
;незабываем использовать двоеточие . пример Типы:
Type tip Field x,y,nom End Type
tip.tip = New tip : tip\x=x : tip\y=y : tip\nom=nom
For tip.tip = Each tip : Print tip\x+" "+tip\y+" "+tip\nom : Next
|
ну а это яркий пример говнокода, вообще не читабельно
ЗЫ
Пешы ищо ;-) А лучше не пиши, плохой пример подаешь нубам.