TinTin++ Mud Client The TinTin++ message board

 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
TinTin++ Mud Client

Loot Script for Medievia

 
Post new topic   Reply to topic    The TinTin++ message board Forum Index -> Finished Scripts
View previous topic :: View next topic  
Author Message
blkno1



Joined: 03 Dec 2007
Posts: 117

PostPosted: Tue Nov 10, 2009 8:02 am    Post subject: Loot Script for Medievia Reply with quote

This script helps you loot corpses. Auto grabs some items, others items can be set.

Updated 5/03/14 updated exc alias to work with 2.01.0 (Thanks Scandum!)

Tested and working on 2.01.0

Medievias output when examining a corpse:

Code:
When you look inside, you see:
the corpse of a muscular sailor (here) :
     [ pristine] a green potion
     [ pristine] a steel scimitar
  -->[ pristine] a pair of black, oily boots
  -->[ pristine] a sailor's white cap
     [ pristine] a striped red and white sailor's shirt
     gold coins
     [ pristine] a conch shell




Code:
#nop Loot Script for Medievia

#class {loot} {kill}
#class {loot} {open}

#alias loothelp
{
   #showme <139>***************************************************************;
   #showme <139>******************  Loot Helper for Medievia   ****************;
   #showme <139>***************************************************************;
   #showme <129>exc<179> Examine corpse;
   #showme <129>ga<179> Get all corpse or ga item - gets all.item from corpse;
   #showme <129>scc<179> Sac corpse;
   #showme <129>cloot<119> <item> <179> Programs cloot1 for <item>;
   #showme <179> Example cloot1 sword would prgram the looter  to loot swords from corpses.;
   #showme <129>cloots<179> Shows loot list.;
   #showme by <034>K<025>j<016>e<007>l<043>d<052>a<061>r;
   #showme <139>***************************************************************;
}

#var corpsenum 1

#act {(here)}
{
   #delay 0.5 #unact {%%90};
   #act {%%90}
        {
   #if {"%%90" == "%*Nothing%*"} {scc};
   #if {"%%90" == "%*gold coins%*"} {get coins corpse};
   #if {"%%90" == "%*brittle%*"} {get quest corpse};
   #if {"%%90" == "%*orb%*"}{get orb corpse};
   #if {"%%90" == "%*dragon crystal%*"}{get dc corpse};
   #if {"%%90" == "%*$cloot1%*"}{get $cloot1 corpse};
   #if {"%%90" == "%*$cloot2%*"}{get $cloot2 corpse};
   #if {"%%90" == "%*$cloot3%*"}{get $cloot3 corpse};
   #if {"%%90" == "%*green potion%*"}{get all.green corpse}
        }

}



#var {corpsenum} {1}

#alias ga {get all.%1 corpse}

#alias scc
   {
   sac corpse;exc
   }

#alias {exc}
   {
   examine $corpsenum\.corpse;
   }


   
#gag {^The corpse on the ground does not contain the coins.}
#gag {^The corpse on the ground does not contain the %0}
#gag {^You do not see anything in the corpse.}

#action {^You do not see that here.} {#var corpsenum {1}}
#action {^The corpse on the ground does not contain the coins.} {--}
#action {^You do not see or have the %0.corpse.} {#var {corpsenum} {1}}

#alias {cloot1} {#var cloot1 %0;#showme <139>cloot1 set to %0}
#alias {cloot2} {#var cloot2 %0;#showme <139>cloot2 set to %0}
#alias {cloot3} {#var cloot3 %0;#showme <139>cloot3 set to %0}


#alias cloots
{
    #showme <129>Lootlist;
   #var {cloot1};
   #var {cloot2};
   #var {cloot3};
   
}


#class {loot} {close}
Back to top
View user's profile Send private message Yahoo Messenger
Display posts from previous:   
Post new topic   Reply to topic    The TinTin++ message board Forum Index -> Finished Scripts All times are GMT - 5 Hours
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
Get TinTin++ Mud Client at SourceForge.net. Fast, secure and Free Open Source software downloads Get TinTin++ Mud Client at SourceForge.net. Fast, secure and Free Open Source software downloads
TinTin++ Homepage

Powered by phpBB © 2001, 2002 phpBB Group