// AUTHOR:       Gen. Raven [M.I.B.]
// VERSION:      1.6
// DESCRIPTION:  List of cool script commands to copy/paste into console.
//--------------------------------------------------------------------
//-------------------MAKE SURE WORD WRAP IS OFF!----------------------
//--------------------------------------------------------------------
// INFO: Use a whole line of any red text. Follow the instructions given
//       for each section of code, in the order given.
//
// IMPORTANT NOTES: Any function that includes:
//
//            if(gethudname(%whoever)=="Gen. Raven [M.I.B.]")
//
// will only work for me. Change my name to yours and it will work for
// you.
// 
// Any function that begins: remoteboostswitch(%player) uses HercBoost
// Keymap.cs to activate. Use Ctrl + S to use it. Download it in the 
// latest MIB Map Pack, then read the readme file included there for 
// information on installing it.
// 
// Use playerlist(); to find player #'s of people in the server
// 2049 is almost always the host. In a rare case where you see that you
// are not 2049, you may want to restart your server, or just change 2049
// to your Player Id (20##) in these commands and functions.
//
//------------------------NOTICE TO TRANSLATORS-------------------------
// Sometimes I will use "shorthand" versions of variables since the console
// can only hold a certain number of characters. Here are some examples:
//----------------------------------------------------------------------
//     %p = %Player   %v = %Vehicleid   %c = %Count   %t = %Team
//     %d = %scanneD, %attackeD, %destroyeD, etc.
//     %r = %scanneR, %attackeR, %destroyeR, etc.
//----------------------------------------------------------------------
// THANKS TO: Orogogus, johnrich, Dull, Dolf Kooz, & Mike the goad for
//            answering all my questions & teaching me almost everything
//            I know.
//---------------------------------------------------------------------

$limit="2";

function vehicle::onadd(%vehicleId)
{
   %c = getWeaponCount(%vehicleId);
   %i = 0;
   %missles = 0;
   while(%i<%c)
   {
      %id = getWeaponId(%vehicleId,%i);
      if(((%id>=124)&&(%id<=130))||(%id==147))
      {
         %missles++;
      }
      %i++;
   }
   if(%missles>$limit)
   {
      %p=playermanager::vehicleidtoPlayerNum(%r);
      healObject(%vehicleId,-50000);
      say(%p,%p,"<f5>THIS SERVER DOES NOT ALLOW MORE THAN <f0>"@$limit@"<f5> MISSLE RACKS PER VEHICLE!","rules_violated.wav");
   }
}

function pingPlayer(%p){%p.pingStart=getSimTime();remoteEval(%p,"eval","PingReturn");}function remotePingReturn(%p){%p.pingEnd=getSimTime();%p.ping=floor(((%p.pingEnd-%p.pingStart)*1000)+0.5);}function loop(){for(%i=0;%i<playermanager::getplayercount();%i++){%p=playermanager::getplayernum(%i);pingplayer(%p);}schedule("loop();",1);}focusserver();loop();focusclient();

// Change your SS mouse cursor
// Change "zen.bmp" to any bmp file SS uses:
setCursor(simCanvas, "zen.bmp");
// Switch back to the normal cursor:
setCursor(simCanvas, "cursor.bmp");

// Invasion Attack Sequence
// Creates a assault wave of cybrid & terran spaceships, which then shoot each other down until no ships are left
// Use this:
function doAttack(){say(0,0,"<f5>ATTACK SEQUENCE INITIATED!","alarm2.wav");for(%i=0;%i<99;%i++){%x=randomInt(-1500,1500);%y=randomInt(-1500,1500);%x2=randomInt(-1500,1500);%y2=randomInt(-1500,1500);%z=getTerrainHeight(%x,%y)+100;%s1="cin_cyspac.dts";%s2="cin_spac.dts";%r=randomint(1,2);%ship=newObject("ship",staticshape,%s[%r]); setposition(%ship,%x,%y,%z,randomint(1,359));schedule("deleteObject("@%ship@");",60);schedule("blowup("@%ship@","@%x@","@%y@","@%x2@","@%y2@","@%z@");",randomint(5,59));}}
// Then this to start the attack:
function sq(%a){return (%a)*(%a);}function blowUp(%ship,%x,%y,%x2,%y2,%z){%dist=sqrt(sq(%x-%x2)+sq(%y-%y2));%time=%dist/400;schedule("damageobject("@%ship@",99999999);",%time);droppod(%x2,%y2,%z,%x,%y,%z);}focusserver();doAttack();focusclient();

// Teleport to random player
// Press Hercboost Keymap CTRL + S to teleport
function remoteBoostSwitch(%player){if(playermanager::getplayercount()>1){checkIt(%player);}} function checkIt(%player){%r=randomint(1,playermanager::getplayercount());%p=playermanager::getplayernum(%r-1);if(%p==%player){checkIt(%player);}else{%v=playermanager::playernumtovehicleid(%player);%v2=playermanager::playernumtovehicleid(%p);%x=getposition(%v2,x)+50;%y=getposition(%v2,y)+50;%z=getterrainheight(%x,%y);setposition(%v,%x,%y,%z);say(0,2,"<f5>"@getname(%player)@" has transported to "@getname(%p));}}

// 5 Minute Forest
// Makes a whole forest (300 trees) on your map for 5 minutes, then they "die".
// (USING THIS MORE THAN ONCE AT A TIME CAN CREATE LOTS OF LAG)
function makeTrees(){say(0,0,"<f5>5 MINUTE FOREST ACTIVATED!","alarm2.wav"); for(%i=0;%i<299;%i++){ %x=randomInt(-1500,1500);%y=randomInt(-1500,1500);%z=getTerrainHeight(%x,%y);%tree=newobject("TREE",staticshape,"xtree.dts");setposition(%tree,%x,%y,%z);schedule("deleteObject("@%tree@");",300);}}focusserver();makeTrees();focusclient();

// Ultra Fireworks (ONLY SHOOT ONE AT A TIME OR YOU WILL LAG FOR A WHILE)
// Use this:
function fireWorks(%height,%x,%y){if(%height==""){%height=1600;}if(%x==""){%x=0;}if(%y==""){%y=0;} droppod(%x,%y,getTerrainheight(%x,%y),%x,%y,%height); for(%i=0;%i<299;%i++){ %rX=randomint(%x-4000,%x+4000); %rY=randomint(%y-4000,%y+4000); schedule("dropPod("@%x@","@%y@","@%height@","@%rX@","@%rY@","@%height@");",%height/400); schedule("dropPod("@%x@","@%y@","@%height@","@%rX@","@%rY@","@getTerrainheight(%rX,%ry)@");",%height/400);}}
// Then this to shoot a firework:
// The first # is the height, the second # is the X launch position, 
// the third  # is the Y launch position.
focusserver(); fireWorks(1600,0,0); focusclient();

// Switcheroo
// Scan another vehicle to trade places with it
function vehicle::onscan(%d,%r){%x1=getposition(%r,x);%y1=getposition(%r,y);%z1=getposition(%r,z);%x2=getposition(%d,x);%y2=getposition(%d,y);%z2=getposition(%d,z);setposition(%d,%x1,%y1,%z1);setposition(%r,%x2,%y2,%z2); say(0,2,"<f5>"@gethudname(%r)@" switched places with "@gethudname(%d));}

