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.
;;;;
;;;; NETUSER.SC
;;;; (c) Sierra On-Line, Inc, 1988
;;;;
;;;; Author: Jeff Stephenson
;;;;
;;;; A network version of User.
;;;;
;;;; Classes:
;;;; NetUser
(module# NETUSER)
(define INPUTLEN 210)
(class NetUser of User
(properties
id name: "NetUser"
int sid 0
int numLines 2 ;; number of lines for getText.
int disposeOfIncomingMessage TRUE
)
(method (init)
(super init: (String new: INPUTLEN))
(= prompt (super prompt?))
)
(method (getText nLines &tmp rect retVal saveFont)
(= saveFont (DEdit font?))
(DEdit font: smallFont)
(= rect (Rectangle new:))
(TextSize rect "M" smallFont)
(rect
height: (* (if argc nLines else numLines) (rect height:)),
width: 256,
)
(= retVal
(Print
prompt
#p_at: x y
#p_width: (rect width:)
#p_rEdit: inputLine (inputLine strMax:) rect
&rest
)
)
(rect dispose:)
(DEdit font: saveFont)
(return retVal)
)
(method (handleEvent event &tmp msg)
(switch (event type?)
(remoteEvt
(if haveConnection
(= msg (Msg with: (event message?) (event modifiers?)))
(if (== msg NULLID)
(return)
)
(if (& debugMsgs SHOW_MSG)
(Debug DInspect msg)
)
(cond
((IsObject (msg to?))
(if netMsgProcessor
;; if there are already any messages in the nmpSystemQueue
;; then do not allow any incoming messages to be
;; handled.
(if ((netMsgProcessor nmpSystemQueue?) size:)
(netMsgProcessor putMsg: msg)
(return)
else
((msg to?) handleMsg: msg)
)
else
((msg to?) handleMsg: msg)
)
)
;; big time kludge for OLS
;;
((== (msg to?) 0)
(if curRoom
(if (== (curRoom number?) 14) ;; ONLINESIGNUP
(curRoom handleMsg: msg)
)
)
)
((== (& debugMsgs RCV_NOT_OBJ) 0)
)
;RWL (
;RWL (Print
;RWL "Message receiver not an object."
;RWL #p_button " Debug " 1
;RWL #p_button " Ignore " 0
;RWL )
;RWL )
)
(if disposeOfIncomingMessage
(msg dispose:)
)
)
)
(else
(super handleEvent: event)
)
)
)
(method (said event)
(or
(cast handleEvent: event)
(features handleEvent: event)
(theGame handleEvent: event)
)
)
(method (parse line evt)
(evt message: line)
(return TRUE)
)
)
RM0.MSG says it's 1.05, 1987-06-26...
I don't think that version was ever released for DOS. Perhaps this code was the basis for a port to another platform?
%var machineType 20
#define PC 0 [PC, compatibles
#define JR 1 [PCjr
#define TANDY 2 [Tandy 1000
#define APPLEII 3 [Apple IIe, IIc
#define ST 4 [Atari ST
#define AMIGA 5 [Amiga
#define MAC 6 [Fat Mac, Mac Plus
#define CORTLAND 7 [?
SMF 2.0.14 |
SMF © 2017, Simple Machines
Simple Audio Video Embedder
Page created in 0.143 seconds with 21 queries.