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
Wulfsbane
Wanderer


Joined: 11 Oct 2000
Posts: 63
Location: USA

PostPosted: Wed Mar 07, 2001 8:37 pm   

TempusMUD/Adapable - Comma Insertion into Exp
 
this can be adapted to any mud quite easily to any mud if you have the know how...
Ok... lets start out with something simple... just basic exp calculation...

quote:

#GAG
#VAR tempEXP @currEXP
#VAR currEXP %1
#MATH mobEXP @tempEXP-@currEXP



@mobEXP = Exp earned from mob...
@currEXP = Current exp needed to level...
Reply with quote
Wulfsbane
Wanderer


Joined: 11 Oct 2000
Posts: 63
Location: USA

PostPosted: Wed Mar 07, 2001 8:38 pm   
 
Ok ok.. that was a lil too simple... this next one caused me a few head aches...

quote:

#GAG
#VAR tempEXP @currEXP
#VAR currEXP %1
#MATH mobEXP @tempEXP-@currEXP
#VAR mobNUMB %len(@mobEXP)
#VAR curNUMB %len(@currEXP)
#NOOP -----------------------------------------------
#NOOP ----------------Comma Insertion----------------
#NOOP -----------------------------------------------
#IF (@mobNUMB = 4) {#VAR mobEXPedit %insert(",",@mobEXP,2)}
#IF (@mobNUMB = 5) {#VAR mobEXPedit %insert(",",@mobEXP,3)}
#IF (@mobNUMB = 6) {#VAR mobEXPedit %insert(",",@mobEXP,4)}
#IF (@curNUMB = 4) {#VAR curEXPedit %insert(",",@currEXP,2)}
#IF (@curNUMB = 5) {#VAR curEXPedit %insert(",",@currEXP,3)}
#IF (@curNUMB = 6) {#VAR curEXPedit %insert(",",@currEXP,4)}
#IF (@mobNUMB = 7) {#VAR mobEXPedit %insert(",",@mobEXP,2)
#VAR mobEXPedit %insert(",",@mobEXPedit,6)}
#IF (@mobNUMB = 8) {#VAR mobEXPedit %insert(",",@mobEXP,3)
#VAR mobEXPedit %insert(",",@mobEXPedit,7)}
#IF (@mobNUMB = 9) {#VAR mobEXPedit %insert(",",@mobEXP,4)
#VAR mobEXPedit %insert(",",@mobEXPedit,8)}
#IF (@curNUMB = 7) {#VAR curEXPedit %insert(",",@currEXP,2)
#VAR curEXPedit %insert(",",@curEXPedit,6)}
#IF (@curNUMB = 8) {#VAR curEXPedit %insert(",",@currEXP,3)
#VAR curEXPedit %insert(",",@curEXPedit,7)}
#IF (@curNUMB = 9) {#VAR curEXPedit %insert(",",@currEXP,4)
#VAR curEXPedit %insert(",",@curEXPedit,8)}
#IF (@mobNUMB < 4) {#VAR mobEXPedit @mobEXP}
#IF (@curNUMB < 4) {#VAR curEXPedit @currEXP}



@mobEXPedit = Exp earned from mob with commas...
@curEXPedit = Current exp needed to level with commas...
Reply with quote
Wulfsbane
Wanderer


Joined: 11 Oct 2000
Posts: 63
Location: USA

PostPosted: Wed Mar 07, 2001 8:40 pm   
 
Nice eh? For those of you that still arent even stunned... this one caused a migrane... it not complete because you'll have to add a trigger to where you recall so that the varaible can reset.

quote:

#GAG
#VAR tempEXP @currEXP
#VAR currEXP %1
#MATH mobEXP @tempEXP-@currEXP
#MATH AREAmobEXP @mobEXP+@AREAmobEXP
#IF (@AREAmobEXP < 0) {#VAR AREAmobEXP 0}
#VAR mobNUMB %len(@mobEXP)
#VAR curNUMB %len(@currEXP)
#NOOP -----------------------------------------------
#NOOP ----------------Comma Insertion----------------
#NOOP -----------------------------------------------
#IF (@mobNUMB = 4) {#VAR mobEXPedit %insert(",",@mobEXP,2)}
#IF (@mobNUMB = 5) {#VAR mobEXPedit %insert(",",@mobEXP,3)}
#IF (@mobNUMB = 6) {#VAR mobEXPedit %insert(",",@mobEXP,4)}
#IF (@curNUMB = 4) {#VAR curEXPedit %insert(",",@currEXP,2)}
#IF (@curNUMB = 5) {#VAR curEXPedit %insert(",",@currEXP,3)}
#IF (@curNUMB = 6) {#VAR curEXPedit %insert(",",@currEXP,4)}
#IF (@mobNUMB = 7) {#VAR mobEXPedit %insert(",",@mobEXP,2)
#VAR mobEXPedit %insert(",",@mobEXPedit,6)}
#IF (@mobNUMB = 8) {#VAR mobEXPedit %insert(",",@mobEXP,3)
#VAR mobEXPedit %insert(",",@mobEXPedit,7)}
#IF (@mobNUMB = 9) {#VAR mobEXPedit %insert(",",@mobEXP,4)
#VAR mobEXPedit %insert(",",@mobEXPedit,8)}
#IF (@curNUMB = 7) {#VAR curEXPedit %insert(",",@currEXP,2)
#VAR curEXPedit %insert(",",@curEXPedit,6)}
#IF (@curNUMB = 8) {#VAR curEXPedit %insert(",",@currEXP,3)
#VAR curEXPedit %insert(",",@curEXPedit,7)}
#IF (@curNUMB = 9) {#VAR curEXPedit %insert(",",@currEXP,4)
#VAR curEXPedit %insert(",",@curEXPedit,8)}
#IF (@mobNUMB < 4) {#VAR mobEXPedit @mobEXP}
#IF (@curNUMB < 4) {#VAR curEXPedit @currEXP}
#NOOP ------------------------------------
#NOOP --------Exp Earned from trip--------
#NOOP ------------------------------------
#VAR AREAmobNUMB %len(@AREAmobEXP)
#VAR AREAcurNUMB %len(@AREAcurrEXP)
#IF (@AREAmobNUMB = 4) {#VAR AREAmobEXPedit %insert(",",@AREAmobEXP,2)}
#IF (@AREAmobNUMB = 5) {#VAR AREAmobEXPedit %insert(",",@AREAmobEXP,3)}
#IF (@AREAmobNUMB = 6) {#VAR AREAmobEXPedit %insert(",",@AREAmobEXP,4)}
#IF (@AREAmobNUMB = 7) {#VAR AREAmobEXPedit %insert(",",@AREAmobEXP,2)
#VAR AREAmobEXPedit %insert(",",@AREAmobEXPedit,6)}
#IF (@AREAmobNUMB = 8) {#VAR AREAmobEXPedit %insert(",",@AREAmobEXP,3)
#VAR AREAmobEXPedit %insert(",",@AREAmobEXPedit,7)}
#IF (@AREAmobNUMB = 9) {#VAR AREAmobEXPedit %insert(",",@AREAmobEXP,4)
#VAR AREAmobEXPedit %insert(",",@AREAmobEXPedit,8)}
#IF (@AREAmobNUMB < 4) {#VAR AREAmobEXPedit @AREAmobEXP}



@mobEXPedit = Exp earned from mob with commas...
@curEXPedit = Current exp needed to level with commas...
@AREAmobEXP = Amount of exp before returning to point of origin/recall point...

-Wulfsbane
www.tempusmud.com
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