Need cmd to say dmg of weapons

westrupp · Post by **westrupp** » Tue Dec 18, 2007 10:01 am

in pol093 old modified zh scripts.

Thanks for all help...
msn: westrupp@hotmail.com

Post by **Austin** » Tue Dec 18, 2007 5:22 pm

http://s77.photobucket.com/albums/j46/P ... eminfo.jpg

https://pol-distro.svn.sourceforge.net/ ... eminfo.src

westrupp · Post by **westrupp** » Wed Dec 19, 2007 9:08 am

Austin wrote:http://s77.photobucket.com/albums/j46/P ... eminfo.jpg

https://pol-distro.svn.sourceforge.net/ ... eminfo.src

sorry, cmd for players see dmg of weapons...

coltain · Post by **coltain** » Wed Dec 19, 2007 2:14 pm

cant You search in iteminfo.src part that shows that and use it????

use uo;
use polsys;

program show_dmg_txt(who)
var cfg := GetItemDescriptor((who.weapon).objtype);
mindmg := Cint(cfg.MinDamage + who.weapon.dmg_mod);
maxdmg := Cint(cfg.MaxDamage + who.weapon.dmg_mod);
sendsysmessage(who,"Min dmg: "+mindmg+" / Max dmg: "+maxdmg);
endprogram

I dont know if it works

westrupp · Post by **westrupp** » Thu Dec 20, 2007 11:25 am

i maked this script but he dont appear target to click in weapons...

Code: Select all

use uo;
program dmg(who, character)

var item;

SendSysmessage( character , "Select an Item." );
    item :=  Target( character , TGTOPT_NOCHECK_LOS );

    if(!item or item.intelligence)
       SendSysmessage( character , "Invalid selection." );

       return;
    endif


function General( item )
   if(item.hp)
    data[16] := item.hp + "/" + item.maxhp;
   else
    data[16] := "n/a";    
    layout[36] := 0;
   endif
   var weapfile := ReadConfigFile( ":combat:itemdesc" );
   var entry := weapfile[item.objtype].damage;
   if(entry)
      var dam := weapfile[item.objtype].damage;
        data[17] := "Damage";
        data[18] := dam;
        data[32] := "Dmg modifier";
	data[33] := item.dmg_mod;
   endif
sendsysmessage(who," Damage: " + dam + " / Dmg modifier: " + item.dmg_mod ); 
endfunction
endprogram

coltain · Post by **coltain** » Fri Dec 21, 2007 4:19 am

uh, Your script...

use uo;
program dmg(who)

var item;

SendSysmessage( who , "Select an Item." );

item := Target( who , TGTOPT_NOCHECK_LOS );

if(!item or !(item.isa(POLCLASS_WEAPON)))
SendSysmessage( who , "Invalid selection." );

return;
endif

show_dmg(who,item); //in this You can use what I wrote in previous post
endprogram

function show_dmg(who, item )

endfunction

westrupp · Post by **westrupp** » Mon Mar 24, 2008 5:23 am

thanks for all, i maked...char now say status of weapon