Всё из первого и второго поста ужасный говнокод.
Учитывая кучу проблем с инпутом, нужно обязательно выносить клавиши инпута в отдельные переменные. И лишь при уверенном редком использовании в цикле лишь один раз клавиши, можно писать функцию доступа к данным инпута прямо в теле условий и т.п.
Например такое:
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
|
Нужно как минимум переписать вот так:
keyRight = KeyDown(205)
keyLeft = KeyDown(203)
keyUp = KeyDown(200)
keyDown = KeyDown(208)
x = keyLeft - keyRight
y = keyUp - keyDown
Не будет проблем с инпутом, да и читать такое удобнее.
Но это лишь простой пример, даже такой не однозначен, и во многих ситуациях не корректен.
Остальные есть ещё хуже..
Я бы такое в "Полезные Функции" не постил.