@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." .