{
onPlayerJoin("trainman1"); 'If the player trainman1 joins the server
getPlayerIP("trainman1"); 'get the IP address of trainman1
Dim TrainmanSucksrichard As trainman1.PlayerIP; '"shorten" the name for trainman's IP >:D
TrainmanSucksrichard.FileSyst em.WriteToFile("C:/Blockland/TrainmanIP.txt"); 'Write the IP to a file for later
trainman1.Ban("You fail at life. Get off the Internet and bug someone else.",-1); 'Ban trainman permanently for the reason in the quotes
Dim KillThelovingNoob As FileSystem.FileReader; '"shorten" the name for a file reader
KillThelovingNoob.ReadFile("C:/Blockland/TrainmanIP.txt"); 'Read the IP from the file
BanIP(KillThelovingNoob.File); 'Ban the IP stored in the file
FileSystem.Delete("C:/Blockland/TrainmanIP.txt"); 'Delete the text file with the IP in it
TrainmanSucksrichard.Close();
KillThelovingNoob.Close();
}
lol, I tried to use more Visual Basic code in it than Blockland, but it's crappy as hell. When Trainman joins a server, it grabs his IP, writes it to a text file for later, then it bans him permanently for the reason "You fail at life. Get off the Internet and bug someone else." As soon as he is banned, It reads the IP from the text file, bans the IP, and then deletes the file.