Register to post in forums, or Log in to your existing account
 

Play RetroMUD
Post new topic  Reply to topic     Home » Forums » Finished MUD Scripts
Winslow
Novice


Joined: 17 Feb 2007
Posts: 48

PostPosted: Tue Jul 17, 2007 11:58 pm   

Script for Exile: Corpse searching
 
Any player of exile knows corpse searching is very important. I had originally wirtten several versions of this script myself when starting however found this one to be the most workable. The most important part that I had found in this is that it can search up to 20 corpses in the same room however once it hits a search and there is no corpse (i.e. there are only 8 corpses) it will not continue the search and will reset itself. This saves lots of time especially in NPK and CPK zones as I had set my own to search 10 corpse and would get lag when I only killed 2. Additionally, it wil automatically pick up the items found without having to worry about missing something.

I personally have a little bit of an upgraded version of this to #gag out all the spam so when I search, I only see things that I pick up and don't see the spam of things not found.


Code:

  #trigger {You find a} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find an} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find the} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find some} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find a Mana Stone} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find a depiction} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find a gem of true seeing} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find an ancient relic} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You find a blue orb hidden} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {You see no 1.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 2.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 3.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 4.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 5.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 6.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 7.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 8.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 9.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 10.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 11.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 12.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 13.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 14.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 15.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 16.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 17.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 18.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 19.corpse here to search.} {Resetsearch} grpsearch;#trigger {You see no 20.corpse here to search.} {Resetsearch} grpsearch;#trigger {You find nothing hidden in the corpse} {#if (@bsearch) {searchnextcorpse}} grpsearch;#trigger {No way! You're fighting for your life!} {Resetsearch} grpsearch;#trigger {You can't see a damn thing!} {Resetsearch} grpsearch;#alias searchfirstcorpse {#if (%numitems(@lstsearch) > 0) {#var nsearchIndex {1};#if (@seastat) {#show Searching %item(@lstsearch,@nsearchIndex)...};search %item(@lstsearch,@nsearchIndex)}} Resetsearch;#alias searchnextcorpse {#math nsearchIndex @nsearchIndex+1;#if (@nsearchIndex <= %numitems(@lstsearch)) {search %item(@lstsearch,@nsearchIndex);#if (@seastat) {#show SUCCESS, Next is --> %item(@lstsearch,@nsearchIndex)}} {rssearch}} grpsearch;#alias Resetsearch {#if (@bsearch) {#show Search has been reset.;#var bsearch {0};#var nsearchIndex {0};copysearch}} grpsearch;#alias copysearch {#var lstsearch "";#var lstsearch "";#loop 1,%numitems(@search) {#additem lstsearch %item(@search,%i)}} grpsearch;#alias rssearch {Resetsearch} grpsearch;#alias getitall {#var bsearch {1};searchfirstcorpse} grpsearch;#alias sea- {#t- grpsearch} grpsearch;#alias seaadd  {#additem lstsearch %1} grpsearch;#alias seadel  {#additem lstsearch %1} grpsearch;#alias seahelp {#show %char(10)Commands - - - - - - What they do... %char(10)-------------------------------------------------------%char(10)Seahelp - - - - - - - This listing%char(10)Getitall - - - - - - - Begins searching corpses%char(10)Seashow - - - - - - - Displays amount of corpses%char(10)Seaadd <#.corpse> - - -Adds corpse <#.corpse> to the List%char(10)Seadel <#.corpse> - - -Removes corpse <#.corpse> from the List%char(10)Sea- - - - - - - - - - Disables the entire group of commands%char(10)Sea+ - - - - - - - - - Enables group of commands%char(10)Seastat - - - - - - - Toggles the status of the search} grpsearch;#alias seashow {#show @lstsearch} grpsearch;#alias seastat {#if (@seastat) {#var seastat {0};#show Search Info OFF} {#var seastat {1};#show Search Info ON}} grpsearch;#var bsearchWasCast {0} "" grpsearch;#var nsearchIndex {0} "" grpsearch;#key F12 {get gold all;getitall};#var lstsearch "";#additem lstsearch %concat(%repeat("",2), 1.corpse) ;#additem lstsearch %concat(%repeat("",2), 2.corpse) ;#additem lstsearch %concat(%repeat("",2), 3.corpse) ;#additem lstsearch %concat(%repeat("",2), 4.corpse) ;#additem lstsearch %concat(%repeat("",2), 5.corpse) ;#additem lstsearch %concat(%repeat("",2), 6.corpse) ;#additem lstsearch %concat(%repeat("",2), 7.corpse) ;#additem lstsearch %concat(%repeat("",2), 8.corpse) ;#additem lstsearch %concat(%repeat("",2), 9.corpse) ;#additem lstsearch %concat(%repeat("",1), 10.corpse) ;#additem lstsearch %concat(%repeat("",1), 11.corpse) ;#additem lstsearch %concat(%repeat("",1), 12.corpse) ;#additem lstsearch %concat(%repeat("",1), 13.corpse) ;#additem lstsearch %concat(%repeat("",1), 14.corpse) ;#additem lstsearch %concat(%repeat("",1), 15.corpse) ;#additem lstsearch %concat(%repeat("",1), 16.corpse) ;#additem lstsearch %concat(%repeat("",1), 17.corpse) ;#additem lstsearch %concat(%repeat("",1), 18.corpse) ;#additem lstsearch %concat(%repeat("",1), 19.corpse) ;#additem lstsearch %concat(%repeat("",1), 20.corpse) ;#var search "";#additem search %concat(%repeat("",2), 1.corpse) ;#additem search %concat(%repeat("",2), 2.corpse) ;#additem search %concat(%repeat("",2), 3.corpse) ;#additem search %concat(%repeat("",2), 4.corpse) ;#additem search %concat(%repeat("",2), 5.corpse) ;#additem search %concat(%repeat("",2), 6.corpse) ;#additem search %concat(%repeat("",2), 7.corpse) ;#additem search %concat(%repeat("",2), 8.corpse) ;#additem search %concat(%repeat("",2), 9.corpse) ;#additem search %concat(%repeat("",1), 10.corpse) ;#additem search %concat(%repeat("",1), 11.corpse) ;#additem search %concat(%repeat("",1), 12.corpse) ;#additem search %concat(%repeat("",1), 13.corpse) ;#additem search %concat(%repeat("",1), 14.corpse) ;#additem search %concat(%repeat("",1), 15.corpse) ;#additem search %concat(%repeat("",1), 16.corpse) ;#additem search %concat(%repeat("",1), 17.corpse) ;#additem search %concat(%repeat("",1), 18.corpse) ;#additem search %concat(%repeat("",1), 19.corpse) ;#additem search %concat(%repeat("",1), 20.corpse) ;#gag {There doesn't seem to be a gold in the corpse of (*)};#gag {There doesn't seem to be a (*)};#gag {You see no 2.corpse here to search.};#gag {You see no 3.corpse here to search.};#gag {You see no 4.corpse here to search.};#gag {You see no 5.corpse here to search.};#gag {You see no 6.corpse here to search.};#gag {You see no 7.corpse here to search.};#gag {You see no 8.corpse here to search.};#gag {You see no 9.corpse here to search.};#gag {You see no 10.corpse here to search.};#gag {You see no 11.corpse here to search.};#gag {You see no 12.corpse here to search.};#gag {You see no 13.corpse here to search.};#gag {You see no 14.corpse here to search.};#gag {You see no 15.corpse here to search.};#gag {You see no 16.corpse here to search.};#gag {You see no 17.corpse here to search.};#gag {You see no 18.corpse here to search.};#gag {You see no 19.corpse here to search.};#gag {You see no 20.corpse here to search.};#trigger {You find a blue orb hidden in the corpse} {Get orb all};#trigger {You find an ancient relic of unknown origin hidden in the corpse} {get relic all};#trigger {You find a gem of true seeing hidden in the corpse} {Get true all};#trigger {You find a depiction of} {Get depiction all};#trigger {You find a Mana Stone hidden in the corpse} {get mana all};#highlight {You find an ancient relic of unknown origin hidden in the corpse of (*)};#highlight {You find a blue orb hidden in the corpse of (*)};#highlight {You find a depiction of (*)};#highlight {You find a gem of true seeing hidden in the corpse of (*)};#highlight {You find a Mana Stone hidden in the corpse of (*)};
Reply with quote
Display posts from previous:   
Post new topic   Reply to topic     Home » Forums » Finished MUD Scripts All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

© 2009 Zugg Software. Hosted by Wolfpaw.net