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
perenico
Beginner


Joined: 07 Jun 2005
Posts: 23
Location: France

PostPosted: Tue Aug 22, 2006 8:59 am   

thief disguise in astaria (or name generator)
 
ok, here's something funny thieves in astaria could use : a random name generator. Of course thee is no list of names, just a given number of letters next to each others.

Code:
#CLASS {thief|disguise}
#ALIAS quickdis {
  remove disguise
  disguise
  find_name
  thief
  3
  2
  .
  .
  }
#ALIAS find_letter {#VA letter {%item( @LetterList, %random( 0, 26))}}
#ALIAS find_name {
  #LOO 1,%random( 8, 11) {
    find_letter
    #VA disguise_name {%concat( @disguise_name, @letter)}
    }
  #SE @disguise_name
  #VA disguise_name {}
  }
#VAR LetterList {a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z}
#VAR letter {m}
#CLASS 0


Oh, yeah, it's no beautiful code, I have no interest in making it look better, it just works :)

For it to work, just be sure you have a disguise kit in your ebony cloak, then type quickdis. done !

Thanks to Roein who forced me to implement this, I thought about it one day but didn't think it could be anything than just fun. Now I know it has some use, in pk. Now it can be improved to add a random guild or level or whatever.

On the following pic, notice the name in the last line of the disguise.

_________________
-=-=-=-=-=-=-=-=-=-=-=-=
astaria3.com : 5000
character name : Vandemar
-=-=-=-=-=-=-=-=-=-=-=-=
Zmud : 7.21
-=-=-=-=-=-=-=-=-=-=-=-=
Reply with quote
surge321123
Beginner


Joined: 09 Jun 2011
Posts: 14

PostPosted: Mon Jun 13, 2011 10:25 pm   
 
I've since changed this script to make sure the name can be pronounced. The wizards suddenly decided to start enforcing the name rules so I was forced to rewrite it.

Code:
#CLASS {thief|disguise}
#ALIAS find_con {#VA conletter {%item( @conslist, %random( 1, 19))}}
#ALIAS find_vow {#VA vowletter {%item( @vowelist, %random( 1, 5))}}
#ALIAS find_name {#VA disguise_name ""
   #LOO 5 {
     find_con
     #VA disguise_name {%concat( @disguise_name, @conletter)}
     find_vow
     #VA disguise_name {%concat( @disguise_name, @vowletter)}
     }
   find_vow
   #VA disguise_name {%concat( @disguise_name, @vowletter)}
   }
#ALIAS quickdis {ud
   find_name
   disguise
   #SEND @disguise_name
   thief
   1
   1
   ~.
   }
#VAR conlist {b|c|d|f|g|h|j|k|l|m|n|p|r|s|t|V|w|x|y}
#VAR vowelist {a|e|i|o|u}
#VAR conletter {b}
#VAR voweletter {a}
#VAR disguise_name {}
#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