; Random Insult Generator
; Michael Vincent - michael@radicalsoft.org
;
;
;
.nolist
#include "tse.inc"
.list
.org    usermem-3
.db     $BB,$6D
 ret
.db "TSE",1
prgtitle:
.db " Insult Generator", 0
.dw 40
start:
 call NewInsult
mainloop:
 ei \ halt
 bcall(_getcsc)
 or a
 jr z,mainloop
 cp skStat
 jr nz,noyield
 call _tseForceYield
noyield:
 call NewInsult
 jr mainloop
NewInsult:
 bcall(_clrlcdfull)
 bcall(_homeup)
 ld b,44
 call _tseRandom
 inc a
 ld hl,insults1
 call getString
 bcall(_puts)
 ld hl,curcol
 inc (hl)
 ld b,40
 call _tseRandom
 inc a
 ld hl,insults2
 call getString
 bcall(_puts)
 ret
getString:
 or a
 ret z
 ld b,a
 xor a
getStringLoop:
 push bc
 ld c,-1	;255
 cpir 
 pop bc
 djnz getStringLoop
 ret
insults1:
 .db "moose",0
 .db "drool",0
 .db "bubble",0
 .db "pork",0
 .db "platypus",0
 .db "hairball",0
 .db "corndog",0
 .db "zit",0
 .db "zipper",0
 .db "possum",0
 .db "blubber",0
 .db "burp",0
 .db "rutabaga",0
 .db "munchkin",0
 .db "puke",0
 .db "cheese",0
 .db "raisin",0
 .db "wombat",0
 .db "snot",0
 .db "jumbo",0
 .db "banana",0
 .db "meatball",0
 .db "aardvark",0
 .db "phlegm",0
 .db "iguana",0
 .db "pygmy",0
 .db "pus",0
 .db "inflato-",0
 .db "goat",0
 .db "tick",0
 .db "fur",0
 .db "scab",0
 .db "newt",0
 .db "yak",0
 .db "tuna",0
 .db "tuba",0
 .db "booger",0
 .db "salami",0
 .db "sheep-dip",0
 .db "weasel",0
 .db "slime",0
 .db "baboon",0
 .db "maggot",0
 .db "lard",0
 .db "chutney",0
insults2:
 .db "back",0
 .db "neck",0
 .db "head",0
 .db "nose",0
 .db "lips",0
 .db "ankles",0
 .db "brain",0
 .db "face",0
 .db "puss",0
 .db "mug",0
 .db "ears",0
 .db "mouth",0
 .db "spleen",0
 .db "jowls",0
 .db "gums",0
 .db "nostrils",0
 .db "belly",0
 .db "bladder",0
 .db "eyes",0
 .db "gut",0
 .db "liver",0
 .db "skull",0
 .db "spine",0
 .db "tongue",0
 .db "toes",0
 .db "rump",0
 .db "teeth",0
 .db "snout",0
 .db "glands",0
 .db "butt",0
 .db "fingers",0
 .db "noggin",0
 .db "earlobes",0
 .db "knees",0
 .db "skin",0
 .db "bones",0
 .db "hair",0
 .db "jaw",0
 .db "pelvis",0
 .db "pancreas",0
 .db "scalp",0
.end