Grapat.bas

20000 REM Tooth and Claw Attack Table
20005 RESTORE 20100:GOTO 20050
20010 RESTORE 20150:GOTO 20050
20015 RESTORE 20200:GOTO 20050
20020 RESTORE 20250:GOTO 20050
20025 RESTORE 20300:GOTO 20050
20050 RANDOMIZE TIMER
20055 READ I:READ HITS:READ CRIT:IF OB>I THEN GOTO 20055
20060 CRIT1=CRIT
20065 IF CRIT1>CRITT1M THEN CRIT1=CRITT1M
20066 IF CRITT2<>0 THEN CRIT2=CRIT1-1
20067 IF CRIT2<0 AND CRIT2<>-2 THEN CRIT2=0
20068 IF CRIT2>CRITT2M THEN CRIT2=CRITT2M
20070 CHAIN "merp",2695,ALL
20100 DATA 60,0,0,70,1,0,75,2,0,80,4,0,85,5,0,90,7,-2,95,8,-2,100,10,-2,105,11,1,110,14,1,115,15,1,120,16,2,125,18,2,130,20,2,135,22,3,140,28,3,145,30,3,150,33,4
20150 DATA 65,0,0,70,1,0,75,3,0,80,4,-2,85,6,-2,90,7,-2,95,8,1,100,9,1,105,10,1,110,12,2,115,13,2,120,14,3,125,16,3,130,18,3,135,20,4,140,26,4,145,28,4,150,30,5
20200 DATA 70,0,0,75,1,0,80,2,0,85,4,-2,90,5,-2,95,6,-2,100,7,1,105,8,1,110,10,1,115,11,2,120,12,2,125,14,2,130,16,3,135,18,3,140,22,3,145,25,4,150,27,5
20250 DATA 65,0,0,70,1,0,75,2,-2,80,3,-2,90,4,1,95,5,1,100,6,1,105,7,1,110,8,2,115,9,3,120,10,3,125,11,3,130,13,4,135,14,4,140,19,4,145,21,5,150,23,5
20300 DATA 55,0,0,65,1,0,70,2,-2,75,2,1,85,3,1,95,4,,1,105,5,2,110,6,3,115,7,3,120,8,3,125,10,4,130,11,4,135,12,4,140,14,5,145,16,5,150,18,5