Show Posts
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.
(method (save &tmp [strDescBuf 20] gameNum oldCursor hSound)
(Load rsFONT gSaveRestoreFont)
(Load rsCURSOR gLoadingCursor)
(= oldCursor (self setCursor: gNormalCursor))
(= hSound (Sound pause: 1))
(if (GetSaveDisk TRUE)
(if gPrintDlg (gPrintDlg dispose:))
(= gameNum (Save doit: @strDescBuf))
(if (!= gameNum -1)
(= oldCursor (self setCursor: gLoadingCursor 1))
(if
(not (SaveGame objectName gameNum @strDescBuf gVersion))
(Print
{Your save game disk is full. You must either use another disk or save over an existing saved game.}
#font
0
#button
{OK}
1
)
)
(self setCursor: oldCursor (HaveMouse))
)
(GetSaveDisk FALSE)
)
(Sound pause: hSound)
)(SaveGame objectName gameNum @strDescBuf gVersion))
(method (restore &tmp gameNum oldCursor hSound)
(= gameNum -1)
(Load rsFONT gSaveRestoreFont)
(Load rsCURSOR gNormalCursor)
(Load rsCURSOR gLoadingCursor)
(= oldCursor (self setCursor: gNormalCursor))
(= hSound (Sound pause: 1))
(if (GetSaveDisk TRUE)
(if gPrintDlg (gPrintDlg dispose:))
(= gameNum (Restore doit: &rest))
(if (!= gameNum -1)
(self setCursor: gLoadingCursor)
(if (CheckSaveGame objectName gameNum gVersion)
(gCast eachElementDo: #dispose)
(gCast eachElementDo: #delete)
;(= saved 1)
;(FormatPrint {Saved %u} saved)
(RestoreGame objectName gameNum gVersion)(method (save)
(var strDescBuf[20], gameNum, oldCursor, hSound)
Load(rsFONT gSaveRestoreFont)
Load(rsCURSOR gLoadingCursor)
= oldCursor (self:setCursor(gNormalCursor))
= hSound (Sound:pause(1))
(if(GetSaveDisk(TRUE))
(if(gPrintDlg)
(send gPrintDlg:dispose())
)
= gameNum (Save:doit(@strDescBuf))
(if(<> gameNum -1)
= oldCursor (self:setCursor(gLoadingCursor 1))
(if(not SaveGame(objectName gameNum @strDescBuf gVersion))
Print(
"Your save game disk is full. You must either "+
"use another disk or save over an existing saved game."
#font 0
#button "OK" 1
)
)
(self:setCursor(oldCursor HaveMouse()))
)
GetSaveDisk(FALSE)
)
(Sound:pause(hSound))
)Any thoughts?(if(Said('[pry<open]/shovel'))This responds to "pry open shovel" as you might imagine, but I cannot seem to get "with" to work at all.(send gGame:setCursor(gNormalCursor SET_CURSOR_VISIBLE 279 31))This works in as much as it moves the cursor to the numbers specified, but the problem is that while it moves the cursor to that location, when the player moves the mouse, the cursor jumps back to where it was before I set it. So, the setting of the cursor to a location is only cosmetic and not influencing the actual variables involved.
(method (setSize &tmp [rect 4])
(TextSize @rect text font)
(= [rect rtBOTTOM] (+ [rect rtBOTTOM] 2))
(= [rect rtRIGHT] (+ [rect rtRIGHT] 2))
(= nsBottom (+ nsTop [rect rtBOTTOM]))
(= [rect rtRIGHT] (* (/ (+ [rect rtRIGHT] 15) 16) 16))
(= nsRight (+ [rect rtRIGHT] nsLeft))
)
(method (draw &tmp x y x2 y2 w h [rect 4])
; Calculate the areas
(= x2 (- nsRight 8))
(= y2 (- nsBottom 8))
(= w (- nsRight nsLeft))
(= h (- nsBottom nsTop))
(TextSize @rect text font)
; Draw the side borders
(for ( (= y (+ nsTop 8))) (< y y2) ( (= y (+ y 8))) (DrawCel gWB 0 4 nsLeft y -1) (DrawCel gWB 0 6 x2 y -1))
; Draw the top and bottom borders
(for ( (= x (+ nsLeft 8))) (< x x2) ( (= x (+ x 8))) (DrawCel gWB 0 5 x nsTop -1) (DrawCel gWB 0 7 x y2 -1))
; Draw the corners
(DrawCel gWB 0 0 nsLeft nsTop -1)
(DrawCel gWB 0 1 x2 nsTop -1)
(DrawCel gWB 0 2 nsLeft y2 -1)
(DrawCel gWB 0 3 x2 y2 -1)
; Draw the text
(Display
text
dsCOORD
(+ nsLeft (>> (- w [rect rtRIGHT]) 1))
(+ (+ nsTop (>> (- h [rect rtBOTTOM]) 1)) 1 dsCOLOR)
gWndColor
dsBACKGROUND
clTRANSPARENT
dsFONT
font
dsWIDTH
[rect
rtRIGHT]
)
)
(squirrel:setMotion(MoveTo(squirrel:x) (squirrel:y))) and it's all good to go(squirrel setMotion: MoveTo squirrel x? squirrel y?) is not something it likes at all.
SMF 2.0.19 |
SMF © 2021, Simple Machines
Simple Audio Video Embedder
Page created in 0.059 seconds with 18 queries.