// Damage Assessment Script (Tells how many of your opponent's weapons and 
// components you destroy as you destroy them):
// Use this:
function vehicle::onadd(%v){%v.comp=getComponentCount(%v);%v.weap=getWeaponCount(%v);}function doweapons(%p,%d,%weap){if(%weap<%d.weap){say(%p,%p,"<f5>You destroyed "@%d.weap-%weap@" of "@getname(%d)@"'s weapons!");%d.weap=%weap;}}function vehicle::ontargeted(%d,%r){%d.weap=getWeaponCount(%d);%r.weap=getWeaponCount(%r);%d.comp=getComponentCount(%d);%r.comp=getComponentCount(%r);}
// Then this to enable:
function vehicle::onattacked(%d,%r){%p=playermanager::vehicleIdtoPlayerNum(%r); %comp=getComponentCount(%d);%weap=getweaponCount(%d);if(%comp<%d.comp){say(%p,%p,"<f5>You destroyed "@%d.comp-%comp@" of "@getname(%d)@"'s internal components!");%d.comp=%comp;}doWeapons(%p,%d,%weap);}
// Use this to disable:
function vehicle::onadd(%v){}function vehicle::onattacked(%d,%r){}

// Wacky Buildings. Shoot structures to randomly move, rotate, & tilt them.
function structure::onattacked(%d,%r){%x=getposition(%d,x);%y=getposition(%d,y);%z=getposition(%d,z);%xRandom=randomInt((%x-15),(%x+15)); %yRandom=randomInt((%y-15),(%y+15)); setposition(%d,%xRandom,%yRandom,%z,randomInt(0,359),randomInt(0,359));}

// List which players in the server are alive and which are dead:
focusserver();%c=playermanager::getplayercount();for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i);%v=playermanager::playernumtovehicleid(%p);if((isGroupDestroyed(%v)==false)&&(%v!=0)){say(0,0,"<f4>"@getname(%p)@": <f1>Alive");} else if(isgroupdestroyed(%v)==true){say(0,0,"<f4>"@getname(%p)@": <f5>Dead");} else{say(0,0,"<f4>"@getname(%p)@": <f0>In wait room");}}focusclient();

// MR. SERVER randomly picks how many points you get for killing or dying.
// Use this:
function more(%d,%death){say(0,0,"MR. SERVER: Some guy named "@getname(%d)@" killed himself. I think ill take away "@%death@" points!");}function player::onadd(%p){say(%p,0,*IDMULT_DM_WELCOME);%p.points=0;}function getPlayerScore(%a){return((getKills(%a)*$killPoints)-(getDeaths(%a)*$deathPoints)+(%a.points));}focusserver();%c=playermanager::getplayercount();for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i);%p.points=0;}focusclient();
// Then this to enable:
function vehicle::onDestroyed(%d,%r){%p1=playermanager::vehicleIdtoplayernum(%r);%p2=playermanager::vehicleIdtoplayernum(%d);%kill=randomInt(0,50);%death=randomInt(0,35);if(%d!=%r){say(0,0, "MR. SERVER: "@getName(%r)@" got a kill...he gets um....let me think..."@%kill@" points?\n....and the dead guy "@getName(%d)@" should lose...how about...."@%death@" points?");%p1.points+=%kill-3;%p2.points-=%death+2;}else{more(%d,%death);%p2.points-=%death+2;}}
// Use this to disable:
function vehicle::onDestroyed(%destroyed,%destroyer){%message=getFancyDeathMessage(getHUDName(%destroyed),getHUDName(%destroyer));if(%message!=""){say(0,0,%message);}}

// Floating 8-BLAS Turret Guard (Everyone gets a turret guard above their head when they spawn)
// Use this:
function vehicle::onDestroyed(%destroyed,%destroyer){%p=playermanager::vehicleidtoplayernum(%destroyed);%p.spawned=false;deleteObject(%p.turret);%message=getFancyDeathMessage(getHUDName(%destroyed),getHUDName(%destroyer));if(%message!=""){say(0,0,%message);}}
// Then this:
// Change "$rate=1.0" to the desired rate your turret will follow you at (lower #'s make the turret follow faster):
$rate=1.0;function moveTurret(){%c=playermanager::getplayercount(); for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i); if(%p.spawned==true){%v=playermanager::playernumtovehicleid(%p); %x=getposition(%v,x);%y=getposition(%v,y);%z=getposition(%v,z); %rad=getposition(%v,rot);%rot=(%rad*180)/3.14159;setposition(%p.turret,%x,%y,%z+30,%rot+180,180);}}schedule("moveTurret();",$rate);}
// Then this to enable:
function vehicle::onattacked(%d,%r){if(%d!=%r){%p=playermanager::vehicleIdtoPlayerNum(%r);order(%p.turret,attack,%d);}}function vehicle::onadd(%v){%p=playermanager::vehicleIdtoPlayerNum(%v);%p.spawned=true;%p.turret=newObject("turret",turret,2); setTeam(%p.turret,getTeam(%p));setTurretOwner(%p.turret,%v);setStaticShapeShortName(%p.turret,getName(%p)@"'s Turret");}focusserver();moveTurret();focusclient();
// Use this to disable:
function vehicle::onadd(%v){}function moveTurret(){}

// Floating 2-BLAS Turret Guard (Less lag, not as ruthless) 
// (Everyone gets a turret guard above their head when they spawn)
// Use this:
function vehicle::onDestroyed(%destroyed,%destroyer){%p=playermanager::vehicleidtoplayernum(%destroyed);%p.spawned=false;deleteObject(%p.turret);%message=getFancyDeathMessage(getHUDName(%destroyed),getHUDName(%destroyer));if(%message!=""){say(0,0,%message);}}
// Then this:
// Change "$rate=1.0" to the desired rate your turret will follow you at (lower #'s make the turret follow faster):
$rate=1.0;function moveTurret(){%c=playermanager::getplayercount(); for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i); if(%p.spawned==true){%v=playermanager::playernumtovehicleid(%p); %x=getposition(%v,x);%y=getposition(%v,y);%z=getposition(%v,z); %rad=getposition(%v,rot);%rot=(%rad*180)/3.14159;setposition(%p.turret,%x,%y,%z+30,%rot+180,180);}}schedule("moveTurret();",$rate);}
// Then this to enable:
function vehicle::onattacked(%d,%r){if(%d!=%r){%p=playermanager::vehicleIdtoPlayerNum(%r);order(%p.turret,attack,%d);}}function vehicle::onadd(%v){%p=playermanager::vehicleIdtoPlayerNum(%v);%p.spawned=true;%p.turret=newObject("turret",turret,6); setTeam(%p.turret,getTeam(%p));setTurretOwner(%p.turret,%v);setStaticShapeShortName(%p.turret,getName(%p)@"'s Turret");}focusserver();moveTurret();focusclient();
// Use this to disable:
function vehicle::onadd(%v){}function moveTurret(){}

// Super Speed Mode (MUST HAVE TrigonometryStdLib.cs TO USE THIS! Available at www.starsiegemeninblack.cjb.net)
// Makes someone move at extremely high speeds. Shut down to stop moving.
// Use this:
exec("TrigonometryStdLib.cs");$dist=10;function goForward(%p){%v=playermanager::playernumtovehicleid(%p);if((isshutdown(%v)==false)&&(%v!=0)){%rot=round(adjustAngle(radtodeg(getposition(%v,rot))))+90;%x=getposition(%v,x)+(cos(%rot)*$dist);%y=getposition(%v,y)+(sin(%rot)*$dist);%z=getTerrainHeight(%x,%y);setPosition(%v,%x,%y,%z);}schedule("goForward("@%p@");",0.25);}
// Then this to start (replace 2049 with any player #):
focusserver();goForward(2049);focusclient();
// Use this to stop:
function goForward(){}

