Ogłoszenie 

Uwaga! To forum jest w trybie offline.
Wszelką pomoc uzyskasz pod adresem
forum.ultimateam.pl

Administracja Forum

UltimaForum Strona Główna » RPG Maker VX » Skrypty [VX] » Możliwośc pisania klawiaturą Poprzedni temat «» Następny temat
Możliwośc pisania klawiaturą
Autor Wiadomość
radek02 



Preferowany:
RPG Maker VX

Pomógł: 13 razy
Dołączył: 17 Lut 2010
Posty: 257
Skąd: klikasz ?
  Wysłany: Pon 28 Cze, 2010 10:50
Możliwośc pisania klawiaturą
Krótki opis
Czy nie uważasz , że łażenie strzałkami po literkach , by wybrać imię bohatera , jest denerwujące ? Dzięki temu skryptowi wybór imienia , czy wpisanie hasła jest o wiele przyjemniejsze .

Autor Skryptu
Berka ( może ktoś ma email ?) .

Tłumaczenie
Radek02

Kompatybilnośc
Hmm... Napewno nie 2k3 , ani XP . Czyli wychodzi na to , że VX .

Skrypt
Spoiler:

Kod:
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

# Pisanie klawiatura [VX] Częśc I
#Autor : Berka , Przetłumaczenie : Radek02

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

module Kboard

$RMouse_BUTTON_L = 0x01 # left mouse button

$RMouse_BUTTON_R = 0x02 # right mouse button

$RMouse_BUTTON_M = 0x04 # middle mouse button

$RMouse_BUTTON_4 = 0x05 # 4th mouse button # only tested with win2k with a logitech mouse (MX900)

$RMouse_BUTTON_5 = 0x06 # 5th mouse button # only tested with win2k with a logitech mouse (MX900)

$R_Key_BACK = 0x08 # BACKSPACE key

$R_Key_TAB = 0x09 # TAB key

$R_Key_RETURN = 0x0D # ENTER key

$R_Key_SHIFT = 0x10 # SHIFT key

$R_Key_PAUSE = 0x13 # PAUSE key

$R_Key_CAPITAL = 0x14 # CAPS LOCK key

$R_Key_ESCAPE = 0x1B # ESC key

$R_Key_SPACE = 0x20 # SPACEBAR

$R_Key_PRIOR = 0x21 # PAGE UP key

$R_Key_NEXT = 0x22 # PAGE DOWN key

$R_Key_END = 0x23 # END key

$R_Key_HOME = 0x24 # HOME key

$R_Key_LEFT = 0x25 # LEFT ARROW key

$R_Key_UP = 0x26 # UP ARROW key

$R_Key_RIGHT = 0x27 # RIGHT ARROW key

$R_Key_DOWN = 0x28 # DOWN ARROW key

$R_Key_SELECT = 0x29 # SELECT key

$R_Key_PRINT = 0x2A # PRINT key

$R_Key_SNAPSHOT = 0x2C # PRINT SCREEN key

$R_Key_INSERT = 0x2D # INS key

$R_Key_DELETE = 0x2E # DEL key

$R_Key_0 = 0x30 # 0 key

$R_Key_1 = 0x31 # 1 key

$R_Key_2 = 0x32 # 2 key

$R_Key_3 = 0x33 # 3 key

$R_Key_4 = 0x34 # 4 key

$R_Key_5 = 0x35 # 5 key

$R_Key_6 = 0x36 # 6 key

$R_Key_7 = 0x37 # 7 key

$R_Key_8 = 0x38 # 8 key

$R_Key_9 = 0x39 # 9 key

$R_Key_A = 0x41 # A key

$R_Key_B = 0x42 # B key

$R_Key_C = 0x43 # C key

$R_Key_D = 0x44 # D key

$R_Key_E = 0x45 # E key

$R_Key_F = 0x46 # F key

$R_Key_G = 0x47 # G key

$R_Key_H = 0x48 # H key

$R_Key_I = 0x49 # I key

$R_Key_J = 0x4A # J key

$R_Key_K = 0x4B # K key

$R_Key_L = 0x4C # L key

$R_Key_M = 0x4D # M key

$R_Key_N = 0x4E # N key

$R_Key_O = 0x4F # O key

$R_Key_P = 0x50 # P key

$R_Key_Q = 0x51 # Q key

$R_Key_R = 0x52 # R key

$R_Key_S = 0x53 # S key

$R_Key_T = 0x54 # T key

$R_Key_U = 0x55 # U key

$R_Key_V = 0x56 # V key

$R_Key_W = 0x57 # W key

$R_Key_X = 0x58 # X key

$R_Key_Y = 0x59 # Y key

$R_Key_Z = 0x5A # Z key

$R_Key_LWIN = 0x5B # Left Windows key (Microsoft Natural keyboard)

$R_Key_RWIN = 0x5C # Right Windows key (Natural keyboard)

$R_Key_APPS = 0x5D # Applications key (Natural keyboard)

$R_Key_NUMPAD0 = 0x60 # Numeric keypad 0 key

$R_Key_NUMPAD1 = 0x61 # Numeric keypad 1 key

$R_Key_NUMPAD2 = 0x62 # Numeric keypad 2 key

$R_Key_NUMPAD3 = 0x63 # Numeric keypad 3 key

$R_Key_NUMPAD4 = 0x64 # Numeric keypad 4 key

$R_Key_NUMPAD5 = 0x65 # Numeric keypad 5 key

$R_Key_NUMPAD6 = 0x66 # Numeric keypad 6 key

$R_Key_NUMPAD7 = 0x67 # Numeric keypad 7 key

