Info+ v20140331

Knowledgebase

Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Info+ v20140331

Solution ;;Info+ by Ravenwood Heartsong
;; with SPECIAL thanks to .Star~B~ SpH
;;Info+ v20140331 ====================

;;Info+ Help ==================================

{ "$1" GREPSUB infoplus =
{ "room me users codes" infoplus = } infoplus "" == IF
{ "; Error: Unknown Parameter. Try: Room, Me, User or Codes" LOGMSG "" infoplus =
} infoplus "room" SUBSTR infoplus "me" SUBSTR OR infoplus "users" SUBSTR OR infoplus "codes" SUBSTR OR NOT IF

;;Iinfo+ Room - get all the info available for this room ================
{
"=========================" LOGMSG
" Info+ Room Info " LOGMSG
" by Ravenwood "LOGMSG
"=========================" LOGMSG
"Room Name: " ROOMNAME + LOGMSG
"Room Number: " ROOMID ITOA + LOGMSG
" Doors - " NBRDOORS + LOGMSG
" Spots - " NBRSPOTS NBRDOORS - + LOGMSG
" Users - " NBRROOMUSERS + LOGMSG

{ " Door/Spot " i SPOTIDX ITOA & LOGMSG
{ " Name: \"" i SPOTIDX SPOTNAME & "\"" & LOGMSG } i SPOTIDX SPOTNAME "" == NOT IF
{ " Dest: " i SPOTIDX SPOTDEST ITOA & LOGMSG } i SPOTIDX SPOTDEST 0 <> IF
" State = " i SPOTIDX GETSPOTSTATE ITOA & LOGMSG
{ " The Room is <Locked>" LOGMSG } i SPOTIDX ISLOCKED IF
{ " User is <In the Spot>" LOGMSG } i SPOTIDX INSPOT IF
i ++
} { i NBRSPOTS < } WHILE
"=========================" LOGMSG
"" CHATSTR =
} infoplus "room" SUBSTR IF

;;Info+ Me - My Info ==================================

{
"=========================" LOGMSG
" Info+ My Info " LOGMSG
" by Ravenwood "LOGMSG
"=========================" LOGMSG
" Name: " USERNAME + LOGMSG
" Client Id #: " CLIENTID + LOGMSG
" Room User # " WHOME ITOA + LOGMSG
" Rank: " { "Guest" } { { { "God" } { "Wizard" } ISGOD IFELSE } { "Member" } ISWIZARD IFELSE } ISGUEST IFELSE + LOGMSG
" Position: " POSX ITOA & " " & POSY ITOA + LOGMSG
TICKS 216000 / h = TICKS 3600 / h 60 * - m =
" Last reboot: " { h ITOA & " hour" & { "s" & } h 1 > IF " and " & } h 0 > IF m ITOA & " minutes." + LOGMSG
" Current Props: " { pc USERPROP ITOA & " " & pc ++ } { pc NBRUSERPROPS < } WHILE LOGMSG
"=========================" LOGMSG

} infoplus "me" SUBSTR IF

;;Info+ Me - Users Info ==================================
{
"=========================" LOGMSG
" Info+ User Info " LOGMSG
" by Ravenwood "LOGMSG
"=========================" LOGMSG
"" LOGMSG
" There are " NBRROOMUSERS ITOA & " users. (Listed in Entrance Order)" + LOGMSG
"" LOGMSG
{
" Name: " u ROOMUSER WHONAME + LOGMSG
" Room User #: " u ROOMUSER ITOA + LOGMSG
" Position: " u ROOMUSER WHOPOS SWAP ITOA " " & SWAP ITOA & & LOGMSG
"" LOGMSG
u ++
} { u NBRROOMUSERS < } WHILE
"=========================" LOGMSG

} infoplus "users" SUBSTR IF

{
{

"=========================" LOGMSG
" Info+ User Codes " LOGMSG
" by Ravenwood "LOGMSG
"=========================" LOGMSG
"" LOGMSG
"'glist -p" SAY
"'glist -k" SAY
"YES" SOUND
"The RegHash Codes, IP Addresses and Z Codes of all online users are now in your Log Window for copying." LOGMSG
} ISWIZARD IF
"=========================" LOGMSG

} infoplus "codes" SUBSTR IF

"" CHATSTR =
} CHATSTR "^info+ *(.*)" GREPSTR IF

;;==============================================

Was this article helpful? yes / no

Article details

Article ID:	356
Category:	Cyborg
Date added:	04-02-2014 10:01:34
Views:	953
Rating (Votes):	(1)

<< Go back