// Targeting computer advisor.
// When you target someone, you will recieve advice based on player scores:
function vehicle::ontargeted(%d,%r){%p1=playermanager::vehicleIdtoPlayerNum(%r); %p2=playermanager::vehicleIdtoPlayerNum(%d); %Score1=getplayerScore(%p1);%Score2=getplayerScore(%p2);if(%score1>%score2){say(%p1,%p1,"<f5>You're doing much better than "@getname(%d)@". I recommend attacking him.");}else if(%score2>%score1){say(%p1,%p1,"<f5>Umm.."@getname(%d)@" is probably going to kill you. I recommend running away....now!");}else{say(%p1,%p1,"<f5>You are evenly matched with "@getname(%d)@". Fight or run?");}}

// Add drop points in-game.
// Delete any old drop points (Spawning with no drop points will drop you underground, so add some more quickly): 
focusserver();deleteObject("Missiongroup/DropPointGroup");deleteObject("Missiongroup/DropPointGroup1");deleteObject("Missiongroup/DropPointGroup2");deleteObject("Missiongroup/DropPointGroup3");deleteObject("Missiongroup/DropPointGroup4");$group=newObject("dropPointGroup",ESDropPointGroup);addtoset("MissionGroup",$group);focusclient();
// Create a new drop point right above you:
focusserver();%v=playermanager::playernumtovehicleId(2049);%x=getPosition(%v,x);%y=getPosition(%v,y);%z=getPosition(%v,z);$dropPoint=newObject("dropPoint",simDropPoint);setposition($dropPoint,%x,%y,%z+20);addtoset("Missiongroup/dropPointGroup",$droppoint);focusclient();

// Team Colored Arrows (By Gen. Powio [MIB])
// Makes colored arrows above vehicles when they spawn. (Note: Purple team's arrow is green, all other teams use their corresponding colors)
// Use this:
function makeArrow(%v){%p=playermanager::vehicleIdtoPlayerNum(%v);%t=getTeam(%p);if(%t=="Red Team"){%v.arrow=newobject("Arrow",staticshape,"arrow5_r.dts");}else if(%t=="Yellow Team"){echo("Ready");%v.arrow=newobject("Arrow",staticshape,"arrow5_y.dts");}else if(%t=="Blue Team"){%v.arrow=newobject("Arrow",staticshape,"arrow5_b.dts");}else if(%t=="Purple Team"){%v.arrow=newobject("Arrow",staticshape,"arrow5_g.dts");}schedule("arrows("@%v@","@%v.arrow@", -1);",0.2);} 
// Then this to enable:
function arrows(%v,%arrow,%r){if(%v.ready==true){%r+=5;%x=getposition(%v,x);%y=getposition(%v,y);%z=getposition(%v,z)+25;setposition(%arrow,%x,%y,%z,%r,-90);schedule("arrows("@%v@","@%arrow@","@%r@");",0.1);}else{deleteobject(%arrow);}}function vehicle::onDestroyed(%d,%r){deleteObject(%d.arrow);%d.ready=false;%message= getFancyDeathMessage(getHUDName(%d), getHUDName(%r));if(%message != ""){say(0, 0, %message);}}function vehicle::onAdd(%v){%v.ready =true;schedule("makeArrow("@%v@");",1);}
// Use this to disable:
function vehicle::onadd(%v){}function arrows(%v,%arrow,%r){}function makeArrow(%v){}

// Create tombstones when a player is killed (Deleted after 5 minutes)
// Shoot a tombstone to see the epitaph.
// Use this:
function vehicle::onDestroyed(%d,%r){%mes=getFancyDeathMessage(getHUDName(%d),getHUDName(%r));if(%mes!=""){say(0,0,%mes);}%x=getposition(%d,x);%y=getposition(%d,y);%z=getposition(%d,z);%g=newobject("grave",staticshape,"xmonument.dts");%rot=(getPosition(%d,rot)*180)/3.14159;setposition(%g,%x,%y+1,%z-1,%rot);%g.message="Here lies "@getname(%d)@". Killed by "@getname(%r)@". "@%d.time@"-"@getTime()@". Death #"@getDeaths(playermanager::vehicleidtoplayernum(%d))@".";schedule("deleteObject("@%g@");",300);}
// Then this:
function structure::onattacked(%d,%r){%p=playermanager::vehicleidtoplayernum(%r);if((getObjectName(%d)=="grave")&&(%r.ready==true)){%r.ready=false;say(%p,%p,"<f5>"@%d.message);schedule("ready("@%r@");",1);}}function ready(%r){%r.ready=true;}function vehicle::onadd(%v){%v.ready=true;%v.time=getTime();}
// Use this to turn it off:
function vehicle::onDestroyed(%destroyed, %destroyer){%message = getFancyDeathMessage(getHUDName(%destroyed), getHUDName(%destroyer));if(%message != ""){say( 0, 0, %message);}}

// Random Meteor Showers (Every 40-90 seconds):
// Works on most maps. The shower is centered around 0,0,0 in a 750 meter radius.
// Use this:
function randomDeathStorm(){%nextStorm=randomInt(40,90);say(0,0,"WARNING:  Meteor shower detected!");dropMeteor("default",1,5,-750,-750,750,750,-750,-750,750,750);%dropMeteors="dropMeteor(\"default\",1,5,-750,-750,750,750,-750,-750,750,750);";schedule(%dropMeteors,4);schedule(%dropMeteors,8);schedule(%dropMeteors,12);schedule(%dropMeteors,16);schedule(%dropMeteors,20);schedule(%dropMeteors,24);schedule("randomDeathStorm();",%nextStorm);nextTime(%nextStorm);}
// Then this to start:
function nextTime(%nextStorm){%c=playermanager::getPlayerCount();for(%i=0;%i<%c;%i++){%p=playermanager::getPlayerNum(%i);setHudTimer(%nextStorm-2,-1,"Next Shower ETA:",3,%p);}}focusserver();deleteObject($meteorite);$meteorite=newObject("meteorite",staticshape,"xobstacle.dts");addToSet("MissionGroup",$meteorite);setShapeVisibility($meteorite,false);schedule("randomDeathStorm();",1);focusclient();
// Use this to stop (STOPPING DURING A STORM WILL CAUSE ALOT OF DYING TEMPORARILY):
function randomDeathStorm(){}focusserver();deleteObject($meteorite);focusclient();

// Teleport all players in the server near your vehicle:
focusserver();%v1=playermanager::playernumtovehicleId(2049);%x=getPosition(%v1,x);%y=getPosition(%v1,y);%c=playermanager::getplayercount();for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i);%v2=playermanager::playernumtovehicleid(%p);if((%v2!=%v1)&&(%v2!=0)){randomTransport(%v2,%x-200,%y-200,%x+200,%y+200);}}say(0,2,"<f1>GROUP MEETING! Everyone has been transported near the host.");focusclient();

// Keep the teams even. If the teams are uneven when a player spawns, his
// team will be changed to make things fair.
// ONLY WORKS WITH 2 TEAM TDM's USING RED & BLUE TEAMS!
// Use this:
function anothercheck(%v,%it,%say,%t){if(%it@" Team" != %t){say(0,0,%say@""@%it@".");redrop(%v);}}
// Then this to enable:
function vehicle::onadd(%v){%say="<f5>"@getName(%v)@"'s team was changed to "; %c=playermanager::getplayercount();$red=0;$blue=0;for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i);%t=getTeam(%p);if(%t=="Red Team"){$red++;}if(%t=="Blue Team"){$blue++;}}if($red!=$blue){if($red<$blue){$diff=$blue-$red;if($diff>1){setTeam(%v,"Red Team");%it="Red";anotherCheck(%v,%it,%say,%t);}}if($blue<$red){$diff=$red-$blue;if($diff>1){setTeam(%v,"Blue Team");%it="Blue";anotherCheck(%v,%it,%say,%t);}}}}
// Use this to disable:
function vehicle::onadd(%v){}

