Tastenscript

[Macros]

Es gibt warscheinlich bessere Tastenscripte, aber das ist das einzige was ich verstehe.

Hier das Script:

class Key_Abfrage
def initialize
@GetAsyncKeyState = Win32API.new 'user32', 'GetAsyncKeyState', 'l', 'l'
@keybd_event = Win32API.new 'user32', 'keybd_event', %w(l l l l), ''
end
def getkey
for i in 0..255
if @GetAsyncKeyState.call(i) != 0
return i
end
end
return 0
end
def getkey_id(id)
if @GetAsyncKeyState.call(id) != 0
return 1
end
return 0
end
def getkey_var(var)
for i in 0..255
if @GetAsyncKeyState.call(i) != 0
$game_variables[var] = i
end
end
end
def getkey_var_id(var,id)
if @GetAsyncKeyState.call(id) != 0
$game_variables[var] = 1
else
$game_variables[var] = 0
end
end
def setkey_id_down(id)
@keybd_event.call(id,0,0,0)
end
def setkey_var_down(var)
@keybd_event.call($game_variables[var],0,0,0)
end
def setkey_id_up(id)
@keybd_event.call(id,0,2,0)
end
def setkey_var_up(var)
@keybd_event.call($game_variables[var],0,2,0)
end
end

Um es zu benutzen musst du einmahlig einmal folgenden Befehl ausführen:
$key = Key_Abfrage.new

Zur Abfrage folgenden Befehl:
$key.getkey_var(25)
if $game_variables[25] != 0
end

Die Tasten weis ich selbst nicht alle, must du selbst ausprobieren.
Folgende Tasten weis ich:

a 65
s 83
d 68
f 70
q 81
w 87
e 69
r 82
y 89
c 67
v 86
enter 13
lnks 37
oben 38
rechts 39
unten 40