110 lines
2.2 KiB
Scala
110 lines
2.2 KiB
Scala
;;; Sierra Script 1.0 - (do not remove this comment)
|
|
(script# 801)
|
|
(include sci.sh)
|
|
(use Main)
|
|
(use Class_255_0)
|
|
(use Game)
|
|
(use InvI)
|
|
(use MenuBar)
|
|
(use Obj)
|
|
|
|
(public
|
|
DebugMenu 0
|
|
)
|
|
|
|
(instance DebugMenu of Script
|
|
(properties)
|
|
|
|
(method (init)
|
|
(AddMenu
|
|
{ Debug_}
|
|
{Ego info...`@e:Show Room`@R:Free Mem`@F:Show ATPs`@P:-! :Set Debug`^D:Clicks:Set Inv`@S:Set Var`@V:Get All`@G:Log`@L:-! :Visual`#0:Priority`#6:Control`#4}
|
|
)
|
|
(if (not (SL state?)) (TheMenuBar draw:))
|
|
)
|
|
|
|
(method (doit param1 &tmp temp0 [temp1 6] [temp7 33])
|
|
(switch param1
|
|
(1537
|
|
(Print
|
|
(Format
|
|
@global228
|
|
801
|
|
0
|
|
(gEgo x?)
|
|
(gEgo y?)
|
|
(gEgo priority?)
|
|
)
|
|
82
|
|
(gEgo view?)
|
|
(gEgo loop?)
|
|
(gEgo cel?)
|
|
)
|
|
)
|
|
(1538
|
|
(Print (Format @temp7 801 1 gCurRoomNum))
|
|
)
|
|
(1539 (gGame showMem:))
|
|
(1540 (gAddToPics showSelf:))
|
|
(1542 (= global14 1))
|
|
(1543
|
|
(if (= global215 (^ global215 $0001))
|
|
(Print 801 2)
|
|
)
|
|
)
|
|
(1544
|
|
(= global228 0)
|
|
(EditPrint @global228 8 {Inv. Object})
|
|
(= global111 (ReadNumber @global228))
|
|
(= global228 0)
|
|
(EditPrint @global228 12 {Owner})
|
|
(if (not (StrCmp {ego} @global228))
|
|
((gInv at: global111) moveTo: gEgo)
|
|
else
|
|
((gInv at: global111) moveTo: (ReadNumber @global228))
|
|
)
|
|
(= global228 0)
|
|
)
|
|
(1545
|
|
(= global228 0)
|
|
(EditPrint @global228 8 {Variable No.})
|
|
(= global111 (ReadNumber @global228))
|
|
(= global228 0)
|
|
(EditPrint @global228 8 {Value})
|
|
(= [global100 (- global111 100)]
|
|
(ReadNumber @global228)
|
|
)
|
|
(= global228 0)
|
|
)
|
|
(1546
|
|
(gInv eachElementDo: #moveTo gEgo)
|
|
((Inv at: 14) loop: 0 cel: 0)
|
|
)
|
|
(1547
|
|
(if (not global196)
|
|
(if (< (= global195 (FOpen {KQ4QA.LOG} 0)) 0)
|
|
(Print 801 3)
|
|
else
|
|
(= global196 1)
|
|
(Print 801 4)
|
|
(FPuts global195 {New entries start here.\0D\0A})
|
|
)
|
|
else
|
|
(Print 801 5)
|
|
)
|
|
)
|
|
(1549 (Show 1))
|
|
(1550 (Show 2))
|
|
(1551
|
|
(Show 4)
|
|
(Animate (gCast elements?))
|
|
(while (== 0 ((= temp0 (Event new: 32765)) type?))
|
|
(temp0 dispose:)
|
|
)
|
|
(temp0 dispose:)
|
|
(Show 1)
|
|
)
|
|
)
|
|
)
|
|
)
|