Selasa, 10 Februari 2009

Jasa warp macro

automacro one {
location Payon
run-once 1
call ones
}
macro ones {
do sit
pause 2
do chat create "Geo 800 | Ho ct 801 | Magma 802" 2 0 1111
release one
}

automacro two {
console /to start dealing, or 'deal no' to deny the deal./i
run-once 1
call {
do deal
}
}

automacro three {
console /finalized the Deal/i
call {
do deal
}
}

automacro four {
location Payon
run-once 1
exclusive 1
call fours
}
macro fours {
$.caller = automacro ones
$i = @player ($.lastrequest deal)
$.status = You gained 800 zeny.
$.status1 = You gained 801 zeny.
$.status2 = You gained 802 zeny.
$.zeny = 800
$.zeny1 = 801
$.zeny2 = 802
$posx = @rand (1,7)
$posy = @rand (1,7)
$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;}
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
if (@invamount(Blue Gemstone) == 0) goto nogem
if ($.status == $zeny ) goto Geo
if ($.status1 == $zeny1 ) goto HO
if ($.status2 == $zeny2 ) goto Magma
:nogem
do c no gem
pause 0.2
do c sebentar y saya ambil gem dulu
pause 0.2
do chat leave
pause 0.1
do autostorage
:Geo
do chat leave
pause 0.3
do e thx
pause 0.4
do sp 34 $i 10
pause 0.2
do sp 29 $i 10
pause 0.5
do sl 27 $herex $herey
pause 2
do warp 2
pause 1
log You gained 800 zeny.
goto end
:HO
do chat leave
pause 0.3
do e thx
pause 0.4
do sp 34 $i 10
pause 0.2
do sp 29 $i 10
pause 0.5
do sl 27 $herex $herey
pause 2
do warp 1
pause 1
log You gained 801 zeny.
goto end
:Magma
do chat leave
pause 0.3
do e thx
pause 0.4
do sp 34 $i 10
pause 0.2
do sp 29 $i 10
pause 0.5
do sl 27 $herex $herey
pause 2
do warp 3
pause 1
log You gained 802 zeny.
goto end
:end
do c Thx sudah memakai Jasa Warp dari Kami....
pause 0.2
do sit
pause 0.6
do chat create "Geo 800 | Ho ct 801 | Magma 802" 2 0 1111
log You are sitting.
release all
}


###########################################
Nama pub, harga dan warpnya di sesuiaikan
dengan anda
From: skynozz/Norman
###########################################

Belajar membuat macro v.1

Pertama tama yang harus anda lakukan adalah kemampuan membaca dan mengekit ( ya iyalah)

Saya akan mengajrkan bagaimana cara membuat macro paket lewat console atau pubm

First.. dasarnya adalah tulisan ini " automacro bla bla bla { "

Yap.. tulis tulisan automacro di macros text , beri nama macro tersebut. contohnya saya akan memberi nama fajarpaket

Ex:
automacro fajarpaket {


Lalu beri tulisan pubm(spasi)/"nama yang kamu inginkan"/
misalknya pubm /paket/ .. artinya bot kamu akan melakukan paket bila di console ada yg berbicara paket

lalu taro tulisan tersebut di bawah automacro

Ex:
automacro fajarpaket {
pubm /paket/

Lalu tulis kata " call " di bawah kata pubm sebagai penghubung macro. dan kasih nama macro penghubung tersebut misalhnya call packet

Ex:

automacro fajarpaket {
pubm /paket/
call packet
}

Nah skarang tinggal membuat macro penghubung.. buat seperti membuat auto macro tetapi nama macronya di sesuaikan dengan yg di tulis di call

Ex:

automacro fajarpaket {
pubm /paket/
call packet
}

automacro packet {


NAH..!! sekarang tinggal set paketnya
Misal kamu mau kalau orang ketik paket bot kamu akan memberi agi,heal dan bless
sebelumnya saya akan memberitahu urutannya

do(spasi)sp(spasi)namaskil(spasi)orangygdituju(spasi)lvlskilss

Ex:

automacro fajarpaket {
pubm /paket/
call packet
}

automacro packet {
do sp Blessing $.lastpub
do sp "Increase AGI" $.lastpub
do sp Blessing $.lastpub
do sp "Impositio Manus" $.lastpub
do sit
}

--------------------------
Lastpub artinya yang terakhir bilang paket..
sp : artinya skillss yg akan di gunakan
do: artinya melakukan
Bila ada skils yang mengandung spasi harus di kasih tanda petik seperti "Increase AGI" ..


^^ semoga berhasi.. Happy bot

Download macro dan instal

Download file macro di link di bawah ini:

http://downloads.sourceforge.net/openkore/macro-2.0.2.zip

1.Lalu buat Folder di openkore kamu yang bernama :"plugins" <-- tanpa tanda "

2.Buat text document di Folder control.

3.Text document tersebut di beri nama:"MACROS" < tanpa tanda "

4.Lalu extrac macro ke folder plugins

5.Lalu anda Suda langsung bisa menggunakan Macros

Paket guild macro

automacro coating {
console /\[dist=(.*)\] (.*) \((\d+)\): (\*Flag\s\d\*|fcp|paket|)$/
run-once 1
call {
$distance = $.lastMatch1
$namaPlayer = $.lastMatch2
$playerID = $.lastMatch3
$playerguild = @eval (exists $::players{$::playersID[$playerID]}->{guild} ? $::players{$::playersID[$playerID]}->{guild}{name} : 'null')

#Nama guild yg mau di FCP
$guild1 = Tulis nama guid di sini contohnya seperti di bawah ini
$guild2 = ¤ S u S t e r ลก ¤
$guild3 = Namaguildyang di inginkan

if ($playerguild == $guild1) goto oke
if ($playerguild == $guild2) goto oke
if ($playerguild == $guild3) goto oke
goto lain

:oke
if ($distance > 6) goto jauh
do c Bentar2 lagi FCP $namaPlayer

do sp "Heal" $playerID 10

goto end

:jauh
do c ui $namaPlayer jgn jauh2 klo minta FCP >.goto end
:lain
do c sorry FCP cuman buat $guild
:end

release coating
}
}


baca dulu yg di merah merahin

Pake di console macro

##################################
pake di console by fajar
#################################

automacro givepacket {
pubm /paket|PAKET|Paket/, 5
call packet
}

macro packet {
$player = $.lastpub
do sp Blessing $player
do sp "Increase AGI" $player
do sp Blessing $player
do sp "Impositio Manus" $player
do sit
}


#######################################
Caranya: ketik paket/PAKET/Paket di console dan bot
priest kamu akan mempaket kamu
######################################

Paket whisp macro

#################################
paket whisp by fajar
#################################



automacro buff {
pm /paket|PAKET|Paket/
run-once 1
delay 1
call playerbuff
}

macro playerbuff {
$player = $.lastpm
do sp Blessing $player 10
pause 1
do sp "Increase AGI" $player 10
pause 1.5
do sp "Impositio Manus" $player
release buff

}

####################################
pake whisp : caranya whisp karakter yg di macro
ini dengan ketik : paket/PAKET/Paket
###################################

Auto dc macro

#######################################
auto dc by fajar
#######################################

automacro autodc {
hp <= 35%
delay 60
run-once 1
call autodc2
}

macro autodc2 {
do relog 10
release autodc
}

automacro aggressives {
aggressives >= 5
run-once 1
call disconnect
}

macro disconnect {
do relog 20
pause 30
release aggressives
}



####################################
##Letakan di bagia teks documen macros.txt####
####################################