// CTF version of the above (For blue & purple teams):
// Use this:
function autoTeam(%v){%say="<f5>"@getName(%v)@"'s team was changed to "; %c=playermanager::getplayercount();$pur=0;$blue=0;for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i);%t=getTeam(%p);if(%t=="Purple Team"){$pur++;}if(%t=="Blue Team"){$blue++;}}if($pur!=$blue){if($pur<$blue){$diff=$blue-$pur;if($diff>1){setTeam(%v,"Purple Team");%it="Purple";anotherCheck(%v,%it,%say,%t);}}if($blue<$pur){$diff=$pur-$blue;if($diff>1){setTeam(%v,"Blue Team");%it="Blue";anotherCheck(%v,%it,%say,%t);}}}}
// Then this to enable:
function anothercheck(%v,%it,%say,%t){if(%it@" Team" != %t){say(0,0,%say@""@%it@".");redrop(%v);}} function vehicle::onAdd(%v){%team=getTeam(playerManager::vehicleIdToPlayerNum(%v));%color=teamToColor(%team);%flagKey=strcat(%color,"FlagCount");adjTeamCount(%team,1);if(dataRetrieve(0, %flagKey) && !dataRetrieve(0, strcat(%color, "FlagCarried"))){setFlag(%team, true);}autoTeam(%v);}
// Use this to disable:
function vehicle::onadd(%v){}

// List the name, squad, and team of all players in the server:
function listThem(){%c=playermanager::getPlayercount(); $names="\n<f1>Number of Players: "@%c@"\n<f1>Player   -   Squad   -   Team";for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i);$newName="\n<f4>"@getname(%p)@" - "@getsquad(%p)@" - "@getTeam(%p);$names=$names@""@$newName;}say(0,2,$names);}focusserver();listThem();focusclient();

// Redrop yourself at a different drop point (Useful for finding someone on a large map):
focusserver();%vehicleId=playermanager::playernumtovehicleid(2049);redrop(%vehicleId);focusclient();

// Scrolling text on your HUD (Only works for you, works on other servers)
// Use this:
function moveleft(%x,%y,%text){if(%x>0.2){%x-=0.01; sethudlabel(0,%text,%x,%y,true);schedule("moveleft("@%x@","@%y@","@%text@");",0.1);}else{movedown(%x,%y,%text);}}function movedown(%x,%y,%text){if(%y<0.8){%y+=0.01; sethudlabel(0,%text,%x,%y,true); schedule("movedown("@%x@","@%y@","@%text@");",0.1);}else{moveright(%x,%y,%text);}}
// Then this:
function moveright(%x,%y,%text){if(%x<0.8){%x+=0.01;sethudlabel(0,%text,%x,%y,true);schedule("moveright("@%x@","@%y@","@%text@");",0.1);}else{moveup(%x,%y,%text);}}function moveup(%x,%y,%text){if(%y>0.2){%y-=0.01; sethudlabel(0,%text,%x,%y,true); schedule("moveup("@%x@","@%y@","@%text@");",0.1);}else{moveleft(%x,%y,%text);}}
// Then this to start (Replace TEXT with any word you want - NO SPACES!):
moveUp(0.5,0.5,"TEXT");
// Use this to stop:
function moveLeft(){}function moveUp(){}function moveRight(){}function moveDown(){}setHudLabel(0,"",0,0,false);

// Make it rain:
focusserver();$rain=newObject("rain",snowfall,1,0,0,1);focusclient();
// Stop the rain:
focusserver();snow(0);focusclient();

// Add some stars to the map:
focusserver();$stars=newObject("stars",SimStarField);focusclient();

// Reset the scoreboard
// All scores, kills, & deaths will be set back to 0:
focusserver();serverresetscores();focusclient();

// Turn on widescreen mode:
setWideScreen(true);
// Turn off widescreen mode:
setWideScreen(false);

// Limit missle boating. Drains energy, shields, ammo, and shuts down 
// any player who attacks someone while having too many missles. Change 
// the allowed number of missles by changing $limit="2"; to the maximum #
// of missles you would like to allow on a herc (i.e. if the limit is set 
// to 2, anyone who attacks & has 3 or more missle racks will be punished):
focusserver();$limit="2"; focusclient();function vehicle::onattacked(%d,%r){%c=getWeaponCount(%r); %i=0;%missles=0;while(%i<%c){%id=getWeaponId(%r,%i);if(((%id>=124)&&(%id<=130))||(%id==147)){%missles++;}%i++;}if((%missles>$limit)&&(%r.violated!=true)){%r.violated=true;%p=playermanager::vehicleidtoPlayerNum(%r);say(%p,%p,"<f5>THIS SERVER DOES NOT ALLOW MORE THAN <f0>"@$limit@"<f5> MISSLE RACKS PER VEHICLE!","rules_violated.wav");violate(%r);schedule("fix("@%r@");",2);}}function fix(%r){%r.violated=false;}

// Prompt all players in the server to go to the wait room along with a
// custom text message (Replace TEXT with your message):
focusserver();notifyMissionEnd("TEXT");focusclient();

// Change the name of your server while playing:
// (Change "Server Name" to whatever you want to name it)
focusserver();$server::hostname = "Server Name";focusclient();

// Make the name of your server tell the time of day (Updates every 5 secs)
// Pretty much useless, but funny
function renameServer(){$server::hostname="The time is: "@getTime()@"!";schedule("renameServer();",5);echo($server::hostname);}focusserver();renameServer();focusclient();
// Use this to stop & name the server something else:
function renameServer(){$server::hostname="Server Name";}

// Make the name of your server tell the squads of people in the server
// (Updates every 5 secs)
function renameServer(){$guy0="";$guy1="";$guy2="";$guy3="";%c=playermanager::getPlayerCount();for(%i=0;%i<%c;%i++){%p=playermanager::getplayernum(%i);$guy[%i]=getSquad(%p)@"-";}$server::hostname=$guy0 @ $guy1 @ $guy2 @ $guy3;echo($server::hostname);schedule("renameServer();",5);}focusserver();renameServer();focusclient();
// Use this to stop & name the server something else:
function renameServer(){$server::hostname="Server Name";}

// Stats Tracker (When you scan someone, this shows how many times you 
// killed or were killed by that player)
// Use this:
function player::onadd(%p1){say(%p1,0,"<f1>Welcome to DeathMatch! Check the Game Info tab for rules and scoring information.");%count=playermanager::getplayercount();for(%i=0;%i<%count;%i++){%p2=PlayerManager::getPlayerNum(%i);%p1.Kills[%p2]=0;%p2.Kills[%p1]=0;}}
// Then this:
function vehicle::onDestroyed(%destroyed, %destroyer){%message=getFancyDeathMessage(getHUDName(%destroyed),getHUDName(%destroyer));if(%message!=""){say(0,0,%message);}%p1=playermanager::vehicleIdtoPlayerNum(%destroyer);%p2=playermanager::vehicleIdtoPlayerNum(%destroyed);if(%p1.Kills[%p2]==""){%p1.Kills[%p2]=1;}else{%p1.Kills[%p2]++;}}
// And then this:
function vehicle::onscan(%d,%r){%p1=playermanager::vehicleIdtoplayernum(%r);%p2=playermanager::vehicleIdtoplayernum(%d);if(%p1.Kills[%p2]==""){%p1.Kills[%p2]=0;}say(%p1,0,"<f4>You have killed " @getname(%p2)@" " @%p1.Kills[%p2]@" times.");if(%p2.Kills[%p1]==""){%p2.Kills[%p1]=0;}say(%p1,0,"<f4>You have been killed by "@getName(%p2)@" "@%p2.Kills[%p1]@" times.");}

