Casor
Adept
The gump id is actually the same. The first part of this '0x38920abd' is the gump id. The '9' is which button id on that gump. The button id for the scroll you want is the only part you need to replace.replygump 0x38920abd 9
The gump id is actually the same. The first part of this '0x38920abd' is the gump id. The '9' is which button id on that gump. The button id for the scroll you want is the only part you need to replace.replygump 0x38920abd 9
Any improvements you could make to this?
Code:if not listexists 'tameables' createlist 'tameables' pushlist 'tameables' 0x4a //Imp pushlist 'tameables' 0x7t //Hellcat (Large) pushlist 'tameables' 0x62 //Hellhound pushlist 'tameables' 0xbc //Savage Ridgeback pushlist 'tameables' 0xbb //Ridgeback pushlist 'tameables' 0x17 //Dire Wolf pushlist 'tameables' 0xce //Lava Lizard pushlist 'tameables' 0x14 //Frost spider pushlist 'tameables' 0xc9 //Hellcat (Small) pushlist 'tameables' 0xda //Frenzied Ostard pushlist 'tameables' 0x50 //Giant Toad pushlist 'tameables' 0xe8 //Bull pushlist 'tameables' 0xe9 //Bull2 pushlist 'tameables' 0x22 //White Wolf pushlist 'tameables' 0x25 //White Wolf2 endif if not @inrange 'tobetamed' 5 @unsetalias 'tobetamed' for 0 in 'tameables' if @findtype tameables[] 'any' 'ground' 1 5 @setalias 'tobetamed' 'found' break endif endfor endif @clearjournal useskill 'Peacemaking' target 'tobetamed' pause 200 if @injournal 'hypnotic' 'system' pause 5000 autotargetobject 'tobetamed' useskill 'Animal Taming' else if @injournal 'calmed' 'system' autotargetobject 'tobetamed' pause 1000 useskill 'Animal Taming' endif
///////////////////////
//Peace/Tame script ///
//Made by Aga ///
//Do not loop ///
///////////////////////
@clearlist 'nameoftames'
@clearlist 'numberoffollowers'
@clearlist 'peacemakeyesorno'
@clearlist 'pathfinding'
@clearlist 'tameables'
@createlist 'nameoftames'
@createlist 'numberoffollowers'
@createlist 'peacemakeyesorno'
@createlist 'pathfinding'
/////////////////////////
//Setup section ////
/////////////////////////
pushlist 'nameoftames' 'thxaga' //Change thxaga to whatever name you want
pushlist 'numberoffollowers' '1' //Change 1 to however many followers you currently have
pushlist 'peacemakeyesorno' 'yes' //yes or no if you want to peacemake
pushlist 'pathfinding' 'no' //yes or no if you want to pathfind to tame
/////////////////////////
//End Setup ////
/////////////////////////
@clearjournal
if not timerexists 'skilltimer'
createtimer 'skilltimer'
settimer 'skilltimer' 10000
endif
@createlist 'tameables'
pushlist 'tameables' 0x4a //Imp
pushlist 'tameables' 0x7t //Hellcat (Large)
pushlist 'tameables' 0x62 //Hellhound
pushlist 'tameables' 0xbc //Savage Ridgeback
pushlist 'tameables' 0xbb //Ridgeback
pushlist 'tameables' 0x17 //Dire Wolf
pushlist 'tameables' 0xce //Lava Lizard
pushlist 'tameables' 0x14 //Frost spider
pushlist 'tameables' 0xc9 //Hellcat (Small)
pushlist 'tameables' 0xda //Frenzied Ostard
pushlist 'tameables' 0x50 //Giant Toad
pushlist 'tameables' 0xe8 //Bull
pushlist 'tameables' 0xe9 //Bull2
pushlist 'tameables' 0x22 //White Wolf
pushlist 'tameables' 0x25 //White Wolf2
while not dead 'self'
if not @inrange 'currentlytaming' 10
@headmsg 'Too far away! Ignoring for now.' 34 'currentlytaming'
@unsetalias 'currentlytaming'
for 0 to 'tameables'
if @findtype tameables[] 'any' 'ground' 1 8
@setalias 'currentlytaming' 'found'
if innocent 'currentlytaming'
@headmsg 'This is already tame' 34 'currentlytaming'
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
endif
endif
endfor
endif
if not @inrange 'currentlytaming' 2
@headmsg 'Not close enough!' 34 'currentlytaming'
endif
if @inlist 'peacemakeyesorno' 'Yes' or @inlist 'peacemakeyesorno' 'yes'
if war 'currentlytaming'
if war 'self'
warmode 'off'
endif
if timer 'skilltimer' > 10000
@cleartargetqueue
@canceltarget
while not targetexists 'any'
useskill 'Peacemaking'
endwhile
settimer 'skilltimer' 0
target 'currentlytaming'
if war 'self'
warmode 'off'
endif
endif
endif
endif
if @inlist 'peacemakeyesorno' 'No' or @inlist 'peacemakeyesorno' 'no'
if @inrange 'currentlytaming' 2
if war 'self'
warmode 'off'
endif
if timer 'skilltimer' > 10000
@cleartargetqueue
@canceltarget
while not targetexists 'any'
useskill 'Animal Taming'
endwhile
settimer 'skilltimer' 0
target 'currentlytaming'
pause 200
if @injournal 'That is too far away' 'system'
settimer 'skilltimer' 10001
clearjournal'
endif
if @injournal 'You have no chance of taming this creature' 'system' or @injournal 'do not have a clear path to the animal' 'system'
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
@clearjournal
endif
if @injournal 'This animal has had too many owners' 'system' or @injournal 'That animal looks tame already' 'system'
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
@clearjournal
endif
endif
endif
endif
if @inlist 'peacemakeyesorno' 'Yes' or @inlist 'peacemakeyesorno' 'yes'
if not war 'currentlytaming'
if @inrange 'currentlytaming' 2
if war 'self'
warmode 'off'
endif
if timer 'skilltimer' > 10000
@cleartargetqueue
@canceltarget
while not targetexists 'any'
useskill 'Animal Taming'
endwhile
settimer 'skilltimer' 0
target 'currentlytaming'
pause 200
if @injournal 'That is too far away' 'system'
settimer 'skilltimer' 10001
@clearjournal
endif
if @injournal 'You have no chance of taming this creature' 'system' or @injournal 'do not have a clear path to the animal' 'system'
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
@clearjournal
endif
if @injournal 'This animal has had too many owners' 'system' or @injournal 'That animal looks tame already' 'system'
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
@clearjournal
endif
endif
endif
endif
endif
if @inlist 'numberoffollowers' '0'
if followers > 0
settimer 'skilltimer' 0
@rename 'currentlytaming' nameoftames[0]
if name 'currentlytaming' == nameoftames[0]
waitforcontext 'currentlytaming' 8 15000
while not @gumpexists 0x909cc741
pause 500
endwhile
pause 500
replygump 0x909cc741 2
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
pause 500
settimer 'skilltimer' 10001
endif
endif
endif
if @inlist 'numberoffollowers' '1'
if followers > 1
settimer 'skilltimer' 0
@rename 'currentlytaming' nameoftames[0]
if name 'currentlytaming' == nameoftames[0]
waitforcontext 'currentlytaming' 8 15000
while not @gumpexists 0x909cc741
pause 500
endwhile
pause 500
replygump 0x909cc741 2
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
pause 500
settimer 'skilltimer' 10001
endif
endif
endif
if @inlist 'numberoffollowers' '2'
if followers > 2
settimer 'skilltimer' 0
@rename 'currentlytaming' nameoftames[0]
if name 'currentlytaming' == nameoftames[0]
waitforcontext 'currentlytaming' 8 15000
while not @gumpexists 0x909cc741
pause 500
endwhile
pause 500
replygump 0x909cc741 2
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
pause 500
settimer 'skilltimer' 10001
endif
endif
endif
if @inlist 'numberoffollowers' '3'
if followers > 3
settimer 'skilltimer' 0
@rename 'currentlytaming' nameoftames[0]
if name 'currentlytaming' == nameoftames[0]
waitforcontext 'currentlytaming' 8 15000
while not @gumpexists 0x909cc741
pause 500
endwhile
pause 500
replygump 0x909cc741 2
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
pause 500
settimer 'skilltimer' 10001
endif
endif
endif
if @inlist 'numberoffollowers' '4'
if followers > 4
settimer 'skilltimer' 0
@rename 'currentlytaming' nameoftames[0]
if name 'currentlytaming' == nameoftames[0]
waitforcontext 'currentlytaming' 8 15000
while not @gumpexists 0x909cc741
pause 500
endwhile
pause 500
replygump 0x909cc741 2
ignoreobject 'currentlytaming'
unsetalias 'currentlytaming'
pause 500
settimer 'skilltimer' 10001
endif
endif
endif
if @inlist 'pathfinding' 'yes' or @inlist 'pathfinding' 'Yes'
if not @inrange 'currentlytaming' 1
if @x 'currentlytaming' > x 'self' and @y 'currentlytaming' > y 'self'
walk 'Southeast'
elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' > y 'self'
walk 'Southwest'
elseif @x 'currentlytaming' > x 'self' and @y 'currentlytaming' < y 'self'
walk 'Northeast'
elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' < y 'self'
walk 'Northwest'
elseif @x 'currentlytaming' > x 'self' and @y 'currentlytaming' == y 'self'
walk 'East'
elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' == y 'self'
walk 'West'
elseif @x 'currentlytaming' == x 'self' and @y 'currentlytaming' > y 'self'
walk 'South'
elseif @x 'currentlytaming' == x 'self' and @y 'currentlytaming' < y 'self'
walk 'North'
endif
endif
endif
endwhile
Here's a few changes that I think work good. If anyone can give a list of animals/skill levels I can automatically add animals to tame based on skill level.
Code://///////////////////// //Peace/Tame script /// //Made by Aga /// //Do not loop /// /////////////////////// @clearlist 'nameoftames' @clearlist 'numberoffollowers' @clearlist 'peacemakeyesorno' @clearlist 'pathfinding' @clearlist 'tameables' @createlist 'nameoftames' @createlist 'numberoffollowers' @createlist 'peacemakeyesorno' @createlist 'pathfinding' ///////////////////////// //Setup section //// ///////////////////////// pushlist 'nameoftames' 'thxaga' //Change thxaga to whatever name you want pushlist 'numberoffollowers' '1' //Change 1 to however many followers you currently have pushlist 'peacemakeyesorno' 'yes' //yes or no if you want to peacemake pushlist 'pathfinding' 'no' //yes or no if you want to pathfind to tame ///////////////////////// //End Setup //// ///////////////////////// @clearjournal if not timerexists 'skilltimer' createtimer 'skilltimer' settimer 'skilltimer' 10000 endif @createlist 'tameables' pushlist 'tameables' 0x4a //Imp pushlist 'tameables' 0x7t //Hellcat (Large) pushlist 'tameables' 0x62 //Hellhound pushlist 'tameables' 0xbc //Savage Ridgeback pushlist 'tameables' 0xbb //Ridgeback pushlist 'tameables' 0x17 //Dire Wolf pushlist 'tameables' 0xce //Lava Lizard pushlist 'tameables' 0x14 //Frost spider pushlist 'tameables' 0xc9 //Hellcat (Small) pushlist 'tameables' 0xda //Frenzied Ostard pushlist 'tameables' 0x50 //Giant Toad pushlist 'tameables' 0xe8 //Bull pushlist 'tameables' 0xe9 //Bull2 pushlist 'tameables' 0x22 //White Wolf pushlist 'tameables' 0x25 //White Wolf2 while not dead 'self' if not @inrange 'currentlytaming' 10 @headmsg 'Too far away! Ignoring for now.' 34 'currentlytaming' @unsetalias 'currentlytaming' for 0 to 'tameables' if @findtype tameables[] 'any' 'ground' 1 8 @setalias 'currentlytaming' 'found' if innocent 'currentlytaming' @headmsg 'This is already tame' 34 'currentlytaming' ignoreobject 'currentlytaming' unsetalias 'currentlytaming' endif endif endfor endif if not @inrange 'currentlytaming' 2 @headmsg 'Not close enough!' 34 'currentlytaming' endif if @inlist 'peacemakeyesorno' 'Yes' or @inlist 'peacemakeyesorno' 'yes' if war 'currentlytaming' if war 'self' warmode 'off' endif if timer 'skilltimer' > 10000 @cleartargetqueue @canceltarget while not targetexists 'any' useskill 'Peacemaking' endwhile settimer 'skilltimer' 0 target 'currentlytaming' if war 'self' warmode 'off' endif endif endif endif if @inlist 'peacemakeyesorno' 'No' or @inlist 'peacemakeyesorno' 'no' if @inrange 'currentlytaming' 2 if war 'self' warmode 'off' endif if timer 'skilltimer' > 10000 @cleartargetqueue @canceltarget while not targetexists 'any' useskill 'Animal Taming' endwhile settimer 'skilltimer' 0 target 'currentlytaming' pause 200 if @injournal 'That is too far away' 'system' settimer 'skilltimer' 10001 clearjournal' endif if @injournal 'You have no chance of taming this creature' 'system' or @injournal 'do not have a clear path to the animal' 'system' ignoreobject 'currentlytaming' unsetalias 'currentlytaming' @clearjournal endif if @injournal 'This animal has had too many owners' 'system' or @injournal 'That animal looks tame already' 'system' ignoreobject 'currentlytaming' unsetalias 'currentlytaming' @clearjournal endif endif endif endif if @inlist 'peacemakeyesorno' 'Yes' or @inlist 'peacemakeyesorno' 'yes' if not war 'currentlytaming' if @inrange 'currentlytaming' 2 if war 'self' warmode 'off' endif if timer 'skilltimer' > 10000 @cleartargetqueue @canceltarget while not targetexists 'any' useskill 'Animal Taming' endwhile settimer 'skilltimer' 0 target 'currentlytaming' pause 200 if @injournal 'That is too far away' 'system' settimer 'skilltimer' 10001 @clearjournal endif if @injournal 'You have no chance of taming this creature' 'system' or @injournal 'do not have a clear path to the animal' 'system' ignoreobject 'currentlytaming' unsetalias 'currentlytaming' @clearjournal endif if @injournal 'This animal has had too many owners' 'system' or @injournal 'That animal looks tame already' 'system' ignoreobject 'currentlytaming' unsetalias 'currentlytaming' @clearjournal endif endif endif endif endif if @inlist 'numberoffollowers' '0' if followers > 0 settimer 'skilltimer' 0 @rename 'currentlytaming' nameoftames[0] if name 'currentlytaming' == nameoftames[0] waitforcontext 'currentlytaming' 8 15000 while not @gumpexists 0x909cc741 pause 500 endwhile pause 500 replygump 0x909cc741 2 ignoreobject 'currentlytaming' unsetalias 'currentlytaming' pause 500 settimer 'skilltimer' 10001 endif endif endif if @inlist 'numberoffollowers' '1' if followers > 1 settimer 'skilltimer' 0 @rename 'currentlytaming' nameoftames[0] if name 'currentlytaming' == nameoftames[0] waitforcontext 'currentlytaming' 8 15000 while not @gumpexists 0x909cc741 pause 500 endwhile pause 500 replygump 0x909cc741 2 ignoreobject 'currentlytaming' unsetalias 'currentlytaming' pause 500 settimer 'skilltimer' 10001 endif endif endif if @inlist 'numberoffollowers' '2' if followers > 2 settimer 'skilltimer' 0 @rename 'currentlytaming' nameoftames[0] if name 'currentlytaming' == nameoftames[0] waitforcontext 'currentlytaming' 8 15000 while not @gumpexists 0x909cc741 pause 500 endwhile pause 500 replygump 0x909cc741 2 ignoreobject 'currentlytaming' unsetalias 'currentlytaming' pause 500 settimer 'skilltimer' 10001 endif endif endif if @inlist 'numberoffollowers' '3' if followers > 3 settimer 'skilltimer' 0 @rename 'currentlytaming' nameoftames[0] if name 'currentlytaming' == nameoftames[0] waitforcontext 'currentlytaming' 8 15000 while not @gumpexists 0x909cc741 pause 500 endwhile pause 500 replygump 0x909cc741 2 ignoreobject 'currentlytaming' unsetalias 'currentlytaming' pause 500 settimer 'skilltimer' 10001 endif endif endif if @inlist 'numberoffollowers' '4' if followers > 4 settimer 'skilltimer' 0 @rename 'currentlytaming' nameoftames[0] if name 'currentlytaming' == nameoftames[0] waitforcontext 'currentlytaming' 8 15000 while not @gumpexists 0x909cc741 pause 500 endwhile pause 500 replygump 0x909cc741 2 ignoreobject 'currentlytaming' unsetalias 'currentlytaming' pause 500 settimer 'skilltimer' 10001 endif endif endif if @inlist 'pathfinding' 'yes' or @inlist 'pathfinding' 'Yes' if not @inrange 'currentlytaming' 1 if @x 'currentlytaming' > x 'self' and @y 'currentlytaming' > y 'self' walk 'Southeast' elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' > y 'self' walk 'Southwest' elseif @x 'currentlytaming' > x 'self' and @y 'currentlytaming' < y 'self' walk 'Northeast' elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' < y 'self' walk 'Northwest' elseif @x 'currentlytaming' > x 'self' and @y 'currentlytaming' == y 'self' walk 'East' elseif @x 'currentlytaming' < x 'self' and @y 'currentlytaming' == y 'self' walk 'West' elseif @x 'currentlytaming' == x 'self' and @y 'currentlytaming' > y 'self' walk 'South' elseif @x 'currentlytaming' == x 'self' and @y 'currentlytaming' < y 'self' walk 'North' endif endif endif endwhile
hell of a script.. and very clever to use lists as settings
add a small pausei cant get your item id wiith skill going, ids 1 item thn stops. turning on loop doesnt work.
i cant get your item id wiith skill going, ids 1 item thn stops. turning on loop doesnt work.
// Author: Experience (Edited from Burger's version)
// Description: Auto-ID items in a bag, sort out awesome weapons
// to a seperate bag
// Important:
// 1) frombag is your bag of unidentified items, tobag is the bag of crap you
// are going to sell, usually it's in my backpack so there is a weight check..
// awesomebag is for weapons I want to keep or look closer at..
// 3) comment the next 3 lines to make it not prompt you for new bags each time
unsetalias 'frombag'
unsetalias 'tobag'
unsetalias 'toawesomebag'
if not @findobject 'frombag'
headmsg 'Select From Bag'
promptalias 'frombag'
endif
pause 700
if not @findobject 'tobag'
headmsg 'Select Sell/To Bag'
promptalias 'tobag'
endif
pause 700
if not @findobject 'toawesomebag'
headmsg 'Select Awesome Bag'
promptalias 'toawesomebag'
endif
pause 700
if not listexists 'ItemTypes'
createlist 'ItemTypes'
endif
useobject 'frombag'
useobject 'tobag'
useobject 'toawesomebag'
clearlist 'ItemTypes'
clearignorelist
//Shields
@pushlist 'ItemTypes' 0x1b72 //BronzeShields
@pushlist 'ItemTypes' 0x1b73 //Buckler
@pushlist 'ItemTypes' 0x1b7b //MetalShield
@pushlist 'ItemTypes' 0x1b74 //Metal Kite Shield
@pushlist 'ItemTypes' 0x1b79 //Tear Kite Shield
@pushlist 'ItemTypes' 0x1b7a //WoodenShield
@pushlist 'ItemTypes' 0x1b76 //HeaterShield
//Platemail
@pushlist 'ItemTypes' 0x1408 //Close Helmet
@pushlist 'ItemTypes' 0x1410 //Platemail Arms
@pushlist 'ItemTypes' 0x1411 //Platemail Legs
@pushlist 'ItemTypes' 0x1412 //Plate Helm
@pushlist 'ItemTypes' 0x1413 //Plate Gorget
@pushlist 'ItemTypes' 0x1414 //Platemail Gloves
@pushlist 'ItemTypes' 0x1415 //Plate Chest
@pushlist 'ItemTypes' 0x140a //Helmet
@pushlist 'ItemTypes' 0x140c //Bascinet
@pushlist 'ItemTypes' 0x140e //Norse Helm
//Chainmail
@pushlist 'ItemTypes' 0x13bb //Chainmail Coif
@pushlist 'ItemTypes' 0x13be //Chainmail Leggins
@pushlist 'ItemTypes' 0x13bf //Chainmail Tunic
//Ringmail
@pushlist 'ItemTypes' 0x13ee //Ringmail Sleeves
@pushlist 'ItemTypes' 0x13eb //Ringmail Gloves
@pushlist 'ItemTypes' 0x13ec //Ringmail Tunic
@pushlist 'ItemTypes' 0x13f0 //Ringmail Leggins
//Studded
@pushlist 'ItemTypes' 0x13da //Studded Leggings
@pushlist 'ItemTypes' 0x13db //Studded Tunic
@pushlist 'ItemTypes' 0x13d5 //Studded Gloves
@pushlist 'ItemTypes' 0x13d6 //Studded Gorget
@pushlist 'ItemTypes' 0x13dc //Studded Sleeves
//Leather
@pushlist 'ItemTypes' 0x13c6 //Leather Gloves
@pushlist 'ItemTypes' 0x13cd //Leather Sleeves
@pushlist 'ItemTypes' 0x13cc //Leather Tunic
@pushlist 'ItemTypes' 0x13cb //Leather Pants
@pushlist 'ItemTypes' 0x13c7 //Leather Gorget
@pushlist 'ItemTypes' 0x1db9 //Leather Cap
//Female Armor
@pushlist 'ItemTypes' 0x1c04 //Female Plate
@pushlist 'ItemTypes' 0x1c0c //Female Studded Bustier
@pushlist 'ItemTypes' 0x1c02 //Female Studded Armor
@pushlist 'ItemTypes' 0x1c00 //Female Leather Shorts
@pushlist 'ItemTypes' 0x1c08 //Female Leather Skirt
@pushlist 'ItemTypes' 0x1c06 //Female Leather Armor
@pushlist 'ItemTypes' 0x1c0a //Female Leather Bustier
//Fencing
@pushlist 'ItemTypes' 0xf62 //Spear
@pushlist 'ItemTypes' 0x1403 //Short Spear
@pushlist 'ItemTypes' 0xe87 //Pitchfork
@pushlist 'ItemTypes' 0x1405 //Warfork
@pushlist 'ItemTypes' 0x1401 //Kryss
@pushlist 'ItemTypes' 0xf52 //Dagger
//Macing
@pushlist 'ItemTypes' 0x13b0 //War axe
@pushlist 'ItemTypes' 0xdf0 //Black Staff
@pushlist 'ItemTypes' 0x1439 //War Hammer
@pushlist 'ItemTypes' 0x1407 //War Mace
@pushlist 'ItemTypes' 0xe89 //Quarter Staff
@pushlist 'ItemTypes' 0x143d //Hammer Pick
@pushlist 'ItemTypes' 0x13b4 //Club
@pushlist 'ItemTypes' 0xe81 //Shepherds Crook
@pushlist 'ItemTypes' 0x13f8 //Gnarled Staff
@pushlist 'ItemTypes' 0xf5c //Mace
@pushlist 'ItemTypes' 0x143b //Maul
//Swords
@pushlist 'ItemTypes' 0x13b9 //Viking Sword
@pushlist 'ItemTypes' 0xf61 //Longsword
@pushlist 'ItemTypes' 0x1441 //Cutlass
@pushlist 'ItemTypes' 0x13b6 //Scimitar
@pushlist 'ItemTypes' 0xec4 //Skinning Knife
@pushlist 'ItemTypes' 0x13f6 //Butcher Knife
@pushlist 'ItemTypes' 0xf5e //Broadsword
@pushlist 'ItemTypes' 0x13ff //Katana
@pushlist 'ItemTypes' 0xec3 //Cleaver
//Axes
@pushlist 'ItemTypes' 0xf43 //Hatchet
@pushlist 'ItemTypes' 0xf45 //Executioner's Axe
@pushlist 'ItemTypes' 0xf4d //Bardiche
@pushlist 'ItemTypes' 0xf4b //Double Axe
@pushlist 'ItemTypes' 0x143e //Halberd
@pushlist 'ItemTypes' 0x13fb //Large Battle Axe
@pushlist 'ItemTypes' 0x1443 //Two Handed Axe
@pushlist 'ItemTypes' 0xf47 //Battle Axe
@pushlist 'ItemTypes' 0xf49 //Axe
@pushlist 'ItemTypes' 0xe85 //Pickaxe
@pushlist 'ItemTypes' 0xe86 //Pickaxe
//Bows
@pushlist 'ItemTypes' 0x13fd //HeavyXbow
@pushlist 'ItemTypes' 0xf50 //Xbow
@pushlist 'ItemTypes' 0x13b2 //bow
for 0 to 'ItemTypes'
while @findtype 'ItemTypes[]' 'any' 'frombag'
pause 500
@clearjournal
while not targetexists 'any'
pause 100
useskill 'Item Identification'
endwhile
target! found
pause 500
if @injournal 'Silver' 'system'
moveitem found 'toawesomebag'
headmsg 'Silver'
@clearjournal
elseif @injournal 'Vanquishing' 'system'
moveitem found 'toawesomebag'
headmsg 'Vanquishing'
@clearjournal
elseif @injournal 'Power' 'system'
moveitem found 'toawesomebag'
headmsg 'Power'
@clearjournal
elseif @injournal 'Exorcism' 'system'
moveitem found 'toawesomebag'
headmsg 'Exorcisim'
@clearjournal
elseif @injournal 'Daemon' 'system'
moveitem found 'toawesomebag'
headmsg 'Daemon'
@clearjournal
elseif @injournal 'Gargoyle' 'system'
moveitem found 'toawesomebag'
headmsg 'Gargoyle'
@clearjournal
elseif @injournal 'Fey' 'system'
moveitem found 'toawesomebag'
headmsg 'Fey'
@clearjournal
elseif @injournal 'Respond' 'system'
moveitem found 'toawesomebag'
headmsg 'Respond'
@clearjournal
elseif @injournal 'Vacuum' 'system'
moveitem found 'toawesomebag'
headmsg 'Vacuum'
@clearjournal
elseif @injournal 'Flame' 'system'
moveitem found 'toawesomebag'
headmsg 'Flame'
@clearjournal
elseif @injournal 'Elemental' 'system'
moveitem found 'toawesomebag'
headmsg 'Elemental'
@clearjournal
elseif @injournal 'Earth' 'system'
moveitem found 'toawesomebag'
headmsg 'Earth'
@clearjournal
elseif @injournal 'Water' 'system'
moveitem found 'toawesomebag'
headmsg 'Water'
@clearjournal
elseif @injournal 'Ogre' 'system'
moveitem found 'toawesomebag'
headmsg 'Ogre'
@clearjournal
elseif @injournal 'Orc Slaying' 'system'
moveitem found 'toawesomebag'
headmsg 'Orc'
@clearjournal
elseif @injournal 'Arachnid' 'system'
moveitem found 'toawesomebag'
headmsg 'Arachnid'
@clearjournal
elseif @injournal 'Spider' 'system'
moveitem found 'toawesomebag'
headmsg 'Spider'
@clearjournal
elseif @injournal 'Scorpion' 'system'
moveitem found 'toawesomebag'
headmsg 'Scorpion'
@clearjournal
elseif @injournal 'Terathan' 'system'
moveitem found 'toawesomebag'
headmsg 'Terathan'
@clearjournal
elseif @injournal 'Reptile' 'system'
moveitem found 'toawesomebag'
headmsg 'Reptile'
@clearjournal
elseif @injournal 'Dragon' 'system'
headmsg 'Dragon'
moveitem found 'toawesomebag'
@clearjournal
elseif @injournal 'Lizardman' 'system'
moveitem found 'toawesomebag'
headmsg 'Lizardman'
@clearjournal
elseif @injournal 'Ophidian' 'system'
moveitem found 'toawesomebag'
headmsg 'Ophidan'
@clearjournal
elseif @injournal 'Snake' 'system'
moveitem found 'toawesomebag'
headmsg 'Snake'
@clearjournal
elseif @injournal 'Undead' 'system'
moveitem found 'toawesomebag'
headmsg 'Undead'
@clearjournal
elseif @injournal 'Blood' 'system'
moveitem found 'toawesomebag'
headmsg 'Blood'
@clearjournal
elseif @injournal 'Poison' 'system'
moveitem found 'toawesomebag'
headmsg 'Poison'
@clearjournal
elseif @injournal 'Indestructable/Invulnerability' 'system'
moveitem found 'toawesomebag'
headmsg 'Indestructable/Invulnerability'
@clearjournal
elseif @injournal 'Exceptional/Indestruct' 'system'
moveitem found 'toawesomebag'
headmsg 'Gold Weapon'
@clearjournal
elseif @injournal 'Exceptional/Fortified' 'system'
moveitem found 'toawesomebag'
headmsg 'Bronze Weapon'
@clearjournal
elseif not @injournal 'You are not certain' 'system'
moveitem found 'tobag'
headmsg 'Item type not in keep list'
@clearjournal
endif
if weight >= maxweight
headmsg 'Go and sell this crap'
stop
endif
endwhile
endfor
headmsg 'completed!'
// Author: Experience (Edited from Burger's version)
//Further edited by aga
// Description: Auto-ID items in a bag, sort out awesome weapons
// to a seperate bag
// Important:
// 1) frombag is your bag of unidentified items, tobag is the bag of crap you
// are going to sell, usually it's in my backpack so there is a weight check..
// awesomebag is for weapons I want to keep or look closer at..
// 3) comment the next 3 lines to make it not prompt you for new bags each time
unsetalias 'frombag'
unsetalias 'tobag'
unsetalias 'toawesomebag'
if not @findobject 'frombag'
headmsg 'Select From Bag'
promptalias 'frombag'
endif
pause 700
if not @findobject 'tobag'
headmsg 'Select Sell/To Bag'
promptalias 'tobag'
endif
pause 700
if not @findobject 'toawesomebag'
headmsg 'Select Awesome Bag'
promptalias 'toawesomebag'
endif
pause 700
useobject 'frombag'
useobject 'tobag'
useobject 'toawesomebag'
clearignorelist
if not listexists 'ItemQuality'
createlist 'ItemQuality'
@pushlist 'ItemQuality' 'Silver'
@pushlist 'ItemQuality' 'Vanquishing'
@pushlist 'ItemQuality' 'Power'
@pushlist 'ItemQuality' 'Exorcism'
@pushlist 'ItemQuality' 'Daemon'
@pushlist 'ItemQuality' 'Gargoyle'
@pushlist 'ItemQuality' 'Fey'
@pushlist 'ItemQuality' 'Repond'
@pushlist 'ItemQuality' 'Vacuum'
@pushlist 'ItemQuality' 'Flame'
@pushlist 'ItemQuality' 'Elemental'
@pushlist 'ItemQuality' 'Earth'
@pushlist 'ItemQuality' 'Water'
@pushlist 'ItemQuality' 'Ogre'
@pushlist 'ItemQuality' 'Orc Slaying'
@pushlist 'ItemQuality' 'Spider'
@pushlist 'ItemQuality' 'Scorpion'
@pushlist 'ItemQuality' 'Terathan'
@pushlist 'ItemQuality' 'Reptile'
@pushlist 'ItemQuality' 'Dragon'
@pushlist 'ItemQuality' 'Lizardman'
@pushlist 'ItemQuality' 'Ophidian'
@pushlist 'ItemQuality' 'Snake'
@pushlist 'ItemQuality' 'Undead'
@pushlist 'ItemQuality' 'Blood'
@pushlist 'ItemQuality' 'Poison'
@pushlist 'ItemQuality' 'Indestructable/Invulnerability'
@pushlist 'ItemQuality' 'Exceptional/Indestruct'
@pushlist 'ItemQuality' 'Exceptional/Fortified'
endif
if not listexists 'ItemTypes'
createlist 'ItemTypes'
//Shields
@pushlist 'ItemTypes' 0x1b72 //BronzeShields
@pushlist 'ItemTypes' 0x1b73 //Buckler
@pushlist 'ItemTypes' 0x1b7b //MetalShield
@pushlist 'ItemTypes' 0x1b74 //Metal Kite Shield
@pushlist 'ItemTypes' 0x1b79 //Tear Kite Shield
@pushlist 'ItemTypes' 0x1b7a //WoodenShield
@pushlist 'ItemTypes' 0x1b76 //HeaterShield
//Platemail
@pushlist 'ItemTypes' 0x1408 //Close Helmet
@pushlist 'ItemTypes' 0x1410 //Platemail Arms
@pushlist 'ItemTypes' 0x1411 //Platemail Legs
@pushlist 'ItemTypes' 0x1412 //Plate Helm
@pushlist 'ItemTypes' 0x1413 //Plate Gorget
@pushlist 'ItemTypes' 0x1414 //Platemail Gloves
@pushlist 'ItemTypes' 0x1415 //Plate Chest
@pushlist 'ItemTypes' 0x140a //Helmet
@pushlist 'ItemTypes' 0x140c //Bascinet
@pushlist 'ItemTypes' 0x140e //Norse Helm
//Chainmail
@pushlist 'ItemTypes' 0x13bb //Chainmail Coif
@pushlist 'ItemTypes' 0x13be //Chainmail Leggins
@pushlist 'ItemTypes' 0x13bf //Chainmail Tunic
//Ringmail
@pushlist 'ItemTypes' 0x13ee //Ringmail Sleeves
@pushlist 'ItemTypes' 0x13eb //Ringmail Gloves
@pushlist 'ItemTypes' 0x13ec //Ringmail Tunic
@pushlist 'ItemTypes' 0x13f0 //Ringmail Leggins
//Studded
@pushlist 'ItemTypes' 0x13da //Studded Leggings
@pushlist 'ItemTypes' 0x13db //Studded Tunic
@pushlist 'ItemTypes' 0x13d5 //Studded Gloves
@pushlist 'ItemTypes' 0x13d6 //Studded Gorget
@pushlist 'ItemTypes' 0x13dc //Studded Sleeves
//Leather
@pushlist 'ItemTypes' 0x13c6 //Leather Gloves
@pushlist 'ItemTypes' 0x13cd //Leather Sleeves
@pushlist 'ItemTypes' 0x13cc //Leather Tunic
@pushlist 'ItemTypes' 0x13cb //Leather Pants
@pushlist 'ItemTypes' 0x13c7 //Leather Gorget
@pushlist 'ItemTypes' 0x1db9 //Leather Cap
//Female Armor
@pushlist 'ItemTypes' 0x1c04 //Female Plate
@pushlist 'ItemTypes' 0x1c0c //Female Studded Bustier
@pushlist 'ItemTypes' 0x1c02 //Female Studded Armor
@pushlist 'ItemTypes' 0x1c00 //Female Leather Shorts
@pushlist 'ItemTypes' 0x1c08 //Female Leather Skirt
@pushlist 'ItemTypes' 0x1c06 //Female Leather Armor
@pushlist 'ItemTypes' 0x1c0a //Female Leather Bustier
//Fencing
@pushlist 'ItemTypes' 0xf62 //Spear
@pushlist 'ItemTypes' 0x1403 //Short Spear
@pushlist 'ItemTypes' 0xe87 //Pitchfork
@pushlist 'ItemTypes' 0x1405 //Warfork
@pushlist 'ItemTypes' 0x1401 //Kryss
@pushlist 'ItemTypes' 0xf52 //Dagger
//Macing
@pushlist 'ItemTypes' 0x13b0 //War axe
@pushlist 'ItemTypes' 0xdf0 //Black Staff
@pushlist 'ItemTypes' 0x1439 //War Hammer
@pushlist 'ItemTypes' 0x1407 //War Mace
@pushlist 'ItemTypes' 0xe89 //Quarter Staff
@pushlist 'ItemTypes' 0x143d //Hammer Pick
@pushlist 'ItemTypes' 0x13b4 //Club
@pushlist 'ItemTypes' 0xe81 //Shepherds Crook
@pushlist 'ItemTypes' 0x13f8 //Gnarled Staff
@pushlist 'ItemTypes' 0xf5c //Mace
@pushlist 'ItemTypes' 0x143b //Maul
//Swords
@pushlist 'ItemTypes' 0x13b9 //Viking Sword
@pushlist 'ItemTypes' 0xf61 //Longsword
@pushlist 'ItemTypes' 0x1441 //Cutlass
@pushlist 'ItemTypes' 0x13b6 //Scimitar
@pushlist 'ItemTypes' 0xec4 //Skinning Knife
@pushlist 'ItemTypes' 0x13f6 //Butcher Knife
@pushlist 'ItemTypes' 0xf5e //Broadsword
@pushlist 'ItemTypes' 0x13ff //Katana
@pushlist 'ItemTypes' 0xec3 //Cleaver
//Axes
@pushlist 'ItemTypes' 0xf43 //Hatchet
@pushlist 'ItemTypes' 0xf45 //Executioner's Axe
@pushlist 'ItemTypes' 0xf4d //Bardiche
@pushlist 'ItemTypes' 0xf4b //Double Axe
@pushlist 'ItemTypes' 0x143e //Halberd
@pushlist 'ItemTypes' 0x13fb //Large Battle Axe
@pushlist 'ItemTypes' 0x1443 //Two Handed Axe
@pushlist 'ItemTypes' 0xf47 //Battle Axe
@pushlist 'ItemTypes' 0xf49 //Axe
@pushlist 'ItemTypes' 0xe85 //Pickaxe
@pushlist 'ItemTypes' 0xe86 //Pickaxe
//Bows
@pushlist 'ItemTypes' 0x13fd //HeavyXbow
@pushlist 'ItemTypes' 0xf50 //Xbow
@pushlist 'ItemTypes' 0x13b2 //bow
endif
///////////////////////
///////////////////////
///////////////////////
for 0 to 'ItemTypes'
while @findtype 'ItemTypes[]' 'any' 'frombag'
@setalias 'currentlyid' 'found'
pause 300
@clearjournal
while not targetexists 'any'
pause 100
useskill 'Item Identification'
endwhile
target! 'currentlyid'
pause 300
for 0 to 'ItemQuality'
if @injournal 'ItemQuality[]' 'system'
moveitem 'currentlyid' 'toawesomebag'
headmsg ItemQuality[] 22
@unsetalias 'currentlyid'
ignoreobject 'currentlyid'
endif
endfor
if @findobject 'currentlyid' 'frombag' and not @injournal 'You are not certain' 'system'
moveitem 'currentlyid' 'tobag'
headmsg 'Item not in list'
@unsetalias 'currentlyid'
ignoreobject 'currentlyid'
endif
if @injournal 'You are not certain' 'system'
headmsg 'skill failed'
endif
if weight >= maxweight
headmsg 'Go and sell this crap'
stop
endif
@clearjournal
endwhile
endfor
headmsg 'completed!'
no ideas?
if not targetexists 'any'
bandageself
endif
if targetexists 'beneficial'
target 'self'
elseif targetexists 'negative'
target 'last'
endif
bandageself