Register to post in forums, or Log in to your existing account
 

Play RetroMUD
Post new topic  Reply to topic     Home » Forums » Finished MUD Scripts
itsmarty
Novice


Joined: 29 Jan 2002
Posts: 37
Location: USA

PostPosted: Sat Nov 30, 2002 4:31 pm   

Simutronics Dragonrealms - Compass
 
This compass indicates directions via buttons that change color when an obvious exit/path exists.

See http://mywebpages.comcast.net/itsmarty/ for an example of this and other buttons.

Martin

#CLASS {Compass}
#TRIGGER "compass" {^Obvious {exits|paths}~: (*)} {
compassdirections = %1
compassdirections = %dups( %replace( @compassdirections, " ", ""))
compassdirections = %dups( %replace( @compassdirections, ".", ""))
compassdirections = %dups( %replace( @compassdirections, ",", "|"))
#IF %ismember( down, @compassdirections) {#VAR compassdown 1} {#VAR compassdown 0}
#IF %ismember( east, @compassdirections) {#VAR compasseast 1} {#VAR compasseast 0}
#IF %ismember( west, @compassdirections) {#VAR compasswest 1} {#VAR compasswest 0}
#IF %ismember( north, @compassdirections) {#VAR compassnorth 1} {#VAR compassnorth 0}
#IF %ismember( south, @compassdirections) {#VAR compasssouth 1} {#VAR compasssouth 0}
#IF %ismember( southeast, @compassdirections) {#VAR compasssoutheast 1} {#VAR compasssoutheast 0}
#IF %ismember( southwest, @compassdirections) {#VAR compasssouthwest 1} {#VAR compasssouthwest 0}
#IF %ismember( northeast, @compassdirections) {#VAR compassnortheast 1} {#VAR compassnortheast 0}
#IF %ismember( northwest, @compassdirections) {#VAR compassnorthwest 1} {#VAR compassnorthwest 0}
#IF %ismember( out, @compassdirections) {#VAR compassout 1} {#VAR compassout 0}
#IF %ismember( up, @compassdirections) {#VAR compassup 1} {#VAR compassup 0}
}
#BUTTON 5 {OUT} {} {OUT} {} {} {compassout} {} {Size} {27} {24} {Pos} {24} {27} {} {110} {} {} "" {} {} {} {2}
#BUTTON 6 {NE} {} {NE} {} {} {compassnortheast} {} {Size} {27} {24} {Pos} {1} {54} {} {110} {} {} "" {} {} {} {2}
#BUTTON 7 {S} {} {S} {} {} {compasssouth} {} {Size} {27} {24} {Pos} {48} {27} {} {110} {} {} "" {} {} {} {2}
#BUTTON 8 {NW} {} {NW} {} {} {compassnorthwest} {} {Size} {27} {24} {Pos} {1} {1} {} {110} {} {} "" {} {} {} {2}
#BUTTON 9 {SE} {} {SE} {} {} {compasssoutheast} {} {Size} {27} {24} {Pos} {48} {54} {} {110} {} {} "" {} {} {} {2}
#BUTTON 10 {SW} {} {SW} {} {} {compasssouthwest} {} {Size} {27} {24} {Pos} {48} {1} {} {110} {} {} "" {} {} {} {2}
#BUTTON 11 {E} {} {E} {} {} {compasseast} {} {Size} {27} {24} {Pos} {24} {54} {} {110} {} {} "" {} {} {} {2}
#BUTTON 12 {UP} {} {UP} {} {} {compassup} {} {Size} {27} {36} {Pos} {1} {81} {} {110} {} {} "" {} {} {} {2}
#BUTTON 13 {DN} {} {DN} {} {} {compassdown} {} {Size} {27} {36} {Pos} {36} {81} {} {110} {} {} "" {} {} {} {2}
#BUTTON 14 {W} {} {W} {} {} {compasswest} {} {Size} {27} {24} {Pos} {24} {1} {} {110} {} {} "" {} {} {} {2}
#BUTTON 15 {N} {} {N} {} {} {compassnorth} {} {Size} {27} {24} {Pos} {1} {27} {} {110} {} {} "" {} {} {} {2}
#CLASS 0
Reply with quote
Display posts from previous:   
Post new topic   Reply to topic     Home » Forums » Finished MUD Scripts All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

© 2009 Zugg Software. Hosted by Wolfpaw.net