Macro

Discussion in 'Openkore' started by ferry_gukguk, Jul 7, 2007.

Discuss N3 - Macro in the Openkore area at Nyit-Nyit.Net

Thread Status:
Not open for further replies.
  1. ferry_gukguk Gukguk Love Cat Level 2

    Messages:
    1,205
    Likes Received:
    83
    Trophy Points:
    73
    Macro rubah Rice Pouch jadi Sweet Rice

    Code:
    automacro TanyaNenek {
    run-once 1
    inventory "Sweet Rice" < 1
    inventory "Rice Pouch" = 14
    call Move1
    }
    
    macro Move1 {
    pause 1
    do move payon_in01 191 30
    pause 1
    do talk @npc (193 30) payon_in01
    pause 1
    call Cucu
    }
    
    macro Cucu {
    $i = 0
    $c = 14
    
    do move payon 213 123
    pause 1
    
    while ($i <= $c) as WCucu
    
    do talk @npc (215 127) payon
    do talk cont
    do talk cont
    do talk cont
    do talk cont
    do talk cont
    pause 1
    
    $i++
    
    end WCucu
    release TanyaNenek
    }
    
    automacro KeNenek {
    run-once 1
    inventory "Sweet Rice" = 14
    call Move2
    }
    
    macro Move2 {
    pause 1
    $b = 0
    do move payon_in01 191 30
    
    while ($b <= $c) as LoopNenek
    do talk @npc (193 30) payon_in01
    do talk cont
    
    pause 1
    do talk @npc (193 30) payon_in01
    $b++
    
    end LoopNenek
    release KeNenek
    }
    
    Pengaturan :
    [1] $i dan $b jangan di ganti, biarkan 0
    [2] $c adalah banyak Rice Pouch yg mo di tuker jadi Sweet Rice
    [3] inventory "Rice Pouch" = 14 angka 14 disamakan dengan angka yang anda akan tulis di $c
    [4] inventory "Sweet Rice" = 14 angka 14 disamakan dengan angka yang anda akan tulis di $c

    Contoh :
    Mo buat 100 Sweet Rice

    Code:
    $c = 100
    
    inventory "Rice Pouch" = 100
    
    inventory "Sweet Rice" = 100
     

    Gunakan jasa Rekber N3 untuk menjamin jual beli anda atau menghindari penipuan dengan meng klik disini
  2. ferry_gukguk Gukguk Love Cat Level 2

    Messages:
    1,205
    Likes Received:
    83
    Trophy Points:
    73
    Macro Disconnect Auto

    DC Jika ada 3 monster agresif :
    Code:
    automacro DCOi {
    aggressives > 3
    call DC
    }
    
    macro DC {
    do relog 30
    do relog 30
    do relog 50
    release all
    }
    DC Jika HP < 5% (Sekarat) :
    Code:
    automacro DCHP {
    run-once 1
    hp < 5%
    call DC
    }
    
    macro DC {
    do relog 30
    do relog 30
    do relog 50
    release all
    }
    DC Jika ada monster tertentu / MVP :
    Code:
    automacro DCMonsters {
    monster Orc Lord
    call DC
    }
    
    automacro DCMonsters {
    monster Orc Hero
    call DC
    }
    
    macro DC {
    do relog 30
    do relog 30
    do relog 50
    release all
    }
    Gabungan semua macro :
    [codebox]
    automacro DCOi {
    aggressives > 3
    call DC
    }

    automacro DCHP {
    run-once 1
    hp < 5%
    call DC
    }

    automacro DCMonsters {
    monster Orc Lord
    call DC
    }

    automacro DCMonsters {
    monster Orc Hero
    call DC
    }

    macro DC {
    do relog 30
    do relog 30
    do relog 50
    release all
    }
    [/codebox]
     
  3. vandatch TK 0 Besar Level 1

    Messages:
    102
    Likes Received:
    0
    Trophy Points:
    16
    Macro Soul Linker

    [codebox]
    automacro lodiserangskill {
    console /player (.*) \((\d+)\) uses .* on you - dmg: \b[0-9A-Z!]{1,5}\b/i
    call reconnect
    }
    automacro lodiserangattack {
    console /player (.*) \((\d+)\) attacks you - dmg: \b[0-9A-Z!]{1,5}\b/i
    call reconnect
    }

    macro reconnect {
    do relog 300
    }

    ############Macro Soul Linker##############
    automacro link {
    pm "soul"
    call {
    $id = @player ($.lastpm)
    if ($id < 0) stop
    $jobID = @eval ($::players{$::playersID[$id]}->{jobID})
    if ($jobID = 7) goto knight
    if ($jobID = 13) goto knight
    if ($jobID = 4008) goto knight
    if ($jobID = 4014) goto knight
    if ($jobID = 12) goto assassin
    if ($jobID = 4013) goto assassin
    if ($jobID = 10) goto smith
    if ($jobID = 4011) goto smith
    if ($jobID = 14) goto paladin
    if ($jobID = 21) goto paladin
    if ($jobID = 4015) goto paladin
    if ($jobID = 4022) goto paladin
    if ($jobID = 4012) goto sniper
    if ($jobID = 11) goto sniper
    if ($jobID = 16) goto professor
    if ($jobID = 4017) goto professor
    if ($jobID = 8) goto priest
    if ($jobID = 4009) goto priest
    if ($jobID = 15) goto champion
    if ($jobID = 4016) goto champion
    if ($jobID = 4010) goto wizard
    if ($jobID = 4018) goto stalker
    if ($jobID = 18) goto creator
    if ($jobID = 4019) goto creator
    if ($jobID = 4020) goto clown
    if ($jobID = 4021) goto clown
    if ($jobID = 19) goto clown
    if ($jobID = 20) goto clown
    if ($jobID = 4047) goto star
    if ($jobID = 4049) goto soul
    if ($jobID = 23) goto snoob
    :snoob
    do sp 451 $.lastpm
    stop
    release link
    :star
    do sp 448 $.lastpm
    stop
    release link
    :soul
    do sp 461 $.lastpm
    stop
    release link
    :knight
    do sp 452 $.lastpm
    stop
    release link
    :priest
    do sp 454 $.lastpm
    stop
    release link
    :wizard
    do sp 453 $.lastpm
    stop
    release link
    :smith
    do sp 458 $.lastpm
    stop
    release link
    :sniper
    do sp 460 $.lastpm
    stop
    release link
    :assassin
    do sp 457 $.lastpm
    stop
    release link
    :paladin
    do sp 450 $.lastpm
    stop
    release link
    :champion
    do sp 447 $.lastpm
    stop
    release link
    :professor
    do sp 449 $.lastpm
    stop
    release link
    :creator
    do sp 445 $.lastpm
    stop
    release link
    :clown
    do sp 455 $.lastpm
    stop
    release link
    :stalker
    do sp 456 $.lastpm
    stop
    release link
    }
    }[/codebox]

    Cara pakenya WIps bilang soul
    momga2 berguna :smiley_beer:

    Credit by: d-bests.com
     
  4. Qpalzm 3 SD Level 2

    Messages:
    427
    Likes Received:
    5
    Trophy Points:
    18
    wah... aku salah tempat post ya? sorry ko ferry. klo bisa dipindahin ke bagian bahas macro dong... sorry2 sekali lagi... >.<
     
  5. ibnuyu TK 0 Besar Level 1

    Messages:
    103
    Likes Received:
    0
    Trophy Points:
    41
    Macro Lepas Equip

    [codebox]
    automacro lepas_equip {
    status hp <= 15%
    pause 1
    call release_equip
    }

    macro release_equip {
    pause 1
    do uneq (Isi Nama equip)
    }

    automacro pasang_equip {
    status hp > 50%
    pause 1
    call equip
    }

    macro equip {
    pause 1
    do eq @inventory (Isi Nama Equip)
    }[/codebox]

    Code:
    Created By kriegsmarine
     
  6. ibnuyu TK 0 Besar Level 1

    Messages:
    103
    Likes Received:
    0
    Trophy Points:
    41
    Macro Priest Kikir

    Code:
    automacro Pelit {
    pubm /heal/
    call kikir
    }
    
    macro kikir {
    do c Sorry kk sp lagi bocor >.<
    pause 2
    do e sry
    }
    Macro Paketin Dengan Biasa

    Code:
    automacro mintaheal {
    pubm /heal/
    call giveheal
    }
    
    macro giveheal {
    pause 1
    do sp 28 $.lastpub
    pause 2
    do sp 28 $.lastpub
    do c Dah y hayo mau minta apalagi !!!!<div>
    Macro Avoid
    [codebox]
    automacro avoid {
    map moc_fild12
    monster Geographer, 12
    #Notice the coma space and number 12 above? This avoid automacro only trigger if any of the monster list
    #distance is equal or less than the number given.
    timeout 5
    exclusive 1
    set Move 10
    #set Move to how many distance per trigger you want it to move.
    call check
    }
    macro check {
    [
    $mon = $.lastMonster
    $monID = $.lastMonsterID
    $dist = $.lastMonsterDist
    $monPos = $.lastMonsterPos
    $map = $.map
    $myPos = $.pos
    $myPosX = @arg ("$myPos", 1)
    $myPosY = @arg ("$myPos", 2)
    $monPosX = @arg ("$monPos", 1)
    $monPosY = @arg ("$monPos", 2)
    $map = $.map
    do eval message T("Macro Avoid: $::Macro::Data::varStack{mon} \($::Macro::Data::varStack{monID}\)\n"), "teleport"; message T("Monster Dist\= $::Macro::Data::varStack{dist} \, Monster Loc\: \($::Macro::Data::varStack{monPosX},$::Macro::Data::varStack{monPosY}\) Map\= $::Macro::Data::varStack{map}\n"), "teleport";
    ]
    do as

    if ($myPosX > $monPosX) goto east
    if ($myPosX < $monPosX) goto west
    :X0
    if ($myPosY < $monPosY) goto X0south
    if ($myPosY > $monPosY) goto X0north
    log We have the same co-ord to the Monster
    do @random ("east", "west", "south", "north") $Move
    log Move Random
    stop
    :X0south
    log Monster Loc: North X-axis0
    do south $Move
    log Move South
    stop
    :X0north
    log Monster Loc: South X-axis0
    do north $Move
    log Move North
    stop

    :east
    if ($myPosY < $monPosY) goto eastSouth
    if ($myPosY > $monPosY) goto eastNorth
    :Y0east
    log Monster Loc: West Y-axis0
    do east $Move
    log Move East
    stop
    :eastSouth
    log Monster Loc: NorthWest
    do southeast $Move
    log Move South East
    stop
    :eastNorth
    log Monster Loc: SouthWest
    do northeast $Move
    log Move North East
    stop

    :west
    if ($myPosY < $monPosY) goto westSouth
    if ($myPosY > $monPosY) goto westNorth
    :Y0west
    log Monster Loc: East Y-axis0
    do west $Move
    log Move West
    stop
    :westSouth
    log Monster Loc: NorthEast
    do southwest $Move
    log Move South West
    stop
    :westNorth
    log Monster Loc: SouthEast
    do northwest $Move
    log Move North West
    stop
    release avoid
    }
    }
    [/code]

    Macro Paket Biasa
    Code:
    automacro paket {
    pubm /paket/
    call paket1
    }
    
    macro paket1 {
    do sp 34 $.lastpub
    pause 2
    do sp 29 $.lastpub
    }[/codebox]
    
    [b]Credit by Freedom(Macro Avoid)[/b]
     
  7. reesv TK 0 Besar Level 1

    Messages:
    178
    Likes Received:
    0
    Trophy Points:
    41
    Macro Menuju Nameless dengan sistem Warp Portal

    Code:
    automacro nameless {
    map moc_fild07
    inventory "Blue Gemstone" > 0
    weight < 48%
    run-once 1
    call nameless1
    }
    
    macro nameless1 {
    do move 203 39
    pause 1
    do sl 27 206 39
    pause 2
    do warp 1
    pause 1
    do move 206 39
    pause 1.5
    do move 117 120
    pause 0
    do talknpc 125 128 c r0 n
    release nameless
    }
    dengan catatan udah ngejalanin questnya yah
     
  8. Akbare 4 SD Level 2

    Messages:
    501
    Likes Received:
    1
    Trophy Points:
    18
    MACRO WARP 3 KOTA+HEal and AGI
    note : - jangan lupa set harga tiap kota and harus berbeda, karena merupakan pemicu triger
    - Bahasa komputer di ubah pakai bahasa Indonesia

    macros.txt
    Code:
    automacro one {
    console /Anda duduk./i
    call {
    do chat create "J>Goat 2.5k|Ice 2k,Geo 1.8k|+paket" 2 0 1111
    }
    }
    
    automacro two {
    console /(.*) \(level (\d+)\) Mengajukan Transaksi/i
    call {
    do pm "$.lastMatch1" Warp ke GEO 1.800 z
    do pm "$.lastMatch1" Warp ke ICe - 2.000 z
    do pm "$.lastMatch1" Warp ke Goat - 2.500 z
    do pm "$.lastMatch1" Kesalahan/kegagalan Warp bukan tanggung jawab kami
    }
    }
    
    automacro three {
    console /Anda mendapatkan 1.800 zeny./i
    set repeat 1
    call {
    do chat leave
    pause 1
    do e heh
    do sp 28 "$.lastMatch1" 10
    pause 0.2
    #skill blessing
    do sp 34 "$.lastMatch1" 10
    #skill increase agi
    pause 1
    do sp 29 "$.lastMatch1" 10
    do c @random ("Terima kasih sudah menggunakan Jasa kami...","Warp akan di buka, 30 detik warp portal akan tertutup...","Kamu membayar saya, saya akan menolongmu warp,mudah khan...")
    do e thx
    $distance = $.lastMatch2
    $namaPlayer = $.lastMatch3
    $playerID = $.lastMatch4
    $i = @player($namaPlayer)
    $warpslot = 1
    
    :loop
    $posx = @rand (1,2)
    $posy = @rand (1,2)
    $cellIsFull = 0
    
    do eval $::Macro::Data::varStack{cellIsFull} = 0;foreach (@{$::playersList->getItems()}) { next if (($_->{pos_to}{x} != $posx) || ($_->{pos_to}{y} != $posy));$::Macro::Data::varStack{cellIsFull} = 1; last;}
    
    if ($cellIsFull == 1) goto loop
    $mex = @arg ("$.pos", 1)
    $mey = @arg ("$.pos", 2)
    $herex = @eval ($mex + $posx)
    $herey = @eval ($mey + $posy)
    do sl 27 $herex $herey
    pause 1.3
    do warp $warpslot
    pause 2
    do warp ein_fild04
    }
    }
    
    automacro four {
    console /Anda mendapatkan 2.000 zeny./i
    set repeat 1
    call {
    do chat leave
    pause 1
    do e heh
    do sp 28 "$.lastMatch1" 10
    pause 0.2
    #skill blessing	
    do sp 34 "$.lastMatch1" 10
    #skill increase agi
    pause 1
    do sp 29 "$.lastMatch1" 10
    do c @random ("Terima kasih sudah menggunakan Jasa kami...","Warp akan di buka, 30 detik warp portal akan tertutup...","Kamu membayar saya, saya akan menolongmu warp,mudah khan")
    do e thx
    $distance = $.lastMatch2
    $namaPlayer = $.lastMatch3
    $playerID = $.lastMatch4
    $i = @player($namaPlayer)
    $warpslot = 2
    
    :loop
    $posx = @rand (1,2)
    $posy = @rand (1,2)
    $cellIsFull = 0
    
    do eval $::Macro::Data::varStack{cellIsFull} = 0;foreach (@{$::playersList->getItems()}) { next if (($_->{pos_to}{x} != $posx) || ($_->{pos_to}{y} != $posy));$::Macro::Data::varStack{cellIsFull} = 1; last;}
    
    if ($cellIsFull == 1) goto loop
    $mex = @arg ("$.pos", 1)
    $mey = @arg ("$.pos", 2)
    $herex = @eval ($mex + $posx)
    $herey = @eval ($mey + $posy)
    do sl 27 $herex $herey
    pause 1.3
    do warp $warpslot
    pause 2
    do warp ra_fild01
    }
    }
    
    automacro five {
    console /Anda mendapatkan 2.500 zeny./i
    set repeat 1
    call {
    do chat leave
    pause 1
    do e heh
    do sp 28 "$.lastMatch1" 10
    pause 0.2
    #skill blessing
    do sp 34 "$.lastMatch1" 10
    #skill increase agi
    pause 1
    do sp 29 "$.lastMatch1" 10
    do c @random ("Terima kasih sudah menggunakan Jasa kami...","Warp akan di buka, 30 detik warp portal akan tertutup...","Kamu membayar saya, saya akan menolongmu warp,mudah khan")
    do e thx
    $distance = $.lastMatch2
    $namaPlayer = $.lastMatch3
    $playerID = $.lastMatch4
    $i = @player($namaPlayer)
    $warpslot = 3
    
    :loop
    $posx = @rand (1,2)
    $posy = @rand (1,2)
    $cellIsFull = 0
    
    do eval $::Macro::Data::varStack{cellIsFull} = 0;foreach (@{$::playersList->getItems()}) { next if (($_->{pos_to}{x} != $posx) || ($_->{pos_to}{y} != $posy));$::Macro::Data::varStack{cellIsFull} = 1; last;}
    
    if ($cellIsFull == 1) goto loop
    $mex = @arg ("$.pos", 1)
    $mey = @arg ("$.pos", 2)
    $herex = @eval ($mex + $posx)
    $herey = @eval ($mey + $posy)
    do sl 27 $herex $herey
    pause 1.3
    do warp $warpslot
    pause 2
    do warp ein_fild06
    }
    }
    :smiley_beer: Enjoy and Happy Warper :00100000:
     
    1 person likes this.
  9. ibnuyu TK 0 Besar Level 1

    Messages:
    103
    Likes Received:
    0
    Trophy Points:
    41
    Untuk Macro Ngomelin Org Nympah

    macros.txt
    Code:
    automacro Ngamuk {
    do console Dropping target - you will not kill steal others
    call woi
    }
    
    macro woi {
    do c Dasar Bisanya nyampah doang mo jadi apalo!!!
    pause 0
    do c gw kutuk lo jadi kuda bru tau rasa nanti
    do e ire
    }
     
  10. detamon Pra TK Level 1

    Messages:
    8
    Likes Received:
    0
    Trophy Points:
    1
    pengen share ni, simple, dan mgkn berguna ^o^

    jadiin ORIDECON dari ROUGH ORIDECON
    SYARAT harus ada di payon !

    Code:
    automacro no1 {
    inventory "Rough Oridecon" > 4
    call {
    do ai manual
    pause 1
    do move 135 178
    pause 1
    do talk @npc(137 178)
    pause 1
    do talk resp 0
    pause 1
    do ai on
    }
    timeout 1
    }
    
    automacro no2 {
    inventory "Oridecon" > 0
    inventory "Rough Oridecon" < 5
    call {
    do ai manual
    pause 1
    do move 173 226
    pause 1
    do talk @npc(175 226)
    pause 1
    do talk resp 1
    pause 1
    do storage add @inventory(Oridecon)
    pause 1
    do storage get @storage(Rough Oridecon) 100
    pause 1
    do storage close
    pause 1
    do ai on
    }
    timeout 1
    }
    
    automacro no3 {
    inventory "Oridecon" < 1
    inventory "Rough Oridecon" < 5
    call {
    do ai manual
    pause 1
    do move 173 226
    pause 1
    do talk @npc(175 226)
    pause 1
    do talk resp 1
    pause 1
    do storage get @storage(Rough Oridecon) 100
    pause 1
    do storage close
    pause 1
    do ai on
    }
    timeout 1
    }
    
    automacro no4 {
    storage "Rough Oridecon" = 0
    call {
    do quit
    }
    timeout 1
    }
    SIMPLE kan? hihi
     
  11. ferry_gukguk Gukguk Love Cat Level 2

    Messages:
    1,205
    Likes Received:
    83
    Trophy Points:
    73
    Macro Pulang - Pergi Moskovia

    Untuk Slave (Priest)
    [codebox]
    automacro WarpBack {
    run-once 1
    pm /pulangGukasdf/
    overrideAI 1
    call WarpToBack
    }

    macro WarpToBack {
    $x = @arg("$.pos", 1)
    $y = @arg("$.pos", 2)
    $x0 = @eval($x + @rand(1,2))
    $x1 = @eval($x - @rand(1,2))
    $y0 = @eval($y - @rand(1,2))
    $x2 = @random("$x0", "$x1")
    pause 2
    do sl 27 $x2 $y0
    pause 1
    do warp morocc
    pause 1
    do pm NamaMaster move $x2 $y0
    release WarpBack
    }

    automacro WarpGo {
    map morocc
    run-once 1
    overrideAI 1
    pm /pergiGukasdf/
    call WarpToGo
    }


    macro WarpToGo {
    $x = @arg("$.pos", 1)
    $y = @arg("$.pos", 2)
    $x0 = @eval($x + @rand(1,2))
    $x1 = @eval($x - @rand(1,2))
    $y0 = @eval($y - @rand(1,2))
    $x2 = @random("$x0", "$x1")
    pause 2
    do sl 27 $x2 $y0
    pause 2
    do warp mosk_fild02
    pause 2
    do pm NamaMaster move morocc $x2 $y0
    release WarpGo
    do reload macro
    }

    macro GagalPM {
    do pm NamaMaster gagalGuk
    }

    automacro GagalJuga {
    overrideAI 1
    console /NamaMaster is not online/
    call GagalPM
    }

    automacro KejarMaster2 {
    map morocc
    console /Calculating route to find master: mosk_fild02/
    run-once 1
    exclusive 1
    call Kejar
    }

    automacro KejarMaster {
    map morocc
    console /Calculating route to find master: mosk_dun01/
    run-once 1
    exclusive 1
    call Kejar
    }


    macro Kejar {
    $x = @arg("$.pos", 1)
    $y = @arg("$.pos", 2)
    $x0 = @eval($x + @rand(1,2))
    $x1 = @eval($x - @rand(1,2))
    $y0 = @eval($y - @rand(1,2))
    $x2 = @random("$x0", "$x1")
    do sl 27 $x2 $y0
    pause 2
    do warp mosk_fild02
    do move $x2 $y0
    pause 10
    release KejarMaster
    release KejarMaster2
    }

    automacro Pulang {
    overrideAI 1
    location not morocc
    console /Calculating route to find master: morocc/
    call {
    $x = @arg("$.pos", 1)
    $y = @arg("$.pos", 2)
    $x0 = @eval($x + @rand(1,2))
    $x1 = @eval($x - @rand(1,2))
    $y0 = @eval($y - @rand(1,2))
    $x2 = @random("$x0", "$x1")
    do sl 27 $x2 $y0
    pause 2
    do warp morocc
    do move $x2 $y0
    release Pulang
    }
    }
    [/codebox]

    Untuk Master
    [codebox]
    automacro YukPergi {
    map morocc
    run-once 1
    console /Calculating lockMap route to: Les Forest\(mosk_dun01\)(.*)/
    call Pergi
    }

    automacro Gagal {
    pm /gagalGuk/
    run-once 1
    call Pergi
    }

    automacro GaOL {
    console /NamaSlave is not online/
    run-once 1
    call Pergi
    }

    automacro Pulang {
    console /Calculating auto-storage route to: (.*)/
    run-once 1
    call PulangPulang
    }

    macro PulangPulang {
    do pm NamaSlave pulangGukasdf
    pause 3
    do conf route_step 5
    pause 10
    release Pulang
    }

    macro Pergi {
    do conf route_step 5
    do pm NamaSlave pergiGukasdf
    pause 5
    release all
    do reload macro
    }
    [/codebox]

    pastikan di overallAuth Priest
    Code:
    Master 1
    dan overallAuth Master
    Code:
    Priest 1
    Dimana Master dan Priest adalah nick char masing2,,

    Dan di macro nya, yg di cetak tebal di ganti sama nick char masing2..
     
  12. ferry_gukguk Gukguk Love Cat Level 2

    Messages:
    1,205
    Likes Received:
    83
    Trophy Points:
    73
    Macro Dual Linker (Spirit + PaketerSpirit)

    Untuk Linker :
    [codebox]
    automacro link {
    console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (\*Kiss\*|\*Kiss 2\*|\*Flag\s\d\*)$/
    sp > 20%
    call linker
    }

    macro linker {
    $distance = $.lastMatch2
    $namaPlayer = $.lastMatch3
    $id = $.lastMatch4
    $playerguild = @eval (exists $::players{$::playersID[$id]}->{guild} ? $::players{$::playersID[$id]}->{guild}{name} : 'null')

    $guild = TaroNamaGuildDiSini

    if ($id < 0) stop
    if ($distance > 6) goto jauh
    if ($guild == $playerguild) goto ok
    goto bukan

    :eek:k
    $jobID = @eval ($::players{$::playersID[$id]}->{jobID})
    if ($jobID = 7) goto knight
    if ($jobID = 13) goto knight
    if ($jobID = 4008) goto knight
    if ($jobID = 4014) goto knight
    if ($jobID = 12) goto assassin
    if ($jobID = 4013) goto assassin
    if ($jobID = 10) goto smith
    if ($jobID = 4011) goto smith
    if ($jobID = 14) goto paladin
    if ($jobID = 21) goto paladin
    if ($jobID = 4015) goto paladin
    if ($jobID = 4022) goto paladin
    if ($jobID = 4012) goto sniper
    if ($jobID = 11) goto sniper
    if ($jobID = 16) goto professor
    if ($jobID = 4017) goto professor
    if ($jobID = 8) goto priest
    if ($jobID = 4009) goto priest
    if ($jobID = 15) goto champion
    if ($jobID = 4016) goto champion
    if ($jobID = 4010) goto wizard
    if ($jobID = 4018) goto stalker
    if ($jobID = 18) goto creator
    if ($jobID = 4019) goto creator
    if ($jobID = 4020) goto clown
    if ($jobID = 4021) goto clown
    if ($jobID = 19) goto clown
    if ($jobID = 20) goto clown
    if ($jobID = 4047) goto star
    if ($jobID = 4049) goto soul
    if ($jobID = 23) goto snoob
    goto jauh

    :jauh
    do e e5
    stop
    release link
    :bukan
    do e swt
    do c dasar CUMI !!
    stop
    release link

    :snoob
    do sp 451 $id
    stop
    release link

    :star
    do sp 448 $id
    stop
    release link
    :soul
    do sp 461 $id
    stop
    release link
    :knight
    do sp 452 $id
    stop
    release link
    :priest
    do sp 454 $id
    stop
    release link
    :wizard
    do sp 453 $id
    stop
    release link
    :smith
    do sp 458 $id
    stop
    release link
    :sniper
    do sp 460 $id
    stop
    release link
    :assassin
    do sp 457 $id
    stop
    release link
    :paladin
    do sp 450 $id
    stop
    release link
    :champion
    do sp 447 $id
    stop
    release link
    :professor
    do sp 449 $id
    stop
    release link
    :creator
    do sp 445 $id
    stop
    release link
    :clown
    do sp 455 $id
    stop
    release link
    :stalker
    do sp 456 $id
    stop
    release link
    }

    automacro SPAbis {
    console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (\*Kiss\*|\*Kiss 2\*|\*Flag\s\d\*)$/
    sp < 20%
    call Abis
    }

    macro Abis {
    do e e32
    do c sp gw bro, abis.. >.<
    do c sabar yo??
    release SPAbis
    }
    [/codebox]

    Untuk PaketerSpirit
    [codebox]

    automacro link {
    console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (\*Kiss\*|\*Kiss 2\*|\*Flag\s\d\*)$/
    sp > 20%
    call linker
    }

    macro linker {
    $distance = $.lastMatch2
    $namaPlayer = $.lastMatch3
    $id = $.lastMatch4
    $playerguild = @eval (exists $::players{$::playersID[$id]}->{guild} ? $::players{$::playersID[$id]}->{guild}{name} : 'null')

    $guild = TaroNamaGuildDiSini

    if ($id < 0) stop
    if ($distance > 6) goto jauh
    if ($guild == $playerguild) goto ok
    goto bukan

    :eek:k
    do sp 462 $id
    pause 1
    do sp 463 $id
    pause 1
    do sp 464 $id
    pause 1
    do sp 465 $id
    pause 2
    do sp 466 $id
    stop
    release link

    :bukan
    do e e32
    stop
    release link
    :jauh
    do e e5
    stop
    release link
    }

    automacro SpiritAbis {
    status not Spirit
    run-once 1
    call Spirit
    }

    macro Spirit {
    do e kis2
    pause 10
    release SpiritAbis
    }
    [/codebox]

    Cara Kerja,
    1. Kalo ada Emot /kis /kis2 Ctrl +1 sampe Ctrl + 0 bakalan ke trigged (Kedua-duanya)
    2. Kedua Soul Linker harus berdekatan, soalnya kalo PaketerSpirit abis Spiritnya, bakal keluarin emot /kis2 biar si Spiriter kasi Spirit ke PaketerSpirit

    Kalo ada bug, share ya di [FaQ] Macro

    :bone:
     
    2 people like this.
  13. KasTa01 TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    3
    Trophy Points:
    43
    Macro Elemental Converter "work"


    Code:
    automacro frost {
    inventory "Blank Scroll" >= 1
    inventory "Snail Shell" >= 3
    run-once 1
    call frost
    }
    
    macro frost {
    do storage close
    do ss 1007
    do send 8E 01 53 2F 00 00 00 00 00 00
    release frost
    }
    
    automacro flame {
    inventory "Blank Scroll" >= 1
    inventory "Scorpion Tail" >= 3
    run-once 1
    call flame
    }
    
    macro flame {
    do storage close
    do ss 1007
    do send 8E 01 52 2F 00 00 00 00 00 00
    release flame
    }
    
    automacro wind {
    inventory "Blank Scroll" >= 1
    inventory "Rainbow Shell" >= 3
    run-once 1
    call wind
    }
    
    macro wind {
    do storage close
    do ss 1007
    do send 8E 01 55 2F 00 00 00 00 00 00
    release wind
    }
    
    automacro earth {
    inventory "Blank Scroll" >= 1
    inventory "Horn" >= 3
    run-once 1
    call earth
    }
    
    macro earth {
    do storage close
    do ss 1007
    do send 8E 01 54 2F 00 00 00 00 00 00
    release earth
    }
    
     
  14. gunknight Pra TK Banned

    Messages:
    27
    Likes Received:
    0
    Trophy Points:
    0
    MACRO JUDI CRAZY BORIS ( untuk private server )
    HARAP DIBACA DULU SEBELUM DI COPAS!
    credits by : bhamgun

    Code:
    automacro mulai {
    map prontera  <--- kalau kotanya di prontera, kalo ada tempat editan tinggal ketik /where
    run-once 1
    call roulette
    }
    
    automacro die {
    hp < 10%
    do c @go 0
    exclusive 1
    call goler
    }
    
    automacro keberatan {
    weight > 50%
    do move 150 181 prontera
    run-once 1
    call berat
    }
    
    macro roulette {
    do move 149 175 prontera
    pause 1
    do talk @npc (139 173) <--- koordinat NPC Crazy Boris disesuain sama NPC yang ada di PS masing masing
    pause 1
    do talk resp 0
    pause 1
    do talk resp 2
    do talk resp 0
    do talk resp 0
    do talk resp 2
    do talk resp 0
    do talk resp 2
    do talk resp 0
    release mulai	
    }	
    
    macro goler {
    do c @go 0
    pause 2
    do talk @npc (151 187) <--- koordinat NPC Healer disesuain sama NPC yang ada di PS masing masing
    call roulette
    release die
    }
    
    macro berat {
    do move 150 174 prontera
    call storage
    }
    
    macro storage {
    do move 153 177 prontera
    do c @storage
    do storage add @inventory (Elunium)             (hadiah hadiahnya disesuain dengan yang ada di PS masing masing, tinggal diganti namanya)
    do storage add @inventory (Oridecon)
    do storage add @inventory (Dragon Breath Cocktail)
    do storage add @inventory (Hwergelmir's Tonic)
    do storage add @inventory (Steamed Desert Scorpions)
    do storage add @inventory (Immortal Stew)
    do storage add @inventory (Cooked Nine Tail's)
    do storage add @inventory (Steamed Tongue)
    do storage add @inventory (Yggdrasil Berry)
    do storage add @inventory (Yggdrasil Seed)
    do storage close
    call roulette
    release keberatan
    }
    
     
  15. ibnuyu TK 0 Besar Level 1

    Messages:
    103
    Likes Received:
    0
    Trophy Points:
    41
    Fiuuh dapet juga data lama post dlo deh

    Macro PharmacYYyyyy
    Code:
    automacro WSP {
    sp > 50
    
    timeout 2
    run-once 1
    
    call pharmacy
    }
    
    macro pharmacy {
    do ss 228
    pause 0.5
    do send 8e 01 23 02 00 00 00 00 00 00
    call pharmacy
    }
    
     
  16. ibnuyu TK 0 Besar Level 1

    Messages:
    103
    Likes Received:
    0
    Trophy Points:
    41
    Nih buat nambahin w ambil dari data lama jd selamat mencoba

    Code:
    automacro sukamaket1 {
    pubm /paket/
    do c Oke!!
    call {
    $ro = @player ($.lastpub)
    do sp 34 $ro
    pause 0.5
    do sp 29 $ro
    pause 1.2
    do sp 361 $ro
    do c Langsung Masuk Warp!!
    do e 21
    }
    }
    #############################
    ## DAFTAR RANSUM ##
    #############################
    automacro info {
    pubm /info/
    call {
    $p = @player ($.lastpub)
    do c Halo, Kami dari Guild Impassive Mengajak anda
    pause 0.5
    do c Untuk bergabung bersama kami...
    pause 0.5
    do c silahkan tulis nama Job Anda
    pause 0.5
    do c Contoh : assassin cross, lord knight, gypsy, minstrel, mastersmith
    pause 0.5
    do c Kami hanya menerima Job 3 Kecuali Wizard, Soul Linker, Priest
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    pause 0.5
    do c Saya Minta Maaf, apabila ada Job yg tidak kami sebut
    }
    }
    automacro request {
    pubm /request/
    call {
    $p = @player ($.lastpub)
    do guild request $p
    pause 0.5
    do g halo, Met Datang di Impassive!
    }
    }
    automacro champion {
    pubm /champion/
    call {
    $p = @player ($.lastpub)
    do c RJ 500, Mastela 200, Honey 150
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    pause 2
    do chat kick 1
    }
    }
    automacro assassin cross {
    pubm /assassin cross/
    call {
    $p = @player ($.lastpub)
    do c EDP 5, Mastela 500, Honey 50
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro Lord Knight {
    pubm /lord knight/
    call {
    $p = @player ($.lastpub)
    do c Honey 100, Mastela 1000, Cursed Water 15
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro professor {
    pubm /professor/
    call {
    $p = @player ($.lastpub)
    do c Mastela 500, RJ 200
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro minstrel {
    pubm /minstrel/
    call {
    $p = @player ($.lastpub)
    do c Mastela 500, RJ 50
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro gypsy {
    pubm /gypsy/
    call {
    $p = @player ($.lastpub)
    do c Mastela 500, RJ 50
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro biochemist {
    pubm /biochemist/
    call {
    $p = @player ($.lastpub)
    do c RJ 300, Mastela 200
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro paladin {
    pubm /paladin/
    call {
    $p = @player ($.lastpub)
    do c Mastela 500, honey 100
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro sniper {
    pubm /sniper/
    call {
    $p = @player ($.lastpub)
    do c Mastela 300, honey 100
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro wizard {
    pubm /wizard/
    call {
    $p = @player ($.lastpub)
    do c Mastela 500, RJ 100
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro high wizard {
    pubm /high wizard/
    call {
    $p = @player ($.lastpub)
    do c Mastela 500, RJ 100
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro Whitesmith {
    pubm /mastersmith/
    call {
    $p = @player ($.lastpub)
    do c Mastela 500, Honey 100
    pause 0.5
    do c No Gaji.. Apabila anda berminat
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro priest {
    pubm /priest/
    call {
    $p = @player ($.lastpub)
    do c Blue Gem 1000, Gaji 2jt
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
    automacro high priest {
    pubm /high priest/
    call {
    $p = @player ($.lastpub)
    do c Blue Gem 1000, Gaji 3jt
    pause 0.5
    do c silahkan berikan command "request" tanpa (")
    }
    }
     
Thread Status:
Not open for further replies.

Share This Page