-+-+-+-+-+-+-+-+ START OF PART 11 -+-+-+-+-+-+-+-+ X END; X 6: BEGIN X sitem.flags := uor(sitem.flags,%X'000 V00800'); X sitem.name := sitem.name + ' of Regen Veration'; X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X otherwise ; X END; X otherwise ; X END; X 34,35 : `7BShields and Hard Armor`7D X case randint(10) of X 1, 6: BEGIN X sitem.flags := uor(sitem.flags,%X'02380000'); X sitem.name := sitem.name + ' (R)'; X add_toac(8,8,1,indx,r4); X sitem.cost := sitem.cost + 10000*r4; X sitem.cost := sitem.cost + 50000 X END; X 2, 7: BEGIN X sitem.flags := uor(sitem.flags,%X'00100000'); X sitem.name := sitem.name + ' (RA)'; X add_toac(8,8,1,indx,r4); X sitem.cost := sitem.cost + 10000*r4; X sitem.cost := sitem.cost + 40000 X END; X 3, 8: BEGIN X sitem.flags := uor(sitem.flags,%X'00080000'); X sitem.name := sitem.name + ' (RF)'; X add_toac(8,8,1,indx,r4); X sitem.cost := sitem.cost + 10000*r4; X sitem.cost := sitem.cost + 40000 X END; X 4, 9: BEGIN X sitem.flags := uor(sitem.flags,%X'00200000'); X sitem.name := sitem.name + ' (RC)'; X add_toac(8,8,1,indx,r4); X sitem.cost := sitem.cost + 10000*r4; X sitem.cost := sitem.cost + 40000 X END; X 5,10: BEGIN X sitem.flags := uor(sitem.flags,%X'02000000'); X sitem.name := sitem.name + ' (RL)'; X add_toac(8,8,1,indx,r4); X sitem.cost := sitem.cost + 10000*r4; X sitem.cost := sitem.cost + 30000 X END; X otherwise ; X END; X 40 : `7BAmulets`7D X case sitem.subval of X 1,2: BEGIN X add_p1(0,2,2,indx,r5); X sitem.cost := sitem.cost + 10000*r5 X END; X 3 : BEGIN X add_p1(8,15,15,indx,r5); X sitem.cost := sitem.cost + 10000*r5 X END; X 5 : BEGIN X add_toac(4,4,0,indx,r4); X sitem.cost := sitem.cost + 10000*r4 X END; X otherwise ; X END; X 45 : `7BRings`7D X case sitem.subval of X 1,2,3,4: `7BGain stat`7D X BEGIN X add_p1(0,2,2,indx,r5); X sitem.cost := sitem.cost + 10000*r5 X END; X 7 : `7BSpeed`7D X BEGIN X add_p1(1,2,1,indx,r5); X sitem.cost := sitem.cost + 500000*r5 X END; X 8 : `7BSearching`7D X BEGIN X add_p1(8,15,15,indx,r5); X sitem.cost := sitem.cost + 10000*r5 X END; X 10,13,26: `7BSlow Digestion, Feather-Falling, See-Inv Vis`7D X BEGIN X add_toac(2,2,1,indx,r4); X sitem.cost := sitem.cost + 10000*r4 X END; X 17,18,19: `7BLordly Protection`7D X BEGIN X add_toac(10,8,5,indx,r4); X sitem.cost := sitem.cost + 10000*r4 X END; X 22 : `7BIncrease Damage`7D X BEGIN X add_todam(3,3,3,indx,r2); X sitem.cost := sitem.cost + 10000*r2 X END; X 23 : `7BIncrease To-hit`7D X BEGIN X add_tohit(3,3,3,indx,r1); X sitem.cost := sitem.cost + 10000*r1 X END; X 24 : `7BProtection`7D `20 X BEGIN X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r4 X END; X 33 : `7BSlaying`7D X BEGIN X add_tohit(3,3,3,indx,r1); X add_todam(3,3,3,indx,r2); X sitem.cost := sitem.cost + 10000*r2 + 1000 V0*r1 X END; X otherwise ; X END; X 55 : `7BStaves`7D X case sitem.subval of X 1 : BEGIN `20 X add_p1_rods(32,20,12,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 2 : BEGIN X add_p1_rods(14,8,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 3 : BEGIN X add_p1_rods(11,5,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 4 : BEGIN X add_p1_rods(32,20,12,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 5 : BEGIN X add_p1_rods(21,15,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; `20 X 6 : BEGIN X add_p1_rods(9,4,5,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 7 : BEGIN X add_p1_rods(8,5,3,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 8 : BEGIN X add_p1_rods(4,3,1,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 9 : BEGIN X add_p1_rods(4,3,1,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 10 : BEGIN X add_p1_rods(4,3,1,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 11 : BEGIN X add_p1_rods(11,5,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 13 : BEGIN X add_p1_rods(11,5,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 14 : BEGIN X add_p1_rods(11,5,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 16 : BEGIN X add_p1_rods(22,10,12,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 17 : BEGIN X add_p1_rods(7,3,4,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 19 : BEGIN X add_p1_rods(11,5,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 20 : BEGIN X add_p1_rods(7,3,4,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 21 : BEGIN X add_p1_rods(22,10,12,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 22 : BEGIN X add_p1_rods(7,3,4,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 23 : BEGIN `20 X add_p1_rods(7,3,4,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 24 : BEGIN `20 X add_p1_rods(7,3,1,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X otherwise ; `20 X END; X 65 : `7BWands`7D X case sitem.subval of X 1 : BEGIN X add_p1_rods(16,10,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 2 : BEGIN `20 X add_p1_rods(14,8,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 3 : BEGIN `20 X add_p1_rods(11,5,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 4 : BEGIN `20 X add_p1_rods(14,8,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 5 : BEGIN `20 X add_p1_rods(7,4,3,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 6 : BEGIN `20 X add_p1_rods(14,8,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 9 : BEGIN `20 X add_p1_rods(16,10,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 10 : BEGIN `20 X add_p1_rods(18,12,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 11 : BEGIN `20 X add_p1_rods(22,10,12,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 12 : BEGIN `20 X add_p1_rods(6,3,3,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 13 : BEGIN `20 X add_p1_rods(14,8,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 14 : BEGIN `20 X add_p1_rods(16,10,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 15 : BEGIN `20 X add_p1_rods(8,5,3,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 16 : BEGIN `20 X add_p1_rods(8,5,3,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 17 : BEGIN `20 X add_p1_rods(11,5,6,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 18 : BEGIN `20 X add_p1_rods(9,5,4,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 19 : BEGIN `20 X add_p1_rods(12,8,4,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 20 : BEGIN `20 X add_p1_rods(12,8,4,indx,r5); X sitem.cost := sitem.cost + 5000*r5 X END; X 21 : BEGIN `20 X add_p1_rods(12,8,4,indx,r5); +-+-+-+-+-+-+-+- END OF PART 11 +-+-+-+-+-+-+-+-