1546
SCI Development Tools / Re: Hello!
« on: August 27, 2010, 02:33:54 PM »
True...I guess I just don't like IDEs. And MinGW/MSYS is so lightweight and easy to use.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
sciv.exe -d
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script TITLESCREEN_SCRIPT)
/******************************************************************************/
(use "main")
(use "game")
(use "menubar")
(use "obj")
(use "cycle")
(use "user")
(use "controls")
(use "feature")
/******************************************************************************/
(instance public TitleScreen of Rm
(properties
picture scriptNumber
)
(method (init)
// Set up the title screen
ProgramControl()
= gProgramControl FALSE
(send gGame:setSpeed(7))
(SL:disable())
(TheMenuBar:hide())
(super:init())
(self:setScript(RoomScript))
DrawPic(800 dpOPEN_CENTEREDGE)
(send gEgo:
init()
hide()
)
/****************************************
* Set up the room's music to play here *
****************************************/
(send gTheMusic:
prevSignal(0)
stop()
number(0)
loop(0)
play()
)
/**************************************************
* Add the rest of your initialization stuff here *
**************************************************/
(Wolf:init()hide()setLoop(0))
)
)
/******************************************************************************/
(instance RoomScript of Script
(properties)
(method (changeState newState)
= state newState
(switch(state)
(case 0
(= cycles 1)
ProgramControl()
= gProgramControl TRUE
)
(case 1 = cycles 1
(send gGame:setCursor(997 0))
)
(case 2 = seconds 6
)
(case 3
(Wolf:show()setCycle(Fwd)setMotion(MoveTo 215 156 RoomScript))
)
(case 4 = cycles 30
(Wolf:loop(1)cel(0)cycleSpeed(1)setCycle(End))
)
(case 5 = cycles 15
(Wolf:dispose())
DrawPic(801 dpOPEN_TOP dpCLEAR gDefaultPalette)
(Moon:init())
)
(case 6 = cycles 10
(Moon:setCycle(End))
)
(case 7 = seconds 2
(Infamous:init())
)
(case 8 = seconds 4
(Adventures:init())
)
(case 9 = seconds 1
(Infamous:dispose())
(Adventures:dispose())
)
(case 10
(Moon:setLoop(0)setCel(4)setCycle(Beg RoomScript))
)
(case 11 = cycles 10
(Moon:hide())
)
(case 12
(send gGame:newRoom(803))
)
)
)
(method (doit)
(super:doit())
// code executed each game cycle
)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if (== (send pEvent:type) evKEYBOARD)
(switch(send pEvent:message)
(case KEY_ESCAPE
(send gTheMusic:fade())
(send gGame:newRoom(803))
)
(case KEY_RETURN
(send gTheMusic:fade())
(send gGame:newRoom(803))
)
)
)
)
)
/******************************************************************************/
(instance Wolf of Act
(properties
view 903
x 310
y 156
loop 0
cycleSpeed 0
)
)
(instance Moon of Prop
(properties
x 160
y 60
view 900
loop 1
cel 0
cycleSpeed 0
)
)
(instance Infamous of Prop
(properties
x 160
y 146
view 901
)
)
(instance Adventures of Prop
(properties
x 160
y 178
view 902
)
)
/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 803)
/******************************************************************************/
(use "Controls")
(use "Cycle")
(use "Door")
(use "Feature")
(use "Game")
(use "Inv")
(use "Main")
(use "Obj")
/******************************************************************************/
(instance public rm803 of Rm
(properties
picture scriptNumber
north 0
east 0
south 0
west 0
)
(method (init)
(super:init())
(self:setScript(RoomScript))
(titleOne:init()setCel(0))
(titleTwo:init()setCel(1))
(titleThree:init()setCel(2))
(switch(gPreviousRoomNumber)
(default
DrawPic(803 dpOPEN_CENTEREDGE)
)
)
(send gEgo:init()hide())
)
)
/******************************************************************************/
(instance RoomScript of Script
(properties)
(method (doit)
(super:doit())
// code executed each game cycle
)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
// handle Said's, etc...
(if (== (send pEvent:type) evKEYBOARD)
(switch(send pEvent:message)
(case KEY_ESCAPE
(send gTheMusic:fade())
(send gGame:newRoom(802))
)
(case KEY_RETURN
(send gTheMusic:fade())
(send gGame:newRoom(802))
)
)
)
)
(method (changeState newState)
(= state newState)
(switch (newState)
(case 0
(= cycles 1)
ProgramControl()
= gProgramControl TRUE
)
(case 1 = cycles 1
(send gGame:setCursor(997 0))
)
(case 2 = seconds 5
)
(case 3
(send gGame:newRoom(802))
)
)
)
)
/******************************************************************************/
(instance titleOne of Prop
(properties
x 76
y 139
view 904
)
)
(instance titleTwo of Prop
(properties
x 158
y 139
view 904
)
)
(instance titleThree of Prop
(properties
x 235
y 134
view 904
)
)
(include "sci.sh")
(include "game.sh")
(use "main")
(use "game")
(use "menubar")
(use "obj")
(use "cycle")
(use "user")
(use "controls")
(use "feature")
(script TITLESCREEN_SCRIPT)
(instance TitleScreen of Rm
(properties
picture scriptNumber
)
(method (init)
ProgramControl()
= gProgramControl FALSE
(send gGame:setSpeed(7))
(SL:disable())
(TheMenuBar:hide())
(super:init())
(self:setScript(RoomScript))
(Animate((DrawPic(800 dpOPEN_CENTEREDGE))))
(send gEgo:init() hide())
(send gTheMusic:prevSignal(0) stop() number(0) loop(0) play())
(Wolf:init() setLoop(0) hide())
)
)
(instance RoomScript of Script
(properties)
(method (changeState newState)
= state newState
(switch ((state))
(case0
(= cycles 1)
ProgramControl()
= gProgramControl TRUE
)
(case1
= cycles 1
(send gGame:setCursor(997 0))
)
(case2
= seconds 6
)
(case3
(Wolf:show() setCycle(Fwd) setMotion(MoveTo 215 156 RoomScript))
)
(case4
= cycles 30
(Wolf:setLoop(1) setCel(0) cycleSpeed(1) setCycle(End))
)
(case5
= cycles 15
(Wolf:dispose())
DrawPic(801 dpOPEN_TOP dpCLEAR gDefaultPalette)
(Moon:init())
)
(case6
= cycles 10
(Moon:setCycle(End))
)
(case7
= seconds 2
(Infamous:init())
)
(case8
= seconds 4
(Adventures:init())
)
(case9
= seconds 1
(Infamous:dispose())
(Adventures:dispose())
)
(case10
(Moon:setLoop(0) setCel(4) setCycle(Beg RoomScript))
)
(case11
= cycles 10
(Moon:dispose())
)
(case12
(send gGame:newRoom(803))
)
)
)
(method (doit)
(super:doit())
)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if (== (send pEvent:type) evKEYBOARD)
(switch ((send pEvent:message))
(caseKEY_ESCAPE
(send gTheMusic:fade())
(send gGame:newRoom(803))
)
(caseKEY_RETURN
(send gTheMusic:fade())
(send gGame:newRoom(803))
)
)
)
)
)
(instance Wolf of Act
(properties
view 903
x 310
y 156
loop 0
cycleSpeed 0
)
)
(instance Moon of Prop
(properties
x 160
y 60
view 900
loop 1
cel 0
cycleSpeed 0
)
)
(instance Infamous of Prop
(properties
x 160
y 146
view 901
)
)
(instance Adventures of Prop
(properties
x 160
y 178
view 902
)
)
(include "sci.sh")
(include "game.sh")
(use "Controls")
(use "Cycle")
(use "Door")
(use "Feature")
(use "Game")
(use "Inv")
(use "Main")
(use "Obj")
(script 803)
(local dGrahamYolk = 0 )
(local dFortuneYolk = 0 )
(instance rm803 of Rm
(properties
picture scriptNumber
north 0
east 0
south 0
west 0
)
(method (init)
(super:init())
(self:setScript(RoomScript))
(switch ((gPreviousRoomNumber))
(default
(Animate((DrawPic(803 dpOPEN_CENTEREDGE))))
)
)
(send gEgo:init() hide())
)
)
(instance RoomScript of Script
(properties)
(method (doit)
(super:doit())
)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if (== (send pEvent:type) evKEYBOARD)
(switch ((send pEvent:message))
)
)
)
(method (changeState newState)
(= state newState)
(switch ((newState))
(case0
(= cycles 1)
ProgramControl()
= gProgramControl TRUE
)
(case1
= cycles 1
(send gGame:setCursor(999 0))
)
(case2
= seconds 2
)
(case21
(send gGame:newRoom(802))
)
)
)
)
bool saidMe()
Returns TRUE is the user's input "Said" the name of the inventory item. Otherwise, FALSE.
SMF 2.0.19 |
SMF © 2021, Simple Machines
Simple Audio Video Embedder
Page created in 0.055 seconds with 20 queries.