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
Taishar
Novice


Joined: 23 Jul 2001
Posts: 47
Location: USA

PostPosted: Fri Sep 14, 2001 9:38 am   

Dragon's Gate Disguise Detector
 
The script intially triggers off of 'Wizard mode is active.' Which is the first thing that comes up after your character is in the game. (Assuming you have wizard mode on... otherwise you'll have to change it so it starts off of something else)
The script keeps track of people when they come into the game and when they leave. Make sure that you have this option enabled (set update no-login off). When you want to see who has been disguised, just type 'whothief' it will compare the who all list from that instant with the one from since you logged on that it has been updating with log ons and log offs (and disconnects). If there has been a name change it will say so and so is now called so and so. If there has been no names changed, it will say 'No one is disguised.'



#CLASS {Who}
#ALIAS whothief {
#VAR Thieves.Oldname {}
#VAR Thieves.Newname {}
#VAR ThiefCheck {}
#T+ ThiefCheck
who all
#WAIT 2000
#FORALL @ThiefCheck {#IF %ismember( %i, @V_CurrentPlayers) {} {#VAR Thieves.Newname %i}}
#FORALL @V_CurrentPlayers {#IF %ismember( %i, @ThiefCheck) {} {#VAR Thieves.Oldname %i}}
#if (@Thieves.newname="") {#SHOW No one is disguised.} {#SHOW @Thieves.Oldname is now known as @Thieves.Newname}
}
#ALIAS whoall {
#VAR V_CurrentPlayers {}
#T+ Players
who all
}
#TRIGGER {Wizard mode is active.} {whoall}
#CLASS 0
#CLASS {Who|ThiefCheck} {disable}
#TRIGGER {Full who list activated!} {#GAG}
#TRIGGER {^Current Adventurers} {
#T+ ThiefAdd
#GAG
}
#TRIGGER {^You notice (%d) adventurers.} {
#T- ThiefAdd
#T- ThiefCheck
#GAG
#GAG -3
}
#TRIGGER {who all} {#GAG}
#CLASS 0
#CLASS {Who|ThiefCheck|ThiefAdd} {disable}
#TRIGGER {^%s(%x) (%x)%s(%x) (%x)} {
#ADDITEM ThiefCheck %concat( "%1", " ", "%2")
#ADDITEM ThiefCheck %concat( "%3", " ", "%4")
#GAG
}
#TRIGGER {^%s(%x) (%x)%s$} {
#ADDITEM ThiefCheck %concat( "%1", " ", "%2")
#GAG
}
#CLASS 0
#CLASS {Who|Players} {disable}
#TRIGGER {Full who list activated!} {#GAG}
#TRIGGER {^Current Adventurers} {
#T+ PlayersAdd
#GAG
}
#TRIGGER {^You notice (%d) adventurers.} {
#T- PlayersAdd
#T- Players
#GAG
#GAG -3
}
#TRIGGER {who all} {#GAG}
#CLASS 0
#CLASS {Who|Players|PlayersAdd} {disable}
#TRIGGER {^%s(%x) (%x)%s(%x) (%x)} {
#ADDITEM V_CurrentPlayers %concat( "%1", " ", "%2")
#ADDITEM V_CurrentPlayers %concat( "%3", " ", "%4")
#GAG
}
#TRIGGER {^%s(%x) (%x)%s$} {
#ADDITEM V_CurrentPlayers %concat( "%1", " ", "%2")
#GAG
}
#CLASS 0



Enjoy!

The unstained tower breaks and bends knee to the forgotten sign. The seas rage, and storm clouds gather unseen. What was exalted is cast down; what was cast down is raised up. Order burns to clear his path.
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