if ptyp<3|ptyp>4 then do;Transmit "c7You Swing with your "pnam;end
if ptyp=3 then do;Transmit "c7You Fire at "monster.1" With your "pnam;end
if ptyp=4 then do;Transmit "c7Vapors Blast forth from your "pnam".";end
hit=random(1,10,time('s'))
dmg=random(1,5,time('s'))
dmg=dmg+ppow
if hit<yourchancetohit then do;transmit "c1You hit the r1 "monster.1" r0 for "dmg " Points!";monster.14=monster.14-dmg;end
if hit>yourchancetohit then do;transmit "c1You Missed!";end
if monster.7>0 then if hit=yourchancetohit then do;transmit "c1You hit his Armor!n1Damaging it.";monster.4=monster.4-dmg;if monster.4=0 then do;transmit "c4His Armor is Destroyed!";monster.2="None";monster.3=0;monster.4=0;end;end
if monster.7<1 then if hit=yourchancetohit then do;transmit "c1You hit the r1 "monster.1" r0 for "dmg " Points!";monster.14=monster.14-dmg;end