Tuesday, 11 June 2013

macro beli barang otomatis

sesuai request ada yg nanya gimana klo beli barang otomatis, jadi saya bikinin versi sederhananya, misalkan mau ditambah jumlah barangnya tinggal di tambahkan if statement sendiri dan variablenya.

automacro pub {
map payon ## kota tempat menaruh bot ##
run-once 1
priority 0
call {
do look 4 0
do sit
}
}



macro editpub {
do chat modify "variant 1M" 2 0 1234 ## nama pub ##
release deal
stop
}

macro bukapub {
do chat create "variant 1M" 2 0 1234 ## nama pub ##
release deal
stop
}

automacro deal {
console /^(.+) \(level (\d+)\) Requests a Deal/
overrideAI 1
call {
lock deal
$i = 20 ## batas waktu deal dalam detik ##
$name = $.lastMatch1
do e ok
do chat modify "$name sedang mengajak transaksi" 2 0 1234
do pm "$name" "waktu anda 10 detik sebelum transaksi dibatalkan"
do deal
do pm "$name" "variant 1M"
while ($i > 0) as loop
pause 1
do chat modify "$i detik lagi" 2 0 1234
$i--
end loop
do deal no
pause 1
do chat modify "transaksi di batalkan" 2 0 1234
pause 1
call editpub
stop
}
}

automacro kasihgem {
console /^(.+) added Item to Deal: (.+) x (\d+)$/i
overrideAI 1
call {
$barang = Variant Shoes ## nama barangnya ##
if ($.lastMatch2 == $barang) goto ok
goto end

:ok
$harga = 1000000000 ## harga barangnya ##
$total = @eval($harga*$.lastMatch3)
pause 1
do deal add z $total
pause 2
do deal
while ($i > 0) as loop1
pause 1
do chat modify "$i detik lagi" 2 0 1234
$i--
end loop1
goto end

:end
do deal no
pause 1
do chat modify "transaksi di batalkan" 2 0 1234
pause 1
call editpub
stop
}
}

automacro bayarjuga {
console /^Item added to inventory: .+/
overrideAI 0
call {
do chat modify "happy shoping^^"
pause 1
call editpub
stop
}
}

No comments:

Post a Comment