{Not Tested}
Code: Select all
IF skill "Bushido" < 60
cast "Confidence"
pause 7000
ELSEIF skill "Bushido" < 75
cast "Counter Attack"
pause 7000
ELSEIF skill "Bushido" < 97.5
cast "Evasion"
pause 7000
ENDIF
Code: Select all
IF skill "Bushido" < 60
cast "Confidence"
pause 7000
ELSEIF skill "Bushido" < 75
cast "Counter Attack"
pause 7000
ELSEIF skill "Bushido" < 97.5
cast "Evasion"
pause 7000
ENDIF
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training carpentry from 30. //
// It uses standard saws. Due to //
// the weight of boards, it is //
// written to be used in a house //
// with a chest to restock from. //
// //
// Warning: Throws away deeds! //
// Bank them! //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if not @listexists 'carpjunk'
createlist 'carpjunk'
pushlist 'carpjunk' '0x13b4' //Club
pushlist 'carpjunk' '0xexe' //Medium Crate
pushlist 'carpjunk' '0x14f0' // DEED! WATCH OUT! Ballot Box
pushlist 'carpjunk' '0xb4a' //Writing Table
pushlist 'carpjunk' 0xe89 //Quarter Staff
pushlist 'carpjunk' '0x13f8' //Gnarled Staff
endif
if not @findtype 0x1034 0x0 'backpack'
headmsg 'Get more saws!'
stop
endif
if not @findobject 'trash'
headmsg 'Select your trash barrel'
promptalias 'trash'
endif
if not @findobject 'restock'
headmsg 'Select the container with your boards'
promptalias 'restock'
useobject 'restock'
endif
if @counttype 0x1bd7 0x0 'backpack' < 20
movetype 0x1bd7 'restock' 'backpack' 0 0 0 0x0 150
pause 1000
endif
if skill 'carpentry' < 30
headmsg 'Buy more skill!'
stop
elseif skill 'carpentry' < 40
if usetype 0x1034 0x0 'backpack'
replygump 0x38920abd 22
waitforgump 0x38920abd 15000
replygump 0x38920abd 30
waitforgump 0x38920abd 15000
endif
elseif skill 'carpentry' < 50
if usetype 0x1034 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 15
waitforgump 0x38920abd 15000
replygump 0x38920abd 16
waitforgump 0x38920abd 2000
endif
elseif skill 'carpentry' < 70
if usetype 0x1034 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 36
waitforgump 0x38920abd 15000
replygump 0x38920abd 58
waitforgump 0x38920abd 15000
endif
elseif skill 'carpentry' < 75
if usetype 0x1034 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 72
waitforgump 0x38920abd 2000
endif
elseif skill 'carpentry' < 90
if usetype 0x1034 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 22
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 2000
endif
elseif skill 'carpentry' < 100
if usetype 0x1034 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 22
waitforgump 0x38920abd 15000
replygump 0x38920abd 16
waitforgump 0x38920abd 2000
endif
else
headmsg 'Carpentry completed!'
stop
endif
if contents 'backpack' > 115 or diffweight < 20
for 0 to carpjunk
while @movetype carpjunk[] 'backpack' 'trash'
endwhile
endfor
endif
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training cartography from 30. //
// Make sure you have mapmakers //
// pens on you and not scribes! //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
// ~~ With thanks to Roshambo ~~ //
////////////////////////////////////
if not @findtype 0xfbf 0x0 'backpack'
headmsg 'Get more Pens!'
stop
endif
if not @findobject 'trash'
headmsg 'Select your trash barrel'
promptalias 'trash'
endif
if not @findobject 'restock'
headmsg 'Select the container with your blank scrolls'
promptalias 'restock'
useobject 'restock'
endif
if @counttype 0xef3 0x0 'backpack' == 0
movetype 0xef3 'restock' 'backpack' 0 0 0 0x0 150
pause 1000
endif
if skill 'Cartography' < 30
headmsg 'Buy more skill from NPC!'
stop
elseif skill 'Cartography' < 50
if usetype 0xfbf 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 1
waitforgump 0x38920abd 15000
replygump 0x38920abd 2
waitforgump 0x38920abd 2000
endif
elseif skill 'Cartography' < 65
if usetype 0xfbf 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 1
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 2000
endif
elseif skill 'Cartography' < 99.5
if usetype 0xfbf 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 1
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 2000
endif
else
headmsg 'Macro complete! Train to 100 by deciphering level 3 and 4 treasure maps.'
stop
endif
if contents 'backpack' > 115 or diffweight < 20
while movetype 0x14ec 'backpack' 'trash'
pause 500
endwhile
endif
Code: Select all
if skill "Chivalry" < 40
cast "Consecrate Weapon"
pause 7000
ELSEIF skill "Chivalry" < 55
cast "Divine Fury"
pause 7000
ELSEif skill "Chivalry" < 69
cast "Enemy of One"
pause 7000
ELSEIF skill "Chivalry" < 88
cast "Holy Light"
pause 7000
ELSEIF skill "Chivalry" < 115
cast "Noble Sacrifice"
pause 7000
endif
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training cooking from 0. This //
// macro cooks raw fish steaks //
// and skillets to train cooking. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if not @findobject 'steakbox'
headmsg 'Select the box with your fishsteaks'
promptalias 'steakbox'
endif
if not @findtype 0x97f 'any' 'backpack'
headmsg 'Get more skillets!'
stop
endif
if not @findtype 0x97a 'any' 'steakbox'
headmsg 'Get more raw fish steaks!'
stop
endif
if skill 'cooking' < 100
movetype 0x97a 'steakbox' 'backpack' 0 0 0 0x0 1
pause 600
if usetype 0x97f 'any' 'backpack'
waitforgump 0x38920abd 2000
replygump 0x38920abd 22
waitforgump 0x38920abd 2000
replygump 0x38920abd 16
waitforgump 0x38920abd 2000
endif
else
headmsg 'Cooking complete!'
stop
endif
Code: Select all
useskill 'Detecting Hidden'
pause 10000
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training evaluating //
// intelligence from 0. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if not @findalias 'eval'
headmsg 'Select the person to train evaluating intelligence on'
promptalias 'eval'
endif
if skill 'evaluating intelligence' < 100
useskill 'evaluating intelligence'
waitfortarget 2000
target! 'eval'
pause 1000
else
headmsg 'Evaluating Intelligence Complete!'
stop
endif
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training fishing from a boat. //
// It uses a fishing pole. //
// Stand in front of the mast. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if not @findobject 'pole'
if @findtype 0xdc0 0x0 'self'
setalias 'pole' 'found'
pause 100
else
headmsg 'get a pole'
endif
endif
clearjournal
if skill 'fishing' < 100
while not @injournal 'biting here'
if useobject 'pole'
waitfortarget 2000
targettileoffset! -4 -4 -3
pause 9000
endif
if useobject 'pole'
waitfortarget 2000
targettileoffset! -4 4 -3
pause 9000
endif
if useobject 'pole'
waitfortarget 2000
targettileoffset! 4 -4 -3
pause 9000
endif
if useobject 'pole'
waitfortarget 2000
targettileoffset! 4 4 -3
pause 9000
endif
endwhile
for 15
msg 'forward one'
pause 1000
endfor
else
headmsg 'Fishing complete!'
stop
endif
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training healing from 0. It //
// requires a magical wizard hat. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if not @findalias 'hat'
headmsg "Select your magical wizard's hat"
promptalias 'hat'
endif
if not @findtype 0xe21 'any' 'backpack'
headmsg 'Get more bandaids!'
stop
endif
if skill 'healing' < 100
equipitem 'hat' 6
pause 600
moveitem 'hat' 'backpack'
pause 600
bandageself
pause 6000
equipitem 'hat' 6
pause 600
moveitem 'hat' 'backpack'
pause 7000
else
headmsg 'Healing complete!'
stop
endif
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training both hiding and //
// snooping from 0. It is //
// easiest to train by using two //
// clients at once. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if skill 'snooping' < 100
if not @findobject 'snoop' or not @inrange 'snoop' 1
headmsg 'Select the person to snoop'
promptalias 'snoop'
else
@findlayer 'snoop' 21
useobject! 'found'
pause 600
endif
endif
if skill 'hiding' < 100
useskill 'hiding'
endif
if skill 'hiding' == 100 and skill 'snooping' == 100
headmsg 'Hiding and snooping complete!'
stop
endif
Code: Select all
//Stealth/Hiding Macroer By Vlek, Grunt of the Bloodclan (Bloodclan.org)
//Get to a safe area and play the macro. It does the rest.
while not dead and skill 'hiding' < 80
useskill 'hiding'
pause 11000
endwhile
while not dead and skill 'stealth' < 100
walk "West"
walk "west"
pause 300
walk "North"
walk "North"
pause 300
walk "East"
walk "East"
pause 300
walk "South"
walk "South"
pause 300
walk "West"
walk "west"
pause 300
walk "North"
walk "North"
pause 300
walk "Southeast"
walk "Southeast"
pause 300
while not hidden
pause 1000
useskill 'hiding'
endwhile
endwhile
while not dead and skill 'hiding' < 100
useskill 'hiding'
pause 11000
endwhile
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training hiding from 0. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if skill 'hiding' < 100
useskill 'hiding'
pause 11000
else
headmsg 'Hiding complete!'
stop
endif
Code: Select all
////////////////////////////////////////////////
// This macro is designed for //
// training inscription from 30-100. //
// It is intended for characters //
// with 40+ intelligence. //
// //
// Setup, and click start! //
// //
// Original Credits: kdivers and AreYouKidden //
// Edited and merged by Gitbytes //
////////////////////////////////////////////////
// SETUP
// **NOTE** You may have to clear your Active Objects table
// Create two Organizers and preset the container sources:
// 1. 'Restock Scribe'
// * 100 of each reagent
// * 100 blank scrolls
// 2. 'Restock Pen'
// * 3 scribe pens
// Select the "Loop" checkbox option
// Hit "Start"
// Select a Bulk Reagent source container when prompted
// Select your character reagent container when prompted
// Select a Bulk Pen source container when prompted
// Select a destination container for finished scrolls when prompted
@clearjournal
@removelist 'Scrolls'
createlist 'Scrolls'
if not @findobject 'sBulkReg'
headmsg 'Select the bag with your Bulk Reg/scroll supply'
promptalias 'sBulkReg'
endif
if not @findobject 'sRegBag'
headmsg 'Select your character reg bag'
promptalias 'sRegBag'
endif
if not @findobject 'sPenBag'
headmsg 'Select the bag with your Bulk Pen Supply'
promptalias 'sPenBag'
endif
if not @findobject 'sFinScroll'
headmsg 'Select your Finished Scroll bag'
promptalias 'sFinScroll'
endif
while not dead
//Find and Move if more than 100 Scrolls
for 0 to Scrolls
if @findtype Scrolls[] 'any' 'backpack' 100 '3'
headmsg '100 Scrolls Found Moving to Finished Bag'
@moveitem 'found' 'sFinScroll'
endif
endfor
// Spell Scrolls
pushlist 'Scrolls' 0x1f2d // Reactive Armor
pushlist 'Scrolls' 0x1f2e // Clumsy
pushlist 'Scrolls' 0x1f2f // Create Food
pushlist 'Scrolls' 0x1f30 // Feeblemind
pushlist 'Scrolls' 0x1f31 // Heal
pushlist 'Scrolls' 0x1f32 // Magic Arrow
pushlist 'Scrolls' 0x1f33 // Night Sight
pushlist 'Scrolls' 0x1f34 // Weaken
pushlist 'Scrolls' 0x1f35 // Agility
pushlist 'Scrolls' 0x1f36 // Cunning
pushlist 'Scrolls' 0x1f37 // Cure
pushlist 'Scrolls' 0x1f38 // Harm
pushlist 'Scrolls' 0x1f39 // Magic Trap
pushlist 'Scrolls' 0x1f3a // Magic Untrap
pushlist 'Scrolls' 0x1f3b // Protection
pushlist 'Scrolls' 0x1f3c // Strength
pushlist 'Scrolls' 0x1f3d // Bless
pushlist 'Scrolls' 0x1f3e // Fireball
pushlist 'Scrolls' 0x1f3f // Magic Lock
pushlist 'Scrolls' 0x1f40 // Poison
pushlist 'Scrolls' 0x1f41 // Telekinesis
pushlist 'Scrolls' 0x1f42 // Teleport
pushlist 'Scrolls' 0x1f43 // Unlock
pushlist 'Scrolls' 0x1f44 // Wall of Stone
pushlist 'Scrolls' 0x1f45 // Arch Cure
pushlist 'Scrolls' 0x1f46 // Arch Protection
pushlist 'Scrolls' 0x1f47 // Curse
pushlist 'Scrolls' 0x1f48 // Fire Field
pushlist 'Scrolls' 0x1f49 // Greater Heal
pushlist 'Scrolls' 0x1f4a // Lightning
pushlist 'Scrolls' 0x1f4b // Mana Drain
pushlist 'Scrolls' 0x1f4c // Recall
pushlist 'Scrolls' 0x1f4d // Blade Spirit
pushlist 'Scrolls' 0x1f4e // Dispel Field
pushlist 'Scrolls' 0x1f4f // Incognito
pushlist 'Scrolls' 0x1f50 // Magic Reflection
pushlist 'Scrolls' 0x1f51 // Mind Blast
pushlist 'Scrolls' 0x1f52 // Paralyze
pushlist 'Scrolls' 0x1f53 // Poison Field
pushlist 'Scrolls' 0x1f54 // Summon Creature
pushlist 'Scrolls' 0x1f55 // Dispel
pushlist 'Scrolls' 0x1f56 // Energy Bolt
pushlist 'Scrolls' 0x1f57 // Explosion
pushlist 'Scrolls' 0x1f58 // Invisibility
pushlist 'Scrolls' 0x1f59 // Mark
pushlist 'Scrolls' 0x1f5a // Mass Curse
pushlist 'Scrolls' 0x1f5b // Paralyze Field
pushlist 'Scrolls' 0x1f5c // Reveal
pushlist 'Scrolls' 0x1f5d // Chain Lightning
pushlist 'Scrolls' 0x1f5e // Energy Field
pushlist 'Scrolls' 0x1f5f // Flamestrike
pushlist 'Scrolls' 0x1f60 // Gate Travel
pushlist 'Scrolls' 0x1f61 // Mana Vampire
pushlist 'Scrolls' 0x1f62 // Mass Dispel
pushlist 'Scrolls' 0x1f63 // Meteor Swarm
pushlist 'Scrolls' 0x1f64 // Polymorph
pushlist 'Scrolls' 0x1f65 // Earthquake
pushlist 'Scrolls' 0x1f66 // Energy Vortex
pushlist 'Scrolls' 0x1f67 // Ressurrection
pushlist 'Scrolls' 0x1f68 // Summon Air Elemental
pushlist 'Scrolls' 0x1f69 // Summon Daemon
pushlist 'Scrolls' 0x1f6a // Summon Earth Elemental
pushlist 'Scrolls' 0x1f6b // Summon Fire Elemental
pushlist 'Scrolls' 0x1f6c // Summon Water Elemental
while not dead
//Find and Move if more than 100 Scrolls
for 0 to Scrolls
if @findtype Scrolls[] 'any' 'backpack' 100 '3'
headmsg '100 Scrolls Found Moving to Finished Bag'
@moveitem 'found' 'sFinScroll'
endif
endfor
//
//Making sure regs, pen & scrolls are stocked
//
//Pens
if counttype '0xfbf' '0' 'backpack' < 1
@useobject 'Restock Pen'
pause 600
organizer 'Restock Pen' 'SPenBag' 'backpack'
while organizing
pause 600
endwhile
if counttype '0xfbf' '0' 'backpack' < 1
headmsg 'Out of Pens'
stop
endif
endif
//Black Pearl
if counttype '0xf7a' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xf7a' '0' 'backpack' < 1
headmsg 'Out of Black Pearl'
stop
endif
endif
//Blood Moss
if counttype '0xf7b' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xf7b' '0' 'backpack' < 1
headmsg 'Out of Blood Moss'
stop
endif
endif
//Ginseng
if counttype '0xf85' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xf85' '0' 'backpack' < 1
headmsg 'Out of Ginseng'
stop
endif
endif
//Mandrake
if counttype '0xf86' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xf86' '0' 'backpack' < 1
headmsg 'Out of Mandrake'
stop
endif
endif
//Nightshade
if counttype '0xf88' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xf88' '0' 'backpack' < 1
headmsg 'Out of Nightshade'
stop
endif
endif
//Garlic
if counttype '0xf84' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xf84' '0' 'backpack' < 1
headmsg 'Out of Garlic'
stop
endif
endif
//Sulfurous Ash
if counttype '0xf8c' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xf8c' '0' 'backpack' < 1
headmsg 'Out of Sulfuric Ash'
stop
endif
endif
//Blank Scrolls
if counttype '0xef3' '0' 'backpack' < 1
@useobject 'Restock Scribe'
pause 600
organizer 'Restock Scribe' 'sBulkReg' 'sRegBag'
while organizing
pause 600
endwhile
if counttype '0xef3' '0' 'backpack' < 1
headmsg 'Out of Blank Scrolls'
stop
endif
endif
if mana < 50
useskill 'meditation'
while not mana == maxmana
endwhile
endif
if skill 'inscription' < 30
headmsg 'Buy more skill!'
stop
elseif skill 'inscription' < 55
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 22
waitforgump 0x38920abd 15000
replygump 0x38920abd 51
waitforgump 0x38920abd 2000
endif
elseif skill 'inscription' < 75
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 36
waitforgump 0x38920abd 15000
replygump 0x38920abd 30
waitforgump 0x38920abd 2000
endif
elseif skill 'inscription' < 95
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 43
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 2000
endif
elseif skill 'inscription' < 100
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 50
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 2000
endif
else
headmsg 'Inscription complete!'
stop
endif
Code: Select all
////////////////////////////////////
// This macro is designed for //
// training item identification //
// from 0. I typically target my //
// dagger. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if not @findalias 'itemid'
headmsg 'Select the item to train ID on'
promptalias 'itemid'
endif
if skill 'item identification' < 100
useskill 'item identification'
waitfortarget 2000
target! 'itemid'
pause 1000
else
headmsg 'Item Identification Complete!'
stop
endif
Code: Select all
//Experience
//Train Lockpicking with 2 boxes
if not findalias 'Lockpicks'
headmsg 'Select Lockpicks'
promptalias 'Lockpicks'
endif
if not findalias 'First Box'
headmsg 'Select First Box'
promptalias 'First Box'
endif
if not findalias 'GM Box'
headmsg 'Select GM Box'
promptalias 'GM Box'
endif
if not findalias 'Key Ring'
headmsg 'Select Key Ring'
promptalias 'Key Ring'
endif
if not hidden 'self'
useskill 'Hiding'
pause 4000
endif
if skill 'Lockpicking' <= 74.9
useobject 'Lockpicks'
autotargetobject 'First Box'
pause 4000
useobject 'Key Ring'
autotargetobject 'First Box'
pause 2000
endif
if skill 'Lockpicking' > '74.9'
useobject 'Lockpicks'
autotargetobject 'GM Box'
pause 4000
useobject 'Key Ring'
autotargetobject 'GM Box'
pause 1000
endif
replay