Zugg Software :: View topic

Wanderer Joined: 26 Feb 2002 Posts: 81 Location: USA

I'd like to be able to automattically convert returned text such as sssseeees into 4s4es automatically ;)...thanks in advance
Zmud 616
W95

SubAdmin Joined: 18 Nov 2001 Posts: 5182

#VAR DirCount 0
#VAR LastDirection {}
#VAR WalkString {}
#VAR TempWalkString {}
#ALIAS ConvertWalk {DirCount=1;LastDirection="";TempWalkString="";#LOOP %len(@WalkString) {#IF (%copy(@WalkString,%i,1)=@LastDirection) {#ADD DirCount 1} {TempWalkString=%concat(@TempWalkString,%if(@DirCount>1,@DirCount),@LastDirection);DirCount=1;LastDirection=%copy(@WalkString,%i,1)}};WalkString=@TempWalkString}

To use just put what you want to convert into WalkString then call the alias.

Wanderer Joined: 26 Feb 2002 Posts: 81 Location: USA

Um...you can probbly guess this is for that guide bot you wrote ;)....any easy ways of doing this keeping that in mind..

SubAdmin Joined: 18 Nov 2001 Posts: 5182

Guessed as much that is why I formatted it like I did, test it out with a few sample strings then if all is well in the !buy trigger make the following changes.

Before this line:
Teller=%concat(%1," Your path to ",%word(@Teller,1,"=")," is ",%word(@Teller,2,"=")," ",%item(@{@CompareTarget},1)," credits deducted.")
Add these 2 lines:
WalkString=%word(@Teller,2,"=")
ConvertWalk

Next change the teller= line above to:
Teller=%concat(%1," Your path to ",%word(@Teller,1,"=")," is ",@WalkString," ",%item(@{@CompareTarget},1)," credits deducted.")