$R_Key_NUMPAD8 = 0x68 # Numeric keypad 8 key

$R_Key_NUMPAD9 = 0x69 # Numeric keypad 9 key

$R_Key_MULTIPLY = 0x6A # Multiply key (*)

$R_Key_ADD = 0x6B # Add key (+)

$R_Key_SEPARATOR = 0x6C # Separator key

$R_Key_SUBTRACT = 0x6D # Subtract key (-)

$R_Key_DECIMAL = 0x6E # Decimal key

$R_Key_DIVIDE = 0x6F # Divide key (/)

$R_Key_F1 = 0x70 # F1 key

$R_Key_F2 = 0x71 # F2 key

$R_Key_F3 = 0x72 # F3 key

$R_Key_F4 = 0x73 # F4 key

$R_Key_F5 = 0x74 # F5 key

$R_Key_F6 = 0x75 # F6 key

$R_Key_F7 = 0x76 # F7 key

$R_Key_F8 = 0x77 # F8 key

$R_Key_F9 = 0x78 # F9 key

$R_Key_F10 = 0x79 # F10 key

$R_Key_F11 = 0x7A # F11 key

$R_Key_F12 = 0x7B # F12 key

$R_Key_NUMLOCK = 0x90 # NUM LOCK key

$R_Key_SCROLL = 0x91 # SCROLL LOCK key

$R_Key_LSHIFT = 0xA0 # Left SHIFT key

$R_Key_RSHIFT = 0xA1 # Right SHIFT key

$R_Key_LCONTROL = 0xA2 # Left CONTROL key

$R_Key_RCONTROL = 0xA3 # Right CONTROL key

$R_Key_L_ALT = 0xA4 # Left ALT key

$R_Key_R_ALT = 0xA5 # Right ALT key

$R_Key_SEP = 0xBC # , key

$R_Key_DASH = 0xBD # - key

$R_Key_DOTT = 0xBE # . key

GetKeyState = Win32API.new("user32","GetAsyncKeyState",['i'],'i')

GetKeyboardState = Win32API.new("user32","GetKeyState",['i'],'i')

GetSetKeyState = Win32API.new("user32","SetKeyboardState",['i'],'i')

module_function

def keyboard(rkey)

GetKeyState.call(rkey) & 0x01 == 1

end

def key(rkey, key = 0)

GetKeyboardState.call(rkey) & 0x01 == key

end

end



Skrypt cz.II
Spoiler:

Kod:
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

# Pisanie klawiatura [VX] Częśc II
#Autor : Berka , Przetłumaczenie : Radek02

#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
class Game_Interpreter

  def command_303

    if $data_actors[@params[0]] != nil

      data, top_text, text, font, size =

      [],  "Wpisz nazwę bohatera : ", "", "Arial", 24

      $game_temp.name_actor_id = @params[0]

      $game_temp.name_max_char = @params[1]

      max =$game_temp.name_max_char

      actor = $game_actors[$game_temp.name_actor_id]

      $game_actors[$game_temp.name_actor_id].name=Text_input.new(actor,top_text, text, font, max, size).text

    end

    @index += 1

    return false

  end

end



