A Common Collect Script

[Arf]

Collect.cs   this is the most highly sought after script for farming clays.  I included it here because i think that if one player has it then they all should have it.  I give it to whomever wants it but i don't show them how to use it.  if you want it, learn how to use it.

Include("presto\\Match.cs");
Include("presto\\Event.cs");

bindCommand(keyboard0, make, "m", TO, "$Collect = 1;");
bindCommand(keyboard0, break, "n", TO, "$Collect = 0;");

Event::Attach(eventClientMessage, OnMessage);

function OnMessage(%client, %msg) {
   if($Collect == 1) {
         if(Match::String(%msg, "* has died and you gained * experience!") == 1) {
            aCollect();
            return;
         }
         else if(Match::String(%msg, "* has died.") == 1) {
            aCollect();
            return;
         }
      }


function aCollect() {
   Schedule("postAction(2048, IDACTION_MOVEFORWARD, 0.999999);", 0.5);
   Schedule("postAction(2048, IDACTION_MOVEFORWARD, 0.9999991);", 1);
   Schedule("postAction(2048, IDACTION_MOVEBACK, 0.999999);", 2);
   Schedule("postAction(2048, IDACTION_MOVEBACK, 0.999999);", 2.5);
   Schedule("postAction(2048, IDACTION_MOVEBACK, 0.999999);", 3);
}

function Stop() {
   $Collect = 0;
   }
}

[KoRo]

