SCI01 Template Game

[MusicallyInspired]

:O

[Kawa]

Y'know what? I think the one thing better than a VGA SCI01 template to make parser-based VGA games in is one that's based on SCI11, considering the different levels of support in SCI Companion and certain runtime stability issues I've noticed when I first hacked The Seasoned Professional.

There's a folder in SCI16-master named NL. It is clearly parser code, but I have little to no clue how to integrate it into SCI11. I could study it a whole bunch and give it my best shot, of course.

The other option depends on the availability of SCI01 source code. After all, if it's already integrated into the one engine, it'd be almost trivial to get it in the other. Okay, maybe not that trivial, but certainly compared to figuring out the NL folder, I'd bet.

[lskovlun]

You're gonna have at least one problem: Where to place the said strings. Remember, the script format was redesigned in SCI1.1; you could place them with the strings and hope that nothing else breaks, but I'm not sure about that.

[Kawa]

You're gonna have at least one problem: Where to place the said strings. Remember, the script format was redesigned in SCI1.1; you could place them with the strings and hope that nothing else breaks, but I'm not sure about that.

... fffffffuuuu-


I ain't even mad.

[OmerMor]

The other option depends on the availability of SCI01 source code.

Unfortunately I have not managed to get SCI interpreter source earlier than SCI16.

[EricOakford]

I've completed the death handler! Here is the procedure. None of that "Order a Hintbook" nonsense, and all of the Sierra Script.

Code: [Select]

(procedure (Die message &tmp buttonPressed)
;This procedure handles when Ego dies. It closely matches that of QFG1EGA.
;To use it: "(Die {death message})". You can add a title and icon in the same way as a normal Print message.
(LockEgo)
(curRoom setScript: 0)
(Wait 100)
(SFX stop:)
(music number: deathSound play:)
(repeat
(= buttonPressed
(Print message
#button {Restore} 1
#button {Restart} 2
#button {__Quit__} 3
&rest
)
)
(switch buttonPressed
(1
(if (!= (theGame restore:) 0) (return))
)
(2 (theGame restart:) (return))
(3 (= quit TRUE) (return))
)
)
)


[lskovlun]

You'll probably want to change the code so it accepts far strings at least, or maybe both. Having to put death messages on the heap could become a memory drain if you plan on having as many deaths as usual in a Sierra game 

[Kawa]

It's that repeat statement that messes up so many functions, isn't it?

[lskovlun]

It was at one point. I'm not sure whether it still is.

[Kawa]

One way to find out.

*decompiles QFG1 script 0*

Code: [Select]

Decompiling script 0
WARNING:  ::proc0_1: Analyzing control flow: Expected node with two successors (then/else): 1 at 1121
Falling back to disassembly for proc0_1
WARNING:  ::proc0_31: Analyzing control flow: Inconsistent then/else branches. Possible "continue" statement?: 1 at 1835
Falling back to disassembly for proc0_31
Generated c:\users\kawa\documents\scicompanion\quest for glory 1 ega\src\Main.sc
Decompiled 60 of 62 functions successfully (96%).
Overall bytecount success rate: 95%.
Fell back to assembly for the remaining functions.And blam.

Code: [Select]

(procedure (proc0_1 param1)
(asm
pushi    0
call     proc0_5,  0
pushi    1
pushi    100
callk    Wait,  2
pushi    #setCursor
pushi    2
lsg      global20
pushi    1
lag      gGame
send     8
pushi    #eachElementDo
pushi    1
pushi    132
lag      gSounds
send     6
lag      global325
bnt      code_10da
pushi    #number
pushi    1
push   
pushi    63
pushi    1
pushi    15
pushi    87
pushi    0
pushi    42
pushi    0
lofsa    music
send     20
code_10da:
pushi    11
&rest    param1
pushi    70
pushi    250
pushi    81
lofsa    {Restore}
push   
pushi    1
pushi    81
lofsa    { Restart_}
push   
pushi    2
pushi    81
lofsa    { Quit_}
push   
pushi    3
calle    proc255_0,  22
push   
dup     
ldi      1
eq?     
bnt      code_110f
pushi    #restore
pushi    0
lag      gGame
send     4
jmp      code_112f
code_110f:
dup     
ldi      2
eq?     
bnt      code_1121
pushi    #restart
pushi    0
lag      gGame
send     4
jmp      code_112f
code_1121:
dup     
ldi      3
eq?     
bnt      code_112f
ldi      1
sag      global4
jmp      code_1133
code_112f:
toss   
jmp      code_10da
code_1133:
ret     
)
)

[OmerMor]

Here's the actual EgoDead procedure from QfG2:

Code: [Select]

;*****************************************************
;
; EGODEAD PROCEDURE -- to kill ego off
;
(procedure (EgoDead useRandomIcon  &tmp printRet)
   (HandsOff)
   (Wait 100)
   (= normalCursor ARROW_CURSOR)
   (theGame setCursor: normalCursor TRUE)

   (sounds  eachElementDo: #stop:)     ; Stop any other music
   (if deathMusic
      (miscSound
         number: deathMusic,
         priority: 15,
         loop: 1,
         play:
      )
   )

   (repeat
      (cond
         ((not useRandomIcon)    ; Specfic icon being used
            (= printRet
               (Print
                  &rest
                  #width:  250
                  #button: {Restore}   1
                  #button: {_Restart_} 2
                  #button: {_Quit_}    3
               )
            )
         )
         ((or (== sillyClowns clownsOff)
               (and (== sillyClowns clownsOtto) (not (Random 0 1)))
            )
            ; Give a serious death icon
            (= printRet
               (Print
                  &rest
                  #width:  250
                  #button: {Restore}   1
                  #button: {_Restart_} 2
                  #button: {_Quit_}    3
                  #icon:   vStaticIcons 2 0
               )
            )
         )
         (else
            (cIcon
               loop: (Random 0 1),
               cel: 0,
               cycleSpeed: (if (== loop 1) 20 else 10)
            )

            (= printRet
               (Print
                  &rest
                  #width:  250
                  #button: {Restore}   1
                  #button: {_Restart_} 2
                  #button: {_Quit_}    3
                  #icon:   cIcon
               )
            )
         )
      )

      (switch printRet
         (1
            (theGame restore:)
         )
         (2
            (theGame restart:)
         )
         (3
            (= quit TRUE)
            (break)
         )
      )
   )
)


[Kawa]

Just casually drop that procedure in there like no big deal 

[EricOakford]

Here is the third release of the SCI01 Template!

Various bug fixes (thanks to my work on R44QSCI, which revealed some scripting errors when changing rooms), more original Sierra names for procedures, and the death message procedure are all here.

[MusicallyInspired]

Wicked.

[EricOakford]

To make it easier for others to update, I've placed the template game at Github. I think it's mature enough for that now.

Here it is.