// Moon Jump (Scan version)
// Scan another vehicle rapidly to moon jump:
function vehicle::onscan(%d,%r){damageArea(%r,0,0,0,10,0);damageArea(%r,0,0,0,10,0);damageArea(%r,0,0,0,10,0);damageArea(%r,0,0,0,10,0);}
// Moon Jump (HercBoost version)
// Uses HercBoost Keymap CTRL + S to moon jump (press rapidly):
function remoteboostswitch(%player){%v=playermanager::playernumtovehicleid(%player);damageArea(%v,0,0,0,10,0);damageArea(%v,0,0,0,10,0);damageArea(%v,0,0,0,10,0);damageArea(%v,0,0,0,10,0);}

// Add a little more punch to your weapons:
// (Knocks people backwards & into the air when shot)
function vehicle::onattacked(%d,%r){damageArea(%d,0,0,2,10,0);}

// Fun with Meteors
// Shoot meteorites from your vehicle to all other player's vehicles (If there are any other players):
focusserver();%count=playermanager::getplayercount();for(%i=0;%i<%count;%i++){%p=playerManager::getPlayerNum(%i);%v=playermanager::playernumtovehicleid(%p);%me=playermanager::playernumtovehicleId(2049);droppod(getposition(%me,x),getposition(%me,y),getposition(%me,z)+10,getposition(%v,x),getposition(%v,y),getposition(%v,z));}focusclient();
// Shoot meteorites to your vehicle from all other player's vehicles (If there are any other players):
focusserver();%count=playermanager::getplayercount();for(%i=0;%i<%count;%i++){%p=playerManager::getPlayerNum(%i);%v=playermanager::playernumtovehicleid(%p);%me=playermanager::playernumtovehicleId(2049);droppod(getposition(%v,x),getposition(%v,y),getposition(%v,z)+10,getposition(%me,x),getposition(%me,y),getposition(%me,z));}focusclient();
// Shoot a ring of meteors from your vehicle when you scan someone:
function vehicle::onscan(%d,%r){%x=getposition(%r,x);%y=getposition(%r,y);%z=getposition(%r,z);dropPod(%x,%y,%z+10,%x,%y+200,%z);dropPod(%x,%y,%z+10,%x,%y-200,%z);dropPod(%x,%y,%z+10,%x+200,%y,%z);dropPod(%x,%y,%z+10,%x-200,%y,%z);dropPod(%x,%y,%z+10,%x+200,%y+200,%z);dropPod(%x,%y,%z+10,%x-200,%y+200,%z);dropPod(%x,%y,%z+10,%x+200,%y-200,%z);dropPod(%x,%y,%z+10,%x-200,%y-200,%z);}

// Make your vehicle flash different colors:
// Use this:
function colors(%player){%guy=playermanager::playernumtovehicleId(%player);setVehicleSpecialidentity(%guy,on,red);schedule("setVehicleSpecialidentity("@%guy@",on,yellow);",0.5);schedule("setVehicleSpecialidentity("@%guy@",on,blue);",1);schedule("setVehicleSpecialidentity("@%guy@",on,purple);",1.5);schedule("colors("@%player@");",2);}
// Then this to start (replace 2049 with any player id if you want):
focusserver();colors(2049);focusclient();
// Use this to stop:
function colors(){}

// Make all player's vehicles flash different colors:
// Use this to start:
function colors(%player){%c=playermanager::getplayercount();for(%i=0;%i<%c;%i++){%player=playermanager::getplayernum(%i);%guy=playermanager::playernumtovehicleId(%player);setVehicleSpecialidentity(%guy,on,red);schedule("setVehicleSpecialidentity("@%guy@",on,yellow);",0.5);schedule("setVehicleSpecialidentity("@%guy@",on,blue);",1);schedule("setVehicleSpecialidentity("@%guy@",on,purple);",1.5);}schedule("colors();",2);}focusserver();colors();focusclient();
// Use this to stop: 
function colors(){}

// Make your flyer take-off when you spawn:
function vehicle::onadd(%vehicleId){order(%vehicleId,guard,0);}

// Create an AI herc (Created near your vehicle):
// Change what $Type & $Id equal to change the AI's vehicle. 
// Use the table at the bottom of this file for Types, Ids...IF THE IDs & TYPEs ARE NOT CORRECT, SS WILL CRASH.
focusserver();$Type="Herc";$Id="1";$AI=newObject("AI",$Type,$Id);$veh=playermanager::playernumtovehicleId(2049);setPosition($AI,getPosition($veh,x)+200,getPosition($veh,y)+200,getTerrainHeight(getposition($veh,x)+200,getposition($veh,y)+200)+10);focusclient();

// Clone an AI replica of your herc.
Pilot AI{id=28;skill=1.0;accuracy=1.0;aggressiveness=1.0;activateDist=800.0;deactivateBuff=100.0;targetFreq=3.0;trackFreq=0.1;fireFreq=0.1;LOSFreq=0.1;};focusserver();$veh=playermanager::playernumtovehicleId(2049);$AI=clonevehicle($veh);setPilotId($AI,28);setPosition($AI,getPosition($veh,x)+200,getPosition($veh,y)+200,getTerrainHeight(getposition($veh,x)+200,getposition($veh,y)+200)+10);focusclient();

// GLOBAL MUTE (Only mutes taunts for you if you aren't the host)
// This will stop any .wav files playing instantly (Useful for stopping those cinema taunts):
focusserver();flushChannel(0);flushChannel(1);flushChannel(2);flushChannel(3);flushChannel(4);flushChannel(5);flushChannel(6);flushChannel(7);flushChannel(8);flushChannel(9);flushChannel(10);flushChannel(11);flushChannel(12);say(0,0,"<f4>ALL TAUNTS HAVE BEEN MUTED!");focusclient();

// Ban Inviso Predators (The most common kind anyway)
// Kills on spawn if they have a Predator with Carlam armor:
function vehicle::onadd(%v){%veh=getvehicleName(%v);if(%veh=="Harabec's Predator"){%C=getComponentCount(%v);%i=0;while(%i<%C){%id=getComponentId(%v,%i);if(%id==926){%p=playermanager::vehicleidtoplayernum(%v);healobject(%v,-50000);messagebox(%p,"Inviso-Predators are not allowed in this server.");}}}}

// Ban vehicles (Kills on spawn)
// You can ban up to 6 vehicles in-game with this script.
// Change "none" to the vehicle name (EXACT SPELLING) of the vehicle you want to ban:
$Veh1="none"; $Veh2="none"; $Veh3="none"; $Veh4="none"; $Veh5="none"; $Veh6="none"; function vehicle::onadd(%v){%p=playermanager::vehicleidtoplayernum(%v);%veh=getvehicleName(%v);if(%veh==$Veh1||%veh==$Veh2||%veh==$veh3||%veh==$veh4||%veh==$veh5||%veh==$veh6){healobject(%v,-50000);messagebox(%p,"Your vehicle is not allowed in this server.");}}

