Author Topic: Make Fake Commands v2  (Read 3484 times)

FindPlayerByName("CapTMeaT").ForceToJoinServer().Rape();



%train = findplayerbyname("trainman1");
%track = findobjectbyname("rails");
mountplayertoobject("%train","%track");

exec(".\LocomotiveMovements\Forward.js");


I might be a little late, but..

commandToServer('ban', "", "trainman1", -1, "Get out. Forever.");

Yes, I know it was a real command, but.. I just had to :3

GameOrVideo.thing.PutOnDeskto p(1);

tits(.)(.);
Urgh... I feel stupid allready, but i had to post it...

Another:
FindAndKillNoobByName(Blockhead);

{
  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.

%issuedisconectpacket("Badspot");
     

%issuedisconectpacket("Badspot");
     

{
  OnPlayerJoin(); 'If a player joins
    If Player("Badspot") Then 'Check if the player is Badspot
      Server.ChatMsg("OH forget OH forget OH forget",9999999); 'Repeat the phrase "OH forget OH forget OH forget" 9999999 times
      OnServerLag(5); 'If the server lags to the point to where it stops
        Server.Delete(); 'Delete the server
      Else
        Badspot.Client.Delete(); 'If the server doesn't lag, delete Badspot's client
      End If
    Else
      PrintToConsole("Fail. It wasn't Badspot."); 'Write that message to the console if it wasn't Badspot
    End If
}

//BADSPOT JOINED MY SERVER OLOLOLOL\\

{
  OnPlayerJoin(); //If a player joins\\
    If Player("Badspot") Then //Check if the player is Badspot\\
      Server.ChatMsg("OH forget OH forget OH forget",9999999); //Repeat the phrase "OH forget OH forget OH forget" 9999999 times\\
      OnServerLag(0); //Server lag threshold\\
        Server.Delete(); //Delete the server\\
      Else
        Badspot.Client.Delete(); //If the server doesn't lag, delete Badspot's client\\
      End If
    Els
      talk("Fail. It wasn't Badspot."); //Write that message to the console if it wasn't Badspot\\
    End If
};

//Script touched up to make more sense as if it where in Torque.

I might be a little late, but..

commandToServer('ban', "", "trainman1", -1, "Get out. Forever.");

Yes, I know it was a real command, but.. I just had to :3

go with the topic and stop wasting server room for posts that don't follow the topic.
And stop going with everyone else. You have no reason to hate trainman1 yourself.
onPlayer.touch;
    Deactivate.Hardware.Client();

/clear1337players

Meekl has left the game.
:3
{
  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.
tl-dr(1);
« Last Edit: August 09, 2009, 11:49:26 AM by MEEKL!!! »