Lineage 2 Macros - Class Change Script : Lineage 2 Submissions

I made this one on L2Dragonians its interlude duno if the GK are still ok
i suggest u delete all [- 600 Adena)] on gate kepers its some mistake i made
for example

[BAD]
DLGSEL(Abandoned Coal Mines - 690 Adena)
[GOOD]
DLGSEL(Abandoned Coal Mines)

Why? 3h day & 1h night different port costs will disrupt script

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-//
// SCAVENGER QUEST //
//_-_-_-_-_-_-_-_-_-_-_-_-_-_-//
//By [gm]Flamez
//[Interlude]
//
//_________________________________________________
//»=>READ BEFORE RUN</Start>Dwarven village GK
//End=>Town of Gludin GK
//EQUIP=>Mid/Top NO Grade
//CARRY=>15 Soe + 100 Lesser healing pots + 2K SS-No Grade
//SET=>Basic/Heal Options/HP<80>Basic/Combat Heal/Shot Setting
// [x]Targ HP>0
// [x]SS(No Grade)
// [x]Delay 100(ms)
//*Or simply turn on AutoSS
//SET=>Combat/Pathing/
// [x]No Mons, Move With pathpoint
//SET=>Combat/Policy/Short Attacks
// [x]Use Melee Settings
//_________________________________________________
Set(L2WALKER,ENABLE)
Set(FIGHTSTOP)
//
//Pippi
//
MOVETO(115209,-178226,-912)
MOVETO(116486,-179682,-976)
MOVETO(116685,-180402,-1168)
MOVETO(116300,-182127,-1352)
MOVETO(116026,-183167,-1496)
MOVETO(115885,-183269,-1480)
MOVETO(115735,-183360,-1472)
NPCDLG(Pippi)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
DLGSEL(Say you want to become a Scavenger)
DELAY(500)
MOVETO(115735,-183360,-1472)
MOVETO(115885,-183269,-1480)
MOVETO(116026,-183167,-1496)
MOVETO(116300,-182127,-1352)
MOVETO(116685,-180402,-1168)
MOVETO(116486,-179682,-976)
MOVETO(115617,-178761,-928)
MOVETO(115668,-178172,-960)
MOVETO(115973,-177733,-888)
MOVETO(116157,-177738,-888)
MOVETO(116243,-177556,-880)
NPCDLG(Mion)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
DLGSEL([Path to a Scavenger (Continue)])
DELAY(500)
DLGSEL(Say you will help with the work)
DELAY(500)
LABEL(transfer)
//
//Bronk
//
ITEMCOUNT(Bronk's Ingot[ID=1647],==,1)
{
MOVETO(116243,-177556,-880)
MOVETO(116157,-177738,-888)
MOVETO(115973,-177733,-888)
MOVETO(115668,-178172,-960)
MOVETO(115617,-178761,-928)
MOVETO(116486,-179682,-976)
MOVETO(116685,-180402,-1168)
MOVETO(116300,-182127,-1352)
MOVETO(115667,-182192,-1480)
MOVETO(115419,-182210,-1448)
MOVETO(115410,-182428,-1440)
NPCDLG(Bronk)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
MOVETO(115419,-182210,-1448)
MOVETO(115667,-182192,-1480)
MOVETO(116300,-182127,-1352)
MOVETO(116685,-180402,-1168)
MOVETO(116486,-179682,-976)
MOVETO(115617,-178761,-928)
MOVETO(115668,-178172,-960)
MOVETO(115973,-177733,-888)
MOVETO(116157,-177738,-888)
MOVETO(116243,-177556,-880)
CALL(Mion)
}
//
//Zimenf
//
ITEMCOUNT(Zimenf's Potion[ID=1649],==,1)
{
MOVETO(116243,-177556,-880)
MOVETO(116157,-177738,-888)
MOVETO(115973,-177733,-888)
MOVETO(115161,-178185,-880)
MOVETO(114763,-178540,-816)
MOVETO(114541,-178540,-816)
MOVETO(114461,-178632,-808)
NPCDLG(Zimenf)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
MOVETO(114541,-178540,-816)
MOVETO(114763,-178540,-816)
MOVETO(115161,-178185,-880)
MOVETO(115973,-177733,-888)
MOVETO(116157,-177738,-888)
MOVETO(116243,-177556,-880)
CALL(Mion)
}
//
//Shari
//
ITEMCOUNT(Shari's Axe[ID=1648],==,1)
{
MOVETO(116243,-177556,-880)
MOVETO(116157,-177738,-888)
MOVETO(115973,-177733,-888)
MOVETO(115668,-178172,-960)
MOVETO(115617,-178761,-928)
MOVETO(116486,-179682,-976)
MOVETO(116685,-180402,-1168)
MOVETO(116413,-181410,-1232)
MOVETO(116158,-181391,-1344)
MOVETO(116170,-181254,-1344)
MOVETO(116188,-181118,-1336)
NPCDLG(Shari)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
MOVETO(116170,-181254,-1344)
MOVETO(116158,-181391,-1344)
MOVETO(116413,-181410,-1232)
MOVETO(116685,-180402,-1168)
MOVETO(116486,-179682,-976)
MOVETO(115617,-178761,-928)
MOVETO(115668,-178172,-960)
MOVETO(115973,-177733,-888)
MOVETO(116157,-177738,-888)
MOVETO(116243,-177556,-880)
CALL(Mion)
}
LABEL(Mion)
DELAY(500)
NPCDLG(Mion)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
DLGSEL([Path to a Scavenger (Continue)])
DELAY(500)
ITEMCOUNT(Mion's Letter[ID=1646],==,1)
{
CALL(TOMA)
}
DELAY(500)
DLGSEL(All right!)
DELAY(500)
CALL(transfer)
//
//Find TOMA
//
//@Abandoned Coal Mines
//
LABEL(TOMA)
MOVETO(116157,-177738,-888)
MOVETO(115973,-177733,-888)
MOVETO(115161,-178185,-880)
LABEL(COAL)
NPCDLG(Wirphy)
DELAY(500)
DLGSEL(Teleport)
DELAY(500)
DLGSEL(Abandoned Coal Mines - 690 Adena)
DELAY(20000)
//
//@Abandoned Coal mine part 1
//
MOVETO(139717,-177271,-1536)
MOVETO(139801,-175250,-1560)
MOVETO(138644,-174144,-1728)
MOVETO(137811,-173959,-1760)
Delay(500)
Set(DEFPATH,CLEAR)
Set(DEFRANGE,CLEAR)
Set(L2WALKER,ENABLE)
Set(RANGETYPE,DEFPATH)
Set(DEFPATH,ADD,137352,-173812,-1776,0)
Set(DEFPATH,ADD,135982,-171373,-1776,0)
Set(DEFPATH,ADD,136045,-171086,-1728,0)
Set(FIGHTSTART)
Delay(50000)
MOVETO(135982,-171373,-1776)
Delay(5000)
Set(DEFPATH,CLEAR)
Set(DEFPATH,ADD,136310,-170025,-1728,0)
Delay(15000)
Set(FIGHTSTOP)
Set(DEFPATH,CLEAR)
CharStatus(HP,==,0)
{
Set(FIGHTSTOP)
GOHOME
CALL(GOTOWN1)
}
MOVETO(137122,-169540,-1720)
MOVETO(140001,-169499,-1776)
//
//@Abandoned Coal mine part 2
//
Set(L2WALKER,ENABLE)
Set(DEFPATH,CLEAR)
MOVETO(144588,-171740,-1728)
Set(DEFPATH,ADD,144588,-171740,-1728,0)
Set(FIGHTSTART)
Delay(25000)
Set(DEFPATH,CLEAR)
Set(DEFPATH,ADD,144779,-172972,-1560,0)
Delay(10000)
Set(DEFPATH,CLEAR)
Set(DEFPATH,ADD,144711,-175672,-1520,0)
Delay(50000)
Set(DEFPATH,CLEAR)
Set(DEFPATH,ADD,147254,-175755,-1520,0)
Delay(60000)
Set(DEFPATH,CLEAR)
LABEL(Fight1)
Set(DEFPATH,ADD,148459,-175756,-1520,1)
Delay(70000)
Set(DEFPATH,CLEAR)
CharStatus(HP,==,0)
{
Set(FIGHTSTOP)
GOHOME
CALL(GOTOWN1)
}
CharStatus(HP,<90>Mith]
//
LABEL(IfTarantula)
ITEMCOUNT(Bead[ID=1656],==,20)
{
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(GOTOWN2)
}
USEITEM(Scroll of Escape[ID=736])
Delay(15000)
CALL(HUNTSPIDER)
//
//If Bear Picture = 1 then
//[Coal=>Mith]
//
LABEL(IfBear)
ITEMCOUNT(Honey Jar[ID=1655],==,5)
{
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(GOTOWN2)
}
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(HUNTBEAR)
//
//If Tarantula Picture = 1 then
//[Mith=>Island]
//
LABEL(IfTarantula2)
ITEMCOUNT(Bead[ID=1656],==,20)
{
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(GOTOWN3)
}
USEITEM(Scroll of Escape[ID=736])
Delay(15000)
CALL(HUNTSPIDER)
//
//If Bear Picture = 1 then
//[Mith=>Island]
//
LABEL(IfBear2)
ITEMCOUNT(Honey Jar[ID=1655],==,5)
{
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(GOTOWN3)
}
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(HUNTBEAR)
//
//If Tarantula Picture = 1 then
//[Island=>Coal]
//
LABEL(IfTarantula3)
ITEMCOUNT(Bead[ID=1656],==,20)
{
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(GOTOWN1)
}
USEITEM(Scroll of Escape[ID=736])
Delay(15000)
CALL(HUNTSPIDER)
//
//If Bear Picture = 1 then
//[Island=>Coal]
//
LABEL(IfBear3)
ITEMCOUNT(Honey Jar[ID=1655],==,5)
{
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(GOTOWN1)
}
USEITEM(Scroll of Escape[ID=736])
Delay(30000)
CALL(HUNTBEAR)
//
//Hunt bears
//
LABEL(HUNTBEAR)
Delay(15000)
LABEL(DEAD1)
PosInRange(115303,-178165,-912,1300)
{
MOVETO(115121,-178189,-880)
}
PosInRange(116688,-180176,-1184,1300)
{
MOVETO(116597,-179968,-1328)
MOVETO(115121,-178189,-880)
}
PosInRange(116579,-182751,-1544,1300)
{
MOVETO(116597,-179968,-1328)
MOVETO(115121,-178189,-880)
}
NPCDLG(Wirphy)
DELAY(500)
DLGSEL(Teleport)
DELAY(500)
DLGSEL(Western Mining Zone (Central Shore) - 970 Adena)
DELAY(25000)
MOVETO(136578,-204759,-3720)
MOVETO(136645,-204269,-3704)
MOVETO(137274,-202972,-3704)
MOVETO(137299,-200307,-3568)
Set(DEFPATH,CLEAR)
Set(L2WALKER,ENABLE)
Set(RANGETYPE,DEFPATH)
Set(DEFPATH,ADD,137299,-200307,-3568,1600)
Set(DEFPATH,ADD,136513,-198637,-3600,800)
Set(DEFPATH,ADD,136616,-197384,-3648,550)
Set(DEFPATH,ADD,137202,-196517,-3536,1100)
Set(DEFPATH,ADD,138958,-197014,-3624,1250)
Set(FIGHTSTART)
LABEL(HONEY)
CharStatus(HP,==,0)
{
Set(FIGHTSTOP)
GOHOME
Delay(25000)
CALL(DEAD1)
}
Delay(5000)
CharStatus(MP,<10>,50)
{
ChangeWaitType(1)
Delay(5000)
}
Delay(1000)
ITEMCOUNT(Honey Jar[ID=1655],==,5)
{
Set(DEFRANGE,CLEAR)
Delay(20000)
Set(FIGHTSTOP)
USEITEM(Scroll of Escape[ID=736])
Delay(5000)
CALL(GOTOWN1)
}
Delay(5000)
CALL(HONEY)
//
//Hunt Tarantula
//
LABEL(HUNTSPIDER)
Delay(30000)
LABEL(DEAD1)
PosInRange(115303,-178165,-912,1300)
{
MOVETO(115121,-178189,-880)
}
PosInRange(116688,-180176,-1184,1300)
{
MOVETO(116597,-179968,-1328)
MOVETO(115121,-178189,-880)
}
PosInRange(116579,-182751,-1544,1300)
{
MOVETO(116597,-179968,-1328)
MOVETO(115121,-178189,-880)
}
NPCDLG(Wirphy)
DELAY(500)
DLGSEL(Teleport)
DELAY(500)
DLGSEL(Western Mining Zone (Central Shore) - 970 Adena)
DELAY(25000)
MOVETO(137287,-205010,-3688,0)
MOVETO(138637,-204485,-3784,0)
MOVETO(139895,-204223,-3544,0)
Set(DEFPATH,CLEAR)
Set(L2WALKER,ENABLE)
Set(FIGHTSTART)
Set(RANGETYPE,DEFPATH)
Set(DEFPATH,ADD,140640,-205468,-3600,1500)
Set(DEFPATH,ADD,141486,-207149,-3632,1500)
Set(DEFPATH,ADD,142112,-208417,-3456,1500)
Set(DEFPATH,ADD,143452,-209940,-3704,2000)
LABEL(BEAD)
CharStatus(HP,==,0)
{
Set(FIGHTSTOP)
GOHOME
Delay(25000)
CALL(DEAD1)
}
Delay(5000)
CharStatus(MP,<10>,50)
{
ChangeWaitType(1)
Delay(1000)
}
Delay(5000)
ITEMCOUNT(Bead[ID=1656],==,20)
{
CALL(20BEAD)
}
Delay(5000)
CALL(BEAD)
//
//If bead = 20 then
//
LABEL(20BEAD)
//POS 1
PosInRange(140640,-205468,-3600,2200)
{
CALL(GOSAFE1)
}
//POS 2
Delay(500)
PosInRange(143452,-209940,-3704,2200)
{
CALL(GOSAFE2)
}
LABEL(GOSAFE1)
Set(DEFPATH,CLEAR)
Set(FIGHTSTOP)
MOVETO(142251,-205970,-3480)
MOVETO(143202,-205397,-3368)
Set(FIGHTSTART)
Delay(30000)
CharStatus(HP,==,0)
{
Set(FIGHTSTOP)
GOHOME
Delay(25000)
CALL(GOTOWN1)
}
Set(FIGHTSTOP)
USEITEM(Scroll of Escape[ID=736])
Delay(5000)
CALL(GOTOWN1)
LABEL(GOSAFE2)
Set(DEFPATH,CLEAR)
Set(FIGHTSTOP)
MOVETO(142877,-209062,-3576)
MOVETO(143305,-207835,-3616)
MOVETO(143639,-207338,-3672)
Set(FIGHTSTART)
Delay(30000)
Set(FIGHTSTOP)
CharStatus(HP,==,0)
{
Set(FIGHTSTOP)
GOHOME
Delay(25000)
CALL(GOTOWN1)
}
USEITEM(Scroll of Escape[ID=736])
Delay(5000)
CALL(GOTOWN1)
//
//Go Gludin [Raut]
//
LABEL(Raut)
Delay(20000)
PosInRange(115303,-178165,-912,1300)
{
MOVETO(115121,-178189,-880)
}
PosInRange(116688,-180176,-1184,1300)
{
MOVETO(116597,-179968,-1328)
MOVETO(115121,-178189,-880)
}
PosInRange(116579,-182751,-1544,1300)
{
MOVETO(116597,-179968,-1328)
MOVETO(115121,-178189,-880)
}
NPCDLG(Wirphy)
DELAY(500)
DLGSEL(Teleport)
DELAY(500)
DLGSEL(The Town of Gludio - 32000 Adena)
Delay(30000)
LABEL(Raut2)
NPCDLG(Bella)
DELAY(500)
DLGSEL(Teleport)
DELAY(500)
DLGSEL(The Village of Gludin - 7300 Adena)
Delay(25000)
MOVETO(-81069,150387,-3040)
MOVETO(-82986,151682,-3120)
MOVETO(-83098,153964,-3168)
MOVETO(-82273,153946,-3168)
MOVETO(-82273,153409,-3168)
MOVETO(-81974,153420,-3168)
NPCDLG(Raut)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
ITEMCOUNT(Ring of Raven[ID=1642],==,1)
{
CALL(Moke)
}
DLGSEL(I'll do it!)
MOVETO(-81974,153420,-3168)
MOVETO(-82273,153409,-3168)
MOVETO(-82273,153946,-3168)
MOVETO(-83098,153964,-3168)
MOVETO(-82986,151682,-3120)
MOVETO(-81069,150387,-3040)
MOVETO(-80776,149833,-3040)
NPCDLG(Richlin)
DELAY(500)
DLGSEL( Teleport)
DELAY(500)
DLGSEL(The Town of Gludio - 7300 Adena)
Delay(25000)
NPCDLG(Bella)
DELAY(500)
DLGSEL(Teleport)
DELAY(500)
DLGSEL(The Town of Giran - 29000 Adena)
Delay(25000)
MOVETO(83400,147954,-3400)
MOVETO(83565,147944,-3400)
MOVETO(83537,147619,-3400)
MOVETO(81535,147621,-3464)
MOVETO(81538,146911,-3528)
MOVETO(81525,143241,-3528)
MOVETO(80905,141601,-3568)
MOVETO(77667,140622,-3696)
MOVETO(74077,137293,-3696)
MOVETO(74071,135121,-3592)
MOVETO(72612,134222,-3656)
MOVETO(71721,133596,-3752)
MOVETO(70228,131338,-3752)
MOVETO(70479,128059,-3736)
MOVETO(69531,127052,-3784)
MOVETO(69582,125666,-3752)
MOVETO(70479,124929,-3744)
MOVETO(70881,124586,-3584)
NPCDLG(Torai)
DELAY(500)
DLGSEL(Quest)
DELAY(500)
DLGSEL(Gives teleport scroll)
DELAY(500)
DLGSEL(Gratefully receive gift)
DELAY(500)
USEITEM(Scroll of Escape[ID=736])
Delay(35000)
PosInRange(81562,147782,-3464,1300)
{
MOVETO(81535,147621,-3464)
MOVETO(83537,147619,-3400)
MOVETO(83565,147944,-3400)
MOVETO(83400,147954,-3400)
}
PosInRange(81637,149427,-3464)
{
MOVETO(83438,149080,-3400)
MOVETO(83400,147954,-3400)
}
MOVETO(83400,147954,-3400)
NPCDLG(Clarissa)
DELAY(500)
DLGSEL(Teleport)
DELAY(500)
DLGSEL(The Town of Gludio - 29000 Adena)
Delay(25000)
CALL(Raut2)
//
//Become Scavenger[END]
//
LABEL(Moke)
MOVETO(-81910,153477,-3168)
NPCDLG(Moke)
DELAY(1000)
DLGSEL(Get information on changing occupations.)
DELAY(500)
DLGSEL(Scavenger)
DELAY(500)
DLGSEL(Change profession to a Scavenger)
MOVETO(-81974,153420,-3168)
MOVETO(-82273,153409,-3168)
MOVETO(-82273,153946,-3168)
MOVETO(-83098,153964,-3168)
MOVETO(-82986,151682,-3120)
MOVETO(-81069,150387,-3040)
MOVETO(-80776,149833,-3040)
SAY(Scavenger Quest Completed!)
Delay(2000)
SAY(Created by a verey cool guy Vokuz!)
EXIT

Can members say yay or nay to this being moved to a confirmed section.