// Ban weapons (Kills on spawn)
// You can ban up to 10 weapons in-game with this script.
// Change "none" to the weapon ID # of the weapon you want to ban:
$ID1="none"; $ID2="none"; $ID3="none"; $ID4="none"; $ID5="none"; $ID6="none"; $ID7="none"; $ID8="none"; $ID9="none"; $ID10="none"; function vehicle::onadd(%v){%p=playermanager::vehicleidtoplayernum(%v);%C=getWeaponCount(%v);%i=0;while(%i<%C){%id=getWeaponId(%v,%i);if(%id==$ID1||%id==$ID2||%id==$ID3||%id==$ID4||%id==$ID5||%id==$ID6||%id==$ID7||%id==$ID8||%id==$ID9||%id==$ID10){healobject(%v,-50000);messagebox(%p,"One of your weapons (ID# "@%id@") is not allowed.");}%i++;}}
// Use this to find weapon ID #'s (use Page Up/Down to view all ID #'s):
focusserver();allowWeapon("display",true);focusclient();

// Global Heal/Reload:
focusserver();%count=playermanager::getplayercount();for(%i=0;%i<%count; %i++){%p=playerManager::getPlayerNum(%i);%v=playermanager::playernumtovehicleid(%p);healobject(%v,99999);reloadObject(%v,5000);}say(0,1,"<f4>GLOBAL HEAL/RELOAD!");focusclient();

// Rainbow Seizure (just try it)
focusserver();fadeevent(0,in,0.5,1,0,0);schedule("fadeevent(0,in,0.5,1,0.5,0);",0.5);schedule("fadeevent(0,in,0.5,1,1,0);",1);schedule("fadeevent(0,in,0.5,0,1,0);",1.5);schedule("fadeevent(0,in,0.5,0,0,1);",2);schedule("fadeevent(0,in,0.5,1,0,1);",2.5);schedule("fadeevent(0,in,2,1,1,1);",3);focusclient();

// Looping Rainbow Seizure
// Use this to start:
function rainbow(){fadeevent(0,in,0.5,1,0,0);schedule("fadeevent(0,in,0.5,1,0.5,0);",0.5);schedule("fadeevent(0,in,0.5,1,1,0);",1);schedule("fadeevent(0,in,0.5,0,1,0);",1.5);schedule("fadeevent(0,in,0.5,0,0,1);",2);schedule("fadeevent(0,in,0.5,1,0,1);",2.5);schedule("fadeevent(0,in,0.5,1,1,1);",3);schedule("rainbow();",3.5);}focusserver();rainbow();focusclient();
// Use this to stop:
function rainbow(){}

// Heal Lottery (Every 60 secs)
// Use this:
function lottery(){%num=0;%random=randomInt(1,playermanager::getplayercount());%count=playerManager::getPlayerCount();for(%i=0;%i<%count; %i++){%player=playerManager::getPlayerNum(%i);%num++;if(%num==%random){win(%player);}}}
// Then this to start:
function win(%player){say(0,2,"<f1>"@getname(%player)@" won the Heal Lottery!");healobject(playermanager::playernumtovehicleId(%player),90000);healobject(playermanager::playernumtovehicleId(%player),90000);healobject(playermanager::playernumtovehicleId(%player),90000);reloadobject(playermanager::playernumtovehicleid(%player),90000);schedule("lottery();",60);sethudtimer(59,-1,"Time until next Heal Lottery:",2);}focusserver();lottery();focusclient();
// Use this to stop (stops after next lottery):
function lottery(){}

// Random Lightning Strikes (Every 60 secs)
// Use this:
function storm(){%num=0;%count=playerManager::getPlayerCount();%random=randomInt(1,%count);for(%i=0;%i<%count; %i++){%player=playerManager::getPlayerNum(%i);%num++;if(%num==%random){strike(%player);}}}
// Then this:
function strike(%player){%him=playermanager::playernumtovehicleid(%player);$bolt=newobject("Object",staticshape,"hTitanBEAM.DTS");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($bolt,%x,%y,%z-50);say(0,2,"<f1>"@getname(%player)@" got struck by lightning!","sfx_thunder1.wav");damagearea(%him,0,0,0,150,1000);fadeevent(%player,in,0.3,1,1,1);schedule("fadeevent("@%player@",in,0.3,1,1,1);",0.7);schedule("fadeevent("@%player@",in,0.3,1,1,1);",1.2);strike2(%player);}
// Then this to start:
function strike2(%player){schedule("deleteobject($bolt);",1.3);sethudtimer(59,-1,"Next Lightning Strike:",3);schedule("storm();",60);%target=playerManager::playernumtovehicleId(%player);%player2=playerManager::getPlayerNum(%i);%vehicleId=playerManager::playernumtovehicleId(%player2);if((getDistance(%vehicleId,%target)<=300)&&(%vehicleId!=%target)){fadeevent(%player2,in,0.3,1,1,1);schedule("fadeevent("@%player2@",in,0.3,1,1,1);",0.7);}}focusserver();storm();focusclient();
// Use this to stop:
function storm(){}

// Make it snow
// (Will make it snow for only you if you arent the host)
focusserver();snow(5,0,0);focusclient();
// Stop the snow
focusserver();snow(0);focusclient();

// Change everyone's music (Change to your favorite music)
// (Will change the music for only you if you arent the host)
focusserver();cdaudiocycle("Mechsoul","Terror","Newtech");focusclient();

// Fade to Black (slowly)
focusserver();fadeevent(0,out,30,0,0,0);schedule("fadeevent(0,in,1,0,0,0);",32);focusclient();

// Make sounds every 30 seconds
// Use one of these to start:
function scap(){playsound(0,"sfx_shieldcap_backfire.wav",IDPRF_2D);schedule("scap();",30);}focusserver();scap();focusclient();
function predkill(){playsound(0,"sfx_herchit1.wav",IDPRF_2D);schedule("playsound(0,\"sfx_pbw.wav\",IDPRF_2D);",0.5); schedule("playsound(0,\"sfx_pbw.wav\",IDPRF_2D);",0.6);schedule("playsound(0,\"cy_dest_reactor.wav\",IDPRF_2D);",0.7);schedule("predkill();",30);}focusserver();predkill();focusclient();
// Use the matching one of these to stop:
function scap(){}
function predkill(){}

// Kill someone in the server
// Change 2049 to the player # of whoever you want to kill
// Use playerlist(); to find player IDs
focusserver();healobject(playermanager::playernumtovehicleId(2049),-50000);focusclient();

// Write information about players in your server to SERVER INFO.txt (SS directory)
focusserver();filewrite("SERVER INFO.txt",append,getDate()," ",getTime());%count=playerManager::getPlayerCount();for(%i=0;%i<%count; %i++){%player=playerManager::getPlayerNum(%i); filewrite("SERVER INFO.txt","append",getName(%player)," - ",getSquad(%player)," - ",getconnection(%player));}filewrite("SERVER INFO.txt",append,"----------------------------------------------");focusclient();

// Send Priority Messages
// 0 sends to all players
// Replace with a player ID (20##) to send to a specific player
messagebox(0,"Hello");

// When anyone spawns, make them say strange things.
// Change the text after ":" to whatever you want them to say.
function vehicle::onadd(%v){say(0,0,"<f3>"@getname(%v)@": Insert message here");}

// Easy Map Change. Change "DM_City_on_the_Edge" to any map name.
focusserver();$MissionCycling::Stage0 = "DM_City_on_the_Edge";$server::Mission = $MissionCycling::Stage0;missionEndConditionMet();focusclient();

