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]