@verb #7148:":i*nfo" none none none rxdo #7165
@program #7148:":i*nfo" none none none
{p} = args
o = {tostr("Trader Name : ", p:rank(), " ", p.name, "")}
if (p.alignment < 0)
aname = "Evil"
elseif (p.alignment > 0)
aname = "Good"
else
aname = "Neutral"
endif
o = {@o, tostr("Rank and Exp : ", p.experience, " points, Alignment=", p.alignment, " ", aname, "")}
o = {@o, tostr("Ship Name : ", this.name, "")}
o = {@o, tostr("Ship Info : ", this.class.name, " Ported=", this.ported, " Kills=", this.kills, "")}
o = {@o, tostr("Date Built : ", ctime(this.build_date), "")}
o = {@o, tostr("Turns to Warp : ", this.class.turns_per_warp, "")}
o = {@o, tostr("Current Sector : ", this.location:num(), "")}
o = {@o, tostr("Turns left : ", p.turns_left, "")}
holds = tostr("Total Holds : ", this.holds)
this.ore > 0 && (holds = tostr(holds, " - Ore=", this.ore))
this.organics > 0 && (holds = tostr(holds, " - Organics=", this.organics))
this.equipment > 0 && (holds = tostr(holds, " - Equipment=", this.equipment))
o = {@o, holds}
o = {@o, tostr("Fighters : ", this.fighters, "")}
o = {@o, tostr("Credits : ", p.cash, "")}
p:tell(o)
"Last modified by manta (#7165) on Thu Dec 6 14:16:02 2001 MST."
.