// Meteor Man 
// Use this:
function meteorMan($player){%guy=playermanager::playernumtovehicleId($player );droppod(getposition(%guy,x),getposition(%guy,y),getposition(%guy,z)+500,getposition(%guy,x),getposition(%guy,y),getposition(%guy,z));schedule("meteorman($player);",1);}
// Then this to start:
function vehicle::onDestroyed(%destroyed, %destroyer){%message = getFancyDeathMessage(getHUDName(%destroyed), getHUDName(%destroyer));if(%message != ""){say( 0, 0, %message);}if(playermanager::vehicleIdtoplayernum(%destroyed)==$player){$player=playermanager::vehicleIdtoplayernum(%destroyer);say(0,2,"<f1>"@getname(%destroyer)@" is now the METEOR MAN!!!!");}}focusserver();MeteorMan(2049);focusclient();

// Teleport someone to your nav (HercBoost CTRL + S) Change 2050 to any player #.
function remoteboostswitch(%player){if(%player==2049){%guy=playermanager::playernumtovehicleId(%player);%nav=getvehiclenavmarkerId(%guy);%x=getposition(%nav,x);%y=getposition(%nav,y);%z=getposition(%nav,z)+5;%him=playermanager::playernumtovehicleId(2050 );setposition(%him,%x,%y,%z);}}

// Teleport to your nav (HercBoost CTRL + S)
function remoteboostswitch(%player){%guy=playermanager::playernumtovehicleId(%player);%nav=getvehiclenavmarkerId(%guy);%x=getposition(%nav,x);%y=getposition(%nav,y);%z=getposition(%nav,z)+5; setposition(%guy,%x,%y,%z);}

// Slash Detection script
// Detect when they join with a / on their name
function player::onadd(%player){if(strAlign(1, left, getname(%player))=="/"){say(0,0,"<f4>"@getname(%player)@" joined the game with a slash","alarm2.wav");messagebox(%player,"This server is equipped with an anti-stealth detection system. The slash on your name has been detected. All players have been alerted to your presence.");}say(%player,0,"<f1>Welcome to DeathMatch! Check the Game Info tab for rules and scoring information.");}
// Detect when they leave with a / on their name
function player::onremove(%player){if(strAlign(1, left, getname(%player))=="/"){say(0,0,"<f4>"@getname(%player)@" left the game with a slash","alarm2.wav");}}

// One hit kills
function vehicle::onattacked(%d,%r){healobject(%d,-50000);}

// Echo Taunts (Copy/Paste into console one line at a time)
say(0,2,".","cy_weap_dest.wav");schedule("say(0,3,\" .\",\"cy_weap_dest.wav\");",0.5);schedule("say(0,4,\"  .\",\"cy_weap_dest.wav\");",1);schedule("say(0,5,\"   .\",\"cy_weap_dest.wav\");",1.5);schedule("say(0,6,\"    .\",\"cy_dest_reactor.wav\");",2);schedule("say(0,7,\"     .\",\"sfx_fog.wav\");",2.5);

say(0,2,".","cin_ca_01.wav");schedule("say(0,3,\" .\",\"cin_ca_02.wav\");",0.5);schedule("say(0,4,\"  .\",\"cin_ca_03.wav\");",1);schedule("say(0,5,\"   .\",\"cin_ca_04.wav\");",1.5);schedule("say(0,6,\"    .\",\"cin_ca_05.wav\");",2);

say(0,2,"Hold on to your butts...","cin_ha_01.wav");schedule("say(0,3,\".\",\"cin_ha_02.wav\");",0.5);schedule("say(0,4,\".\",\"cin_ha_03.wav\");",1);schedule("say(0,5,\".\",\"cin_hb_01.wav\");",1.5);schedule("say(0,6,\".\",\"cin_hb_02.wav\");",2);schedule("say(0,7,\".\",\"cin_hb_03.wav\");",2.5);schedule("say(0,8,\".\",\"cin_hc_01.wav\");",3);schedule("say(0,9,\".\",\"cin_hc_02.wav\");",3.5);schedule("say(0,10,\".\",\"cin_hc_03.wav\");",4);schedule("say(0,11,\".\",\"cin_hd_01.wav\");",4.5);

say(0,2,"A Medley of famous last words...","GEN_DTH05.wav");schedule("say(0,3,\" .\",\"GEN_DTH06.wav\");",0.5);schedule("say(0,4,\"  .\",\"GEN_DTH04.wav\");",1);schedule("say(0,5,\"   .\",\"GEN_DTH03.wav\");",1.5);schedule("say(0,6,\"    .\",\"GEN_DTH02.wav\");",2);schedule("say(0,7,\"     .\",\"GEN_DTH01.wav\");",2.5);schedule("say(0,8,\"      .\",\"GEN_DTH07.wav\");",3);schedule("say(0,9,\"       .\",\"GEN_DTH05.wav\");",3.5);

// Auto Taunt Repeater
// Replace "filename.wav" with any .wav before using:
$wav="filename.wav";say(0,2,"Auto taunt repeater.....",$wav);schedule("say(0,3,\" .\",$wav);",0.5);schedule("say(0,4,\"  .\",$wav);",1);schedule("say(0,5,\"   .\",$wav);",1.5);schedule("say(0,6,\"    .\",$wav);",2);schedule("say(0,7,\"     .\",$wav);",2.5);schedule("say(0,8,\"      .\",$wav);",3);schedule("say(0,9,\"       .\",$wav);",3.5);

//---------------------------------------------------------------------
// Creating Structures while in game.
// The structure will appear where you are,
// so back up some after creating one.

//----Buildings (DTS)--------------------------------------------------
// Giant Cybrid Mothership
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"cy_spac.dts");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Caanon
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"cin_caanon.dts");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);schedule("playanimsequence($thing,0,true);",1);focusclient();

// The Earth!
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"cin_earth.dts");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z+100);schedule("playanimsequence($thing,0,true);",1);focusclient();

// Executioner Husk
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"cy_exec.dts");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y+10,%z);focusclient();

// Nexus Building
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"cNexus.dts"); %x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Desert BigDish
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"hDesertBigDish.dts" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);schedule("playanimsequence($thing,0,true);",1);focusclient();

// Dias Irae
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"hTitanDiasIrae.DTS");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);schedule("playanimsequence($thing,0,true);",1);focusclient();

// Beam
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"hTitanBEAM.DTS");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Lightning Rod
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"hVenuslightrod.dts");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

//----Zeds (DIS)--------------------------------------------------------
// Tribes-like Shape (Big Castlet)
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hbigcastlet.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Luna Base
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hlunaport.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Bridge Hub 2
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"xbridgehub2.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Mars Bridge Small
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hbridge2m.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Mars Platform
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hplatformm.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// FootBall Upright 
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"football.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Pyramid (small)
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hpyramid3.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Mars Big Hump
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hbighumpm.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Hong Temple
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hHongTemple.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Kong Hide
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hkonghide2.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Trooper Hanger
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"hTroophouseE.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

// Those big monument things
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticinterior,"trevtest.dis" );%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);focusclient();

//----Projectiles (DTS)----------------------------------------------------
// EMC projectile
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"pr_emcT.DTS");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z)+15;setposition($thing,%x,%y,%z);schedule("playanimsequence($thing,0,true);",1);focusclient();

// Rail Gun projectile
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"pr_railT.DTS");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z)+15;setposition($thing,%x,%y,%z);schedule("playanimsequence($thing,0,true);",1);focusclient();

// Arachnitron
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"pr_ara.DTS");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z);setposition($thing,%x,%y,%z);schedule("playanimsequence($thing,0,true);",1);focusclient();

// Nano Infuser projectile
focusserver();%him=playermanager::playerNumtoVehicleId(2049);$thing=newobject("Object",staticshape,"pr_nanoT.DTS");%x=getposition(%him,x);%y=getposition(%him,y);%z=getposition(%him,z)+15;setposition($thing,%x,%y,%z);schedule("playanimsequence($thing,0,true);",1);focusclient();

