|- AdvTaskWarp, By Alatyami, ReGuides.com - modified by Raistlin8989
|- I'll get the special thanks and stuff corrected for the final.
|- Last Modified: February 3, 2006 - Alatyami
|- Usage: /mac AdvTaskWarp
|- Requirements: AdvTask.ini, MQ2Rwarp, MQ2Piggyzone.
|------------------------------------------------------------------------------|
#turbo 10
#include spell_routines.inc
#Event Zoned "You have entered#*#"
#Event YouDied "You have been slain by#*#"
sub ReleaseNotes
/echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/echo Mod Notes [02/03/2006]: Alatyami
/echo * Took out XP tracking becuase in the long run it doesn't work right.
/echo * Added hide/sneak abilities.
/echo * INI feedback, it was annoying, got rid of it.
/echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/return
sub main
/call ReleaseNotes
/declare TaskZone string outer ${Zone.ShortName}
/declare TaskGiver string outer Marana
/declare TaskRequest string outer Hey ${TaskGiver}! Give me a freakin task!
/declare MyStartLoc string outer ${Me.Y} ${Me.X} ${Me.Z}
/ini "AdvTask.ini" "${Zone}" "${MyTasks}"
/declare CurrentTask1 string outer
/declare CurrentTask2 string outer
/declare CurrentTask3 string outer
/declare TaskSetting int outer 0
/declare TaskCounter int outer 0
/declare ValidTask string outer
/declare Zn int outer
/echo Task Zone: ${TaskZone}
/echo Task Giver: ${TaskGiver}
/echo Task Request Phrase: ${TaskRequest}
/echo Start Location: ${Me.Y} ${Me.X} ${Me.Z}
/echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/if (${Me.AbilityReady[Hide]} && ${Me.AbilityReady[Sneak]}) {
/doability "Sneak"
} else {
/echo You do not have Hide or Sneak ready.
/echo You have 30secs to fix this before we start.
/delay 30s
}
:asktaskmaster
/varset ValidTask
|~ This is here to help prevent your character from sitting in PoK asking for
|~ a new task.
/if (${Zone.ShortName.NotEqual[${TaskZone}]}) {
/echo ERROR: You must be in ${TaskZone} to start this macro!
/end
}
/varset TaskSetting 0
/call GMCheck
/delay 2s
/target ${TaskGiver}
/face
|~ Make sure that you are not hidden
/if (${Me.AbilityReady[Hide]}) {
|~ If it is ready you are not hidden.
} else {
|~ We need to unhide
/doability "Hide"
}
/delay 2s
/say ${TaskRequest}
/delay 2s
|- Select the task window to set varaibles
/notify TaskSelectWnd TaskList leftmouseup
/varset CurrentTask1 ${Window[TaskSelectWnd].Child[TaskList].List[1]}
/varset CurrentTask2 ${Window[TaskSelectWnd].Child[TaskList].List[2]}
/varset CurrentTask3 ${Window[TaskSelectWnd].Child[TaskList].List[3]}
/if (${TaskSetting}==0) {
|- Check the first available task listselect
/notify TaskSelectWnd TaskList listselect ${Window[TaskSelectWnd].Child[TaskList].List[=${CurrentTask1}]}
/notify TaskSelectWnd TaskList leftmouse ${Window[TaskSelectWnd].Child[TaskList].List[=${CurrentTask1}]}
/varset TaskSetting ${Ini[AutoTask.ini,${Zone},${Window[TaskSelectWnd].Child[TaskList].List[1]},${notFound}]}
/delay 1s
/if (${TaskSetting}==1) {
/notify TaskSelectWnd AcceptButton leftmouseup
/varset ValidTask ${CurrentTask1}
/call LoadTask
}
/delay 5
}
/if (${TaskSetting}==0) {
|- Check the Second available task listselect
/notify TaskSelectWnd TaskList listselect ${Window[TaskSelectWnd].Child[TaskList].List[=${CurrentTask2}]}
/notify TaskSelectWnd TaskList leftmouse ${Window[TaskSelectWnd].Child[TaskList].List[=${CurrentTask2}]}
/varset TaskSetting ${Ini[AutoTask.ini,${Zone},${Window[TaskSelectWnd].Child[TaskList].List[2]},${notFound}]}
/delay 1s
/if (${TaskSetting}==1) {
/notify TaskSelectWnd AcceptButton leftmouseup
/varset ValidTask ${CurrentTask2}
/call LoadTask
}
/delay 5
}
/if (${TaskSetting}==0) {
|- Check the third available task listselect
/notify TaskSelectWnd TaskList listselect ${Window[TaskSelectWnd].Child[TaskList].List[=${CurrentTask3}]}
/notify TaskSelectWnd TaskList leftmouse ${Window[TaskSelectWnd].Child[TaskList].List[=${CurrentTask3}]}
/varset TaskSetting ${Ini[AutoTask.ini,${Zone},${Window[TaskSelectWnd].Child[TaskList].List[3]},${notFound}]}
/delay 1s
/if (${TaskSetting}==1) {
/notify TaskSelectWnd AcceptButton leftmouseup
/varset ValidTask ${CurrentTask3}
/call LoadTask
}
/delay 5
}
/notify TaskSelectWnd DeclineButton leftmouseup
/varset CurrentTask1
/varset CurrentTask2
/varset CurrentTask3
/varset ValidTask
/delay 10s
/goto :asktaskmaster
/return
sub LoadTask
/echo Loading: ${ValidTask}
/if (${Me.AbilityReady[Hide]}) /doability "Hide"
/if (${ValidTask.Equal[Giant Expedition]}) /call Event_Task1
/if (${ValidTask.Equal[Lookout Below]}) /call Event_Task2
/if (${ValidTask.Equal[Mystic Ring]}) /call Event_Task3
/if (${ValidTask.Equal[Poor Old Tree]}) /call Event_Task4
/if (${ValidTask.Equal[One Dead Tree]}) /call Event_Task5
/if (${ValidTask.Equal[Ruins Everywhere]}) /call Event_Task6
/if (${ValidTask.Equal[Don't Drink That...]}) /call Event_Task7
/if (${ValidTask.Equal[Jailing the Dead]}) /call Event_Task8
/if (${ValidTask.Equal[What Place is This?]}) /call Event_Task9
/if (${ValidTask.Equal[It's Murky in There]}) /call Event_Task10
/if (${ValidTask.Equal[Scary Caves]}) /call Event_Task11
/if (${ValidTask.Equal[Big Holes Everywhere]}) /call Event_Task12
/if (${ValidTask.Equal[Hey, Watch Out Over There]}) /call Event_Task13
/if (${ValidTask.Equal[Lands of Dread]}) /call Event_Task14
/if (${ValidTask.Equal[To the Castle!]}) /call Event_Task15
/if (${ValidTask.Equal[Dreaded Giants]}) /call Event_Task16
/warp loc ${MyStartLoc}
/varset TaskCounter ${Math.Calc[${TaskCounter}+1].Int}
/echo Completed ${TaskCounter} tasks.
/delay 1s
/return
sub Zoner
/delay 60
:loop
/delay 5
/doevents
/if (${Zn}!=1) /goto :loop
/varset Zn 0
/delay 5
/return
sub Event_Zoned
/if (${Me.AbilityReady[Sneak]}) /doability Sneak
/if (${Me.AbilityReady[Hide]}) /doability hide
/call GMCheck
/varset Zn 1
/return
sub GMCheck
/if (${Bool[${Spawn[gm].ID}]}) {
/echo A GM or Guide has been detected. Waiting for five minutes to check again ...
/delay 300s
/call GMCheck
}
/return
Sub Event_YouDied
/echo You died at ${Time}, ending macro.
/end
/return
|- SubFunctions containing task details ---------------------------------------|
|---------------------------------------------------------------------------------|
|--------------------------Giant Expedition----------------------------|
Sub Event_Task1
/doevents flush
/zone karnor
/call Zoner
/warp loc 170.49, -261.95, 46.00
/Delay 20
/zone dreadlands
/call Zoner
/warp loc -430, 1970, 325
/Delay 20
/zone frontiermtns
/call Zoner
/Target npc Shilur
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|--------------------------Lookout Below------------------------------|
Sub Event_Task2
/doevents flush
/zone karnor
/call Zoner
/warp loc 119.52 -32.67 32.19
/Delay 20
/zone dreadlands
/call Zoner
/warp loc 3069 9659 1047
/Delay 20
/zone firiona
/call Zoner
/Target npc Telligron
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|------------------------------Mystic Ring--------------------------------|
Sub Event_Task3
/doevents flush
/zone karnor
/call Zoner
/warp loc 108.11, -446.86, 2.75
/Delay 20
/zone dreadlands
/call Zoner
/warp loc 2480.67, 7751.34, 1049.22
/Delay 20
/zone Firiona
/call Zoner
/Target npc Socaldoor
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|-------------------------------Poor Tree----------------------------------|
Sub Event_Task4
/doevents flush
/zone Firiona
/call Zoner
/zone lakeofillomen
/call Zoner
/zone veksar
/call Zoner
/warp loc 113.79, 586.20, -26.25
/Delay 20
/zone lakeofillomen
/call Zoner
/warp loc -2547.02, 5022.31, 228.44
/Delay 20
/zone warslikswood
/call Zoner
/Target npc Juikull
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone lakeofillomen
/call Zoner
/zone Firiona
/call Zoner
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|----------------------------One Dead Tree-----------------------------|
Sub Event_Task5
/doevents flush
/zone Firiona
/call Zoner
/zone lakeofillomen
/call Zoner
/zone veksar
/call Zoner
/warp loc -340.70, 44.00, -26.25
/Delay 20
/zone lakeofillomen
/warp loc -3419.66, 592.44, 109.26
/Delay 20
/zone frontiermtn
/call Zoner
/Target npc Aurueen
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone burningwood
/call Zoner
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|--------------------------Ruins Everywhere-------------------------|
Sub Event_Task6
/doevents flush
/zone Firiona
/call zoner
/zone lakeofillomen
/call zoner
/zone veksar
/call zoner
/warp loc -132.57, 427.11, -7.25
/Delay 20
/zone lakeofillomen
/call zoner
/warp loc 3308.81, -1766.17, 76.00
/Delay 20
/zone Firiona
/Target npc Syelissa
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call zoner
/return
|---------------------------------------------------------------------------------|
|--------------------------Don't Drink That----------------------------|
Sub Event_Task7
/doevents flush
/zone firiona
/call zoner
/zone swampofnohope
/call zoner
/zone trakanon
/call zoner
/zone sebilis
/call zoner
/warp loc -725 660 -69
/Delay 20
/zone trakanon
/call zoner
/warp loc -1671 -4765 -474
/Delay 20
/zone swampofnohope
/call zoner
/target npc Muirkiaz
/Delay 20
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone firiona
/call zoner
/zone dreadlands
/call zoner
/return
|---------------------------------------------------------------------------------|
|--------------------------Jailing The Dead---------------------------|
Sub Event_Task8
/doevents flush
/zone firiona
/call Zoner
/zone swampofnohope
/call Zoner
/zone trakanon
/call Zoner
/zone sebilis
/call Zoner
/warp loc -422.09 515.63 -49.78
/Delay 20
/zone trakanon
/call Zoner
/warp loc -1757 3653.95 -282.70
/Delay 20
/zone emeraldjungle
/call Zoner
/target npc Gelliza
/Delay 20
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone trakanon
/call Zoner
/zone swampofnohope
/call Zoner
/zone firiona
/call Zoner
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|------------------------What Place is This?-------------------------|
Sub Event_Task9
/doevents flush
/zone frontiermtns
/call Zoner
/zone lakeofillomen
/call Zoner
/zone veksar
/call Zoner
/warp loc -137.96 -545.09 -27.81
/delay 30
/zone lakeofillomen
/call Zoner
/warp loc 5526.5 -5285.08 33.19
/Delay 20
/zone warslikswood
/call Zoner
/target npc Juikull
/Delay 20
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone lakeofillomen
/call Zoner
/zone frontiermtns
/call Zoner
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|--------------------------It's Murky in There------------------------|
Sub Event_Task10
/doevents flush
/zone firiona
/call Zoner
/zone swampofnohope
/call Zoner
/zone trakanon
/call Zoner
/zone sebilis
/call Zoner
/warp loc -283.57 -8.92 -32.25
/Delay 20
/zone trakanon
/call Zoner
/warp loc 2065.13 4418.97 -348.23
/Delay 20
/zone swampofnohope
/call Zoner
/Target npc gkoroza
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/Delay 20
/zone firiona
/call Zoner
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|-----------------------------Scary Caves-------------------------------|
Sub Event_Task11
/doevents flush
/zone karnor
/call Zoner
/warp loc -48.92 -277.16 2.19
/Delay 20
/zone dreadlands
/call Zoner
/warp loc -2514 3498 712
/Delay 20
/zone frontiermtns
/call Zoner
/Target npc Shilur
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call Zoner
/return
|----------------------Big Holes Everywhere-----------------------|
Sub Event_Task12
/doevents flush
/zone burningwood
/call Zoner
/warp loc -324.42 2201.61 -492.53
/Delay 20
/zone skyfire
/call Zoner
/warp loc 2365.41 3735.16 -129.87
/Delay 20
/zone burningwood
/call Zoner
/zone dreadlands
/call Zoner
/Target npc korriz
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/return
|-----------------------Hey, Watch Out Over There-------------|
Sub Event_Task13
/doevents flush
/zone frontiermtns
/call Zoner
/zone lakeofillomen
/call Zoner
/warp loc -1237 2341 295.97
/Delay 20
/zone frontiermtns
/call Zoner
/warp loc 4482 1350 372
/Delay 20
/zone lakeofillomen
/call Zoner
/Target npc Malkez
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone firiona
/call Zoner
/zone dreadlands
/call zoner
/return
|-----------------------Lands of Dread-------------|
Sub Event_Task14
/doevents flush
/zone karnor
/call Zoner
/warp loc -75.20 -593.49 15.88
/Delay 20
/zone dreadlands
/call Zoner
/warp loc -1556.41 -4869.58 56.29
/Delay 20
/zone frontiermtns
/call Zoner
/warp loc -278.86 -1526.50 -128.28
/Target npc dagor
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call Zoner
/return
|-----------------------To the Castle!-------------|
Sub Event_Task15
/doevents flush
/zone karnor
/call Zoner
/warp loc -148.00 -192.88 43.85
/Delay 20
/zone dreadlands
/call Zoner
/warp loc -454.49 3458.92 385.57
/Delay 20
/zone firiona
/call Zoner
/warp loc 1860.06 78.18 -4.56
/Target npc jith
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call Zoner
/return
|---------------------------------------------------------------------------------|
|-----------------------Dreaded Giants-------------|
Sub Event_Task16
/doevents flush
/zone karnor
/call Zoner
/warp loc 190.34 -216.08 43.85
/Delay 20
/zone dreadlands
/call Zoner
/warp loc 1817.81 941.19 92.76
/Delay 20
/zone firiona
/call Zoner
/warp loc 1328.20 3304.93 189.44
/Target npc Telli
/if (${Me.AbilityReady[Hide]}) {
} else {
/doability Hide
}
/Hail
/if (${Me.AbilityReady[Hide]}) /doability Hide
/delay 1s
/zone dreadlands
/call Zoner
/return