RPG Developer Bakin: Grid Based Movement
#1
Smile 
Note: This event system is for RPG Developer Bakin. In order to add this event, copy to a simple .txt file, and then simply import the .txt file after saving your game on an event screen, and it will fill in the nodes automatically!



Grid Based Movement!

Originally created by MelonToucan
This Common Event system will allow you to forego the non-grid based movement for a simpler 8 direction grid based one. Adjust for different resolutions.


Code:
Guid    fc503ff2-f343-4b32-bafa-67a7e9faa4ce
イベント名    GridMovement
シート    Event Sheet
    グラフィック    00000000-0000-0000-0000-000000000000
    向き    -1
    向き固定    False
    物理    False
    衝突判定    True
    イベントと衝突    True
    移動速度    0
    移動頻度    0
    移動タイプ    NONE
    押せる    True
    スクリプト
        開始条件    PARALLEL
        高さ無視    False
        判定拡張    False
        コマンド    SWITCH
            変数    N:LockPlayer
            整数    0
        コマンド終了
        コマンド    COMMENT
            文字列    Stops all regular player movement from happening
        コマンド終了
        コマンド    HLVARIABLE
            整数    0
            ローカル変数    pressUP
            整数    12
            整数    0
            整数    0
        コマンド終了
        コマンド    HLVARIABLE
            整数    0
            ローカル変数    pressDOWN
            整数    12
            整数    1
            整数    0
        コマンド終了
        コマンド    HLVARIABLE
            整数    0
            ローカル変数    pressLEFT
            整数    12
            整数    2
            整数    0
        コマンド終了
        コマンド    HLVARIABLE
            整数    0
            ローカル変数    pressRIGHT
            整数    12
            整数    3
            整数    0
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing Down and Right at the same time
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressDOWN
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressLEFT
            整数    1
            整数    3
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressRIGHT
            整数    1
            整数    0
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    1
            整数    1
            整数    0
            整数    45
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing Down and Left at the same time
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressDOWN
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressLEFT
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressRIGHT
            整数    1
            整数    3
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    0
            整数    1
            整数    0
            整数    -45
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing Up and Right at the same time
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressUP
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressLEFT
            整数    1
            整数    3
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressRIGHT
            整数    1
            整数    0
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    0
            整数    1
            整数    0
            整数    135
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing Up and Left at the same time
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressUP
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressLEFT
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressRIGHT
            整数    1
            整数    3
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    1
            整数    1
            整数    0
            整数    -135
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing up, but not left or right
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressUP
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressLEFT
            整数    1
            整数    3
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressRIGHT
            整数    1
            整数    3
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    1
            整数    1
            整数    0
            整数    180
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing down, but not left or right
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressDOWN
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressLEFT
            整数    1
            整数    3
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressRIGHT
            整数    1
            整数    3
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    1
            整数    1
            整数    0
            整数    0
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing left, but not down or up
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressLEFT
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressDOWN
            整数    1
            整数    3
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressUP
            整数    1
            整数    3
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    1
            整数    1
            整数    0
            整数    -90
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    COMMENT
            文字列    Pressing right, but not down or up
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressRIGHT
            整数    1
            整数    0
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressUP
            整数    1
            整数    3
        コマンド終了
        コマンド    IFVARIABLE
            ローカル変数    pressDOWN
            整数    1
            整数    3
        コマンド終了
        コマンド    COMMENT
            文字列    Being held, pressed, let go, etc.
        コマンド終了
        コマンド    PLWALK
            整数    10
            小数    1
            整数    0
            整数    1
            整数    1
            整数    1
            整数    0
            整数    90
            整数    0
            整数    0
            整数    0
        コマンド終了
        コマンド    PLSNAP
        コマンド終了
        コマンド    COMMENT
            文字列    If you want event to move this way you would just enter this into the events motions.
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
        コマンド    ELSE
        コマンド終了
        コマンド    ENDIF
        コマンド終了
    スクリプト終了
シート終了
[Image: AVvXsEga1vIr5Rx3FkoFbGo1OoMJAqgq6TeqcbpF...L3AWg=s752]

BLOG: JayVinci.blogspot.com
FORUM COMING SOON
Currently working on:
Ambitions: RPG Developer Bakin
Heart of Vox: RPG Developer Bakin
Reply }


Messages In This Thread
RPG Developer Bakin: Grid Based Movement - by JayRay - 01-03-2023, 10:37 PM

Possibly Related Threads…
Thread Author Replies Views Last Post
  RPG Developer Bakin: Turn HP into Hearts! JayRay 0 1,529 02-04-2023, 11:53 PM
Last Post: JayRay
  RPG Developer Bakin: Extensible 'Active Item' Event JayRay 0 1,148 01-28-2023, 02:37 AM
Last Post: JayRay
Smile RPG Developer Bakin: Quick Harvesting Event JayRay 1 1,706 01-04-2023, 05:44 AM
Last Post: JayRay
  [XP/VX] Ability Grid Guardian 1 8,299 05-03-2011, 11:38 PM
Last Post: deathangelmagnus
  [VX] Event-Based Time System Guardian 2 7,189 11-27-2010, 06:37 PM
Last Post: Guardian



Users browsing this thread: 1 Guest(s)