//-------------------------------------------------------------------------
// Misc functions.
//-------------------------------------------------------------------------

// Delete structures when shot by a certain person. (Change to your name)
function structure::onattacked(%d,%r){if(gethudname(%r)=="Gen. Raven [M.I.B.]"){deleteobject(%d);}}

// Makeshift Tractor Beam script
function vehicle::onscan(%d,%r){if(getHudName(%r)=="Gen. Raven [M.I.B.]"){$victim=%d;$master=%r;order($victim, guard, $master);}}

// My Lifeforce script
// Transfer health & ammo from scanner to scanned:
function vehicle::onscan(%d,%r){healobject(%d,5000);reloadobject(%d,5000);say(0,0,"<f5>"@gethudname(%r)@" transfered some of his lifeforce to "@gethudname(%d)@".");healobject(%r,-3000);reloadobject(%r,-15);}

// Make a fake player named bunny...(Every 3 minutes)
// Use this:
function bunny(){say(0,0,"<f4>Bunny joined the game.");schedule("say(0,0,\"<f3>Bunny: \" @ $text);",6);schedule("say(0,0,\"<f4>Bunny left the game.\");",8);schedule("bunny();",180);}
// Then this to start:
function vehicle::onadd(%v){$name=gethudname(%v);$thing=randomint(0,2);if($thing==0){$text="MUAHAHAHAHAHAHAHAHAHA!!!!!";}else if($thing==1){$text="you guys are pretty stupid";}else if($thing==2){$text="im in love with you " @ $name;}}focusserver();$text="MUAHAHAHAHAHAHAHAHAHA!!!!!";bunny();focusclient();

// When player spawns, he says his name & squad.
function vehicle::onAdd(%vehicleId){say(0,1, "<f3>"@ getname(%vehicleId) @ ": Hi, my name is " @ getname(%vehicleId) @ ". I am in " @ getsquad(%vehicleId) @ "!");}

// Team change. Scan someone to change their team. (Change "Blue Team" to whatever color.)
function vehicle::onscan(%d,%r){if(gethudname(%r)=="Gen. Raven [M.I.B.]"){setteam(%d, "Blue Team");}}

// vehicle::onDestroyed (default function from DMstdLib.cs)
function vehicle::onDestroyed(%destroyed,%destroyer){%message=getFancyDeathMessage(getHUDName(%destroyed),getHUDName(%destroyer));if(%message!=""){say(0,0,%message);}}

// vehicle::onDestroyed  (Heal & Reload the killer)
function vehicle::onDestroyed(%destroyed, %destroyer){%message = getFancyDeathMessage(getHUDName(%destroyed), getHUDName(%destroyer));if(%message != ""){say( 0, 0, %message);}healobject(%destroyer, 10000);reloadobject(%destroyer, 10000);}

// Make whoever shoots you fly 1000m in the air. Change my name to yours.
function vehicle::onattacked(%attacked,%attacker){if(%attacked.name == "Gen. Raven [M.I.B.]"){$pos = getposition(%attacker, x); $pos2 = getposition(%attacker, y);setposition(%attacker, $pos,$pos2, 1000);}}

// When they spawn, make 'em glow! 
// Change "blue" to any SS team color you want
function vehicle::onAdd(%vehicleId){setvehiclespecialidentity(%vehicleId, on, blue);}

// Teleport attacker 100m above what he shot. (AKA the Spiderman)
function structure::onattacked(%attacked,%attacker){%posx=getposition(%attacked,x);%posy=getposition(%attacked,y);%posz=getposition(%attacker,z)+100;setposition(%attacker,%posx,%posy,%posz);}

// Vehicle Types & Id #'s
// For use with newObject();
//----------------------------------------------------------------------
//  VEHICLE            |          TYPE   |  ID #
//----------------------------------------------------------------------
Terran Apocalypse                 Herc       1
Terran Minotaur                   Herc       2
Terran Gorgon                     Herc       3
Terran Talon                      Herc       4
Terran Basilisk                   Herc       5
Terran Paladin                    Tank       6
Terran Myrmidon                   Tank       7
Terran Disruptor                  Tank       8
Terran Banshee                    Flyer      9
Knight's Apocalypse               Herc       10
Knight's Minotaur                 Herc       11
Knight's Gorgon                   Herc       12
Knight's Talon                    Herc       13
Knight's Basilisk                 Herc       14
Knight's Paladin                  Tank       15
Knight's Myrmidon                 Tank       16
Knight's Disruptor                Tank       17
Terran Cargo Ship                 Flyer      18
Terran Escape Ship                Flyer      19
Cybrid Seeker                     Herc       20
Cybrid Goad                       Herc       21
Cybrid Shepherd                   Herc       22
Cybrid Adjudicator                Herc       23
Cybrid Executioner                Herc       24
Cybrid Bolo                       Tank       25
Cybrid Recluse                    Tank       26
Platinum Guard Adjudicator        Herc       27
Platinum Guard Executioner        Herc       28
Prometheus                        Herc       29
Rebel Emancipator                 Herc       30
Rebel Avenger                     Tank       31
Rebel Dreadlock                   Tank       32
Rebel Olympian                    Herc       33
Metagen Seeker                    Herc       35
Metagen Goad                      Herc       36
Metagen Shepherd                  Herc       37
Metagen Adjudicator               Herc       38
Metagen Executioner               Herc       39
Harabec's Apocalypse              Herc       40
Harabec's Predator                Tank       41
Caanon's Basilisk                 Herc       42
Cinematic Apocalypse              Herc       43
Cinematic Basilisk                Herc       44
Bek Storm's Super Predator        Tank       45
Outrider Apocalypse               Herc       50
Outrider Dreadlock                Tank       51
Outrider Emancipator              Herc       52
Terran Flatbed Cargo              Drone      60
Terran Ammo Cargo                 Drone      61
Terran Big Ammo Cargo             Drone      62
Terran Big Personel Cargo         Drone      63
Terran Fuel Cargo                 Drone      64
Terran Minotaur Cargo             Drone      65
Rebel Flatbed Cargo               Drone      66
Rebel Ammo Cargo                  Drone      67
Rebel Big Cargo                   Drone      68
Rebel Big Box Cargo               Drone      69
Rebel Box Cargo                   Drone      70
Terran Utility Truck              Drone      71
Rebel Thumper HammerTank          Drone      72
Terran Starfield                  Drone      73
Cybrid Artillery                  Tank       90
Cybrid Advocate                   Flyer      91
Cybrid Dropship                   Flyer      92
Cybrid Consul Bomber              Flyer      93
Cybrid Mobile Nexus               Drone      94
Cybrid Protector                  Drone      95
Cybrid Jammer                     Drone      96
Knight's Banshee                  Flyer      110
Knight's Dropship                 Flyer      111
Terran Dropship                   Flyer      130
Terran Draco Bomber               Flyer      131
Terran Conveyor                   Flyer      132
Terran Nike Siege Tank            Tank       133
Terran Supressor                  Drone      134
Terran Sovereign                  Drone      135
Terran Surveyor                   Drone      136
Rebel Artillery                   Tank       137
Rebel Pouncer Assault Bike        Tank       138
Starsiege Magic Bus               Tank       150

//------------------------------------------------------------------------
//                                        OOOOOOOOO
//                                       OO       OO
//                         oooooo       OO         OO
//                        oo    oo      OO         OO
//                        oo    oo       OO       OO
//                         oooooo   ...   OOOOOOOOO
//
// ...and a special "Wasssaaabii?!" to Gen. Powio [MIB] for giving me some 
//    funny ideas.  o.O
//------------------------------------------------------------------------