-+-+-+-+-+-+-+-+ START OF PART 10 -+-+-+-+-+-+-+-+ X sitem.flags := uor(sitem.flags,%X'00040000') V; X sitem.name := sitem.name + ' of Fire'; X add_tohit(4,4,1,indx,r1); X add_todam(4,4,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 X END; X 6,7 : BEGIN `20 X sitem.flags := uor(sitem.flags,%X'00008000') V; X sitem.name := sitem.name + ' of Slay Evil'; X add_tohit(4,4,1,indx,r1); X add_todam(4,4,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 X END; X 8,9 : BEGIN X sitem.flags := uor(sitem.flags,%X'00004000') V; X sitem.name := sitem.name + ' of Slay Monster V'; X add_tohit(3,2,1,indx,r1); X add_todam(3,2,1,indx,r2); X sitem.cost := sitem.cost + 900*r1 + 900*r1 X END; X 10 : BEGIN X sitem.flags := uor(sitem.flags,%X'00002000') V; X sitem.name := sitem.name + ' of Dragon Slayi Vng'; X add_tohit(8,8,1,indx,r1); X add_todam(8,8,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 X END; X otherwise ; X END;`7Bcase`7D X sitem.number := 0; X for r1 := 1 to 7 do`20 X sitem.number := sitem.number + randint(12); X missle_ctr := missle_ctr + 1; X if (missle_ctr > 65534) then missle_ctr := 1; X sitem.subval := missle_ctr + 512; X END; X 20 : `7BSling, crossbows and bows`7D X BEGIN X add_tohit(5,5,1,indx,r1); X sitem.cost := sitem.cost + 1000*r1 + 10000 X END; X 21,22,23: `7BWeapons`7D X case randint(16) of X 1, 9: BEGIN X sitem.flags := uor(sitem.flags,%X'01418001') V; X sitem.name := sitem.name + ' (HA)'; X add_tohit(6,6,1,indx,r1); X add_todam(6,6,1,indx,r2); X add_toac(5,1,1,indx,r4); X add_p1(1,4,1,indx,r5);`7Bfor sustain stat`7D X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 2000*r4; X sitem.cost := sitem.cost + 20000 X END; X 2,10: BEGIN X sitem.flags := uor(sitem.flags,%X'07B80900') V; X sitem.name := sitem.name + ' `5B%P4`5D (DF)' V; X add_tohit(6,6,1,indx,r1); X add_todam(6,6,1,indx,r2); X add_toac(5,5,8,indx,r4); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 2000*r4; X sitem.cost := sitem.cost + 25000 X END; X 3,11: BEGIN X sitem.flags := uor(sitem.flags,%X'01004000') V; X sitem.name := sitem.name + ' (SM)'; X add_tohit(4,4,1,indx,r1); X add_todam(4,4,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 15000 X END; X 4,12: BEGIN X sitem.flags := uor(sitem.flags,%X'00002000') V; X sitem.name := sitem.name + ' (SD)'; X add_tohit(5,5,1,indx,r1); X add_todam(5,5,1,indx,r2); X add_toac(10,1,1,indx,r4); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 5000*r4; X sitem.cost := sitem.cost + 15000 X END; X 5,13: BEGIN X sitem.flags := uor(sitem.flags,%X'01008000') V; X sitem.name := sitem.name + ' (SE)'; X add_tohit(4,4,1,indx,r1); X add_todam(4,4,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 15000 X END; X 6,14: BEGIN X sitem.flags := uor(sitem.flags,%X'01010000') V; X sitem.name := sitem.name + ' (SU)'; X add_tohit(4,4,1,indx,r1); X add_todam(4,4,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 15000 X END; X 7,15: BEGIN X sitem.flags := uor(sitem.flags,%X'00040000') V; X sitem.name := sitem.name + ' (FT)'; X add_tohit(4,4,1,indx,r1); X add_todam(4,4,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 15000 X END; X 8,16: BEGIN X sitem.flags := uor(sitem.flags,%X'00002000') V; X sitem.name := sitem.name + ' (SD)'; X add_tohit(5,5,1,indx,r1); X add_todam(5,5,1,indx,r2); X add_toac(10,1,1,indx,r4); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 V; X sitem.cost := sitem.cost + 5000*r4; X sitem.cost := sitem.cost + 15000 X END; X otherwise ; X END; X 25 : `7BDigging tools`7D X BEGIN X add_p1(0,3,3,indx,r5); X add_tohit(4,4,1,indx,r1); X add_todam(4,4,1,indx,r2); X sitem.cost := sitem.cost + 1000*r1 + 1000*r2 + 1000*r V5; X sitem.cost := sitem.cost + 15000 X END; X 31 : `7BGloves and Gauntlets`7D X case randint(2) of X 1: BEGIN X sitem.flags := uor(sitem.flags,%X'00800000'); X sitem.name := sitem.name + ' of Free Action'; X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 1000*r3 + 1000*r4; X sitem.cost := sitem.cost + 15000 X END; X 2: BEGIN X sitem.name := sitem.name + ' of Slaying'; X add_tohit(6,6,1,indx,r1); X add_todam(6,6,1,indx,r2); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 5000*r1 + 6000*r2; X sitem.cost := sitem.cost + 1000*r3 + 1000*r4; X sitem.cost := sitem.cost + 15000 X END; X otherwise ; X END; X 32 : `7BCloaks`7D X case randint(2) of`20 X 1: BEGIN X sitem.name := sitem.name + ' of Protection'; X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 5000*r3 + 5000*r4 X END; X 2: BEGIN X sitem.flags := uor(sitem.flags,%X'00000100'); X sitem.name := sitem.name + ' of Stealth (%P1)'; X add_p1(0,2,2,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5 + 5000*r3 + V 5000*r4 X END; X otherwise ; X END; X 33 : `7BHelms`7D X case sitem.subval of`20 X 1,2,3,4,5: case randint(3) of X 1: BEGIN X sitem.flags := uor(sitem.flags,%X'000 V00008'); X sitem.name := sitem.name + ' of Intel Vligence'; X add_p1(0,2,2,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X 2: BEGIN X sitem.flags := uor(sitem.flags,%X'000 V00010'); X sitem.name := sitem.name + ' of Wisdo Vm'; X add_p1(0,2,2,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X 3: BEGIN X sitem.flags := uor(sitem.flags,%X'400 V00000'); X sitem.name := sitem.name + ' of Infra V-Vision'; X add_p1(0,4,4,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X otherwise ; X END; X 6,7,8 : case randint(6) of X 1: BEGIN X sitem.flags := uor(sitem.flags,%X'008 V00007'); X sitem.name := sitem.name + ' of Might V'; X add_p1(0,4,4,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X 2: BEGIN X sitem.flags := uor(sitem.flags,%X'000 V00030'); X sitem.name := sitem.name + ' of Lordl Viness'; X add_p1(0,4,4,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X 3: BEGIN X sitem.flags := uor(sitem.flags,%X'013 V80008'); X sitem.name := sitem.name + ' of the M Vagi'; X add_p1(0,4,4,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X 4: BEGIN X sitem.flags := uor(sitem.flags,%X'000 V00020'); X sitem.name := sitem.name + ' of Beaut Vy'; X add_p1(0,4,4,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 X END; X 5: BEGIN X sitem.flags := uor(sitem.flags,%X'010 V00040'); X sitem.name := sitem.name + ' of Seein Vg'; X add_p1(0,4,4,indx,r5); X add_ac(4,4,1,indx,r3); X add_toac(4,4,1,indx,r4); X sitem.cost := sitem.cost + 10000*r5; X sitem.cost := sitem.cost + 5000*r3 + V 5000*r4 +-+-+-+-+-+-+-+- END OF PART 10 +-+-+-+-+-+-+-+-