class Text_input < Window_Base

  attr_reader :name

  def initialize(actor, top_text, text, font, max, size, free = "_", max2=20)

    @toptext, @actor, @text, @font, @max, @max2, @size, @free =

    top_text, actor, actor.name, font, max, max2, size, free

    super(272 - (@max2*@size+@size)/2, 208-@size*2-32, @max2 * @size + 32, 128)

    self.contents = Bitmap.new(width - 32, height - 32)

    self.contents.font.name = @font

    self.contents.font.size = @size

    self.z = 256

    @twidth, @twidth2 = @max2*@size, @max2*@size-(1/4*@max2)

    refresh

    update

  end

  def refresh

    self.contents.clear

    self.contents.font.color = system_color

    self.contents.draw_text(0, 0, @twidth, @size, @toptext, 1)

    for i in 0...@max

      text = @text[i]

      if text == nil

        text = @free

      else

        text = text.chr

      end

      self.contents.font.color = normal_color

      self.contents.draw_text(@size * i+ (@max2*@size+@size)/2-(@max*@size+@size)/2, @size + 24, @size, @size, text.to_s, 1)#

      draw_actor_graphic(@actor, 20, 45)

    end

  end

  def update

    loop do

      Graphics.update

      refresh

      if Kboard.keyboard($R_Key_BACK)

        text = ""

        if @text.size != 0

          for i in 0... @text.size - 1

            text += @text[i].chr

          end

          @text = text

        else

        end

      end

      return if Kboard.keyboard($R_Key_RETURN)

      if @text.size < @max

        @text += " " if Kboard.keyboard($R_Key_SPACE)

        if Kboard.key($R_Key_CAPITAL, 1) or

          Kboard.key($R_Key_LSHIFT, 1) or

          Kboard.key($R_Key_LSHIFT, 1)

          @text += "A" if Kboard.keyboard($R_Key_A)

          @text += "B" if Kboard.keyboard($R_Key_B)

          @text += "C" if Kboard.keyboard($R_Key_C)

          @text += "D" if Kboard.keyboard($R_Key_D)

          @text += "E" if Kboard.keyboard($R_Key_E)

          @text += "F" if Kboard.keyboard($R_Key_E)

          @text += "G" if Kboard.keyboard($R_Key_G)

          @text += "H" if Kboard.keyboard($R_Key_H)

          @text += "I" if Kboard.keyboard($R_Key_I)

          @text += "J" if Kboard.keyboard($R_Key_J)

          @text += "K" if Kboard.keyboard($R_Key_K)

          @text += "L" if Kboard.keyboard($R_Key_L)

          @text += "M" if Kboard.keyboard($R_Key_M)

          @text += "N" if Kboard.keyboard($R_Key_N)

          @text += "O" if Kboard.keyboard($R_Key_O)

          @text += "P" if Kboard.keyboard($R_Key_P)

          @text += "Q" if Kboard.keyboard($R_Key_Q)

          @text += "R" if Kboard.keyboard($R_Key_R)

          @text += "S" if Kboard.keyboard($R_Key_S)

          @text += "T" if Kboard.keyboard($R_Key_T)

          @text += "U" if Kboard.keyboard($R_Key_U)

          @text += "V" if Kboard.keyboard($R_Key_V)

          @text += "W" if Kboard.keyboard($R_Key_W)

          @text += "X" if Kboard.keyboard($R_Key_X)

          @text += "Y" if Kboard.keyboard($R_Key_Y)

          @text += "Z" if Kboard.keyboard($R_Key_Z)

        elsif Kboard.key($R_Key_CAPITAL)

          @text += "a" if Kboard.keyboard($R_Key_A)

          @text += "b" if Kboard.keyboard($R_Key_B)

          @text += "c" if Kboard.keyboard($R_Key_C)

          @text += "d" if Kboard.keyboard($R_Key_D)

          @text += "e" if Kboard.keyboard($R_Key_E)

          @text += "f" if Kboard.keyboard($R_Key_E)

          @text += "g" if Kboard.keyboard($R_Key_G)

          @text += "h" if Kboard.keyboard($R_Key_H)

          @text += "i" if Kboard.keyboard($R_Key_I)

          @text += "j" if Kboard.keyboard($R_Key_J)

          @text += "k" if Kboard.keyboard($R_Key_K)

          @text += "l" if Kboard.keyboard($R_Key_L)

          @text += "m" if Kboard.keyboard($R_Key_M)

          @text += "n" if Kboard.keyboard($R_Key_N)

          @text += "o" if Kboard.keyboard($R_Key_O)

          @text += "p" if Kboard.keyboard($R_Key_P)

          @text += "q" if Kboard.keyboard($R_Key_Q)

          @text += "r" if Kboard.keyboard($R_Key_R)

          @text += "s" if Kboard.keyboard($R_Key_S)

          @text += "t" if Kboard.keyboard($R_Key_T)

          @text += "u" if Kboard.keyboard($R_Key_U)

          @text += "v" if Kboard.keyboard($R_Key_V)

          @text += "w" if Kboard.keyboard($R_Key_W)

          @text += "x" if Kboard.keyboard($R_Key_X)

          @text += "y" if Kboard.keyboard($R_Key_Y)

          @text += "z" if Kboard.keyboard($R_Key_Z)

        end

        if Kboard.key($R_Key_CAPITAL, 1)

          @text += "0" if Kboard.keyboard($R_Key_0)

          @text += "1" if Kboard.keyboard($R_Key_1)

          @text += "2" if Kboard.keyboard($R_Key_2)

          @text += "3" if Kboard.keyboard($R_Key_3)

          @text += "4" if Kboard.keyboard($R_Key_4)

          @text += "5" if Kboard.keyboard($R_Key_5)

          @text += "6" if Kboard.keyboard($R_Key_6)

          @text += "7" if Kboard.keyboard($R_Key_7)

          @text += "8" if Kboard.keyboard($R_Key_8)

          @text += "9" if Kboard.keyboard($R_Key_9)

        elsif Kboard.key($R_Key_CAPITAL)

          @text += "&#224;" if Kboard.keyboard($R_Key_0)

          @text += "&" if Kboard.keyboard($R_Key_1)

          @text += "é" if Kboard.keyboard($R_Key_2)

          @text += "'" if Kboard.keyboard($R_Key_4)

          @text += "(" if Kboard.keyboard($R_Key_5)

          @text += ")" if Kboard.keyboard($R_Key_6)

          @text += "&#232;" if Kboard.keyboard($R_Key_7)

          @text += "_" if Kboard.keyboard($R_Key_8)

          @text += "ç" if Kboard.keyboard($R_Key_9)

        end

        @text += "0" if Kboard.keyboard($R_Key_NUMPAD0)

        @text += "1" if Kboard.keyboard($R_Key_NUMPAD1)

        @text += "2" if Kboard.keyboard($R_Key_NUMPAD2)

        @text += "3" if Kboard.keyboard($R_Key_NUMPAD3)

        @text += "4" if Kboard.keyboard($R_Key_NUMPAD4)

        @text += "5" if Kboard.keyboard($R_Key_NUMPAD5)

        @text += "6" if Kboard.keyboard($R_Key_NUMPAD6)

        @text += "7" if Kboard.keyboard($R_Key_NUMPAD7)

        @text += "8" if Kboard.keyboard($R_Key_NUMPAD8)

        @text += "9" if Kboard.keyboard($R_Key_NUMPAD9)

        @text += "+" if Kboard.keyboard($R_Key_ADD)

        @text += "-" if Kboard.keyboard($R_Key_SUBTRACT)

        @text += "/" if Kboard.keyboard($R_Key_DIVIDE)

        @text += "*" if Kboard.keyboard($R_Key_MULTIPLY)

        if Kboard.key($R_Key_CAPITAL)

          @text += "," if Kboard.keyboard($R_Key_SEP)

          @text += "-" if Kboard.keyboard($R_Key_DASH)

          @text += "." if Kboard.keyboard($R_Key_DOTT)

        elsif Kboard.key($R_Key_CAPITAL, 1)

          @text += ";" if Kboard.keyboard($R_Key_SEP)

          @text += "_" if Kboard.keyboard($R_Key_DASH)

          @text += ":" if Kboard.keyboard($R_Key_DOTT)

        end

      else

      end

      refresh

    end

  end

  def text()

    self.contents.dispose

    self.dispose

    return @text

  end

