Temp
From SCI Wiki
Jump to navigationJump to search
Code:
/******************************************************************************
SCI Template Game VER 1.1a
By Brian Provinciano
******************************************************************************
main.sc
Contains the game's main instance and inventory items.
******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script MAIN_SCRIPT)
/******************************************************************************/
(use "controls")
(use "sound")
(use "syswindow")
(use "cycle")
(use "game")
(use "inv")
(use "user")
(use "menubar")
(use "feature")
(use "obj")
(use "disposeload")
/******************************************************************************
* These are the global variables. You can access them from any script as long
* as it "use"es this script
******************************************************************************/
(local
gEgo // points to the ego's class
gGame /* points to the game instance */
gRoom /* points to the current room instance */
gSpeed /* the game speed (delay each interpreter cycle) */
gQuitGame = FALSE /* if set to TRUE, the game will exit */
gCast /* points to the cast class (list of actors) */
gRegions /* points to the regions class (list of regions) */
gLocales /* points to the locales class (list of locales) */
gTimers /* points to the timers class (list of timers) */
gSounds /* points to the sounds class (list of sounds) */
gInv /* points to the inventory class */
gAddToPics /* points to the add to pics class */
gFeatures /* points to the add to features class */
gSFeatures /* points to the add to sfeatures class */
gRoomNumberExit /* room number exit */
gPreviousRoomNumber /* the number of the previous room */
gRoomNumber /* the number of the current room */
gDebugOnExit = FALSE /* enter debug mode on room exit */
gScore = 0 /* the game score */
gMaxScore = 0 /* the maximum game score */
gOldScore /* previous score */
gCurrentCursor /* the number of the current cursor */
gNormalCursor = 999 /* the number of the normal cursor (ie. arrow) */
gLoadingCursor = 997 /* the number of the loading cursor (ie. hand) */
gDefaultFont = 1 /* the number of the default font */
gSaveRestoreFont = 0 /* the number of the font for the save/restore dialogs*/
gDeadFont = 0 /* the number of the font for the dialog when ego dies */
gUserEvent /* points to the user's event object */
gPrintDlg /* points to the current Print() window */
gVolume /* the sound volume */
gVersion /* the version string */
gSaveDirPtr /* points to the save directory string */
gCheckAniWait /* the checkAni delay */
gSetRegions /* a flag -- see User:doit() */
gPicAngle /* the room's pic angle */
gOverlay = -1 /* whether to overlay the picture when drawing */
gDefaultPicAni /* the default pic animation */
gDefaultPalette /* the default palette to use for the pictures (0-3) */
gCastMotionCue /* if set, the cast's motionCue() is called */
gTheWindow /* points to the window class */
gWndColor /* the colour of the game's windows foreground (ie. text) */
gWndBack /* the colour of the game's windows background */
gOldPort /* the previous port */
gEgoView /* ego's current view number */
/* hh:mm:ss | gTimeHours:gTimeMinutes:gTimeSeconds */
/* the time elapsed since the game started */
gTimeSeconds /* the seconds */
gTimeMinutes /* the minutes */
gTimeHours /* the hours */
gCurrentTime /* the current time in seconds */
gTheMusic /* points to the music class */
gTheSoundFX /* points to the sound fx class */
gProgramControl /* states whether the program has control or the user */
)
/******************************************************************************/
(instance public Hello World of Game
(properties)
(method (init)
// Set up the base window
= gTheWindow theWindow
= gWndColor clBLACK
= gWndBack clWHITE
(send gTheWindow:
color(gWndColor)
back(gWndBack)
)
// Initialize
(super:init())
/******************************
* Set your game version here *
******************************/
= gVersion "1.0"
// General initialization stuff
= gVolume 15
DoSound(sndVOLUME gVolume)
(SL:code(statusCode))
(TheMenuBar:init())
(scoreSound:
owner(self)
init()
)
= gTheMusic theMusic
(send gTheMusic:
owner(self)
init()
)
= gTheSoundFX theSoundFX
(send gTheSoundFX:
owner(self)
init()
)
= gEgo ego
(User:
alterEgo(gEgo)
blocks(0)
y(150)
)
Load(rsFONT gDeadFont)
Load(rsFONT gDefaultFont)
Load(rsFONT gSaveRestoreFont)
Load(rsCURSOR gNormalCursor)
Load(rsCURSOR gLoadingCursor)
(if(HaveMouse())
(send gGame:setCursor(gNormalCursor SET_CURSOR_VISIBLE))
)(else
(send gGame:setCursor(gNormalCursor SET_CURSOR_VISIBLE 304 174))
)
/*************************************************
* Initialize the inventory with it's items here *
*************************************************/
(Inv:
add(
{Nothing}
{Test Object}
)
)
// Start the room
(if(GameIsRestarting())
(self:newRoom(INITROOMS_SCRIPT))
)(else
(self:newRoom(TITLESCREEN_SCRIPT))
)
)
(method (doit)
(super:doit())
(if(gProgramControl)
(User:
canControl(FALSE)
canInput(FALSE)
)
)
(if(<> gCurrentTime (= gCurrentTime GetTime(gtTIME_OF_DAY)))
(if(>= ++gTimeSeconds 60)
= gTimeSeconds 0
++ gTimeMinutes
(if(>= gTimeMinutes 60)
= gTimeMinutes 0
++ gTimeHours
)
)
)
(if(> gOldScore gScore)
= gOldScore gScore
(SL:doit())
)
(if(< gOldScore gScore)
= gOldScore gScore
(SL:doit())
)
)
(method (replay)
(TheMenuBar:draw())
(SL:enable())
(if(DoSound(sndSET_SOUND))
SetMenu(MENU_TOGGLESOUND #text "Turn Off")
)(else
SetMenu(MENU_TOGGLESOUND #text "Turn On")
)
(super:replay())
)
(method (newRoom roomNum picAni)
DisposePrintDlg()
Load(rsFONT gDeadFont)
Load(rsFONT gDefaultFont)
Load(rsFONT gSaveRestoreFont)
Load(rsCURSOR gNormalCursor)
Load(rsCURSOR gLoadingCursor)
(super:newRoom(roomNum))
(if(< paramTotal 2)
= gDefaultPicAni Random(0 5)
)(else
= gDefaultPicAni picAni
)
)
(method (startRoom roomNum)
DisposeLoad(
NULL
FILEIO_SCRIPT JUMP_SCRIPT EXTRA_SCRIPT WINDOW_SCRIPT
TIMER_SCRIPT FOLLOW_SCRIPT REV_SCRIPT DCICON_SCRIPT
DOOR_SCRIPT AUTODOOR_SCRIPT WANDER_SCRIPT AVOID_SCRIPT
)
DisposeScript(DISPOSELOAD_SCRIPT)
(if(gDebugOnExit)
= gDebugOnExit FALSE
SetDebug()
)
(send gTheSoundFX:
stop()
number(1)
)
(super:startRoom(roomNum))
(if(== gTheSoundFX 11)
(send gEgo:baseSetter(NormalBase))
)
)
(method (changeScore addScore)
= gScore + gScore addScore
(if(> addScore 0)
(scoreSound:playMaybe())
)
)
(method (handleEvent pEvent)
//////////////////////////////////////////////////////////////////////
// ** This is debug functionality //
// ** Comment it out if you don't want people to cheat in your game //
//////////////////////////////////////////////////////////////////////
(if (== evKEYBOARD (send pEvent:type))
// Check for ALT keys
(switch (send pEvent:message)
(case $2f00 // alt-v
Show(1) // Show visual
)
(case $2e00 // alt-c
Show(4) // Show control
)
(case $1900 // alt-p
Show(2) // Show priority
)
(case $3200 // alt-m
// Show memory usage
ShowFree()
FormatPrint(
"Free Heap: %u Bytes\nLargest ptr: %u Bytes\nFreeHunk: %u KBytes\nLargest hunk: %u Bytes"
MemoryInfo(miFREEHEAP)
MemoryInfo(miLARGESTPTR)
(>> MemoryInfo(miFREEHUNK) 6)
MemoryInfo(miLARGESTHUNK)
)
)
(case $1400 // alt-t
// teleport to room
(send gRoom:newRoom(GetNumber("Which Room Number?")))
)
(case $1700 // alt-i
// get inventory
(send gEgo:get(GetNumber("Which inventory#?")))
)
(case $1f00 // alt-s
// Show cast
(send gCast:eachElementDo(#showSelf))
)
)
)
////////////////////////////////////////////////////
// End of debug functionality //
////////////////////////////////////////////////////
(super:handleEvent(pEvent))
(if((<> (send pEvent:type) evSAID) or (send pEvent:claimed))
return(TRUE)
)
/***********************************/
/* Add global said statements here */
/***********************************/
(if(Said('hi'))
Print("Well hello to you too!")
)
return(FALSE)
)
)
/******************************************************************************/
(class Iitem of InvI
(properties
said 0
description 0
owner 0
view 0
loop 0
cel 0
script 0
)
(method (showSelf)
Print(
description
#title objectName
#icon view loop cel // Changed from: #icon view 0 0
)
)
)
/******************************************************************************/
(instance statusCode of Code
(properties)
(method (doit param1)
Format(param1 " Score: %d of %-3d Template Game " gScore gMaxScore)
)
)
/******************************************************************************/
(instance ego of Ego
(properties
y 1111
x 0
z 0
heading 0
yStep 2
view 0
loop 0
cel 0
priority 0
underBits 0
signal $2000
nsTop 0
nsLeft 0
nsBottom 0
nsRight 0
lsTop 0
lsLeft 0
lsBottom 0
lsRight 0
brTop 0
brLeft 0
brBottom 0
brRight 0
cycleSpeed 0
script 0
cycler 0
timer 0
illegalBits $8000
xLast 0
yLast 0
xStep 3
moveSpeed 0
blocks 0
baseSetter 0
mover 0
looper 0
viewer 0
avoider 0
edgeHit 0
)
)
/******************************************************************************/
(instance scoreSound of Sound
(properties
state 0
number SCORE_SOUND
priority 10
loop 1
handle 0
signal 0
prevSignal 0
client 0
owner 0
)
)
/******************************************************************************/
(instance theMusic of Sound
(properties
state 0
number 1
priority 0
loop 1
handle 0
signal 0
prevSignal 0
client 0
owner 0
)
)
/******************************************************************************/
(instance theSoundFX of Sound
(properties
state 0
number 1
priority 5
loop 1
handle 0
signal 0
prevSignal 0
client 0
owner 0
)
)
/******************************************************************************/
(instance theWindow of SysWindow
(properties)
(method (open)
(if(< Graph(grGET_COLOURS) 9)
(if( (< color 7) or (== color 8) )
= color 0
= back 15
)(else
= color 15
= back 0
)
)
(super:open())
)
)
/******************************************************************************/
(instance NormalBase of Code
(properties)
(method (doit)
(var temp0)
(if(== gRoomNumberExit 253)
= temp0 22
)(else
= temp0 10
)
(send gEgo:
brBottom(
(+ (send gEgo:y) 1)
)
)
(send gEgo:
brTop(
(- (send gEgo:brBottom) (send gEgo:yStep))
)
)
(send gEgo:
brLeft(
(- (send gEgo:x) temp0)
)
)
(send gEgo:
brRight(
(+ (send gEgo:x) temp0)
)
)
)
)
/******************************************************************************
* THE PUBLIC PROCEDURES
******************************************************************************/
(procedure public (SetUpEgo theLoop theView)
PlayerControl()
(send gEgo:edgeHit(EDGE_NONE))
(switch(paramTotal)
(case 0
SetUpActor(gEgo (send gEgo:loop) gEgoView)
)
(case 1
SetUpActor(gEgo theLoop gEgoView)
)
(case 2
SetUpActor(gEgo theLoop theView)
)
)
)
/******************************************************************************/
(procedure public (SetUpActor pActor theLoop theView)
(if(> paramTotal 1)
(send pActor:loop(theLoop))
)
(if(> paramTotal 2)
(send pActor:view(theView))
)
(send pActor:
setLoop(-1)
setPri(-1)
setStep(3 2)
setCycle(Walk)
illegalBits($8000)
cycleSpeed(0)
moveSpeed(0)
ignoreActors(0)
)
)
/******************************************************************************/
(procedure public (ProgramControl)
(User:
canControl(FALSE)
canInput(FALSE)
)
(send gEgo:setMotion(NULL))
= gProgramControl TRUE
)
/******************************************************************************/
(procedure public (PlayerControl)
(User:
canControl(TRUE)
canInput(TRUE)
)
(send gEgo:setMotion(NULL))
= gProgramControl FALSE
)
/******************************************************************************/
(procedure public (DisposePrintDlg)
(if(gPrintDlg)
(send gPrintDlg:dispose())
)
)
/******************************************************************************/
(procedure public (PrintOK)
Print("O.K.")
)
/******************************************************************************/
(procedure public (PrintItIs)
Print("It is.")
)
/******************************************************************************/
(procedure public (PrintYouAre)
Print("You are.")
)
/******************************************************************************/
(procedure public (PrintGoodIdea)
Print("Good idea. You might try that again later.")
)
/******************************************************************************/
(procedure public (PrintNotCloseEnough)
Print("You're not close enough.")
)
/******************************************************************************/
(procedure public (PrintAlreadyTookIt)
Print("You already took it.")
)
/******************************************************************************/
(procedure public (PrintDontHaveIt)
Print("You don't have it.")
)
/******************************************************************************/
(procedure public (PrintCantDoThat mem)
(if(> MemoryInfo(miLARGESTPTR) mem)
return(TRUE)
)(else
Print("You can't do that here; at least, not now.")
return(FALSE)
)
)
/******************************************************************************/
(procedure public (AddViewToPic pView)
(var hView)
(if(pView)
= hView (View:new())
(send hView:
view(send pView:view)
loop(send pView:loop)
cel(send pView:cel)
priority(send pView:priority)
posn( (send pView:x) (send pView:y) )
addToPic()
)
(send pView:
posn( (send pView:x) (+ 1000 (send pView:y)) )
)
)
)
/******************************************************************************/
(procedure public (SetInvIOwner index owner)
(var hInvI)
= hInvI (send gInv:at(index))
(if(< paramTotal 2)
(send hInvI:owner(gRoomNumberExit))
)(else
(send hInvI:owner(owner))
)
)
/******************************************************************************
* THE INVENTORY ITEMS *
******************************************************************************/
(instance Nothing of Iitem
(properties)
)
/******************************************************************************/
(instance {Test Object} of Iitem
(properties
said 'object'
description
"This is a test object in your inventory."
owner 0
view 800
loop 0
cel 0
script 0
)
)
/******************************************************************************/
Sierra After-market
| Game | 486SBDRV | AWESOL | DACBLAST | E29PATCH | GENMIDI | GUS32 | GUSDRV | SB16DRV | SBSCI32 |
|---|---|---|---|---|---|---|---|---|---|
| Longbow | AWESOL | GENMIDI | |||||||
| Dr. Brain 2 | GUSDRV | ||||||||
| EcoQuest 1 | AWESOL | GENMIDI | GUSDRV | ||||||
| EcoQuest 1 CD | SB16DRV | ||||||||
| EcoQuest 2 | GUSDRV | ||||||||
| Freddy Pharkas | GUSDRV | ||||||||
| Gabriel Knight 1 | AWESOL | DACBLAST | GUS32 | SBSCI32 | |||||
| Gabriel Knight 1 CD | AWESOL | GENMIDI | GUS32 | SBSCI32 | |||||
| Hoyle 3 | 486SBDRV | AWESOL | E29PATCH | GENMIDI | |||||
| Hoyle 4 | GUSDRV | ||||||||
| KQ6" | GUSDRV | ||||||||
| KQ6CD | GUSDRV | SB16DRV | |||||||
| LB2CD | GUSDRV | SB16DRV | |||||||
| LSL1VGA | 486SBDRV | AWESOL | E29PATCH | GENMIDI | |||||
| LSL5 | 486SBDRV | AWESOL | E29PATCH | GENMIDI | |||||
| LSL6CD | AWESOL | GENMIDI | |||||||
| Mixed-Up Fairy Tales | AWESOL | GENMIDI | |||||||
| Pepper | GUSDRV | ||||||||
| PQ1VGA | GUSDRV | ||||||||
| PQ3 | 486SBDRV | E29PATCH | |||||||
| PQ4 | AWESOL | DACBLAST | GUS32 | SBSCI32 | |||||
| PQ4 CD | AWESOL | ||||||||
| QfG1VGA | SB16DRV | ||||||||
| QfG4 | AWESOL | DACBLAST | GUS32 | SBSCI32 | |||||
| QfG4CD | AWESOL | GENMIDI | |||||||
| Slater & Charlie | GUSDRV | ||||||||
| SQ1VGA | 486SBDRV | AWESOL | E29PATCH | GENMIDI | |||||
| SQ4 | AWESOL | GENMIDI | |||||||
| SQ4CD | SB16DRV | ||||||||
| SQ5 | GUSDRV |
Ravi's Drivers
Hacked Drivers
* no digital sound effects, but stereo music
- GMBLAST - GMBLAST.zip
Game Specific Hacked Drivers
- Freddy Pharkas - FreddyPharkas(GENMID).zip
- Gabriel Knight 1 - GabrielKnight(GENMID).zip
- Jones in the Fast Lane CD - JonesInTheFastLaneCD-ROM(AUDCDROM).zip
- King's Quest I SCI - KingsQuestISCI(MTBLAST).zip
- King's Quest VI - KingsQuestVI(GENMID).zip
- King's Quest VII - KingsQuestVII(GENMID,speech).zip
- Leisure Suit Larry 6 - LeisureSuitLarry6(GENMID).zip
- Pepper's Adventures in Time - PeppersAdventuresInTime(GENMID).zip
- Police Quest IV - PoliceQuestIV(GENMID,adpcm).zip
- Quest for Glory II - QuestForGloryII(MTBLAST).zip
- Quest for Glory III - QuestForGloryIII(GENMID).zip
- Quest for Glory IV - QuestForGloryIV(GENMID).zip
- Slater & Charlie Go Camping - Slater&CharlieGoCamping(GENMID).zip
- Space Quest III - SpaceQuestIII(MTBLAST).zip
- Space Quest IV CD - SpaceQuest IVCD(introSubtitles).zip
- Space Quest V - SpaceQuestV(GENMID).zip
