Skool Daze Routines
31968: Give EINSTEIN lines for telling tales (if in the mood)
Used by the routine at 62208.
H Character number of teacher (163-166)
31968 LD A,H L=0 (MR WACKER), 16 (MR ROCKITT), 32 (MR WITHIT), or 48 (MR CREAK)
31969 SUB 163
31971 ADD A,A
31972 ADD A,A
31973 ADD A,A
31974 ADD A,A
31975 LD L,A
31976 CALL 24993 Get random number in A
31979 CP L
31980 LD L,255 Return with L=255 if the teacher's not in the mood to give lines
31982 RET NC
31983 JR 31904 Make teacher give EINSTEIN lines for telling tales