end



Screenshot
Spoiler:



Instrukcja
1. Wklej skrypt nad "Main" w Edytorze Skryptu.

________________________
2009-10-12 - dzień , od którego jestem uczestnikiem na polskiej scenie RPG Makera [/b]

Dołącz do grupy makerowiczów na nk ! http://nk.pl/#grupy/29610
Ostatnio zmieniony przez Nhadala Pon 28 Cze, 2010 10:56, w całości zmieniany 1 raz  
 
 
 
Czeliosss 



Ranga RM:
1 gra

Pomógł: 49 razy
Dołączył: 02 Lis 2009
Posty: 661
Skąd: Wa-wa
Wysłany: Pon 28 Cze, 2010 11:47
Cytat:
Kompatybilnośc
Hmm... Napewno nie 2k3 , ani XP . Czyli wychodzi na to , że VX .

Zapomniałeś o 2k ^^
Skrypt bardzo przydatny.
________________________
...Amelanduil & FireBlade words will be remembered...
...Amelanduil & FireBlade acts will be remembered...
...Amelanduil & FireBlade never gonna die...

Nie pisać, bo nie odpiszę.
 
 
CreeperCrisis 



Preferowany:
RPG Maker VXAce

Pomógł: 32 razy
Dołączył: 01 Maj 2010
Posty: 395
Wysłany: Pon 28 Cze, 2010 13:14
:-) Teraz nie będę musiał przesuwać kursora na literki przy wstawianiu imienia. :-) Super...
 
 
Poster27 




Preferowany:
RPG Maker VX

Pomógł: 22 razy
Dołączył: 27 Kwi 2010
Posty: 136
Skąd: że znowu
Wysłany: Sro 30 Cze, 2010 10:43
A mógłbyś zrobić także polskie znaki, lub znak zapytania itp.??
 
 
radek02 



Preferowany:
RPG Maker VX

Pomógł: 13 razy
Dołączył: 17 Lut 2010
Posty: 257
Skąd: klikasz ?
Wysłany: Sro 30 Cze, 2010 11:15
Poster27, raczej nie . mógłbym popsuc cały skrypt . może Ayene coś poradzi ?
________________________
2009-10-12 - dzień , od którego jestem uczestnikiem na polskiej scenie RPG Makera [/b]

Dołącz do grupy makerowiczów na nk ! http://nk.pl/#grupy/29610
 
 
 
mwax 




Preferowany:
RPG Maker VX

Dołączył: 28 Cze 2010
Posty: 7
Skąd: gda
Wysłany: Sro 30 Cze, 2010 14:31
Nie wiem czy coś jest nie tak u mnie czy w tym skrypcie ale chyba w skrypcie bo litera "F" nie działa i nie wiem dlaczego...
 
 
 
CreeperCrisis 



Preferowany:
RPG Maker VXAce

Pomógł: 32 razy
Dołączył: 01 Maj 2010
Posty: 395
Wysłany: Sro 30 Cze, 2010 18:54
Nie wiem jaką masz wersję VX polską czy angielską :?: :-)
 
 
mwax 




Preferowany:
RPG Maker VX

Dołączył: 28 Cze 2010
Posty: 7
Skąd: gda
Wysłany: Czw 01 Lip, 2010 17:57
Man polską wersje ale nie wiem co to ma do tego?
 
 
 
CreeperCrisis 



Preferowany:
RPG Maker VXAce

Pomógł: 32 razy
Dołączył: 01 Maj 2010
Posty: 395
Wysłany: Czw 01 Lip, 2010 17:58
Dobrze to ja już nie wiem, poczekaj na odpowiedź Ayene
 
 
Teyan 




Preferowany:
RPG Maker VX

Pomógł: 1 raz
Dołączył: 05 Lis 2009
Posty: 48
Wysłany: Pon 05 Lip, 2010 08:06
Z polskimi literami jest problem:
stwórzcie w database bohatera o imieniu "Łoś", a w tym edytorze imienia pojawi się coś takiego: " o ". Nie mam pojęcia jak to naprawić!!!!!!!!!!!!

[ Dodano: Pon 05 Lip, 2010 12:31 ]
Dobra są polskie literki i inne znaki, jeszcze nie do końca opanowałem alianse więc rozgrzebałem cały skrypt i stworzyłem mnóstwo niepotrzebnych komend. Ale skrypt chodzi, polskie znaki można wpisywać (znaki zapytania i wykrzykniki też). Ale musiałem modyfikować cały skrypt więc pewnie znajdzie się ktoś, kto oskarży mnie o podpisywanie się pod czyjąś prace (Radka02 lub Berki) ale niech macie. Teraz wasz bohater może mieć na imię Żółw!
Spoiler:

Kod:
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

