time travel system in rpg2003

Reading Article
Author: meatloaf
Posted on 11/08/2007
print :: back to list
time travel system i made that really works

h

ello all,
its meatloaf here with my first tut, I subited this already but it never showed up, so im doing it again,

(what you need to know)
varibles
switches
common events
how to use pics

(what you need)
5 common events
and how to use the stuff i said above

ok here is the codeing for the time travel system.

brings up menu)(and takes it down)
name:time travel
trigger: parallel process
trigger switch: 0110:time travel

------------------------------------------------------
<>branch if airship vehicle
<>key input proc:[0521:time travel switch]
<>switch operation:[0474:useing time] on
<>switch operation:[0474:menu-call] off
<>branch if airship vehicle
<>branch if airship vehicle
<>show pic1,time border,(160,70)
<>show pic2,time transporter words, (160,70)
<>show pic3,textbox-small, (160,120)
<>show pic4,textbox-small, (160,142)
<>show pic5,textbox-small, (160,162)
<> show pic6,zinzexie future disabled, (160,122)
<>show pic7,zenzexie past disabled, (160,163)
<>show pic8,zinzexie present disabled, (160,143)
<>branch if switch [0472:time future\ is on
<>show pic9, zenzixe future, (160,122)
<>branch if switch [0471:time present] is on
<>show pic:10, zenzexie present, (160,143
<>show pic:11,zenzexie past, (160,163)
<>
: end
<>
:end
<>
: end
<>
: end
<>comment:---cancel button-----------------------------
<>key input proc:[0529:time cancel]
<>branch if var [0529:time cancel] is 6
<>branch is airship vehicle
<>playsound:cancel
<>erase pic:1
<>erase pic:1
<>erase pic:2
<>erase pic:3
<>erase pic:4
<>erase pic:5
<>erase pic:6
<>erase pic:7
<>erase pic:8
<>erase pic:9
<>erase pic:10
<>erase pic:11
<>erase pic:12
<>switch operation: [0110:time travel] off
<>switch operation: [0110:time travel] on
<>
:end
<>
:end
<>
:else handler
<>
:end
<>

--------moves cursor down-------------------------
TIME DOWN SWITCH-----diff common event-------
name:time down
trigger: parellel process
trigger switch: 0474:useing time
<>branch if airship vehicle
<>key input proc: [0552:time travel down]
<>branch if var [0522:time travle down] is 1
<>branch if var [0530:cursor location] is 3
<>variable: [0530:cursor location] set, 0
<>
: else handler
<>variable oper: [0530:cursor location: +, 1
<>
:end
<>wait: 0.1 sec
<>play sound: confrim
<>
:end
<>branch if var [0530:cursor location] is 1
<>show pic:12, cursor2, (160,120)
<>
:end
<>branch if var [0530:cursor location] is 2
<>move pic:12, (160,142), 0.0bsec (wait)
<>
:end
<>branch if var [0530:cursor location] is 3
<>move pic:12, (160,162), 0.0 sec(wait)
<>
:end
<>
:end
<>

-------moves cursor up--------------
TIME UP SWITCH-----diff common event-------
name:time up
trigger: parellel process
trigger switch: 0474:useing time

<>branch if airship vehicle
<>key input proc: [0552:time travel up]
<>branch if var [0522:time travel down] is 4
<>branch if var [0530:cursor location] is 3
<>variable: [0530:cursor location] set, 0
<>
: else handler
<>variable oper: [0530:cursor location: -, 1
<>
:end
<>wait: 0.1 sec
<>play sound: confrim
<>
:end
<>branch if var [0530:cursor location] is 1
<>show pic:12, cursor2, (160,120)
<>
:end
<>branch if var [0530:cursor location] is 2
<>move pic:12, (160,142), 0.0bsec (wait)
<>
:end
<>branch if var [0530:cursor location] is 3
<>move pic:12, (160,162), 0.0 sec(wait)
<>
:end
<>
:end
<>

TIME ACCEPT SWITCH-----diff common event-------
name:time accept
trigger: parellel process
trigger switch: 0474:useing time

<>key input proc: [0524:time accept
<>branch is airship vehicle
<>branch if var: [0524:time accept] is 5
<>branch if var [0530:cursor location] is 1
<>branch if switch [0472:time future] is on
<>flash screen: begin
<>play sound:teleport
<>wait:1.0 sec
<>play sound: trasnform
<>flash screen: cease
<>variable oper: [0532:char x] set, hero x corrd
<>variable oper: [0532:char y] set, hero y corrd
<>variable oper: [0525:map id future] set, 17
<>teleport: 0017:zen zexie future (044,071), retain facing
<>recall to location: v[0525] (v[0532],v[0533])
<>switch operation: [0110:time travel] off
<>switch operation: [0110:time travel] on
<>switch operation: [0474:useing time] off
<>
:else handler
<>play sound: transform
<>wait: 0.5 sec
<>
:end
<>
:end
<>branch if var [0530:cursor location] is 2
<>branch if switch [0472:time future] is on
<>flash screen: begin
<>play sound:teleport
<>wait:1.0 sec
<>play sound: trasnform
<>flash screen: cease
<>variable oper: [0532:char x] set, hero x corrd
<>variable oper: [0532:char y] set, hero y corrd
<>variable oper: [0525:map id future] set, 3
<>teleport: 0017:zen zexie present (044,071), retain facing
<>recall to location: v[0525] (v[0532],v[0533])
<>switch operation: [0110:time travel] off
<>switch operation: [0110:time travel] on
<>switch operation: [0474:useing time] off
<>
:else handler
<>play sound: transform
<>wait: 0.5 sec
<>
:end
<>
:end
<>branch if var [0530:cursor location] is 3
<>branch if switch [0472:time future] is on
<>flash screen: begin
<>play sound:teleport
<>wait:1.0 sec
<>play sound: trasnform
<>flash screen: cease
<>variable oper: [0532:char x] set, hero x corrd
<>variable oper: [0532:char y] set, hero y corrd
<>variable oper: [0525:map id future] set, 33
<>teleport: 0017:zen zexie past (044,071), retain facing
<>recall to location: v[0525] (v[0532],v[0533])
<>switch operation: [0110:time travel] off
<>switch operation: [0110:time travel] on
<>switch operation: [0474:useing time] off
<>
:else handler
<>play sound: transform
<>wait: 0.5 sec
<>
:end
<>
:end

HERO WAIT SWITCH-----diff common event-------
name:hero wait(must have)
trigger: parellel process
trigger switch: 0474:useing time
<>move event: hero, wait
<>

Active Users (0)