REM >Lardy
REM Free pellets

PROCinit              :REM Arachnid init
PROCkill_all          :REM Arachnid init
LIBRARY "<RudolfDir>.ProgLibs.Ascii"
LIBRARY "<RudolfDir>.ProgLibs.UI"
LIBRARY "<RudolfDir>.ProgLibs.DateTime"
LIBRARY "<RudolfDir>.ProgLibs.Filename"
date_time$ = FNdate_time_code
LIBRARY "<RudolfDir>.ProgLibs.Arachnid"
LIBRARY "<RudolfDir>.ProgLibs.BoxConst"
PROCcombined_boxes


DIM lard%(nboxes%)
FOR i% = 1 TO nboxes%
  lard%(i%) = FNget_num_param("Number of free pellets for box "+STR$(i%),0,0,2000)
NEXT

house$ = FNget_letter_param("Houselights on during this session?","YN","N")
PRINT
fast$ = FNget_letter_param("Fast or slow? (F/S)","FS","F")

PRINT''"Ready to dispense, press a key to start or Escape to abort.";
IFGET
PRINT


FOR i%=1 TO nboxes%
  IF fast$="F" THEN speed%=5 ELSE speed%=50
  PROCspaced_pellet(pellet%(i%), lard%(i%), i%, speed%)
  IF house$="Y" THEN PROCswitch_on(houselight%(i%),E%)
NEXT

PROCwait(E%):*AE
PRINT "Yo, pellets in the house."'