# Pisanie klawiatura [VX] Częśc I
#Autor : Berka , Przetłumaczenie : Radek02
#polskie znaki wprowadził Teyan
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
module Kboard
$RMouse_BUTTON_L = 0x01 # left mouse button
$RMouse_BUTTON_R = 0x02 # right mouse button
$RMouse_BUTTON_M = 0x04 # middle mouse button
$RMouse_BUTTON_4 = 0x05 # 4th mouse button # only tested with win2k with a logitech mouse (MX900)
$RMouse_BUTTON_5 = 0x06 # 5th mouse button # only tested with win2k with a logitech mouse (MX900)
$R_Key_BACK = 0x08 # BACKSPACE key
$R_Key_TAB = 0x09 # TAB key
$R_Key_RETURN = 0x0D # ENTER key
$R_Key_SHIFT = 0x10 # SHIFT key
$R_Key_PAUSE = 0x13 # PAUSE key
$R_Key_CAPITAL = 0x14 # CAPS LOCK key
$R_Key_ESCAPE = 0x1B # ESC key
$R_Key_SPACE = 0x20 # SPACEBAR
$R_Key_PRIOR = 0x21 # PAGE UP key
$R_Key_NEXT = 0x22 # PAGE DOWN key
$R_Key_END = 0x23 # END key
$R_Key_HOME = 0x24 # HOME key
$R_Key_LEFT = 0x25 # LEFT ARROW key
$R_Key_UP = 0x26 # UP ARROW key
$R_Key_RIGHT = 0x27 # RIGHT ARROW key
$R_Key_DOWN = 0x28 # DOWN ARROW key
$R_Key_SELECT = 0x29 # SELECT key
$R_Key_PRINT = 0x2A # PRINT key
$R_Key_SNAPSHOT = 0x2C # PRINT SCREEN key
$R_Key_INSERT = 0x2D # INS key
$R_Key_DELETE = 0x2E # DEL key
$R_Key_0 = 0x30 # 0 key
$R_Key_1 = 0x31 # 1 key
$R_Key_2 = 0x32 # 2 key
$R_Key_3 = 0x33 # 3 key
$R_Key_4 = 0x34 # 4 key
$R_Key_5 = 0x35 # 5 key
$R_Key_6 = 0x36 # 6 key
$R_Key_7 = 0x37 # 7 key
$R_Key_8 = 0x38 # 8 key
$R_Key_9 = 0x39 # 9 key
$R_Key_A = 0x41 # A key
$R_Key_B = 0x42 # B key
$R_Key_C = 0x43 # C key
$R_Key_D = 0x44 # D key
$R_Key_E = 0x45 # E key
$R_Key_F = 0x46 # F key
$R_Key_G = 0x47 # G key
$R_Key_H = 0x48 # H key
$R_Key_I = 0x49 # I key
$R_Key_J = 0x4A # J key
$R_Key_K = 0x4B # K key
$R_Key_L = 0x4C # L key
$R_Key_M = 0x4D # M key
$R_Key_N = 0x4E # N key
$R_Key_O = 0x4F # O key
$R_Key_P = 0x50 # P key
$R_Key_Q = 0x51 # Q key
$R_Key_R = 0x52 # R key
$R_Key_S = 0x53 # S key
$R_Key_T = 0x54 # T key
$R_Key_U = 0x55 # U key
$R_Key_V = 0x56 # V key
$R_Key_W = 0x57 # W key
$R_Key_X = 0x58 # X key
$R_Key_Y = 0x59 # Y key
$R_Key_Z = 0x5A # Z key
$R_Key_LWIN = 0x5B # Left Windows key (Microsoft Natural keyboard)
$R_Key_RWIN = 0x5C # Right Windows key (Natural keyboard)
$R_Key_APPS = 0x5D # Applications key (Natural keyboard)
$R_Key_NUMPAD0 = 0x60 # Numeric keypad 0 key
$R_Key_NUMPAD1 = 0x61 # Numeric keypad 1 key
$R_Key_NUMPAD2 = 0x62 # Numeric keypad 2 key
$R_Key_NUMPAD3 = 0x63 # Numeric keypad 3 key
$R_Key_NUMPAD4 = 0x64 # Numeric keypad 4 key
$R_Key_NUMPAD5 = 0x65 # Numeric keypad 5 key
$R_Key_NUMPAD6 = 0x66 # Numeric keypad 6 key
$R_Key_NUMPAD7 = 0x67 # Numeric keypad 7 key
$R_Key_NUMPAD8 = 0x68 # Numeric keypad 8 key
$R_Key_NUMPAD9 = 0x69 # Numeric keypad 9 key
$R_Key_MULTIPLY = 0x6A # Multiply key (*)
$R_Key_ADD = 0x6B # Add key (+)
$R_Key_SEPARATOR = 0x6C # Separator key
$R_Key_SUBTRACT = 0x6D # Subtract key (-)
$R_Key_DECIMAL = 0x6E # Decimal key
$R_Key_DIVIDE = 0x6F # Divide key (/)
$R_Key_F1 = 0x70 # F1 key
$R_Key_F2 = 0x71 # F2 key
$R_Key_F3 = 0x72 # F3 key
$R_Key_F4 = 0x73 # F4 key
$R_Key_F5 = 0x74 # F5 key
$R_Key_F6 = 0x75 # F6 key
$R_Key_F7 = 0x76 # F7 key
$R_Key_F8 = 0x77 # F8 key
$R_Key_F9 = 0x78 # F9 key
$R_Key_F10 = 0x79 # F10 key
$R_Key_F11 = 0x7A # F11 key
$R_Key_F12 = 0x7B # F12 key
$R_Key_NUMLOCK = 0x90 # NUM LOCK key
$R_Key_SCROLL = 0x91 # SCROLL LOCK key
$R_Key_LSHIFT = 0xA0 # Left SHIFT key
$R_Key_RSHIFT = 0xA1 # Right SHIFT key
$R_Key_LCONTROL = 0xA2 # Left CONTROL key
$R_Key_RCONTROL = 0xA3 # Right CONTROL key
$R_Key_L_ALT = 0xA4 # Left ALT key
$R_Key_R_ALT = 0xA5 # Right ALT key
$R_Key_Oem_Plus = 0xBB #   =, +
$R_Key_Oem_1 = 0xBA # ";", ":"
$R_Key_Oem_2 = 0xBF # "/", "?"
$R_Key_Oem_3 = 0xC0 #  `, ~
$R_Key_Oem_4 = 0xDB #  [, {
$R_Key_Oem_5 = 0xDC #  \, |
$R_Key_Oem_6 = 0xDD #  ], }
$R_Key_SEP = 0xBC # , key
$R_Key_DASH = 0xBD # - key
$R_Key_DOTT = 0xBE # . key
GetKeyState = Win32API.new("user32","GetAsyncKeyState",['i'],'i')
GetKeyboardState = Win32API.new("user32","GetKeyState",['i'],'i')
GetSetKeyState = Win32API.new("user32","SetKeyboardState",['i'],'i')
module_function
def keyboard(rkey)
GetKeyState.call(rkey) & 0x01 == 1
end
def key(rkey, key = 0)
GetKeyboardState.call(rkey) & 0x01 == key
end
end
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Pisanie klawiatura [VX] Częśc II
#Autor : Berka , Przetłumaczenie : Radek02
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
class Game_Interpreter
  def command_303
    if $data_actors[@params[0]] != nil
      data, top_text, text, font, size =
      [],  "Wpisz imię bohatera : ", "", "Verdana", 24
      $game_temp.name_actor_id = @params[0]
      $game_temp.name_max_char = @params[1]
      max =$game_temp.name_max_char
      actor = $game_actors[$game_temp.name_actor_id]
      $game_actors[$game_temp.name_actor_id].name=Text_input.new(actor,top_text, text, font, max, size).text
    end
    @index += 1
    return false
  end
