Export your general use scripts here, as suggested by
this thread. Simply select the script and press Ctrl-B to copy it, and then Ctrl-V to paste them into a reply. If you want to use a script, select it and press Ctrl-C, then in a character press Ctrl-Shift-B to paste it. I will try to keep all the scripts updated in this first thread, and therefore make it easy to access. It would probably be easier if everyone put theirs in the same format. I will also try to organize the scripts, maybe by author, or by type of function.
Also, if people want to put requests for scripts in this thread, I will attempt to make them.
I think that it would be appropriate to make anyone who wishes to put their scripts in the database agree to this, as calamarain so eloquently put it:
calamarain pretty much wrote:
"I, YOURNAME as copyright holder of these scripts give the people on the Caravelnet forum permission to edit and use them in their DROD hold and any derivative works thereof, provided I am given credit for their creation, in each and every work that they are used in."
I'll start it off with one of my own:
Author: Someone Else
Purpose: Determine the location of the player, and put it in two variables.Click here to view the secret text
×Label 1
If ...
Wait for entity Player 0,0,0,31
Set var "Playerx" = 0
If End
If ...
Wait for entity Player 1,0,1,31
Set var "Playerx" = 1
If End
If ...
Wait for entity Player 2,0,2,31
Set var "Playerx" = 2
If End
If ...
Wait for entity Player 3,0,3,31
Set var "Playerx" = 3
If End
If ...
Wait for entity Player 4,0,4,31
Set var "Playerx" = 4
If End
If ...
Wait for entity Player 5,0,5,31
Set var "Playerx" = 5
If End
If ...
Wait for entity Player 6,0,6,31
Set var "Playerx" = 6
If End
If ...
Wait for entity Player 7,0,7,31
Set var "Playerx" = 7
If End
If ...
Wait for entity Player 8,0,8,31
Set var "Playerx" = 8
If End
If ...
Wait for entity Player 9,0,9,31
Set var "Playerx" = 9
If End
If ...
Wait for entity Player 10,0,10,31
Set var "Playerx" = 10
If End
If ...
Wait for entity Player 11,0,11,31
Set var "Playerx" = 11
If End
If ...
Wait for entity Player 12,0,12,31
Set var "Playerx" = 12
If End
If ...
Wait for entity Player 13,0,13,31
Set var "Playerx" = 13
If End
If ...
Wait for entity Player 14,0,14,31
Set var "Playerx" = 14
If End
If ...
Wait for entity Player 15,0,15,31
Set var "Playerx" = 15
If End
If ...
Wait for entity Player 16,0,16,31
Set var "Playerx" = 16
If End
If ...
Wait for entity Player 17,0,17,31
Set var "Playerx" = 17
If End
If ...
Wait for entity Player 18,0,18,31
Set var "Playerx" = 18
If End
If ...
Wait for entity Player 19,0,19,31
Set var "Playerx" = 19
If End
If ...
Wait for entity Player 20,0,20,31
Set var "Playerx" = 20
If End
If ...
Wait for entity Player 21,0,21,31
Set var "Playerx" = 21
If End
If ...
Wait for entity Player 22,0,22,31
Set var "Playerx" = 22
If End
If ...
Wait for entity Player 23,0,23,31
Set var "Playerx" = 23
If End
If ...
Wait for entity Player 24,0,24,31
Set var "Playerx" = 24
If End
If ...
Wait for entity Player 25,0,25,31
Set var "Playerx" = 25
If End
If ...
Wait for entity Player 26,0,26,31
Set var "Playerx" = 26
If End
If ...
Wait for entity Player 27,0,27,31
Set var "Playerx" = 27
If End
If ...
Wait for entity Player 28,0,28,31
Set var "Playerx" = 28
If End
If ...
Wait for entity Player 29,0,29,31
Set var "Playerx" = 29
If End
If ...
Wait for entity Player 30,0,30,31
Set var "Playerx" = 30
If End
If ...
Wait for entity Player 31,0,31,31
Set var "Playerx" = 31
If End
If ...
Wait for entity Player 32,0,32,31
Set var "Playerx" = 32
If End
If ...
Wait for entity Player 33,0,33,31
Set var "Playerx" = 33
If End
If ...
Wait for entity Player 34,0,34,31
Set var "Playerx" = 34
If End
If ...
Wait for entity Player 35,0,35,31
Set var "Playerx" = 35
If End
If ...
Wait for entity Player 36,0,36,31
Set var "Playerx" = 36
If End
If ...
Wait for entity Player 37,0,37,31
Set var "Playerx" = 37
If End
If ...
Wait for entity Player 0,0,37,0
Set var "Playery" = 0
If End
If ...
Wait for entity Player 0,1,37,1
Set var "Playery" = 1
If End
If ...
Wait for entity Player 0,2,37,2
Set var "Playery" = 2
If End
If ...
Wait for entity Player 0,3,37,3
Set var "Playery" = 3
If End
If ...
Wait for entity Player 0,4,37,4
Set var "Playery" = 4
If End
If ...
Wait for entity Player 0,5,37,5
Set var "Playery" = 5
If End
If ...
Wait for entity Player 0,6,37,6
Set var "Playery" = 6
If End
If ...
Wait for entity Player 0,7,37,7
Set var "Playery" = 7
If End
If ...
Wait for entity Player 0,8,37,8
Set var "Playery" = 8
If End
If ...
Wait for entity Player 0,9,37,9
Set var "Playery" = 9
If End
If ...
Wait for entity Player 0,10,37,10
Set var "Playery" = 10
If End
If ...
Wait for entity Player 0,11,37,11
Set var "Playery" = 11
If End
If ...
Wait for entity Player 0,12,37,12
Set var "Playery" = 12
If End
If ...
Wait for entity Player 0,13,37,13
Set var "Playery" = 13
If End
If ...
Wait for entity Player 0,14,37,14
Set var "Playery" = 14
If End
If ...
Wait for entity Player 0,15,37,15
Set var "Playery" = 15
If End
If ...
Wait for entity Player 0,16,37,16
Set var "Playery" = 16
If End
If ...
Wait for entity Player 0,17,37,17
Set var "Playery" = 17
If End
If ...
Wait for entity Player 0,18,37,18
Set var "Playery" = 18
If End
If ...
Wait for entity Player 0,19,37,19
Set var "Playery" = 19
If End
If ...
Wait for entity Player 0,20,37,20
Set var "Playery" = 20
If End
If ...
Wait for entity Player 0,21,37,21
Set var "Playery" = 21
If End
If ...
Wait for entity Player 0,22,37,22
Set var "Playery" = 22
If End
If ...
Wait for entity Player 0,23,37,23
Set var "Playery" = 23
If End
If ...
Wait for entity Player 0,24,37,24
Set var "Playery" = 24
If End
If ...
Wait for entity Player 0,25,37,25
Set var "Playery" = 25
If End
If ...
Wait for entity Player 0,26,37,26
Set var "Playery" = 26
If End
If ...
Wait for entity Player 0,27,37,27
Set var "Playery" = 27
If End
If ...
Wait for entity Player 0,28,37,28
Set var "Playery" = 28
If End
If ...
Wait for entity Player 0,29,37,29
Set var "Playery" = 29
If End
If ...
Wait for entity Player 0,30,37,30
Set var "Playery" = 30
If End
If ...
Wait for entity Player 0,31,37,31
Set var "Playery" = 31
If End
Wait 0
Go to 1
Author: Remlin
Purpose: Random Number Generator
Click here to view the secret text
×Label "Waiting"
Wait until var RandomRequest = 1
Set var RandomSeed * 1664525
Set var RandomSeed + 1013904223
If ...
Wait until var RandomSeed < 0
Set var RandomSeed + 2147483647
Set var RandomSeed + 1
If End
Set var RandomResult = RandomSeed
Set var RandomResult / 1024
Set var RandomResult % RandomRange
Set var RandomRequest = 0
Go to "Waiting"
Author: Skell
Purpose: Bouncers (enemies that move until they hit a wall, then change direction)
Click here to view the secret text
×Purpose: Horizontal Bouncer - enemy bouncing horizontally
Click here to view the secret text
×Imperative 0
Imperative 7
Imperative 3
If ...
Wait for clean room
Go to Finished
Else
Go to Move Left
If End
Label Move Left
If ...
Move -1,0,0,0
Go to Move Left
Else
Face direction East
Go to Move Right
If End
Label Move Right
If ...
Move 1,0,0,0
Go to Move Right
Else
Face direction West
Go to Move Left
If End
Label Finished
Disappear
End
Purpose: Vertical Bouncer - enemy bouncing vertically
Click here to view the secret text
×Imperative 0
Imperative 7
Imperative 3
If ...
Wait for clean room
Go to Finished
Else
Go to Move Up
If End
Label Move Up
If ...
Move 0,-1,0,0
Go to Move Up
Else
Face direction South
Go to Move Down-
If End
Label Move Down-
If ...
Move 0,1,0,0
Go to Move Down-
Else
Face direction North
Go to Move Up
If End
Label Finished
Disappear
End
Purpose: I/III Diagonal Bouncer - enemy bouncing diagonally Northeast and Southwest
Click here to view the secret text
×Imperative 11
Imperative 0
Imperative 7
Imperative 3
If ...
Wait for clean room
Go to Finished
Else
Go to Move Up-Right
If End
Label Move Up-Right
If ...
Move 1,-1,0,0
Go to Move Up-Right
Else
Face direction southwest
Go to Move Down-Left
If End
Label Move Down-Left
If ...
Move -1,1,0,0
Go to Move Down-Left
Else
Face direction northeast
Go to Move Up-Right
If End
Label Finished
Disappear
End
Purpose: II/IV Diagonal Bouncer - enemy bouncing diagonally Southeast and Northwest
Click here to view the secret text
× Imperative 11
Imperative 0
Imperative 7
Imperative 3
If ...
Wait for clean room
Go to Finished
Else
Go to Move Up-Left
If End
Label Move Up-Left
If ...
Move -1,-1,0,0
Go to Move Up-Left
Else
Face direction southeast
Go to Move Down-Right
If End
Label Move Down-Right
If ...
Move 1,1,0,0
Go to Move Down-Right
Else
Face direction northwest
Go to Move Up-Left
If End
Label Finished
Disappear
End
Purpose: Rolling Ball Of Death Clockwise - Enemy going forward and upon encountering wall turning 45 degrees Clockwise
Click here to view the secret text
×Imperative 11
Imperative 0
Imperative 7
Imperative 3
If ...
Wait for clean room
Go to Finished
Else
Go to 6 Move Down-Right
If End
Label 1 Move Left
If ...
Move -1,0,0,0
Go to 1 Move Left
Else
Face direction northwest
Go to 2 Move Up-Left
If End
Label 2 Move Up-Left
If ...
Move -1,-1,0,0
Go to 2 Move Up-Left
Else
Face direction North
Go to 3 Move Up
If End
Label 3 Move Up
If ...
Move 0,-1,0,0
Go to 3 Move Up
Else
Face direction northeast
Go to 4 Move Up-Right
If End
Label 4 Move Up-Right
If ...
Move 1,-1,0,0
Go to 4 Move Up-Right
Else
Face direction East
Go to 5 Move Right
If End
Label 5 Move Right
If ...
Move 1,0,0,0
Go to 5 Move Right
Else
Face direction southeast
Go to 6 Move Down-Right
If End
Label 6 Move Down-Right
If ...
Move 1,1,0,0
Go to 6 Move Down-Right
Else
Face direction South
Go to 7 Move Down
If End
Label 7 Move Down
If ...
Move 0,1,0,0
Go to 7 Move Down
Else
Face direction southwest
Go to 8 Move Down-Left
If End
Label 8 Move Down-Left
If ...
Move -1,1,0,0
Go to 8 Move Down-Left
Else
Face direction West
Go to 1 Move Left
If End
Label Finished
Disappear
End
Purpose: Rolling Ball Of Death Counter Clockwise - Enemy going forward and upon encountering wall turning 45 degrees Counter Clockwise
Click here to view the secret text
×Imperative 11
Imperative 0
Imperative 7
Imperative 3
If ...
Wait for clean room
Go to Finished
Else
Go to 6 Move Down-Right
If End
Label 1 Move Left
If ...
Move -1,0,0,0
Go to 1 Move Left
Else
Face direction southwest
Go to 8 Move Down-Left
If End
Label 2 Move Up-Left
If ...
Move -1,-1,0,0
Go to 2 Move Up-Left
Else
Face direction West
Go to 1 Move Left
If End
Label 3 Move Up
If ...
Move 0,-1,0,0
Go to 3 Move Up
Else
Face direction northwest
Go to 2 Move Up-Left
If End
Label 4 Move Up-Right
If ...
Move 1,-1,0,0
Go to 4 Move Up-Right
Else
Face direction North
Go to 3 Move Up
If End
Label 5 Move Right
If ...
Move 1,0,0,0
Go to 5 Move Right
Else
Face direction northeast
Go to 4 Move Up-Right
If End
Label 6 Move Down-Right
If ...
Move 1,1,0,0
Go to 6 Move Down-Right
Else
Face direction East
Go to 5 Move Right
If End
Label 7 Move Down
If ...
Move 0,1,0,0
Go to 7 Move Down
Else
Face direction southeast
Go to 6 Move Down-Right
If End
Label 8 Move Down-Left
If ...
Move -1,1,0,0
Go to 8 Move Down-Left
Else
Face direction South
Go to 7 Move Down
If End
Label Finished
Disappear
End
Author: Chaco
Purpose: Dumb Clockwise Movement
Click here to view the secret text
× Imperative 1
Imperative 7
Imperative 11
Go to east
Label east
If ...
Move 1,0,0,0
Go to east
Else
Face direction southeast
Face direction South
Go to south
If End
Label south
If ...
Move 0,1,0,0
Go to south
Else
Face direction southwest
Face direction West
Go to west
If End
Label west
If ...
Move -1,0,0,0
Go to west
Else
Face direction northwest
Face direction North
Go to north
If End
Label north
If ...
Move 0,-1,0,0
Go to north
Else
Face direction northeast
Face direction East
Go to east
If End
Author: RoboBob3000
Purpose: Make a character appear anywhere
This one is very long. To make it easier to copy, I have attached it to this post.
Author: Timo006
Purpose: Enter a name, up to 10 characters long
Click here to view the secret text
×Set var "MaxNLength" = 10
Label 1
If ...
Wait for entity Player 1,1,1,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; A
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 3,1,3,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; B
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 5,1,5,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; C
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 7,1,7,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; D
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 9,1,9,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; E
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 11,1,11,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; F
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 13,1,13,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; G
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 15,1,15,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; H
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 17,1,17,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; I
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 20,1,20,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; J
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 22,1,22,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; K
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 24,1,24,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; L
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 26,1,26,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; M
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 28,1,28,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; N
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 30,1,30,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; O
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 32,1,32,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; P
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 34,1,34,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; Q
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 36,1,36,1
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; R
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 1,3,1,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; a
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 3,3,3,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; b
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 5,3,5,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; c
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 7,3,7,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; d
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 9,3,9,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; e
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 11,3,11,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; f
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 13,3,13,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; g
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 15,3,15,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; h
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 17,3,17,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; i
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 20,3,20,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; j
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 22,3,22,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; k
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 24,3,24,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; l
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 26,3,26,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; m
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 28,3,28,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; n
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 30,3,30,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; o
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 32,3,32,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; p
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 34,3,34,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; q
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 36,3,36,3
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; r
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 1,5,1,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; S
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 3,5,3,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; T
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 5,5,5,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; U
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 7,5,7,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; V
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 9,5,9,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; W
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 11,5,11,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; X
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 13,5,13,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; Y
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 15,5,15,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; Z
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 17,5,17,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 1
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 20,5,20,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 2
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 22,5,22,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 3
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 24,5,24,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 4
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 26,5,26,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 5
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 28,5,28,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 6
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 30,5,30,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 7
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 32,5,32,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 8
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 34,5,34,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 9
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 36,5,36,5
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; 0
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 1,7,1,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; s
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 3,7,3,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; t
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 5,7,5,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; u
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 7,7,7,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; v
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 9,7,9,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; w
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 11,7,11,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; x
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 13,7,13,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; y
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 15,7,15,7
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; z
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 1,9,1,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; -
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 3,9,3,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; _
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 5,9,5,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; ?
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 7,9,7,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; !
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 9,9,9,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; .
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 11,9,11,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; ;
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 13,9,13,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; ,
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 15,9,15,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; :
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 17,9,17,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; +
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 20,9,20,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ; *
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 17,12,17,12
Set var "Name" :
Set var "MaxNLength" = 10
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 22,9,22,9
If ...
Wait until var "MaxNLength" = 0
Speech "Your Name can't have more than 10 characters in it.",Normal,Guard,0,.
Wait 0
Go to 1
If End
Set var "Name" ;
Set var "MaxNLength" - 1
Speech "$Name$",Normal,Guard,0,.
If End
If ...
Wait for entity Player 17,14,17,14
Speech "$Name$",Normal,Guard,0,.
If End
Wait 0
Go to 1
[Last edited by Someone Else at 03-29-2008 03:58 AM]