Maybe we should collect all the various scripts that people use and make a database out of them? I have a few simple ones that I wrote...like one that will automatically put your valuables into storage (assuming your storage is open and you're using CowboyHUD or InventoryHUD), i.e. It will store your diamonds as you're mining them so you will never lose any from the server crashing while having 500+.

I also made a script to auto buy/sell items at intervals of 100 so you don't have to type it in all the time.

[B2]

I thought SIayer made the autostore one?

[Arf]

Yes yes yes I agree.  we should post whatever useful scripts there are...  I am sure that many would enjoy some of the advantages they would bring.

Maybe we should collect all the various scripts that people use and make a database out of them? I have a few simple ones that I wrote...like one that will automatically put your valuables into storage (assuming your storage is open and you're using CowboyHUD or InventoryHUD), i.e. It will store your diamonds as you're mining them so you will never lose any from the server crashing while having 500+.

I also made a script to auto buy/sell items at intervals of 100 so you don't have to type it in all the time.

[KoRo]

B2, I've been playing SIayer for the last 4 years (minus the 3 year hiatus I took, lol). I wrote the autostore script; at least, I wrote the one that I'm using. I definitely used other scripts as inspiration though; namely Presto's stuff.


For those who are interested (make sure you have Cowboy hud installed and your storage open. This is good if you're mining so your mineral count will never go above 500 and you lose all the stuff past 500 that you mined...or if you kill more than 500 ubers. In general, it just automatically stores everything valuable (subjective, of course) so it won't get stolen, lost, etc).



//To start storing items, type startSlots();
//To stop storing items, type stopSlots();


function startSlots() {
   echo("");
   echo(">> Auto-storing valuable items.");
   echo("");
   $Slots = true;
   slotLoop();
}


function stopSlots() {
   $Slots = false;
   echo("");
   echo(">> No longer auto-storing items.");
   echo("");
}


function slotLoop() {
   if(getItemCount("Keldrinite") > 0) {
      sell("Keldrinite"); }

   if(getItemCount("Diamond") > 0) {
      sell("Diamond"); }

   if(getItemCount("Emerald") > 0) {
      sell("Emerald"); }

   if(getItemCount("Gold") > 0) {
      sell("Gold"); }

   if(getItemCount("Sapphire") > 0) {
      sell("Sapphire"); }

   if(getItemCount("Topaz") > 0) {
      sell("Topaz"); }

   if(getItemCount("Titanium") > 0) {
      sell("Titanium"); }

   if(getItemCount("Iron") > 0) {
      sell("Iron"); }

   if(getItemCount("Ruby") > 0) {
      sell("Ruby"); }

   if(getItemCount("Nickel") > 0) {
      sell("Nickel"); }

   if(getItemCount("Silver") > 0) {
      sell("Silver"); }

   if(getItemCount("Dragon Scale") > 0) {
      sell("Dragon scale"); }

   if(getItemCount("Claymore") > 2) {
      sell("Claymore"); }

   if(getItemCount("Gladius") > 2) {
      sell("Gladius"); }

   if(getItemCount("Bastard Sword") > 2) {
      sell("Bastard Sword"); }

   if(getItemCount("Enchanted Stone") > 0) {
      sell("Enchanted Stone"); }

   if($Slots) {
   schedule("slotLoop();", 1); }
}

[KoRo]

If anyone use's Cody's Winamp Monitor for Tribes, I wrote script that will begin playing Winamp whenever an important event happens (i.e. if the server crashes). Not useful if you're completely AFK and without access to your computer, but if you have Tribes minimized, or if you're within earshot of your computer, it's a rugged but simple "siren" to alert you to something having happened.



//Be sure that both Winamp and Tribes Winamp Moniter are up and running, and that Winamp is stopped.

event::Attach(eventConnectionTimeout, disconnectAlarm);

function disconnectAlarm() {
    schedule("winamp::play();", 0);
}

[KoRo]

After all these years, I finally was able to develop an auto-remort script. If you hit level 101, it will automatically remort you, put appropriate amounts of SP into the appropriate skills, switch your weapon, begin auto-firing your weapon, and then transport you to your desired location. Only useful for those who are at such a high RL that they can afford to do all of that at lvl 1. Nevertheless, it's an important step on a much larger project I've been thinking about.



echo("");
echo("Type startautoremort(); to activate.");
echo("Type stopautoremort(); to deactivate.");
echo("");


function startautoremort() {
   $yesremort = true;
    echo("");
   echo("Auto remorting at level 101");
    echo("");
}


function stopautoremort() {
   $yesremort = false;
    echo("");
   echo("No longer auto remorting");
    echo("");
}



   
event::Attach(eventClientMessage, lvlCatch);

function lvlCatch(%client, %msg) {
    %level100 = Match::String(%msg, "Welcome to level 100");
    %level101 = Match::String(%msg, "Welcome to level 101");

      if(%level100 && $yesremort) {
      $DeusRPG::AutoCasting = 0; //Stop Deus autocasting at lvl 100 so it doesn't get in the way of remorting at lvl 101
   }

      if(%level101 && $yesremort) {
      Schedule("say(0, \"#cast remort\");", 0);
        Schedule("autoskills();", 5);
   }
}


function autoskills() {
   %i = 0.5;
   schedule("remoteeval(2048, ScoresOn);", %i);
   schedule("ClientMenuSelect(sp);", %i++);
//   ClientMenuselect("page 1"); //Pages 1-4
//   ClientMenuSelect("2 1"); //First number is skill 1-23, second number is the page to show after.
    schedule("say(1,\"19\");",%i++); //19 into Slashing
    schedule("ClientMenuSelect(\"1 1\");",%i++);
    schedule("say(1,\"10\");",%i++); //10 into Weght Capacity
    schedule("ClientMenuSelect(\"5 1\");",%i++);
    schedule("say(1,\"17\");",%i++); //17 into Offensive Casting
    schedule("ClientMenuSelect(\"10 2\");",%i++);
    schedule("say(1,\"20\");",%i++); //20 into Endurance
    schedule("ClientMenuSelect(\"15 3\");",%i++);
    schedule("say(1,\"20\");",%i++); //20 into Energy
    schedule("ClientMenuSelect(\"20 4\");",%i++);
    schedule("say(1,\"10\");",%i++); //10 into Neutral Casting
    schedule("ClientMenuSelect(\"22 4\");",%i++);
    schedule("remoteeval(2048, ScoresOff);", %i++);
    schedule("say(0,\"#cast transport uber\");", %i++);
    schedule("use(\"Anchet's Sword\");", %i++);
    schedule("DeusRPGPack::func14();", %i++);
    schedule("DeusRPGPack::func14();", %i++);
}

[KoRo]

Same idea as the server crash alarm, but in this case it's for when certain people join the server. Particularly people that you are paranoid of, or just the regular trolls. This probably isn't a big deal anymore since hardly anyone plays, but back in the days of Focus and Jeenyus, I would have loved something like this. I borrowed heavily from HocusFocus.cs (Cody's amazing Focus auto-taunt script), so much so that I haven't bothered to clean it up and fix up the variable names, etc.


$Focus::Target[0] = "Focus";
$Focus::Target[1] = "Jeenyus";
$Focus::Target[2] = "Arf";
$Focus::Target[3] = "Particle";


event::Attach(eventClientJoin, Connected);

function Connected(%client) {
        %client = client::getname(%client);
       for (%i=0; $Focus::Target[%i] != ""; %i++) {
      if (%client == $Focus::Target[%i]) {
                winamp::play();
                }
        }
}




Alternatively, you could modify it so that it just plays music whenever anyone joins...probably a headache, but eh.



event::Attach(eventClientJoin, Connected);

function Connected(%client) {
   winamp::play();
}

[KoRo]

My own auto buy/sell script for when you have many thousands of items and you don't want to kill your hand going through the "y-uparrow-enter-doubleclick" loop dozens of times over to buy, and then again to sell. Also made it usable for dust, even though there's already an auto-dusting script in Deus i think. It's very dirty and could use a lot of polishing, but it gets the job done.



include("presto\\Match.cs");
include("presto\\Event.cs");
   
   echo("");
   echo("");
   echo(">> Type startbuy(); to begin auto-buying from storage.");
   echo("");
   echo(">> Type stopbuy(); to stop.");
   echo("");
   echo("");
   echo("");
   echo("");
   echo(">> Type startsell(); to begin auto-selling to merchant.");
   echo("");
   echo(">> Type stopsell(); to stop.");
   echo("");
   echo("");
   echo("");
   echo("");
   echo(">> Type buydust(); to begin auto-buying dust.");
   echo("");
   echo(">> Type stopdust(); to stop.");
   echo("");
   echo("");


function startbuy($buyitem) {
   $buyspam = true;
   buyloop();
   }   


function buyloop() {
   schedule("say(1, \"100\");", 0);
   buy($buyitem);
   if($buyspam)
   schedule("buyloop();", 0.5);
   }


function stopbuy() {
   $buyspam = false;
   }








function startsell($sellitem) {
   $sellspam = true;
   sellloop();
   }

function sellloop() {
   if(getItemCount($sellitem) > 100) {
      schedule("say(1, \"100\");", 0.5);
      sell($sellitem);
      }

   if($sellspam)
   schedule("sellloop();", 0.5);   
   }


function stopsell() {
   $sellspam = false;
   }





function buydust() {
   $buydust = true;
   dustloop();
   }   


function dustloop() {
   schedule("say(1, \"#say hi\");", 0);
   schedule("say(1, \"#say yes\");", 1);

   if($buydust)
   schedule("dustloop();", 2);
   }

function stopdust() {
   $buydust = false;
   }

[B2]

Awesome!! Great job on the scripts man! Thanks for sharing!

Do you know where I can get Tribes Winamp Moniter?

[KoRo]

I'm going to collect all the old scripts and programs that have been lost through time and make a database for them. One thing you should know about me is that I hoard EVERYTHING, including scripts for a 15 year old game.

[Vorter_X_]

I have my old hard drives somewhere around here...they've got everything installed still...I wonder which box those are in o.O...And by everything...I mean ALL the good scripts...just have no idea where those 5gb 5" HDDs are...I'll find em and try to get stuff off them though...