setup:
setvariable temp %friends
setvariable diskname %myname
counter set 0

goto getitem%combat
getitem1:
put store weapon
getitem0:

pickitup:
match abort You need a free hand to pick that up.
match pickitup ...wait
match putindisk You pick up
put get %0
put open %myname disk
matchwait

putindisk:
match nextfriend I could not find what you were referring to.
match nextfriend won't fit in the
match nextfriend It's closed!
match nextfriend Hey, that belongs
match diskokay You put a
put put %0 in %diskname disk
matchwait




nextfriend:
counter add 1
goto nextfriend%c
nextfriend1:
goto nextfriend1%temp
nextfriend2:
goto nextfriend2%temp
nextfriend3:
goto nextfriend3%temp
nextfriend4:
goto nextfriend4%temp
nextfriend11:
nextfriend12:
nextfriend13:
nextfriend14:
nextfriend15:
nextfriend16:
nextfriend17:
nextfriend18:
nextfriend19:
setvariable diskname %friend1
goto putindisk
nextfriend22:
nextfriend23:
nextfriend24:
nextfriend25:
nextfriend26:
nextfriend27:
nextfriend28:
nextfriend29:
setvariable diskname %friend2
goto putindisk
nextfriend33:
nextfriend34:
nextfriend35:
nextfriend36:
nextfriend37:
nextfriend38:
nextfriend39:
setvariable diskname %friend3
goto putindisk
nextfriend44:
nextfriend45:
nextfriend46:
nextfriend47:
nextfriend48:
nextfriend49:
setvariable diskname %friend4
goto putindisk
nextfriend55:
nextfriend56:
nextfriend57:
nextfriend58:
nextfriend59:
setvariable diskname %friend5
goto putindisk
nextfriend66:
nextfriend67:
nextfriend68:
nextfriend69:
setvariable diskname %friend6
goto putindisk
nextfriend77:
nextfriend78:
nextfriend79:
setvariable diskname %friend7
goto putindisk
nextfriend88:
nextfriend89:
setvariable diskname %friend8
goto putindisk
nextfriend99:
setvariable diskname %friend9
goto putindisk
nextfriend
nextfriend109:
goto abort


#Out of friends and disks to try... abort.
LabelError:
ECHO temp = %temp
ECHO diskname = %diskname
ECHO counter = %c
ECHO C-temp would be %c - %temp
exit:
goto abort

diskokay:
goto diskokay%combat
diskokay1:
put get my %myweapon
diskokay0:
goto disklid%disklid
disklipclose:
put close %myname disk
disklidopen:
exit

abort:
put drop my %0
goto diskokay