(FILECREATED "14-Jan-85 17:03:22" {INDIGO}<LOOPS>TRUCKIN>MULTI>TRUCKINR.;18 66827
changes to: (METHODS Commodity.CanTransfer Commodity.CheckFragility Commodity.Display
Commodity.TransferOwner Commodity.UpdateStatus Consumer.Buy
Consumer.CanBuy Consumer.DisplayData Consumer.DisplayIcon Consumer.Show
FragileCommodity.CheckFragility FragileCommodity.PartialTransfer
OtherRoadStop.DisplayIcon OtherRoadStop.Initialize
OtherRoadStop.ReInitialize OtherRoadStop.Show
PerishableCommodity.PartialTransfer PerishableCommodity.UpdateStatus
Producer.DisplayData Producer.DisplayIcon Producer.Sell Producer.Show
RoadStop.AnyVictim RoadStop.BWDisplay RoadStop.Bandit?
RoadStop.BanditReady RoadStop.ColorDisplay RoadStop.Crash
RoadStop.Display RoadStop.DisplayData RoadStop.Flash RoadStop.GoingPast
RoadStop.Initialize RoadStop.Park RoadStop.Parked? RoadStop.Place
RoadStop.ReInitialize RoadStop.RoomToPark? RoadStop.TimeSpent
RoadStop.TurnsStayed RoadStop.Unpark RoadStop.Visit SystemTruck.Buy
SystemTruck.CanBuy SystemTruck.Sell Truck.BuyFuel Truck.CanBuyFuel
Truck.FillTank Truck.Initialize Truck.SellFuel Truck.VisitUnionHall)
(FNS Commodity.CanTransfer Commodity.CheckFragility Commodity.Display
Commodity.TransferOwner Commodity.UpdateStatus Consumer.Buy Consumer.CanBuy
Consumer.DisplayData Consumer.DisplayIcon Consumer.Show
FragileCommodity.CheckFragility FragileCommodity.PartialTransfer
OtherRoadStop.DisplayIcon OtherRoadStop.Initialize OtherRoadStop.ReInitialize
OtherRoadStop.Show PerishableCommodity.PartialTransfer
PerishableCommodity.UpdateStatus Producer.DisplayData Producer.DisplayIcon
Producer.Sell Producer.Show RoadStop.AnyVictim RoadStop.BWDisplay
RoadStop.Bandit? RoadStop.BanditReady RoadStop.ColorDisplay RoadStop.Crash
RoadStop.Display RoadStop.DisplayData RoadStop.Flash RoadStop.GoingPast
RoadStop.Initialize RoadStop.Park RoadStop.Parked? RoadStop.Place
RoadStop.ReInitialize RoadStop.RoomToPark? RoadStop.TimeSpent
RoadStop.TurnsStayed RoadStop.Unpark RoadStop.Visit SystemTruck.Buy
SystemTruck.CanBuy SystemTruck.Sell Truck.BuyFuel Truck.CanBuyFuel
Truck.FillTank Truck.Initialize Truck.SellFuel Truck.VisitUnionHall)
previous date: "13-NOV-83 18:38:49" {INDIGO}<LOOPS>TRUCKIN>MULTI>TRUCKINR.;17)
(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT TRUCKINRCOMS)
(RPAQQ TRUCKINRCOMS ((* Copyright (c)
1983 Xerox Corp)
(* TRUCKIN Domain for Expert Systems. Created by Loops Design Team - Danny Bobrow, Sanjay
Mittal, and Mark Stefik)
(* Objects and associated methods for Commodity and RoadStop classes)
(CLASSES * TRUCKINRCLASSES)
(FNS CommodityTransportability.CheckFragility CommodityTransportability.UpdateStatus
RoadStop.BwPlace RoadStop.ColorPlace RoadStop.DisplayIcon)
(METHODS Commodity.CanTransfer Commodity.CheckFragility Commodity.Display
Commodity.TransferOwner Commodity.UpdateStatus Consumer.Buy Consumer.BuyFuel
Consumer.CanBuy Consumer.DisplayData Consumer.DisplayIcon Consumer.Show
FragileCommodity.CheckFragility FragileCommodity.PartialTransfer
OtherRoadStop.DisplayIcon OtherRoadStop.Initialize OtherRoadStop.ReInitialize
OtherRoadStop.Show PerishableCommodity.PartialTransfer
PerishableCommodity.UpdateStatus Producer.DisplayData Producer.DisplayIcon
Producer.Sell Producer.SellFuel Producer.Show RoadStop.AnyVictim RoadStop.BWDisplay
RoadStop.Bandit? RoadStop.BanditP RoadStop.BanditReady RoadStop.ColorDisplay
RoadStop.Crash RoadStop.Display RoadStop.DisplayData RoadStop.Flash
RoadStop.GoingPast RoadStop.Initialize RoadStop.Park RoadStop.Parked? RoadStop.Place
RoadStop.ReInitialize RoadStop.RoomToPark? RoadStop.TimeSpent RoadStop.TurnsStayed
RoadStop.Unpark RoadStop.Visit SystemTruck.Buy SystemTruck.CanBuy SystemTruck.Sell
Truck.BuyFuel Truck.CanBuyFuel Truck.FillTank Truck.Initialize Truck.SellFuel
Truck.VisitUnionHall)))
(* Copyright (c) 1983 Xerox Corp)
(* TRUCKIN Domain for Expert Systems. Created by Loops Design Team - Danny Bobrow, Sanjay
Mittal, and Mark Stefik)
(* Objects and associated methods for Commodity and RoadStop classes)
(RPAQQ TRUCKINRCLASSES (Commodity CommodityTransportability Consumer FragileCommodity OtherRoadStop
PerishableCommodity Producer RoadStop SystemTruck Truck))
(DEFCLASSES Commodity CommodityTransportability Consumer FragileCommodity OtherRoadStop
PerishableCommodity Producer RoadStop SystemTruck Truck)
[DEFCLASS Commodity
(MetaClass CommodityClassMeta Edited: (* dgb: "23-SEP-83 09:33"))
(Supers GameObject)
(ClassVariables (VolPerQty 1 doc (* volume occupied by unit quantity))
(WtPerQty 1 doc (* weight per unit qty))
(AvgPrice 1 doc (* avg unit price for buying or selling by truckers)
)
(Icon defaultIcon doc (* name of a variable which is bound to a Bitmap)
)
(CopyCV (VolPerQty WtPerQty AvgPrice Icon)))
(InstanceVariables (qty 0 doc (* actual qty on hand for truck))
(pr .9 doc (* this is the actual price RATIO paid by a trucker)
)
(owner *SYSTEM* doc (* truck object which owns this commodity)
)
(status T doc (* whether the commodity is alright or not.
NIL would mean the commodity has been destroyed)
))]
[DEFCLASS CommodityTransportability
(MetaClass GameClass Edited: (* sm: "26-JAN-83 17:34"))
(Supers GameObject)
(ClassVariables (CopyCV NIL))]
[DEFCLASS Consumer
(MetaClass GameClass doc
(* * RoadStops that buy goods from Truckers.)
Edited: (* mjs: "20-FEB-83 12:51"))
(Supers RoadStop)
(ClassVariables (Pr 1.3)
(Commodity #$Commodity doc (* The commodity to be purchased from truckers, that
is, a generic Loops class descriptive of the goods.)
)
(CopyCV (Pr Qty Commodity))
(Qty 500)
(Shade ConsumerShade))
(InstanceVariables (qty #(#((GenConsumerQty self)
FirstFetch NIL) NIL UpdateConsumerDisplay) doc
(* quantity of goods to be purchased.
Decreases as goods are purchased.))
(pr #(#((GenConsumerPr self)
FirstFetch NIL) NIL UpdateConsumerDisplay) doc
(* price ratio. This is multiplied times the
AvgBuyingPrice for Commodities to determine the price
paid to truckers.)))]
[DEFCLASS FragileCommodity
(MetaClass CommodityClassMeta Edited: (* sm: "28-JAN-83 21:31"))
(Supers CommodityTransportability)
(ClassVariables (FragilityLevel 20 doc (* breakability on a scale of 1 to 20))
(CopyCV (FragilityLevel)))
(InstanceVariables (fragility #((RAND 1 (@@ FragilityLevel))
FirstFetch NIL)))]
[DEFCLASS OtherRoadStop
(MetaClass GameClass Edited: (* sm: "10-FEB-83 16:37"))
(Supers RoadStop)
(ClassVariables (Icon ?)
(Shade OtherRoadStopShade))]
[DEFCLASS PerishableCommodity
(MetaClass CommodityClassMeta Edited: (* mjs: "25-JAN-83 13:23"))
(Supers CommodityTransportability)
(ClassVariables (MinLifetime 2 doc (* min number of turns before commodity perishes)
)
(MaxLifetime 20 doc (* max number of turns by when commodity perishes)
)
(CopyCV (MinLifetime MaxLifetime)))
(InstanceVariables (lifetime #(NIL SmashRandomPerishable NIL)))]
[DEFCLASS Producer
(MetaClass GameClass doc
(* * RoadStops that sell goods to Truckers.)
Edited: (* mjs: "20-FEB-83 12:51"))
(Supers RoadStop)
(ClassVariables (Commodity #$Commodity doc (* class of commodity sold by this producer)
)
(Pr .9 doc (* price ratio at which this producer typically sells.
used to generate ACTUAL pr))
(Qty 50 doc (* quantity typically sold by this producer.
used to generate ACTUAL qty))
(CopyCV (Pr Qty Commodity))
(Shade ProducerShade))
(InstanceVariables (qty #(#((GenConsumerQty self)
FirstFetch NIL) NIL UpdateConsumerDisplay) doc
(* actual qty available))
(pr #(#((GenConsumerPr self)
FirstFetch NIL) NIL UpdateConsumerDisplay) doc
(* actual price ratio at which sold)))]
[DEFCLASS RoadStop
(MetaClass AbstractClass doc
(* * A RoadStop on the game board for TRUCKIN. Subclasses of this class are saved on the global list RoadStops.
Instances of these subclasses can be included on the game board by the gameMaster when a simulation is set up.)
Edited: (* sm: "14-JUN-83 15:01"))
(Supers GameObject)
(ClassVariables (RoadSign "RoadSign" doc (* String name to appear in the display.)
)
(Width 75 doc (* width of RoadStop in pixels.))
(Height 75 doc (* height of RoadStop in pixels.))
(CopyCV (RoadSign)))
(InstanceVariables (milePost 0 doc (* index of this RoadStop on the road.
Assigned by Place message.))
(prev NIL doc (* previous RoadStop on the board.
NIL if this is the beginning of the road.)
)
(next NIL doc (* next RoadStop on the board.
NIL if this is the end of the road.))
(parkingPlace1 NIL howLong 0 timeParked 0 timeUsed 0 doc
(* First parking place at RoadStop.)
pdoc (* timeParked -
time when first parked at Alice.
timeUsed -
time used computing at Alice)
)
(parkingPlace2 NIL howLong 0 timeParked 0 timeUsed 0 doc
(* Second parking place at this RoadStop.)
)
(x 0 doc (* xOrigin on display in pixels.
Assigned by Place message.))
(y 0 doc (* yOrigin on display in pixels.
Assigned by Place message.))
(roadOrientation NIL doc (* Left or Right. Right means that next RoadStop is
down the road to the right in the display.)
))]
[DEFCLASS SystemTruck
(MetaClass GameAbstractClass doc (* System trucks -- includes ones that cannot be used
by User-defined Players.)
Edited: (* sm: " 7-JUN-83 14:16"))
(Supers GameObject)
(ClassVariables (InitCash 10000)
(Gpm 1 doc (* units of fuel used per moved location)
)
(Icon ? doc (* name of LISP variable bound to Bitmap)
)
(MaxDamage 10 doc (* maximum damage))
(MaxDist 15 doc (* max moves allowed in each turn))
(MaxFuel 30 doc (* max units of fuel truck can carry))
(MaxVolume 200 doc (* max volume))
(MaxWeight 200 doc (* max weight in commodity units))
(CopyCV (InitCash MaxFuel MaxVolume MaxWeight MaxDamage MaxDist Gpm Icon)))
(InstanceVariables (driver NIL doc (* player driving this truck.))
(location NIL reason NIL doc (* current location on the road.
A RoadStop.))
(cargo NIL doc (* cargo on the truck as a list of Commodity instances)
)
(cashBox #((@@ InitCash)
FirstFetch NIL) DefaultGauge LCD GaugeLimit (0 1000000)
doc (* money carried on the truck.)
)
(damage 0 DefaultGauge NIL doc (* current damage to truck))
(fuel #((@@ MaxFuel)
FirstFetch NIL) DefaultGauge Dial GaugeLimit #((LIST 0 (@@ MaxFuel))
FirstFetch NIL) doc
(* fuel left in truck))
(volume 0 DefaultGauge NIL GaugeLimit #((LIST 0 (@@ MaxVolume))
FirstFetch NIL) doc
(* volume used))
(weight 0 DefaultGauge NIL GaugeLimit #((LIST 0 (@@ MaxWeight))
FirstFetch NIL) doc
(* weight on truck)))]
[DEFCLASS Truck
(MetaClass GameAbstractClass Edited: (* mjs: "16-MAR-83 14:43"))
(Supers SystemTruck)]
(DEFINEQ
(CommodityTransportability.CheckFragility
[LAMBDA (self rs speed) (* sm: "26-JAN-83 17:18")
(* dummy method for checking fragility)
T])
(CommodityTransportability.UpdateStatus
[LAMBDA (self newStop oldStop) (* sm: "26-JAN-83 17:18")
(* dummy for Updateing status of commodities as they
move)
T])
(RoadStop.BwPlace
[LAMBDA (self x y milePost roadOrientation) (* sm: "27-JUN-83 18:32")
(* Save RoadStop placement information)
(COND
(x (* Here if x y & milePost are given as args.)
(←@
x x)
(←@
y y)
(←@
milePost milePost)
(←@
roadOrientation roadOrientation))
(T (* Here if OLD x y & milePost are used.)
(SETQ x (@ x))
(SETQ y (@ y))
(SETQ milePost (@ milePost))
(SETQ roadOrientation (@ roadOrientation])
(RoadStop.ColorPlace
[LAMBDA (self x y milePost roadOrientation) (* sm: "27-JUN-83 18:35")
(* Save the RoadStop position information in instance
variables.)
(COND
(x (* Here if x y & milePost are given as args.)
(←@
x x)
(←@
y y)
(←@
milePost milePost)
(←@
roadOrientation roadOrientation))
(T (* Here if OLD x y & milePost are used.)
(SETQ x (@ x))
(SETQ y (@ y))
(SETQ milePost (@ milePost))
(SETQ roadOrientation (@ roadOrientation])
(RoadStop.DisplayIcon
[LAMBDA (self) (* mjs: "12-JAN-83 10:29")
(* * Display the Icon for the Commodity or Hazard in the RoadStop.)
(PROG (icon (commodityName (@ commodity))
(commodity (GetClassRec (@ commodity)))
(yOffset 5)
xIcon yIcon)
(* * Compute y coordinate for icon.)
(SETQ yIcon (IPLUS (@ y)
yPr
(FONTPROP dataFont (QUOTE HEIGHT))
yOffset))
(* * Handle Producers, Consumers, and Hazards differently.)
(COND
((← self InstOf ($ Consumer)) (* If a Consumer, just print the name of the commodity.)
(SETQ xIcon (IPLUS (@ x)
(IQUOTIENT (IDIFFERENCE (@@ Width)
(STRINGWIDTH commodityName dataFont))
2)))
(DSPXPOSITION xIcon gameWindow)
(DSPYPOSITION yIcon gameWindow)
(DSPFONT dataFont gameWindow)
(PRIN2 commodityName gameWindow))
(T (* Otherwise, if a Producer or a Hazard, use an icon if
available.)
(SETQ xIcon (IPLUS (@ x)
(IQUOTIENT (IDIFFERENCE (@@ Width)
iconSide)
2])
)
[METH Commodity CanTransfer (newOwner pr qty prevOwner)
(* Checks if ownership can be transferred)]
[METH Commodity CheckFragility (rs speed)
(* dummy method for checking fragility)]
[METH Commodity Display NIL
(* Displays the small icon from Truckin in its own window)]
[METH Commodity TransferOwner (newOwner priceRatio qty)
(* transfers the commodity from one owner to another)]
[METH Commodity UpdateStatus (newStop oldStop)
(* dummy for Updating status of commodities as they move)]
[METH Consumer Buy (commodity prevOwner)
(* perform BUY for a consumer)]
[METH Consumer BuyFuel (commodity prevOwner)
NIL (method Consumer.Buy)]
[METH Consumer CanBuy (commodity pr qty seller)
(* checks if consumer will buy this commodity)]
[METH Consumer DisplayData NIL
(* * Display the Qty and PR for the Consumer at a RoadStop.)]
[METH Consumer DisplayIcon NIL
(* * Display the Icon for a RoadStop that is a Consumer..)]
[METH Consumer Show NIL
NIL]
[METH FragileCommodity CheckFragility (hazard dist)
(* checks if fragile commodities have broken for currentPlayer's truck)]
[METH FragileCommodity PartialTransfer (copyFrom)
(* copies ivs when commodities have to be split up for partial buys)]
[METH OtherRoadStop DisplayIcon NIL
(* * Display the Icon for an OtherRoadStop.)]
[METH OtherRoadStop Initialize NIL
(* does nothing)]
[METH OtherRoadStop ReInitialize NIL
(* Same as Initialize)]
[METH OtherRoadStop Show NIL
(* prints a message)]
[METH PerishableCommodity PartialTransfer (copyFrom)
(* copies IVs specific to this class to transferred commodity)]
[METH PerishableCommodity UpdateStatus (newStop oldStop)
(* updates the status of the Commodity after each move)]
[METH Producer DisplayData NIL
(* Display the Qty and PR for the Producer at a RoadStop.)]
[METH Producer DisplayIcon NIL
(* Display the Icon for a RoadStop that is a Producer.)]
[METH Producer Sell (commodity pr qty)
(* perform SELL for consumer)]
[METH Producer SellFuel (commodity pr qty)
NIL (method Producer.Sell)]
[METH Producer Show NIL
(* shows the producer roadstop data)]
[METH RoadStop AnyVictim NIL
(* checks and returns the name of any non-bandit player at this loc)]
[METH RoadStop BWDisplay NIL
(* Does a BW display of a roadStop)]
[METH RoadStop Bandit? NIL
(* checks if there is a bandit here)]
[METH RoadStop BanditP NIL
(* checks if there is a bandit here)
(method RoadStop.Bandit?)]
[METH RoadStop BanditReady NIL
(* checks if Bandit is ready to catch passing trucks)]
[METH RoadStop ColorDisplay NIL
(* Does a color display of roadStop)]
[METH RoadStop Crash (player)
(* Crashes player at this RoadStop if already parked. Else parks player in crashed state.)]
[METH RoadStop Display NIL
(* Actually displays roadStop)]
[METH RoadStop DisplayData NIL
(* * Dummy routine for displaying no data in an OtherRoadStop.)]
[METH RoadStop Flash (player)
(* flashes currentPlayer)]
[METH RoadStop GoingPast (player dist)
(* Message sent when a player wats to go past this roadstop.)]
[METH RoadStop Initialize NIL
(* Initializes roadStop the very first time without triggering display)]
[METH RoadStop Park (player tempFlg time)
(* Park the current player at this RoadStop.)]
[METH RoadStop Parked? (player)
(* * Returns T if the currentPlayer is parked at this RoadStop, and NIL otherwise.)]
[METH RoadStop Place (x y milePost roadOrientation)
(* Save RoadStop placement information)]
[METH RoadStop ReInitialize NIL
(* Initializes roadStop if subsequently reused. Does trigger display)]
[METH RoadStop RoomToPark? NIL
(* * Returns T if there is room to park at this RoadStop and NIL otherwise.)]
[METH RoadStop TimeSpent (player)
(* returns the time spent by player at this stop, if parked here)]
[METH RoadStop TurnsStayed (player)
(* If player is parked here, returns how long he has been here)]
[METH RoadStop Unpark (player)
(* Removes the current player from his parking place at a RoadStop.)]
[METH RoadStop Visit (player reason time)
(* player is visiting this stop)]
[METH SystemTruck Buy (commodity prevOwner)
(* sm: " 8-FEB-83 14:20")]
[METH SystemTruck CanBuy (commodity pr qty seller)
(* sm: " 8-FEB-83 14:16")]
[METH SystemTruck Sell (commodity pr qty)
(* sm: " 9-FEB-83 15:51")]
[METH Truck BuyFuel (fuelInst prevOwner)
(* buys Fuel and puts in fuel tank)]
[METH Truck CanBuyFuel (commodity pr qty seller)
(* check if the truck can buy fuel)]
[METH Truck FillTank (fuelInst)
(* sm: "20-JAN-83 16:12")]
[METH Truck Initialize NIL
NIL]
[METH Truck SellFuel (commodity pr qty)
(* perform the SELL fuel transaction for truck)]
[METH Truck VisitUnionHall NIL
(* initialize truck data for going to UnionHall)]
(DEFINEQ
(Commodity.CanTransfer
(Method ((Commodity CanTransfer)
self newOwner pr qty prevOwner) (* sm: " 6-JUN-83 16:03")
(* Checks if ownership can be transferred)
(* Complete protocol. Not needed yet. (AND (COND ((@ owner) (* can current owner sell?) (← (@ owner) CanSell self
(COND ((NULL pr) (@ pr)) (T pr)) (COND ((NULL qty) (@ qty)) (T qty)))) (T T)) (← newOwner CanBuy self
(COND ((NULL pr) (@ pr)) (T pr)) (COND ((NULL qty) (@ qty)) (T qty)) prevOwner)))
(← newOwner CanBuy self (COND
((NULL pr)
(@ pr))
(T pr))
(COND
((NULL qty)
(@ qty))
(T qty))
prevOwner)))
(Commodity.CheckFragility
(Method ((Commodity CheckFragility)
self rs speed) (* sm: "26-JAN-83 17:18")
(* dummy method for checking fragility)
T))
(Commodity.Display
[Method ((Commodity Display)
self) (* dgb: "23-JUN-83 08:29")
(* Displays the small icon from Truckin in its own
window)
(MOVEW (OPENW (CREATEWFROMIMAGE (BITMAPCOPY (EVALV (GetClassValue self (QUOTE Icon])
(Commodity.TransferOwner
(Method ((Commodity TransferOwner)
self newOwner priceRatio qty) (* sm: "13-JUN-83 08:15")
(* transfers the commodity from one owner to another)
(* If qty is not specified, all is transferred, else
only qty is transferred by creating a new instance)
(* If priceRatio is not specified, then uses one
currently in self)
(PROG (transfer (prevOwner (@ owner))
(tpr priceRatio)
(tqty qty))
[COND
((NULL tpr)
(SETQ tpr (@ pr]
[COND
((NULL tqty)
(SETQ tqty (@ qty] (* ask the previous owner to sell the specified qty)
(← prevOwner Sell self tpr tqty)
(COND
((OR (NULL qty)
(EQUAL qty (@ qty))) (* transfer completely)
(SETQ transfer self))
(T (* create a new instance to only transfer specified
qty)
(SETQ transfer (← (Class self)
New
(COND
((NULL priceRatio)
(@ pr))
(T priceRatio))
qty
(QUOTE *SPECIAL*)))
(PutValue self (QUOTE qty)
(DIFFERENCE (@ qty)
qty)) (* PartialTransfer message copies those aspects of self
which have to be copied over but may depend on the
actual classification of self)
(DoFringeMethods transfer (QUOTE PartialTransfer)
self))) (* write the new owner's name)
(PutValue transfer (QUOTE owner)
newOwner) (* ask new owner to update accounts and stock for BUY)
(← newOwner Buy transfer prevOwner)
(RETURN transfer))))
(Commodity.UpdateStatus
(Method ((Commodity UpdateStatus)
self newStop oldStop) (* sm: "26-JAN-83 17:18")
(* dummy for Updateing status of commodities as they
move)
T))
(Consumer.Buy
(Method ((Consumer Buy)
self commodity prevOwner) (* sm: " 8-FEB-83 14:13")
(* perform BUY for a consumer)
(PROG NIL (* update qty to be bought)
[←@
qty
(IMAX 0 (IDIFFERENCE (@ qty)
(GetValue commodity (QUOTE qty]
(RETURN self))))
(Consumer.CanBuy
(Method ((Consumer CanBuy)
self commodity pr qty seller) (* dgb: " 9-JUN-83 14:30")
(* checks if consumer will buy this commodity)
(* Returns self if can, else NIL)
(PROG NIL (* check that commodity is not perished)
(COND
((NULL (@ commodity status))
(SETQ FCTReason (QUOTE PerishedGoods))
(SETQ FCTPenalty .2)
(RETURN NIL))) (* check if want to buy this commodity)
(COND
((← commodity InstOf!(@@ Commodity)))
(T (SETQ FCTReason (QUOTE InvalidCommodity))
(SETQ FCTPenalty .2)
(RETURN NIL))) (* check qty)
(COND
((GREATERP qty (@ qty))
(SETQ FCTReason (QUOTE TooMuchQty))
(SETQ FCTPenalty .1)
(RETURN NIL))) (* check pr)
(COND
((GREATERP pr (@ pr))
(SETQ FCTReason (QUOTE PriceHigh))
(SETQ FCTPenalty .1)
(RETURN NIL)))
(RETURN self))))
(Consumer.DisplayData
(Method ((Consumer DisplayData)
self) (* sm: " 5-JUL-83 18:50")
(* * Display the Qty and PR for the Consumer at a RoadStop.)
(PROG (x y str)
(* * Erase old string.)
(DSPCOLOR consumerIconColor gameWindow)
(DSPBACKCOLOR roadStopColor gameWindow)
(BITBLT blankDataIcon NIL NIL gameWindow (IPLUS (@ x)
lineSize)
(IPLUS (@ y)
yData)) (* Compute New String.)
[SETQ str (COND
((ZEROP (@ qty))
"ENOUGH!!")
(T (CONCAT (@ qty)
" @ "
(STRINGNUM (@ pr)
4]
(* * Compute Coordinates to center the string.)
[SETQ x (IPLUS (@ x)
(MAX 0 (IQUOTIENT (IDIFFERENCE (@@ Width)
(STRINGWIDTH str dataFont))
2]
(SETQ y (IPLUS (@ y)
yData 1))
(* * Print the string.)
(DSPXPOSITION x gameWindow)
(DSPYPOSITION y gameWindow)
(DSPFONT dataFont gameWindow)
(PRIN1 str gameWindow))))
(Consumer.DisplayIcon
(Method ((Consumer DisplayIcon)
self) (* agb: "12-FEB-83 20:15")
(* * Display the Icon for a RoadStop that is a Consumer.)
(PROG ((commodityName (ClassName (@@ Commodity)))
(yOffset 5)
xIcon yIcon)
(* * Print the name of the commodity, rather than displaying an Icon.)
(SETQ yIcon (IPLUS (@ y)
yData
(FONTPROP commodityFont (QUOTE HEIGHT))
yOffset))
(SETQ xIcon (IPLUS (@ x)
(IQUOTIENT (IDIFFERENCE (@@ Width)
(STRINGWIDTH commodityName commodityFont))
2)))
(DSPXPOSITION xIcon gameWindow)
(DSPYPOSITION yIcon gameWindow)
(DSPCOLOR consumerIconColor gameWindow)
(DSPBACKCOLOR roadStopColor gameWindow)
(DSPFONT commodityFont gameWindow)
(PRIN2 commodityName gameWindow))))
(Consumer.Show
(Method ((Consumer Show)
self) (* sm: " 9-FEB-83 16:02")
(* shows the consumer roadstop data)
(PROG ((file PPDefault)
(commodity (@@ Commodity)))
(printout file T "*****************" T)
(printout file "RoadStop: " (ClassName self)
T)
(printout file "Consumer of: " .FONT BOLDFONT (GetObjectName commodity)
.FONT DEFAULTFONT T)
(printout file "Data for: " (GetObjectName commodity)
T)
(for cv in (QUOTE (VolPerQty WtPerQty AvgPrice)) do (printout file cv 17
(GetClassValue
commodity cv)
T))
(RETURN T))))
(FragileCommodity.CheckFragility
[Method ((FragileCommodity CheckFragility)
self hazard dist) (* dgb: "14-JUL-83 18:37")
(* checks if fragile commodities have broken for
currentPlayer's truck)
(PROG ((player (@(@ owner)
driver))
(truck (@ owner)))
(RETURN (COND
[(LESSP (TIMES (@ hazard roughness)
dist
(@ fragility))
(TIMES 25 (@@ truck MaxDist]
(T (* OOps -
tough luck!!)
[COND
((@ status)
(← Communicator BreakCargo player (FindLocIndex self
(@ truck cargo)))
(* (←@ status NIL) (WriteGameStatus (CONCAT (@ currentPlayer driver) "'s Cargo of: ") (CONCAT
(@ qty) " " (ClassName self) " units") " destroyed by RoughRoad"))
]
NIL])
(FragileCommodity.PartialTransfer
(Method ((FragileCommodity PartialTransfer)
self copyFrom) (* sm: "26-JAN-83 17:20")
(* copies ivs when commodities have to be split up for
partial buys)
(←@
fragility
(@ copyFrom fragility))))
(OtherRoadStop.DisplayIcon
(Method ((OtherRoadStop DisplayIcon)
self) (* sm: " 5-JUL-83 18:52")
(* * Display the Icon for an OtherRoadStop.)
(PROG ((iconName (@@ Icon))
(yOffset 2)
xIcon yIcon)
(* * Display the Icon associated with the commodity.)
(SETQ yIcon (IPLUS (@ y)
yData
(FONTPROP dataFont (QUOTE HEIGHT))
yOffset))
(SETQ xIcon (IPLUS (@ x)
(IQUOTIENT (IDIFFERENCE (@@ Width)
iconSide)
2)))
(DSPCOLOR otherRoadStopIconColor gameWindow)
(DSPBACKCOLOR roadStopColor gameWindow)
(BITBLT (EVALV iconName)
NIL NIL gameWindow xIcon yIcon))))
(OtherRoadStop.Initialize
(Method ((OtherRoadStop Initialize)
self) (* sm: "16-FEB-83 15:51")
(* does nothing)
(←@
parkingPlace1 NIL)
(←@
parkingPlace2 NIL)
self))
(OtherRoadStop.ReInitialize
(Method ((OtherRoadStop ReInitialize)
self) (* sm: "29-JUN-83 09:19")
(* Same as Initialize)
(← self Initialize)))
(OtherRoadStop.Show
(Method ((OtherRoadStop Show)
self) (* edited: "31-JAN-83 21:54")
(* prints a message)
(printout PPDefault T "**********" T)
(printout PPDefault (ClassName self)
" is neither a producer nor a consumer" T)))
(PerishableCommodity.PartialTransfer
(Method ((PerishableCommodity PartialTransfer)
self copyFrom) (* sm: "24-JAN-83 15:34")
(* copies IVs specific to this class to transferred
commodity)
(←@
lifetime
(@ copyFrom lifetime))))
(PerishableCommodity.UpdateStatus
[Method ((PerishableCommodity UpdateStatus)
self newStop oldStop) (* dgb: "14-JUL-83 18:37")
(* updates the status of the Commodity after each move)
(PROG ((player (@(@ owner)
driver))
(truck (@ owner)))
(←@
lifetime
(SUB1 (@ lifetime)))
[COND
((AND (@ status)
(ZEROP (@ lifetime)))
(← Communicator SpoilCargo player (FindLocIndex self (@ truck cargo)))
(* (WriteGameStatus (CONCAT driver "'s Cargo of: ")
(CONCAT (@ qty) " " (ClassName self) " units")
" just perished") (←@ status NIL))
]
(RETURN (@ lifetime])
(Producer.DisplayData
(Method ((Producer DisplayData)
self) (* agb: "12-FEB-83 20:33")
(* Display the Qty and PR for the Producer at a
RoadStop.)
(PROG (x y str) (* Erase old string.)
(DSPCOLOR producerIconColor gameWindow)
(DSPBACKCOLOR roadStopColor gameWindow)
(BITBLT blankDataIcon NIL NIL gameWindow (IPLUS (@ x)
lineSize)
(IPLUS (@ y)
yData)) (* Compute New String.)
[SETQ str (COND
((ZEROP (@ qty))
"SOLD OUT")
(T (CONCAT (FIX (@ qty))
" @ "
(STRINGNUM (@ pr)
4] (* Compute Coordinates to center the string.)
[SETQ x (IPLUS (@ x)
(MAX 0 (IQUOTIENT (IDIFFERENCE (@@ Width)
(STRINGWIDTH str dataFont))
2]
(SETQ y (IPLUS (@ y)
yData 1)) (* Print the string.)
(DSPXPOSITION x gameWindow)
(DSPYPOSITION y gameWindow)
(DSPFONT dataFont gameWindow)
(PRIN1 str gameWindow))))
(Producer.DisplayIcon
(Method ((Producer DisplayIcon)
self) (* agb: "12-FEB-83 20:14")
(* * Display the Icon for a RoadStop that is a Producer.)
(PROG (iconName (commodity (@@ Commodity))
(yOffset 2)
xIcon yIcon)
[SETQ iconName (COND
(commodity (@@ commodity Icon))
(T (QUOTE defaultIcon]
(* * Display the Icon associated with the commodity.)
(SETQ yIcon (IPLUS (@ y)
yData
(FONTPROP dataFont (QUOTE HEIGHT))
yOffset))
(SETQ xIcon (IPLUS (@ x)
(IQUOTIENT (IDIFFERENCE (@@ Width)
iconSide)
2)))
(DSPCOLOR producerIconColor gameWindow)
(DSPBACKCOLOR roadStopColor gameWindow)
(BITBLT (EVALV iconName)
NIL NIL gameWindow xIcon yIcon))))
(Producer.Sell
(Method ((Producer Sell)
self commodity pr qty) (* sm: " 8-FEB-83 14:11")
(* perform SELL for consumer)
(PROG NIL (* update stock)
(←@
qty
(IMAX 0 (IDIFFERENCE (@ qty)
qty)))
(RETURN self))))
(Producer.Show
(Method ((Producer Show)
self) (* sm: " 9-FEB-83 16:02")
(* shows the producer roadstop data)
(PROG ((file PPDefault)
(commodity (@@ Commodity)))
(printout file T "*****************" T)
(printout file "RoadStop: " (ClassName self)
T)
(printout file "Producer of: " .FONT BOLDFONT (GetObjectName commodity)
.FONT DEFAULTFONT T)
(printout file "Data for: " (GetObjectName commodity)
T)
(for cv in (QUOTE (VolPerQty WtPerQty AvgPrice)) do (printout file cv 17
(GetClassValue
commodity cv)
T))
(RETURN T))))
(RoadStop.AnyVictim
[Method ((RoadStop AnyVictim)
self) (* sm: "26-JAN-83 15:36")
(* checks and returns the name of any non-bandit player
at this loc)
(PROG (loc)
[SETQ loc (for x in (QUOTE (parkingPlace1 parkingPlace2))
thereis (AND (GetValue self x)
(NOT (← (GetValue self x)
InstOf!(QUOTE Bandit]
(RETURN (COND
(loc (GetValue self loc))
(T NIL])
(RoadStop.BWDisplay
(Method ((RoadStop BWDisplay)
self) (* sm: "27-JUN-83 18:32")
(* Does a BW display of a roadStop)
(PROG ((width (@@ Width))
(height (@@ Height))
(roadSign (@@ RoadSign))
(fontHeight (FONTPROP roadSignFont (QUOTE HEIGHT)))
xOffset yOffset x y milePost roadOrientation)
(SETQ x (@ x))
(SETQ y (@ y))
(SETQ milePost (@ milePost))
(SETQ roadOrientation (@ roadOrientation))
(* * Draw the surrounding outline.)
(BITBLT NIL NIL NIL gameWindow x y width height (QUOTE TEXTURE)
(QUOTE REPLACE)
(EVALV (@@ Shade)))
(BITBLT NIL NIL NIL gameWindow x y width lineSize (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKSHADE)
(BITBLT NIL NIL NIL gameWindow x y lineSize height (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKSHADE)
(BITBLT NIL NIL NIL gameWindow x (IPLUS y height (IMINUS lineSize))
width lineSize (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKSHADE)
(BITBLT NIL NIL NIL gameWindow (IPLUS x width (IMINUS lineSize))
y lineSize height (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKSHADE)
(* * Label the display with the RoadSign in an inverted bar.)
(DSPFONT roadSignFont gameWindow)
(SETQ xOffset (MAX lineSize (IQUOTIENT (IDIFFERENCE width (STRINGWIDTH roadSign
roadSignFont))
2)))
(SETQ xOffset (IPLUS xOffset x))
[SETQ yOffset (IPLUS y height (IMINUS (FONTPROP roadSignFont (QUOTE HEIGHT]
(BITBLT NIL NIL NIL gameWindow x yOffset width fontHeight (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKSHADE)
(DSPTEXTURE BLACKSHADE gameWindow)
(DSPOPERATION (QUOTE INVERT)
gameWindow)
(DSPXPOSITION xOffset gameWindow)
(DSPYPOSITION (IPLUS yOffset 2)
gameWindow)
(PRIN1 roadSign gameWindow)
(DSPTEXTURE WHITESHADE gameWindow)
(DSPOPERATION (QUOTE REPLACE)
gameWindow)
(* * Display the Icon,qty, and pr.)
(← self DisplayIcon)
(← self DisplayData))))
(RoadStop.Bandit?
[Method ((RoadStop Bandit?)
self) (* sm: "27-JAN-83 18:24")
(* checks if there is a bandit here)
(* * RETURNS: Bandit instance if one is parked, else NIL)
(PROG (banditLoc)
(RETURN (COND
([SETQ banditLoc (for x in (QUOTE (parkingPlace1 parkingPlace2))
thereis (AND (GetObjectRec (GetValue self x))
(← (GetValue self x)
InstOf!(QUOTE Bandit]
(GetValue self banditLoc))
(T NIL])
(RoadStop.BanditReady
(Method ((RoadStop BanditReady)
self) (* sm: "27-JAN-83 18:26")
(* checks if Bandit is ready to catch passing trucks)
(* * RETURNS: Bandit instance if ready, else NIL)
(AND (← self RoomToPark?)
(← self Bandit?))))
(RoadStop.ColorDisplay
(Method ((RoadStop ColorDisplay)
self) (* sm: "27-JUN-83 18:35")
(* Does a color display of roadStop)
(PROG ((width (@@ Width))
(height (@@ Height))
(roadSign (@@ RoadSign))
(fontHeight (FONTPROP roadSignFont (QUOTE HEIGHT)))
xOffset yOffset x y milePost roadOrientation)
(SETQ x (@ x))
(SETQ y (@ y))
(SETQ milePost (@ milePost))
(SETQ roadOrientation (@ roadOrientation))
(* * Draw the surrounding outline.)
(BITBLT NIL NIL NIL gameWindow x y width height (QUOTE TEXTURE)
(QUOTE REPLACE)
roadStopColor)
(BITBLT NIL NIL NIL gameWindow x y width lineSize (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKCOLOR)
(BITBLT NIL NIL NIL gameWindow x y lineSize height (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKCOLOR)
(BITBLT NIL NIL NIL gameWindow x (IPLUS y height (IMINUS lineSize))
width lineSize (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKCOLOR)
(BITBLT NIL NIL NIL gameWindow (IPLUS x width (IMINUS lineSize))
y lineSize height (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKCOLOR)
(* * Label the display with the RoadSign in an inverted bar.)
(DSPFONT roadSignFont gameWindow)
(SETQ xOffset (MAX lineSize (IQUOTIENT (IDIFFERENCE width (STRINGWIDTH roadSign
roadSignFont))
2)))
(SETQ xOffset (IPLUS xOffset x))
[SETQ yOffset (IPLUS y height (IMINUS (FONTPROP roadSignFont (QUOTE HEIGHT]
(BITBLT NIL NIL NIL gameWindow x yOffset width fontHeight (QUOTE TEXTURE)
(QUOTE REPLACE)
BLACKCOLOR)
(DSPCOLOR roadStopNameColor gameWindow)
(DSPBACKCOLOR BLACKCOLOR gameWindow)
(DSPXPOSITION xOffset gameWindow)
(DSPYPOSITION (IPLUS yOffset 2)
gameWindow)
(PRIN1 roadSign gameWindow)
(* * Display the Icon,qty, and pr.)
(← self DisplayIcon)
(← self DisplayData))))
(RoadStop.Crash
[Method ((RoadStop Crash)
self player) (* dgb: "11-JUL-83 13:09")
(* Crashes player at this RoadStop if already parked.
Else parks player in crashed state.)
(PROG (xPos yPos icon (xMargin (CONSTANT 2)))
[SETQ icon (InvertIcon (COND
((EQ (@ roadOrientation)
(QUOTE Right))
(@ player icon))
(T (@ player reverseIcon]
(COND
((← self Parked? player)
(← self Unpark player)
(WAITMS 5)))
(COND
((NULL (@ parkingPlace1))
(* * Here if there is room in the first space.)
(←@
parkingPlace1 player)
(SETQ xPos (IPLUS (@ x)
xMargin))
(SETQ yPos (IPLUS (@ y)
lineSize))
(AND gameWindow (BITBLT icon NIL NIL gameWindow xPos yPos)))
((NULL (@ parkingPlace2))
(* * Here if there is room in the 2nd space.)
(←@
parkingPlace2 player)
(SETQ xPos (IPLUS (@ x)
(@@ Width)
(IMINUS (@@ player Width))
(IMINUS xMargin)))
(SETQ yPos (IPLUS (@ y)
lineSize))
(AND gameWindow (BITBLT icon NIL NIL gameWindow xPos yPos)))
(T (TruckinError "Attempt to Park when there is no room."])
(RoadStop.Display
[Method ((RoadStop Display)
self) (* sm: "29-JUN-83 09:24")
(* Actually displays roadStop)
(COND
((@@ GameBoard colorP)
(← self ColorDisplay))
(T (← self BWDisplay])
(RoadStop.DisplayData
(Method ((RoadStop DisplayData)
self) (* sm: "28-JUN-83 09:49")
(* * Dummy routine for displaying no data in an OtherRoadStop.)
NIL))
(RoadStop.Flash
(Method ((RoadStop Flash)
self player) (* sm: "10-JUL-83 21:25")
(* flashes currentPlayer)
(* assumes currentPlayer is already parked there)
(for i from 1 to 3
do (← self Crash player)
(WAITMS 100)
(← self Unpark player)
(WAITMS 5)
(← self Park player T)
(WAITMS 100))))
(RoadStop.GoingPast
(Method ((RoadStop GoingPast)
self player dist) (* sm: " 7-JUN-83 11:59")
(* Message sent when a player wats to go past this
roadstop.)
(* Returns: Reason if this RoadStop intercepts player.
NIL otherwise)
(* Any specialization must call this first before doing
anything else)
(* This one, i.e., in class RoadStop only checks for
Bandits)
(COND
((AND (← self BanditReady)
(BanditGotYou? player self dist))
(QUOTE Bandit))
(T NIL))))
(RoadStop.Initialize
(Method ((RoadStop Initialize)
self) (* sm: "29-JUN-83 09:15")
(* Initializes roadStop the very first time without
triggering display)
(←@
parkingPlace1 NIL)
(←@
parkingPlace2 NIL)
(GetValue self (QUOTE qty))
(GetValue self (QUOTE pr))
self))
(RoadStop.Park
[Method ((RoadStop Park)
self player tempFlg time) (* sm: "13-JUL-83 09:32")
(* Park the current player at this RoadStop.)
(* tempFlg if T means howLong and timeUsed props are
not changed)
(PROG (xPos yPos icon (xMargin (CONSTANT 2)))
[SETQ icon (COND
((EQ (QUOTE Right)
(@ roadOrientation))
(@ player icon))
(T (@ player reverseIcon]
(COND
((NULL (@ parkingPlace1))
(* * Here if there is room in the first space.)
(←@
parkingPlace1 player)
[COND
((NOT tempFlg)
(PutValue self (QUOTE parkingPlace1)
0
(QUOTE howLong))
(PutValue self (QUOTE parkingPlace1)
0
(QUOTE timeUsed))
(AND time (PutValue self (QUOTE parkingPlace1)
time
(QUOTE timeParked]
(SETQ xPos (IPLUS (@ x)
xMargin))
(SETQ yPos (IPLUS (@ y)
lineSize))
(AND gameWindow (BITBLT icon NIL NIL gameWindow xPos yPos)))
((NULL (@ parkingPlace2))
(* * Here if there is room in the 2nd space.)
(←@
parkingPlace2 player)
[COND
((NOT tempFlg)
(PutValue self (QUOTE parkingPlace2)
0
(QUOTE howLong))
(PutValue self (QUOTE parkingPlace2)
0
(QUOTE timeUsed))
(AND time (PutValue self (QUOTE parkingPlace2)
time
(QUOTE timeParked]
(SETQ xPos (IPLUS (@ x)
(@@ Width)
(IMINUS (@@ player Width))
(IMINUS xMargin)))
(SETQ yPos (IPLUS (@ y)
lineSize))
(AND gameWindow (BITBLT icon NIL NIL gameWindow xPos yPos)))
(T (TruckinError "Attempt to Park when there is no room."])
(RoadStop.Parked?
[Method ((RoadStop Parked?)
self player) (* sm: " 5-JUL-83 18:53")
(* * Returns T if the currentPlayer is parked at this RoadStop, and NIL otherwise.)
(OR (EQ player (@ parkingPlace1))
(EQ player (@ parkingPlace2])
(RoadStop.Place
[Method ((RoadStop Place)
self x y milePost roadOrientation) (* sm: "28-JUN-83 09:07")
(* Save RoadStop placement information)
(COND
(x (* Here if x y & milePost are given as args.)
(←@
x x)
(←@
y y)
(←@
milePost milePost)
(←@
roadOrientation roadOrientation])
(RoadStop.ReInitialize
[Method ((RoadStop ReInitialize)
self) (* sm: "29-JUN-83 09:18")
(* Initializes roadStop if subsequently reused.
Does trigger display)
(←@
parkingPlace1 NIL)
(←@
parkingPlace2 NIL)
(PutValue self (QUOTE qty)
(GetInitialValue self (QUOTE qty)))
(PutValue self (QUOTE pr)
(GetInitialValue self (QUOTE pr])
(RoadStop.RoomToPark?
[Method ((RoadStop RoomToPark?)
self) (* mjs: "18-JAN-83 14:28")
(* * Returns T if there is room to park at this RoadStop and NIL otherwise.)
(OR (NULL (@ parkingPlace1))
(NULL (@ parkingPlace2])
(RoadStop.TimeSpent
(Method ((RoadStop TimeSpent)
self player) (* sm: " 7-JUL-83 10:32")
(* returns the time spent by player at this stop, if
parked here)
(COND
((EQ player (@ parkingPlace1))
(IDIFFERENCE (IDATE)
(@ self parkingPlace1 timeParked)))
((EQ player (@ parkingPlace2))
(IDIFFERENCE (IDATE)
(@ self parkingPlace2 timeParked)))
(T 0))))
(RoadStop.TurnsStayed
(Method ((RoadStop TurnsStayed)
self player) (* sm: "19-MAY-83 15:15")
(* If player is parked here, returns how long he has
been here)
(COND
((EQ player (@ parkingPlace1))
(@ self parkingPlace1 howLong))
((EQ player (@ parkingPlace2))
(@ self parkingPlace2 howLong))
(T 0))))
(RoadStop.Unpark
[Method ((RoadStop Unpark)
self player) (* dgb: "11-JUL-83 13:08")
(* Removes the current player from his parking place at
a RoadStop.)
(PROG (xPos yPos (gb (@ Simulator gameBoard))
(xMargin (CONSTANT 2)))
(COND
[(EQ player (@ parkingPlace1))
(* * Here if player is in the first space.)
(←@
parkingPlace1 NIL)
(SETQ xPos (IPLUS (@ x)
xMargin))
(SETQ yPos (IPLUS (@ y)
lineSize))
(AND gameWindow (BITBLT NIL NIL NIL gameWindow xPos yPos (@@ player Width)
(@@ player Height)
(QUOTE TEXTURE)
(QUOTE REPLACE)
(COND
((@@ gb colorP)
roadStopColor)
(T (EVALV (@@ Shade]
[(EQ player (@ parkingPlace2))
(* * Here if player is in the 2nd space.)
(←@
parkingPlace2 NIL)
(SETQ xPos (IPLUS (@ x)
(@@ Width)
(IMINUS (@@ player Width))
(IMINUS xMargin)))
(SETQ yPos (IPLUS (@ y)
lineSize))
(AND gameWindow (BITBLT NIL NIL NIL gameWindow xPos yPos (@@ player Width)
(@@ player Height)
(QUOTE TEXTURE)
(QUOTE REPLACE)
(COND
((@@ gb colorP)
roadStopColor)
(T (EVALV (@@ Shade]
(T (TruckinError (CONCAT "Cannot Unpark " player " Not parked here"])
(RoadStop.Visit
[Method ((RoadStop Visit)
self player reason time) (* sm: "13-JUL-83 09:37")
(* player is visiting this stop)
(* IMPORTANT!! Any specialization of this must first do
a ←Super)
(* reason -
if NIL, then requested by player, else reason for
forced move)
(PROG ((truck (@ player truck))
victim vtruck loss bandit)
(← self Park player NIL time)
(PutValue truck (QUOTE location)
reason
(QUOTE reason))
(←@
truck location self)
[COND
((EQ reason (QUOTE LowFuel)) (* Moved here because of LowFuel)
(WriteGameStatus (@ player driver)
(CONCAT " Towed to " (@@ RoadSign))
(CONCAT " - " reason]
(COND
((← player InstOf!(QUOTE Bandit)) (* visitor is Bandit. Check if anyone to rob)
[COND
((SETQ victim (← self AnyVictim))
(← self Flash victim)
(WriteGameStatus "BANDIDOS robbed you!! " (@ victim driver))
(SETQ vtruck (@ victim truck))
(SETQ loss (FIX (TIMES (@ vtruck cashBox)
.2)))
(ChangeValue vtruck (QUOTE cashBox)
(IDIFFERENCE (@ vtruck cashBox)
loss))
(WriteGameStatus "Cash lost: $" loss)
(for x in (@ vtruck cargo) when (← x InstOf!(QUOTE LuxuryGoods))
do (COND
((← x TransferOwner player (@ player pr))
(WriteGameStatus "Bandits stole: " (CONCAT (@ x qty)
" "
(ClassName x))
" units"]
(RETURN player))
(T (* visitor is regular player.
see if bandits already here to rob him)
[COND
((SETQ bandit (← self Bandit?))
(← self Flash player)
[COND
[(EQ reason (QUOTE Bandit))
(WriteGameStatus "BANDITS stopped you!! " (@ player driver)
(CONCAT " at " (@@ RoadSign]
(T (WriteGameStatus "BANDITS robbed you!! " (@ player driver]
(SETQ loss (FIX (TIMES (@ truck cashBox)
.2)))
(ChangeValue truck (QUOTE cashBox)
(IDIFFERENCE (@ truck cashBox)
loss))
(WriteGameStatus "Cash lost: $" loss)
(for x in (@ truck cargo) when (← x InstOf!(QUOTE LuxuryGoods))
do (COND
((← x TransferOwner bandit (@ bandit pr))
(WriteGameStatus "Bandits stole: " (CONCAT (@ x qty)
" "
(ClassName x))
" units"]
(* if visiting involuntarily, crash)
(COND
([AND reason (NOT (FMEMB reason (QUOTE (InitialPlacing]
(← self Crash player)))
(RETURN player])
(SystemTruck.Buy
(Method ((SystemTruck Buy)
self commodity prevOwner) (* sm: "19-MAY-83 15:25")
(* sm: " 8-FEB-83 14:20")
(* perform the BUY transaction for a trucker)
(PROG (qty pr)
(SETQ qty (GetValue commodity (QUOTE qty)))
(SETQ pr (GetValue commodity (QUOTE pr))) (* update cashBox)
[ChangeValue self (QUOTE cashBox)
(FIX (DIFFERENCE (@ cashBox)
(TIMES qty pr (GetClassValue commodity (QUOTE AvgPrice]
(* update volume on truck)
[←@
volume
(PLUS (@ volume)
(TIMES qty (@@ commodity VolPerQty]
(* update weight)
[←@
weight
(PLUS (@ weight)
(TIMES qty (@@ commodity WtPerQty] (* add this to cargo)
(←@
cargo
(CONS commodity (@ cargo)))
(RETURN self))))
(SystemTruck.CanBuy
(Method ((SystemTruck CanBuy)
self commodity pr qty seller) (* sm: " 6-JUL-83 13:42")
(* sm: " 8-FEB-83 14:16")
(* check if the truck can buy the commodity)
(* Returns self if can, else NIL)
(PROG NIL (* check cashBox)
(COND
((LESSP [DIFFERENCE (@ cashBox)
(TIMES qty pr (GetClassValue commodity (QUOTE AvgPrice]
0)
(SETQ FCTPenalty -1)
(SETQ FCTReason (QUOTE InsufficientCash))
(RETURN NIL))) (* check volume on truck)
(COND
((GREATERP (PLUS (@ volume)
(TIMES qty (@@ commodity VolPerQty)))
(@@ MaxVolume))
(SETQ FCTPenalty .05)
(SETQ FCTReason (QUOTE InsufficientVolume))
(RETURN NIL))) (* check weight)
(COND
((GREATERP (PLUS (@ weight)
(TIMES qty (@@ commodity WtPerQty)))
(@@ MaxWeight))
(SETQ FCTPenalty .05)
(SETQ FCTReason (QUOTE InsufficientWeight))
(RETURN NIL)))
(RETURN self))))
(SystemTruck.Sell
(Method ((SystemTruck Sell)
self commodity pr qty) (* sm: "19-MAY-83 15:26")
(* sm: " 9-FEB-83 15:51")
(* perform the SELL transaction for truck)
(PROG NIL
[COND
((NULL qty)
(SETQ qty (GetValue commodity (QUOTE qty]
[COND
((NULL pr)
(SETQ pr (GetValue commodity (QUOTE pr]
(* update cashBox)
[ChangeValue self (QUOTE cashBox)
(FIX (PLUS (@ cashBox)
(TIMES qty pr (GetClassValue commodity (QUOTE AvgPrice]
(* update volume)
[←@
volume
(DIFFERENCE (@ volume)
(TIMES qty (@@ commodity VolPerQty]
(* update weight)
[←@
weight
(DIFFERENCE (@ weight)
(TIMES qty (@@ commodity WtPerQty]
(* update cargo)
[COND
((EQUAL qty (GetValue commodity (QUOTE qty)))
(←@
cargo
(REMOVE commodity (@ cargo]
(RETURN self))))
(Truck.BuyFuel
(Method ((Truck BuyFuel)
self fuelInst prevOwner) (* sm: "19-MAY-83 15:24")
(* buys Fuel and puts in fuel tank)
(PROG NIL
(←@
fuel
(PLUS (@ fuel)
(@ fuelInst qty)))
[ChangeValue self (QUOTE cashBox)
(FIX (DIFFERENCE (@ cashBox)
(TIMES (@ fuelInst qty)
(@ fuelInst pr)
(@@ fuelInst AvgPrice]
(RETURN self))))
(Truck.CanBuyFuel
(Method ((Truck CanBuyFuel)
self commodity pr qty seller) (* sm: " 6-JUN-83 18:11")
(* check if the truck can buy fuel)
(* Returns self if can, else NIL)
(PROG NIL (* check cashBox)
(COND
((LESSP [DIFFERENCE (@ cashBox)
(TIMES qty pr (GetClassValue commodity (QUOTE AvgPrice]
0)
(SETQ FCTPenalty -1)
(SETQ FCTReason (QUOTE NoCash))
(RETURN NIL))) (* check fuel tank capacity)
(COND
((GREATERP qty (DIFFERENCE (@@ MaxFuel)
(@ fuel)))
(SETQ FCTPenalty .01)
(SETQ FCTReason (QUOTE NoCapacity))
(RETURN NIL)))
(RETURN self))))
(Truck.FillTank
(Method ((Truck FillTank)
self fuelInst) (* sm: "20-JAN-83 16:16")
(* sm: "20-JAN-83 16:12")
(* sm: "20-JAN-83 15:27")
(* transfers fuel from cargo to fuel tank)
(PROG (availVol transVol)
(SETQ availVol (DIFFERENCE (@@ MaxFuel)
(@ fuel)))
(COND
((GREATERP (@ fuelInst qty)
availVol)
(SETQ transVol (DIFFERENCE (@ fuelInst qty)
availVol)))
(T transVol (@ fuelInst qty)))
(←@
fuel
(PLUS (@ fuel)
transVol))
[←@
volume
(PLUS (@ volume)
(TIMES transVol (@@ fuelInst VolPerQty]
(←@
weight
(PLUS (@ weight)
transVol))
[COND
[(EQUAL transVol (@ fuelInst qty))
(←@
cargo
(REMOVE fuelInst (@ cargo]
(T (←@
fuelInst qty (DIFFERENCE (@ fuelInst qty)
transVol]
(RETURN self))))
(Truck.Initialize
(Method ((Truck Initialize)
self) (* sm: "10-FEB-83 10:33")
(* initialize truck to initial state)
(←@
cargo NIL)
(ChangeValue self (QUOTE cashBox)
(@@ InitCash))
(←@
fuel
(@@ MaxFuel))
(←@
volume 0)
(←@
weight 0)
(←@
damage 0)))
(Truck.SellFuel
(Method ((Truck SellFuel)
self commodity pr qty) (* edited: " 2-AUG-83 14:07")
(* perform the SELL fuel transaction for truck)
(PROG NIL
(* (COND ((NULL qty) (SETQ qty (GetValue commodity (QUOTE qty))))) (COND ((NULL pr) (SETQ pr
(GetValue commodity (QUOTE pr))))) (* update cashBox) (←@ cashBox (PLUS (@ cashBox) (TIMES qty pr
(GetClassValue commodity (QUOTE AvgBuyingPrice))))) (* update volume) (←@ volume (PLUS (@ volume)
(TIMES qty (GetClassValue commodity (QUOTE VolPerQty))))) (* update weight) (←@ weight (PLUS
(@ weight) qty)) (* update cargo) (COND ((EQUAL qty (GetValue commodity (QUOTE qty))) (←@ cargo
(REMOVE self (@ cargo))))))
(printout TTY "Truckers cannot sell fuel!" T)
(RETURN NIL))))
(Truck.VisitUnionHall
(Method ((Truck VisitUnionHall)
self) (* sm: "10-FEB-83 10:32")
(* initialize truck data for going to UnionHall)
(← self Initialize)
(WriteGameStatus "Union Hall just gave " (@(@ driver)
driver)
" a new start.")
self))
)
(PUTPROPS TRUCKINR COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (13707 16846 (CommodityTransportability.CheckFragility 13717 . 13966) (
CommodityTransportability.UpdateStatus 13968 . 14251) (RoadStop.BwPlace 14253 . 14910) (
RoadStop.ColorPlace 14912 . 15615) (RoadStop.DisplayIcon 15617 . 16844)) (22151 66748 (
Commodity.CanTransfer 22161 . 22924) (Commodity.CheckFragility 22926 . 23189) (Commodity.Display 23191
. 23586) (Commodity.TransferOwner 23588 . 25661) (Commodity.UpdateStatus 25663 . 25958) (Consumer.Buy
25960 . 26416) (Consumer.CanBuy 26418 . 27708) (Consumer.DisplayData 27710 . 28930) (
Consumer.DisplayIcon 28932 . 29916) (Consumer.Show 29918 . 30736) (FragileCommodity.CheckFragility
30738 . 31706) (FragileCommodity.PartialTransfer 31708 . 32079) (OtherRoadStop.DisplayIcon 32081 .
32874) (OtherRoadStop.Initialize 32876 . 33181) (OtherRoadStop.ReInitialize 33183 . 33455) (
OtherRoadStop.Show 33457 . 33830) (PerishableCommodity.PartialTransfer 33832 . 34201) (
PerishableCommodity.UpdateStatus 34203 . 35052) (Producer.DisplayData 35054 . 36374) (
Producer.DisplayIcon 36376 . 37296) (Producer.Sell 37298 . 37711) (Producer.Show 37713 . 38531) (
RoadStop.AnyVictim 38533 . 39134) (RoadStop.BWDisplay 39136 . 41565) (RoadStop.Bandit? 41567 . 42224)
(RoadStop.BanditReady 42226 . 42624) (RoadStop.ColorDisplay 42626 . 44925) (RoadStop.Crash 44927 .
46390) (RoadStop.Display 46392 . 46730) (RoadStop.DisplayData 46732 . 46965) (RoadStop.Flash 46967 .
47493) (RoadStop.GoingPast 47495 . 48363) (RoadStop.Initialize 48365 . 48809) (RoadStop.Park 48811 .
50863) (RoadStop.Parked? 50865 . 51187) (RoadStop.Place 51189 . 51665) (RoadStop.ReInitialize 51667 .
52198) (RoadStop.RoomToPark? 52200 . 52514) (RoadStop.TimeSpent 52516 . 53066) (RoadStop.TurnsStayed
53068 . 53542) (RoadStop.Unpark 53544 . 55155) (RoadStop.Visit 55157 . 58325) (SystemTruck.Buy 58327
. 59488) (SystemTruck.CanBuy 59490 . 60896) (SystemTruck.Sell 60898 . 62321) (Truck.BuyFuel 62323 .
62863) (Truck.CanBuyFuel 62865 . 63819) (Truck.FillTank 63821 . 64996) (Truck.Initialize 64998 . 65432
) (Truck.SellFuel 65434 . 66350) (Truck.VisitUnionHall 66352 . 66746)))))
STOP