end
class Text_input < Window_Base
  attr_reader :name
  def initialize(actor, top_text, text, font, max, size, free = "_", max2=20)
    @toptext, @actor, @text, @font, @max, @max2, @size, @free =
    top_text, actor, actor.name, font, max, max2, size, free
    super(272 - (@max2*@size+@size)/2, 208-@size*2-32, @max2 * @size + 32, 128)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = @font
    self.contents.font.size = @size
    self.z = 256
    @twidth, @twidth2 = @max2*@size, @max2*@size-(1/4*@max2)
    @pl = 0
    @big = 0
    refresh
    update
  end
  def refresh
    self.contents.clear
    self.contents.font.color = system_color
    self.contents.draw_text(0, 0, @twidth, @size, @toptext, 1)
    name_array = @text.split(//)[0...@max-1]
    for i in 0...@max-1
      text = name_array[i]
      text = '_' if text == nil
      self.contents.font.color = normal_color
      self.contents.draw_text(@size * i+ (@max2*@size+@size)/2-(@max*@size+@size)/2, @size + 24, @size, @size, text, 1)
      draw_actor_graphic(@actor, 20, 45)
    end
  end
  def update
    loop do
      Graphics.update
      refresh
      if Kboard.keyboard($R_Key_BACK)
        text = ""
        if @text.size+1 != 0
          for i in 0... @text.size - 1
            text += @text[i].chr
          end
          @text = text
        else
        end
      end
      return if Kboard.keyboard($R_Key_RETURN)
      if Kboard.keyboard($R_Key_L_ALT) or
        Kboard.keyboard($R_Key_R_ALT)
        if @pl == 0
          @pl = 1
        else
          @pl = 0
        end
      end
      if Kboard.keyboard($R_Key_CAPITAL) or
        Kboard.keyboard($R_Key_LSHIFT) or
        Kboard.keyboard($R_Key_RSHIFT)
        if @big == 0
          @big = 1
        else
          @big = 0
        end
      end
      if @text.size < @max
        @text += " " if Kboard.keyboard($R_Key_SPACE)
        if @big == 1
          if @pl == 1
            @text += "Ą" if Kboard.keyboard($R_Key_A)
            @text += "B" if Kboard.keyboard($R_Key_B)
            @text += "Ć" if Kboard.keyboard($R_Key_C)
            @text += "D" if Kboard.keyboard($R_Key_D)
            @text += "Ę" if Kboard.keyboard($R_Key_E)
            @text += "F" if Kboard.keyboard($R_Key_F)
            @text += "G" if Kboard.keyboard($R_Key_G)
            @text += "H" if Kboard.keyboard($R_Key_H)
            @text += "I" if Kboard.keyboard($R_Key_I)
            @text += "J" if Kboard.keyboard($R_Key_J)
            @text += "K" if Kboard.keyboard($R_Key_K)
            @text += "Ł" if Kboard.keyboard($R_Key_L)
            @text += "M" if Kboard.keyboard($R_Key_M)
            @text += "Ń" if Kboard.keyboard($R_Key_N)
            @text += "Ó" if Kboard.keyboard($R_Key_O)
            @text += "P" if Kboard.keyboard($R_Key_P)
            @text += "Q" if Kboard.keyboard($R_Key_Q)
            @text += "R" if Kboard.keyboard($R_Key_R)
            @text += "Ś" if Kboard.keyboard($R_Key_S)
            @text += "T" if Kboard.keyboard($R_Key_T)
            @text += "U" if Kboard.keyboard($R_Key_U)
            @text += "V" if Kboard.keyboard($R_Key_V)
            @text += "W" if Kboard.keyboard($R_Key_W)
            @text += "Ź" if Kboard.keyboard($R_Key_X)
            @text += "Y" if Kboard.keyboard($R_Key_Y)
            @text += "Ż" if Kboard.keyboard($R_Key_Z)
          else
            @text += "A" if Kboard.keyboard($R_Key_A)
            @text += "B" if Kboard.keyboard($R_Key_B)
            @text += "C" if Kboard.keyboard($R_Key_C)
            @text += "D" if Kboard.keyboard($R_Key_D)
            @text += "E" if Kboard.keyboard($R_Key_E)
            @text += "F" if Kboard.keyboard($R_Key_F)
            @text += "G" if Kboard.keyboard($R_Key_G)
            @text += "H" if Kboard.keyboard($R_Key_H)
            @text += "I" if Kboard.keyboard($R_Key_I)
            @text += "J" if Kboard.keyboard($R_Key_J)
            @text += "K" if Kboard.keyboard($R_Key_K)
            @text += "L" if Kboard.keyboard($R_Key_L)
            @text += "M" if Kboard.keyboard($R_Key_M)
            @text += "N" if Kboard.keyboard($R_Key_N)
            @text += "O" if Kboard.keyboard($R_Key_O)
            @text += "P" if Kboard.keyboard($R_Key_P)
            @text += "Q" if Kboard.keyboard($R_Key_Q)
            @text += "R" if Kboard.keyboard($R_Key_R)
            @text += "S" if Kboard.keyboard($R_Key_S)
            @text += "T" if Kboard.keyboard($R_Key_T)
            @text += "U" if Kboard.keyboard($R_Key_U)
            @text += "V" if Kboard.keyboard($R_Key_V)
            @text += "W" if Kboard.keyboard($R_Key_W)
            @text += "X" if Kboard.keyboard($R_Key_X)
            @text += "Y" if Kboard.keyboard($R_Key_Y)
            @text += "Z" if Kboard.keyboard($R_Key_Z)
          end
        else
          if @pl == 1
            @text += "ą" if Kboard.keyboard($R_Key_A)
            @text += "b" if Kboard.keyboard($R_Key_B)
            @text += "ć" if Kboard.keyboard($R_Key_C)
            @text += "d" if Kboard.keyboard($R_Key_D)
            @text += "ę" if Kboard.keyboard($R_Key_E)
            @text += "f" if Kboard.keyboard($R_Key_F)
            @text += "g" if Kboard.keyboard($R_Key_G)
            @text += "h" if Kboard.keyboard($R_Key_H)
            @text += "i" if Kboard.keyboard($R_Key_I)
            @text += "j" if Kboard.keyboard($R_Key_J)
            @text += "k" if Kboard.keyboard($R_Key_K)
            @text += "ł" if Kboard.keyboard($R_Key_L)
            @text += "m" if Kboard.keyboard($R_Key_M)
            @text += "ń" if Kboard.keyboard($R_Key_N)
            @text += "ó" if Kboard.keyboard($R_Key_O)
            @text += "p" if Kboard.keyboard($R_Key_P)
            @text += "q" if Kboard.keyboard($R_Key_Q)
            @text += "r" if Kboard.keyboard($R_Key_R)
            @text += "ś" if Kboard.keyboard($R_Key_S)
            @text += "t" if Kboard.keyboard($R_Key_T)
            @text += "u" if Kboard.keyboard($R_Key_U)
            @text += "v" if Kboard.keyboard($R_Key_V)
            @text += "w" if Kboard.keyboard($R_Key_W)
            @text += "ź" if Kboard.keyboard($R_Key_X)
            @text += "y" if Kboard.keyboard($R_Key_Y)
            @text += "ż" if Kboard.keyboard($R_Key_Z)
          else
            @text += "a" if Kboard.keyboard($R_Key_A)
            @text += "b" if Kboard.keyboard($R_Key_B)
            @text += "c" if Kboard.keyboard($R_Key_C)
            @text += "d" if Kboard.keyboard($R_Key_D)
            @text += "e" if Kboard.keyboard($R_Key_E)
            @text += "f" if Kboard.keyboard($R_Key_F)
            @text += "g" if Kboard.keyboard($R_Key_G)
            @text += "h" if Kboard.keyboard($R_Key_H)
            @text += "i" if Kboard.keyboard($R_Key_I)
            @text += "j" if Kboard.keyboard($R_Key_J)
            @text += "k" if Kboard.keyboard($R_Key_K)
            @text += "l" if Kboard.keyboard($R_Key_L)
            @text += "m" if Kboard.keyboard($R_Key_M)
            @text += "n" if Kboard.keyboard($R_Key_N)
            @text += "o" if Kboard.keyboard($R_Key_O)
            @text += "p" if Kboard.keyboard($R_Key_P)
            @text += "q" if Kboard.keyboard($R_Key_Q)
            @text += "r" if Kboard.keyboard($R_Key_R)
            @text += "s" if Kboard.keyboard($R_Key_S)
            @text += "t" if Kboard.keyboard($R_Key_T)
            @text += "u" if Kboard.keyboard($R_Key_U)
            @text += "v" if Kboard.keyboard($R_Key_V)
            @text += "w" if Kboard.keyboard($R_Key_W)
            @text += "x" if Kboard.keyboard($R_Key_X)
            @text += "y" if Kboard.keyboard($R_Key_Y)
            @text += "z" if Kboard.keyboard($R_Key_Z)
          end
        end
        if @big == 1
          @text += "0" if Kboard.keyboard($R_Key_0)
          @text += "1" if Kboard.keyboard($R_Key_1)
          @text += "2" if Kboard.keyboard($R_Key_2)
          @text += "3" if Kboard.keyboard($R_Key_3)
          @text += "4" if Kboard.keyboard($R_Key_4)
          @text += "5" if Kboard.keyboard($R_Key_5)
          @text += "6" if Kboard.keyboard($R_Key_6)
          @text += "7" if Kboard.keyboard($R_Key_7)
          @text += "8" if Kboard.keyboard($R_Key_8)
          @text += "9" if Kboard.keyboard($R_Key_9)
        else
          @text += ")" if Kboard.keyboard($R_Key_0)
          @text += "!" if Kboard.keyboard($R_Key_1)
          @text += "@" if Kboard.keyboard($R_Key_2)
          @text += "#" if Kboard.keyboard($R_Key_3)
          @text += "$" if Kboard.keyboard($R_Key_4)
          @text += "%" if Kboard.keyboard($R_Key_5)
          @text += "^" if Kboard.keyboard($R_Key_6)
          @text += "&" if Kboard.keyboard($R_Key_7)
          @text += "*" if Kboard.keyboard($R_Key_8)
          @text += "(" if Kboard.keyboard($R_Key_9)
        end
        @text += "0" if Kboard.keyboard($R_Key_NUMPAD0)
        @text += "1" if Kboard.keyboard($R_Key_NUMPAD1)
        @text += "2" if Kboard.keyboard($R_Key_NUMPAD2)
        @text += "3" if Kboard.keyboard($R_Key_NUMPAD3)
        @text += "4" if Kboard.keyboard($R_Key_NUMPAD4)
        @text += "5" if Kboard.keyboard($R_Key_NUMPAD5)
        @text += "6" if Kboard.keyboard($R_Key_NUMPAD6)
        @text += "7" if Kboard.keyboard($R_Key_NUMPAD7)
        @text += "8" if Kboard.keyboard($R_Key_NUMPAD8)
        @text += "9" if Kboard.keyboard($R_Key_NUMPAD9)
        @text += "+" if Kboard.keyboard($R_Key_ADD)
        @text += "-" if Kboard.keyboard($R_Key_SUBTRACT)
        @text += "/" if Kboard.keyboard($R_Key_DIVIDE)
        @text += "*" if Kboard.keyboard($R_Key_MULTIPLY)
        if @big == 1
          @text += "," if Kboard.keyboard($R_Key_SEP)
          @text += "-" if Kboard.keyboard($R_Key_DASH)
          @text += "." if Kboard.keyboard($R_Key_DOTT)
          @text += "=" if Kboard.keyboard($R_Key_Oem_Plus)
          @text += ";" if Kboard.keyboard($R_Key_Oem_1)
          @text += "/" if Kboard.keyboard($R_Key_Oem_2)
          @text += "`" if Kboard.keyboard($R_Key_Oem_3)
          @text += "[" if Kboard.keyboard($R_Key_Oem_4)
          @text += "]" if Kboard.keyboard($R_Key_Oem_6)
        else
          @text += "<" if Kboard.keyboard($R_Key_SEP)
          @text += "_" if Kboard.keyboard($R_Key_DASH)
          @text += ">" if Kboard.keyboard($R_Key_DOTT)
          @text += "+" if Kboard.keyboard($R_Key_Oem_Plus)
          @text += ":" if Kboard.keyboard($R_Key_Oem_1)
          @text += "?" if Kboard.keyboard($R_Key_Oem_2)
          @text += "~" if Kboard.keyboard($R_Key_Oem_3)
          @text += "{" if Kboard.keyboard($R_Key_Oem_4)
          @text += "}" if Kboard.keyboard($R_Key_Oem_6)
        end
      else
      end
      refresh
    end
  end
  def text()
    self.contents.dispose
    self.dispose
    return @text
  end
end

 
 
MistrzZen 




Preferowany:
RPG Maker XP

Dołączył: 01 Sie 2010
Posty: 43
Skąd: Łęka Opatowska
Wysłany: Pią 13 Sie, 2010 15:48
U mnie wogule nie działa... demko by się zdało....
________________________
Spoiler:




 
 
 
radek02 



Preferowany:
RPG Maker VX

Pomógł: 13 razy
Dołączył: 17 Lut 2010
Posty: 257
Skąd: klikasz ?
Wysłany: Pią 13 Sie, 2010 16:54
MistrzZen, skopiuj skrypt Teyana , następnie częsc 2 z głównego postu .
________________________
2009-10-12 - dzień , od którego jestem uczestnikiem na polskiej scenie RPG Makera [/b]

Dołącz do grupy makerowiczów na nk ! http://nk.pl/#grupy/29610
 
 
 
MistrzZen 




Preferowany:
RPG Maker XP

Dołączył: 01 Sie 2010
Posty: 43
Skąd: Łęka Opatowska
Wysłany: Sob 14 Sie, 2010 09:22
Ale wklejić je jako jeden sktypt, czy w dwóch częściach?
________________________
Spoiler:




 
 
 
radek02 



Preferowany:
RPG Maker VX

Pomógł: 13 razy
Dołączył: 17 Lut 2010
Posty: 257
Skąd: klikasz ?
Wysłany: Sob 14 Sie, 2010 09:45
w dwóch częściach .
/edit: może ktoś dopisac do instrukcji? :
- skrypt wklejamy w dwóch częściach .
z góry thx .
________________________
2009-10-12 - dzień , od którego jestem uczestnikiem na polskiej scenie RPG Makera [/b]

Dołącz do grupy makerowiczów na nk ! http://nk.pl/#grupy/29610
 
 
 
Nikoś 



Preferowany:
RPG Maker XP

Dołączył: 22 Kwi 2010
Posty: 28
Wysłany: Sob 11 Wrz, 2010 12:44
Jest taka wersja do XP, zgodna z SDK i Mr. Mo Abs 5.5?
 
 
Wyświetl posty z ostatnich:   
UltimaForum Strona Główna » RPG Maker VX » Skrypty [VX] » Możliwośc pisania klawiaturą
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
 Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group | Template Klam by Ayene