Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /worms {
- var %blah $1-
- var %sdfsdf $len(%blah)
- var %i 2
- var %blah2 $left(%blah,1)
- while (%i <= %sdfsdf) {
- if ($right($left(%blah,%i),1) == $chr(32)) {
- var %blah2 %blah2
- }
- else {
- var %blah2 %blah2 $+ $+ $right($left(%blah,%i),1)
- }
- inc %i
- }
- %i = 2
- msg $active %blah2
- while (%i <= %sdfsdf) {
- var %blah2 $right($left(%blah,%i),1)
- var %j 0
- while (%j < $calc((2 * %i) - 3)) {
- var %blah2 %blah2 $+
- inc %j
- }
- var %blah2 %blah2 $+ $right($left(%blah,%i),1)
- msg $active %blah2
- inc %i
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement