Code: Select all
#-------------[Pick Job for auto macro]------------
#---------[Pick Job & Free item for class]---------
macro JobChange {
set macro_delay 2
$choice = 4
if ($choice == 1) goto TheifJob
if ($choice == 2) goto MageJob
if ($choice == 3) goto AcolyteJob
if ($choice == 4) goto MerchantJob
if ($choice == 5) goto SwordsmanJob
if ($choice == 6) goto ArcherJob
if ($choice == 7) goto TaekwonJob
stop
:TheifJob
# Personality Test Response 0000110001011122202201
do talknpc 100 29 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r1 w1 r1 w1 r0 w1 r0 w1 r0 w1 r1 w1 r0 w1 r1 w1 r1 w1 r1 w1 r2 w1 r2 w1 r2 w1 r0 w1 r2 w1 r2 w1 r0 w1 r1 w1 r0 w1 c c
pause 2
goto check
:MageJob
# Personality Test
do talknpc 100 29 r0 w1 r0 w1 r2 w1 r1 w1 r1 w1 r0 w1 r2 w1 r0 w1 r1 w1 r1 w1 r0 w1 r1 w1 r1 w1 r1 w1 r1 w1 r1 w1 r0 w1 r0 w1 r1 w1 r0 w1 r1 w1 r1 w1 r2 w1 r0 w1 c
pause 2
goto check
:AcolyteJob
# Personality Test Response 2101100101100110110130
do talknpc 100 29 r0 w1 r2 w1 r1 w1 r0 w1 r1 w1 r1 w1 r0 w1 r0 w1 r1 w1 r0 w1 r1 w1 r1 w1 r0 w1 r0 w1 r1 w1 r1 w1 r0 w1 r1 w1 r1 w1 r0 w1 r1 w1 r3 r0 w1 r0 w1 c
pause 2
goto check
:MerchantJob
# Personality Test Response 1010010010000000210020
do talknpc 100 29 r0 w1 r1 w1 r0 w1 r1 w1 r0 w1 r0 w1 r1 w1 r0 w1 r0 w1 r1 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r2 w1 r1 w1 r0 w1 r0 w1 r2 w1 r0 w1 r0 w1 c
pause 2
goto check
:SwordsmanJob
# Personality Test Response 1010010010000000210020
do talknpc 100 29 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 r0 w1 c
pause 2
goto check
:ArcherJob
# Personality Test Response 1011121101000121111312
do talknpc 100 29 r0 w1 r1 w1 r0 w1 r1 w1 r1 w1 r1 w1 r2 w1 r1 w1 r1 w1 r0 w1 r1 w1 r0 w1 r0 w1 r0 w1 r1 w1 r2 w1 r1 w1 r1 w1 r1 w1 r1 w1 r3 r1 w1 r2 w1 r0 w1 c
pause 2
goto check
TaekwonJob
# Personality Test Response 1011121101000121111312
do talknpc 100 29 r0 w1 r1 w1 r0 w1 r1 w1 r1 w1 r1 w1 r2 w1 r1 w1 r1 w1 r0 w1 r1 w1 r0 w1 r0 w1 r0 w1 r1 w1 r2 w1 r1 w1 r1 w1 r1 w1 r1 w1 r3 r1 w1 r2 w1 r0 w1 c
pause 2
goto check
:check
if ($choice == 1) if (location not morocc) relog
if ($choice == 2) if (location not geffen) relog
if ($choice == 3) if (location not prontera) relog
if ($choice == 4) if (location not alberta) relog
if ($choice == 5) if (location not izlude) relog
if ($choice == 6) if (location not payon) relog
if ($choice == 7) if (location not payon) relog
}
#---------[Novice Training]---------
automacro NewChar {
location new_1-1,new_2-1,new_3-1,new_4-1,new_5-1
base == 1
class Novice
run-once 1
call configInicial
}
macro configInicial {
set macro_delay 2
do conf statsAddAuto 0
do conf statsAddAuto_dontUseBonus 0
do conf statsAddAuto_list
do conf skillsAddAuto 1
do conf skillsAddAuto_list Basic Skill 9
do conf route_randomWalk 0
do conf autoTalkCont 0
do conf attackAuto 0
do conf lockMap none
do move 53 112
call 1-Intro
}
#---------[Novice Intro NPC]---------
macro 1-Intro {
### intro npc
do talk @npc (53 114)
do talk cont
do talk cont
do talk cont
do talk cont
do talk resp 0
do talk cont
do talk cont
do talk cont
do talk cont
pause 2
do talk @npc (53 114)
do talk cont
do talk cont
do talk cont
pause 2
do move 148 112
call 2-Receptionist
}
#---------[Novice Receptionist]---------
macro 2-Receptionist {
### receptionist
$myname = @eval (return $::char->{name})
do move 100 25
#do talknpc 100 29 t=$myname r0 w1 e
do talk @npc (100 29)
pause 1
do talk cont
pause 2
do talk text $myname
pause 1
do talk cont
pause 1
do talk cont
pause 1
do talk resp 0
pause 1
do talk cont
pause 1
do talk cont
pause 1
call 3-Interface
}
#---------[Novice Interface NPC]---------
macro 3-Interface {
### interfaces
do move 99 101
pause 2
do talknpc 99 105 c c c c r0 w1 c c c c c c c c c c c c c c c c c c c c c e
call 4-Skill
}
#---------[Novice Skill NPC]---------
macro 4-Skill {
### [Warped] Skill Tutor
do move 83 108
pause 2
do talk @npc (83 111)
do talk cont
do talk resp 0
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
[
do ss 142 1
]
do talk cont
[
do ss 142 1
]
do talk cont
[
do ss 142 1
]
do talk cont
[
do ss 142 1
]
do talk cont
do talk cont
do talk cont
do talk resp 0
# do talk cont
call 5-Items
}
#---------[Novice Item NPC]---------
macro 5-Items {
### Items Tutor
do move 113 106
pause 3
do talk @npc (115 111)
do talk cont
do talk resp 0
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
do talk cont
[
do ss 142 1
]
do talk cont
do talk cont
do talk cont
do talk cont
do talk resp 0
do talk cont
do talk cont
do talk cont
call 6-Kafra
}
#---------[Novice Kafra NPC]---------
macro 6-Kafra {
### Kafra Employee
do talknpc 118 108 c c c r1 w1 c r0 w1 c c c r1 w1 c c c c c c c c r4 c e
call 7-Monsters
}
#---------[Novice Monster NPC]---------
macro 7-Monsters {
### monsters
do move 73 106
pause 1
do move 21 177
pause 2
do talknpc 17 182 c c c r0 w1 c c c c c c c c c c c c r3 c e
call 8-Entrance
}
macro 8-Entrance {
do move 34 179
pause 2
do talknpc 38 182 c c c c r0 w1 c c e
call ChangeConfig
}
macro ChangeConfig {
$mapa = $.map
do eq Novice Main-Gauche
do eq Novice Guard
do eq Tattered Novice Ninja Suit
do eq Somber Novice Hood
do eq Novice Slippers
do eq Novice False Eggshell
pause 1
do conf route_randomWalk 1
do conf attackAuto 2
}
#tank para morir y obtener otro lvl
#entrance
automacro notInArea {
class Novice
base >= 6
mapchange new_1-2, new_2-2, new_3-2, new_4-2, new_5-2
exclusive 1
call {
do conf sellAuto_npc $.map 28 185
do move 37 180
pause 2
do autosell
pause 2
do talknpc 38 182 c c r0 w1 c e
release notInArea
}
timeout 15
}
#~~~~~~~cmabiar job
automacro ChangeJob {
job == 10
location new_1-3,new_2-3,new_3-3,new_4-3,new_5-3
run-once 1
call NoviceTraining2
}
automacro changeJob2 {
job == 10
location new_1-4,new_2-4,new_3-4,new_4-4,new_5-4
run-once 1
call jobDescription
}
macro NoviceTraining2 {
### Entrance Guard
do move 35 180
do talknpc 38 182 r0
do move 94 171
### Exit Guard
do talknpc 96 174 r0
call jobDescription
}
macro jobDescription{
do conf autoTalkCont 1
do move 99 22
pause 1
do talk @npc (91 22)
pause 1
do talk resp 3
pause 1
do talk resp 7
pause 1
do move 100 25
call JobChange
}