Gw Temp

How to make a tape player like the one in Shenmue

Introduction

Well welocme to my first tutorial, to make a tape player fast and simple.Let me tell you now XX=whatever you want and the change switches dont have to be 0001 etc but when the 0001 etc occurs more than once it means choose the same one u asigned it to

heres the template for the menu width 320 Height 240. and save it as bmp, get the Demo herenow lets snap on with the tutorial.



First Event

Pushkey

Bellow Hero



Call Event: this Event[2]

Varible Ch:[0004:XX]Set, Hero XPos

Varible Ch:[0005:XX]Set, Hero YPos

FORK Optn:Varbl[00010:XX]-V[0006]less than(make the viarable higher than 10)

Varible Ch:[0010:XX]Set, Var.[0006]val.



:END Case

FORK Optn:Varbl[00010:XX]-V[0007]more than

Varible Ch:[0010:XX]Set, Var.[0007]val.



:END Case

FORK Optn:Varbl[00011:XX]-V[0008]less than

Varible Ch:[0011:XX]Set, Var.[0008]val.



:END Case

FORK Optn:Varbl[00011:XX]-V[0008]more than

Varible Ch:[0011:XX]Set, Var.[0008]val.



Setup Event's Place: this Event, (V[0010],V[0011])



PAGE TWO

Varible Ch:[0006:XX]Set, 9

Varible Ch:[0007:XX]Set, 9

Varible Ch:[0008:XX]Set, 7

Varible Ch:[0009:XX]Set, 22



make another event(the tape player itself)

Pushkey

Same level as hero



Change Switch:[0001:XX]-OFF Set

Move Event...: Hero ,Move Speed Dwn x4 Move Speed Up x3(movement fequency 8)

Move All

CallEvent: X[1]

Varible Ch:[0001:XX]Set, 0

Change Switch: [0002:XX]-On Set

Messg:Want Me To Play Music?

Show Choice: yes/no

: [yes] Case

Memorize BGM

Play Se: Loaded

Show Picture: 1, music_board, (160,120)

CYCLE

FORK Optn:Varbl[0002:XX]-1

Show Picture : 2, cursor, (20,56)



:ELSE Case

FORK Optn:Varbl[0002:XX]-2

Show Picture : 2, cursor, (20,79)



:ELSE Case

FORK Optn:Varbl[0003:XX]-3

Show Picture : 2, cursor, (20,101)



:ELSE Case

FORK Optn:Varbl[0002:XX]-4

Show Picture : 2, cursor, (20,124)



:ELSE Case

FORK Optn:Varbl[0002:XX]-5

Show Picture : 2, cursor, (20,146)



:ELSE Case

FORK Optn:Varbl[0002:XX]-6

Show Picture : 2, cursor, (20,168)



:ELSE Case

FORK Optn:Varbl[0002:XX]-7

Show Picture : 2, cursor, (20,189)



:END Case



:END Case



:END Case



:END Case



:END Case



:END Case



Enter Password: [0003:XX](mark all of them)

Play Se: XXX

FORK Optn:Varbl[0002:XX]-7

Varible Ch:[0002:XX]Set, 1



:ELSE Case

Varible Ch:[0002:XX]+ , 1



:END Case



:ELSE Case

FORK Optn:Varbl[0003:XX]-4

Play SE: XX(this will be the noise when you move up)

FORK Optn:Varbl[0002:XX]-1

Varible Ch:[0002:XX]Set , 7



:ELSE Case

Varible Ch:[0002:XX]- , 1



:END Case



:ELSE Case

FORK Optn:Varbl[0003:XX]-5

Play SE: XX(this will be the noise when youve chose the music)

FORK Optn:Varbl[0002:XX]-1

Play BGM: Your_music



:ELSE Case

FORK Optn:Varbl[0002:XX]-2

Play BGM: Your_music



:ELSE Case

FORK Optn:Varbl[0002:XX]-3

Play BGM: Your_music2



:ELSE Case

FORK Optn:Varbl[0002:XX]-4

Play BGM: Your_music3



:ELSE Case

FORK Optn:Varbl[0002:XX]-5

Play BGM: Your_music4



:ELSE Case

FORK Optn:Varbl[0002:XX]-6

Play BGM: Your_music5



:ELSE Case

FORK Optn:Varbl[0002:XX]-7

Play BGM: Your_music6



:END Case



:END Case



:END Case



:END Case



:END Case



:END Case



:END Case



FORK Optn:Varbl[0002:XX]-6

Play SE: XX(when you canceled it)

BREAK Cycle



:END Case



:END Case



:END Case



:END Case



:END Cycle

Wait: 0.5s.

Erase Picture : 1

Erase Picture : 2

Play Memorized BMG



:[No] Case



:END Case

Change Switch: [0002:XX]-OFF Set

Change Switch:[0001:XX]-On Set