babycheats
Youtube Master Race
- 14/12/08
- 1
- 0
Chắc hẳn đã nhìu bạn cày nát topic " các vấn đề về bot " của Sin bým.Nhưng các bạn đã kiếm đủ thông tin để làm cái config hoàn thiện chưa?
đây là config auto attack:
.
___________Auto Merge________________
.
còn đêy là macros.txt để spam nov pot
Còn đêy là Automacro.pm
đây là config auto attack:
Mã:
# Shock
master Vietnam - ASro
server 0
username
password
char
pin
bindIp
serverType 0
# 1 = hook into RO client, 2 = Act as stand-alone proxy, proxy = act as true proxy
XKore 0
XKore_silent 1
XKore_bypassBotDetection 0
XKore_exeName ragvn.exe
# XKore 2 / Proxy configuration
XKore_ID
XKore_listenIp 127.0.0.1
XKore_listenPort 6901
XKore_publicIp 127.0.0.1
XKore_proxyAllowed_IP
# It is not advised to set secureAdminPassword if you're using Xkore 2
secureAdminPassword 0
adminPassword
callSign
commandPrefix ;
pauseMapServer 0
ignoreInvalidLogin 0
secureLogin_requestCode
message_length_max 80
######## Main configuration ########
alias_heal sp 28
attackUseWeapon 1
attackCanSnipe 0
allowedMaps
allowedMaps_reaction 1
attackAuto 2
attackAuto_party 1
attackAuto_onlyWhenSafe 0
attackAuto_followTarget 1
attackAuto_inLockOnly 1
attackDistance 1
attackDistanceAuto 1
attackMaxDistance 1
attackMaxRouteDistance 100
attackMaxRouteTime 4
attackMinPlayerDistance 2
attackMinPortalDistance 7
attackUseWeapon 1
attackNoGiveup 1
attackCanSnipe 0
attackCheckLOS 0
attackLooters 1
attackChangeTarget 1
aggressiveAntiKS 1
autoMoveOnDeath 0
autoMoveOnDeath_x
autoMoveOnDeath_y
autoMoveOnDeath_map
attackEquip_topHead
attackEquip_midHead
attackEquip_lowHead
attackEquip_leftHand
attackEquip_rightHand
attackEquip_leftAccessory
attackEquip_rightAccessory
attackEquip_robe
attackEquip_armor
attackEquip_shoes
attackEquip_arrow
autoBreakTime {
startTime
stopTime
}
autoConfChange {
minTime
varTime
lvl
joblvl
}
autoMakeArrows 0
autoRestart 0
autoRestartMin 1300
autoRestartSeed 300
autoRestartSleep 1
autoSleepMin 60
autoSleepSeed 60
autoResponse 0
autoSpell
avoidGM_near 0
avoidGM_near_inTown 0
avoidGM_talk 0
avoidGM_reconnect 1800
avoidGM_ignoreList
avoidList 0
avoidList_inLockOnly 0
avoidList_reconnect 1800
cachePlayerNames 1
cachePlayerNames_duration 900
cachePlayerNames_maxSize 100
clientSight 20
dcOnDeath 0
dcOnDualLogin 0
dcOnDisconnect 0
dcOnEmptyArrow 0
dcOnMute 1
dcOnPM 0
dcOnZeny 10
dcOnStorageFull 0
dcOnPlayer 0
follow 0
followTarget[H]3
followEmotion 0
followEmotion_distance 4
followFaceDirection 0
followDistanceMax 10
followDistanceMin 3
followLostStep 12
followSitAuto 0
followBot 0
itemsTakeAuto 1
itemsTakeAuto_party 1
itemsGatherAuto 2
itemsMaxWeight 89
itemsMaxWeight_sellOrStore 89
itemsMaxNum_sellOrStore 99
cartMaxWeight 7900
itemsTakeAuto_new 0
#
lockMap
lockMap_x
lockMap_y
lockMap_randX
lockMap_randY
route_escape_unknownMap 1
route_escape_reachedNoPortal 1
route_escape_randomWalk 1
route_escape_shout
route_randomWalk 1
route_randomWalk_inTown 0
route_randomWalk_maxRouteTime 75
route_maxWarpFee
route_maxNpcTries 5
route_teleport 0
route_teleport_minDistance 200
route_teleport_maxTries 100
route_teleport_notInMaps
route_step 13
runFromTarget
runFromTarget_dist 6
saveMap
saveMap_warpToBuyOrSell 1
saveMap_warpChatCommand
shopAuto_open 0
shop_random 0
sitAuto_hp_lower
sitAuto_hp_upper
sitAuto_sp_lower
sitAuto_sp_upper
sitAuto_over_50 0
sitAuto_idle 0
statsAddAuto 0
statsAddAuto_list 90 dex, 90 agi
statsAddAuto_dontUseBonus 0
statsAdd_over_99 0
skillsAddAuto 0
skillsAddAuto_list
tankMode 0
tankModeTarget
teleportAuto_hp 20
teleportAuto_sp 0
teleportAuto_idle 0
teleportAuto_portal 0
teleportAuto_search 0
teleportAuto_minAggressives 4
teleportAuto_minAggressivesInLock 0
teleportAuto_onlyWhenSafe 0
teleportAuto_maxDmg 800
teleportAuto_maxDmgInLock 0
teleportAuto_deadly 1
teleportAuto_useSkill 1
teleportAuto_useChatCommand
teleportAuto_allPlayers 0
teleportAuto_atkCount 0
teleportAuto_atkMiss 10
teleportAuto_unstuck 0
teleportAuto_dropTarget 0
teleportAuto_dropTargetKS 0
teleportAuto_attackedWhenSitting 0
teleportAuto_totalDmg 2000
teleportAuto_totalDmgInLock 0
teleportAuto_equip_leftAccessory
teleportAuto_equip_rightAccessory
teleportAuto_lostHomunculus
teleportAuto_lostTarget
teleportAuto_useItemForRespawn
dealAuto 0
dealAuto_names
partyAuto 0
partyAutoShare 1
guildAutoDeny 0
verbose 1
showDomain 0
squelchDomains attackedMiss, skill,
verboseDomains
beepDomains
beepDomains_notInTown
logChat 1
logPrivateChat 1
logPartyChat 1
logGuildChat 1
logSystemChat 1
logEmoticons
logConsole 0
logAppendUsername 1
chatTitleOversize 0
shopTitleOversize 0
sleepTime 50000
intervalMapDrt 10000
ignoreAll 0
itemHistory 0
autoTalkCont 1
noAutoSkill 0
portalRecord 2
missDamage 0
tankersList
removeActorWithDistance
autoBreakTime {
startTime
stopTime
}
autoConfChange {
minTime
varTime
lvl
joblvl
}
autoMakeArrows 0
autoRestart 0
autoRestartMin 1300
autoRestartSeed 300
autoRestartSleep 1
autoSleepMin 60
autoSleepSeed 60
autoResponse 0
autoSpell
avoidGM_near 0
avoidGM_near_inTown 0
avoidGM_talk 0
avoidGM_reconnect 1800
avoidGM_ignoreList
avoidList 0
avoidList_inLockOnly 0
avoidList_reconnect 1800
alertSound 0
alertSound - {
eventList public chat
notInTown 1
inLockOnly 0
play C:\openkore\SVN-1.9.2\sounds\female\pub_chat_female.wav
}
alertSound - {
eventList private chat
notInTown 0
inLockOnly 0
play C:\openkore\SVN-1.9.2\sounds\female\priv_chat_female.wav
}
#alertSound - {
eventList map change
notInTown 1
inLockOnly 0
play C:\openkore\SVN-1.9.2\sounds\female\map_change_female.wav
}
alertSound - {
eventList gm near, public gm chat, private gm chat
notInTown 0
inLockOnly 0
play C:\openkore\SVN-1.9.2\sounds\female\gm_female.wav
}
chatBot Kadiliman {
scriptfile lines.txt
replyRate 80
onPublicChat 0
onPrivateMessage 0
onSystemChat 0
onGuildChat 0
onPartyChat 0
wpm 65
smileys ^_^, :D, :), >:(, XD, >.<, >"<
smileyRate 20
learn 1
}
cachePlayerNames 1
cachePlayerNames_duration 900
cachePlayerNames_maxSize 100
clientSight 20
dcOnDeath 0
dcOnDualLogin 0
dcOnDisconnect 0
dcOnEmptyArrow 0
dcOnMute 1
dcOnPM 0
dcOnZeny 10
dcOnStorageFull 0
# Kyrie Eleison 4, Magnificat 3, Gloria 1, Status Recovery 1, Increase SP Recovery 4, Resurrection 1, Lex Divina 3, Turn Undead 10, Kyrie Eleison 10
tankMode 0
tankModeTarget
dealAuto 0
partyAuto 0
partyAutoShare 1
guildAutoDeny 0
verbose 1
showDomain 0
squelchDomains attackedMiss, skill,
verboseDomains
beepDomains
beepDomains_notInTown
logChat 1
logPrivateChat 1
logPartyChat 1
logGuildChat 1
logSystemChat 1
logEmoticons
logConsole 0
logAppendUsername 1
chatTitleOversize 0
shopTitleOversize 0
sleepTime 50000
intervalMapDrt 10000
ignoreAll 0
itemHistory 0
autoTalkCont 1
noAutoSkill 0
portalRecord 2
missDamage 0
tankersList
secureAdminPassword 0
adminPassword
callSign
removeActorWithDistance
####### BLOCK #######
attackSkillSlot Fire Bolt {
lvl 4
dist 8
sp > 10%
stopWhenHit 1
inLockOnly 1
notInTown 1
monsters Orc Archer
maxUses 0
target_whenStatusActive Frozen
}
attackSkillSlot {
lvl 10
dist 15
sp > 10
inLockOnly 0
notInTown 1
monsters Evil Druid, Wraith, Ghoul, Wraith Dead, Skel Soldier, Skel Archer, Zombie, Bongun, Munak,Orc Skeleton, Zombie Prisoner, Skeleton Prisoner, Skel Worker, Khalitzburg
}
attackSkillSlot Double Strafe {
lvl 10
dist 14
sp > 16
}
attackSkillSlot {
lvl 10
dist 13
maxCastTime 0
minCastTime 0
hp
sp > 36
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
previousDamage
stopWhenHit 0
inLockOnly 0
notInTown 0
timeout 0
disabled 0
monsters Metaling,Caramel,Holden
notMonsters
maxAttempts 0
maxUses 1
target_whenStatusActive
target_whenStatusInactive Double Strafe
inInventory
isSelfSkill 0
equip_topHead
equip_midHead
equip_lowHead
equip_leftHand
equip_rightHand
equip_leftAccessory
equip_rightAccessory
equip_robe
equip_armor
equip_shoes
equip_arrow Fire Arrow
}
useSelf_skill Improve Concentration {
lvl 10
sp > 100
whenStatusInactive Improve Concentration
timeout 100
}
#attackSkillSlot Heal {
lvl 10
dist 7
sp
inLockOnly 0
notInTown 1
monsters Evil Druid, Wraith, Ghoul, Wraith Dead, Skel Soldier, Skel Archer, Zombie, Bongun, Munak,Orc Skeleton, Zombie Prisoner, Skeleton Prisoner, Skel Worker
}
attackSkillSlot Heal {
lvl 7
dist 15
sp > 10
inLockOnly 0
notInTown 1
monsters Orc Zombie
}
useSelf_skill Heal {
lvl 10
hp < 50%
sp > 19
}
useSelf_skill Magnificat {
lvl 5
sp
whenStatusInactive Magnificat
stopWhenHit 1
inLockOnly 1
notWhileSitting 1
notInTown 1
timeout 10
}
useSelf_skill Blessing {
lvl 10
whenStatusInactive Blessing
sp > 10
timeout 5
notInTown 1
}
useSelf_skill Increase AGI {
lvl 10
whenStatusInactive Increase AGI
sp > 10
timeout 5
notInTown 1
}
#useSelf_skill Gloria {
lvl 10
sp
onAction attack
whenStatusInactive Kyrie Eleison
stopWhenHit 1
inLockOnly 0
notWhileSitting 0
notInTown 1
timeout 10
}
#useSelf_skill Kyrie Eleison {
lvl 10
#sp < 50%
whenStatusInactive Kyrie Eleison
stopWhenHit 1
inLockOnly 0
notWhileSitting 0
notInTown 1
timeout 10
}
useSelf_skilll Status Recovery {
lvl 1
whenStatusActive Stunned, Petrified, Petrifying, Frozen
notInTown 1
}
useSelf_skill Pneuma {
defendMonsters Raydric Archer, Gargoyle, Skeleton Archer, Archer Skeleton, Enchanted Peach Tree, Cruiser, Goblin Archer, Kobold Archer
lvl 1
whenNotGround Pneuma
timeout 1
notInTown 1
}
useSelf_skill {
lvl 10
whenStatusInactive
sp
timeout 0
notInTown 0
}
useSelf_skill_smartHeal 1
partySkill Blessing {
lvl 10
target_whenStatusInactive Blessing
target_timeout 200
sp > 10
timeout 5
notInTown 1
}
partySkill Increase AGI {
lvl 10
target_whenStatusInactive Increase AGI
target_timeout 200
sp > 10
timeout 5
notInTown 1
}
partySkill Heal {
lvl 10
target_hp < 50%
sp > 10
notInTown 1
}
partySkill Pneuma {
lvl 1
target_defendMonsters Cruiser, Goblin Archer, Kobold Archer
target_timeout 1
whenNotGround Pneuma
sp > 10
notInTown 1
}
partySkill Resurrection {
lvl 4
target_dead 1
}
partySkill Status Recovery {
lvl 1
target_whenStatusActive Stunned, Petrified, Petrifying, Frozen
notInTown 1
}
partySkill Cure {
lvl 1
target_whenStatusActive Cursed, Silenced, Blinded, Chaos
notInTown 1
}
######## Block options ########
# You can copy & paste any block multiple times. So if you want to
# configure two attack skills, just duplicate the attackSkillSlot block.
monsterSkill Lex Aeterna {
lvl 1
aggressives
target Alarm,Clock,Rideword,Mimic,Tower Keeper,Clock Tower Manager,Punk,Penomena,Cramp,Geographer
target_dist
target_whenStatusInactive Lex Aeterna
maxUses 10
}
attackSkillSlot Double Strafe {
lvl 10
dist 15
maxCastTime 0
minCastTime 0
hp
sp > 15
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
previousDamage
stopWhenHit 0
inLockOnly 0
notInTown 0
timeout 0
disabled 0
monsters Geographer
notMonsters
maxAttempts 0
maxUses 3
target_whenStatusActive
target_whenStatusInactive Double Strafe
inInventory
isSelfSkill 0
equip_topHead
equip_midHead
equip_lowHead
equip_leftHand
equip_rightHand
equip_leftAccessory
equip_rightAccessory
equip_robe
equip_armor
equip_shoes
equip_arrow Fire Arrow
}
attackSkillSlot {
lvl 10
dist 1.5
maxCastTime 0
minCastTime 0
hp
sp > 10
homunculus_hp
homunculus_sp
homunculus_dead
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
previousDamage
stopWhenHit 0
inLockOnly 0
notInTown 0
timeout 0
disabled 0
monsters
notMonsters
maxAttempts 0
maxUses 0
target_whenStatusActive
target_whenStatusInactive
target_deltaHp
inInventory
isSelfSkill 0
equip_topHead
equip_midHead
equip_lowHead
equip_leftHand
equip_rightHand
equip_leftAccessory
equip_rightAccessory
equip_robe
equip_armor
equip_shoes
equip_arrow
manualAI 0
}
attackComboSlot {
afterSkill
waitBeforeUse
dist 1.5
isSelfSkill 1
target_deltaHp
}
useSelf_skill {
lvl 10
maxCastTime 0
minCastTime 0
hp
sp
homunculus_hp
homunculus_sp
homunculus_dead
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
monsters
notMonsters
stopWhenHit 0
inLockOnly 0
notWhileSitting 0
notInTown 0
timeout 0
disabled 0
inInventory
manualAI 0
}
useSelf_skill_smartHeal 1
partySkill {
lvl 10
maxCastTime 0
minCastTime 0
hp
sp
homunculus_hp
homunculus_sp
homunculus_dead
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
monsters
notMonsters
stopWhenHit 0
inLockOnly 0
notWhileSitting 0
notInTown 0
timeout 0
disabled 0
manualAI 0
target
target_hp
target_isJob
target_isNotJob
target_whenStatusActive
target_whenStatusInactive
target_aggressives
target_monsters
target_timeout 0
target_deltaHp
target_dead 0
inInventory
isSelfSkill 0
}
autoSwitch_default_rightHand
autoSwitch_default_leftHand
autoSwitch_default_arrow
# NOTE: In the case of two handed weapons, or no Shield,
# duplicate the weapon name for 'rightHand'
# To attack with bare hands, specify "[NONE]" (without the quotes) for rightHand
autoSwitch {
rightHand
leftHand
arrow
distance
useWeapon
}
equipAuto {
topHead
midHead
lowHead
leftHand
rightHand
leftAccessory
rightAccessory
robe
armor
shoes
arrow
monsters
weight 0
whileSitting 0
hp
sp
homunculus_hp
homunculus_sp
homunculus_dead
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
stopWhenHit 0
inLockOnly 0
notWhileSitting 0
notInTown 0
timeout 0
disabled 0
inInventory
manualAI 0
}
useSelf_item Novice Potion, Monster's Feed {
hp < 70%
sp
homunculus_hp
homunculus_sp
homunculus_dead
onAction
whenStatusActive
whenStatusInactive
whenFollowing
spirit
aggressives
monsters
notMonsters
stopWhenHit 0
inLockOnly 0
notWhileSitting 0
notInTown 0
timeout 0
disabled 0
inInventory
manualAI 0
}
######## Autostorage/autosell ########
buyAuto {
npc
standpoint
distance 5
minAmount 2
maxAmount 3
}
sellAuto 0
sellAuto_npc
sellAuto_standpoint
sellAuto_distance 5
storageAuto 0
storageAuto_npc alberta 28 229
storageAuto_distance 5
storageAuto_npc_type 1
storageAuto_npc_steps
storageAuto_password
storageAuto_keepOpen 0
storageAuto_useChatCommand
relogAfterStorage 0
minStorageZeny 50
getAuto {
minAmount
maxAmount
passive
}
######## Debugging options; only useful for developers ########
debug 0
debugPacket_unparsed 0
debugPacket_received 0
debugPacket_ro_sent 0
debugPacket_sent 0
debugPacket_exclude
debugPacket_include
debugPacket_include_dumpMethod
debugDomains
charBlockSize 108
serverEncoding Western
paddedPackets 1
paddedPackets_attackID 0x0190
paddedPackets_skillUseID 0x0085
serverType 0
char 0
followTarget -
## End___________Auto Merge________________
.
còn đêy là macros.txt để spam nov pot
Mã:
## ß ##
automacro create {
hook charSelectScreen
timeout 3
run-once 1
exclusive 1
call {
$login = @eval($login + 1)
log Now its char select screen
$num = @rand(1, 1000)
$masterName = "BinhBoong"
$name = @eval("$masterName" . "$num")
do eval $::messageSender->sendCharCreate(0, '$name', 9, 9, 1, 1, 9, 1, 6, 15);$::timeout{'charlogin'}{'time'} = time;
pause 5
do conf char 0
do eval $::messageSender->sendCharLogin(0);$::timeout{'charlogin'}{'time' } = time;
pause 10
do eval $::timeout{'charlogin'}{'time'} = time;
pause 3
release New
do move 55 115
do ai auto
}
}
automacro New {
base == 1
run-once 1
priority 1
exclusive 1
call talkNPC
}
macro talkNPC {
pause 1
do move 146 112
# Tiep tan
pause 6
do move 100 25
do ai manual
do talknpc 100 29 c r0 c c
pause 2
do move 99 99
# Giao dien
do talknpc 99 105 c c r0 c c c c c c c c e
pause 1
do move 86 108
# Ky nang
pause 2
do talknpc 83 111 c r0 c c c c c c c c c c c c r2 e
pause 1
do move 114 106
# Vat dung
do talknpc 115 111 c r0 c c c c c c c c c c r2 c e
pause 2
# Kafra
do talknpc 118 108 c c c r1 c r1 c c c c c r4 e
pause 2
do talknpc 118 108 c c c r0 r0 c
pause 2
# Helper 1
log "Talking to Helper 1\n"
do talknpc 17 182 c c c r0 c c c c c c c c c r3 e
# Helper 2
pause 2
do talknpc 38 182 c c c c r0 c
# Change map
pause 5
log "Map Changed\n"
do move 96 172
# Kiem tra
do talknpc 96 174 c r0 c
# HD tap su
pause 2
do move 99 19
do talknpc 91 22 c c c c r0 c c c c c c c r7 e
pause 3
# Final
do talknpc 100 29 c c c c c c r0 c c c c r0 r0 r0 r0 r0 r0 c c r0 c r0 c r0 c r0 c c r0 c r0 c r0 c r0 c c r2 c r1 c r0 c r0 c r2 c r0 c r1 c r2 c c c c c c c c c c c r0 c c c c c c c c
# Mer - Alberta
do move 78 44
pause 2
do move 105 60
pause 2
# Add Skill
do skills add 1
do skills add 1
do skills add 1
do skills add 1
do skills add 1
do skills add 1
pause 2
# Kafra
do talknpc 113 60 c r1
pause 2
do storage add @inventory (Novice Potion)
pause 1
do storage add @inventory (Red Potion)
pause 1
do storage add @inventory (Green Potion)
pause 1
do storage add @inventory (Yellow Potion)
pause 1
do storage add @inventory (Phracon)
pause 1
do storage add @inventory (Butterfly Wing)
pause 1
do storage add @inventory (Fly Wing)
pause 1
do storage add @inventory (Free Ticket for the Cart Service)
pause 1
do storage add @inventory (Free Ticket for Kafra Storage)
pause 1
do storage add @inventory (Free Ticket for Kafra Transportation)
pause 1
do storage add @inventory (Magnifier)
pause 1
do storage add @inventory (Battle Axe [3])
pause 1
do storage add @inventory (Powder of Butterfly)
pause 1
do storage close
pause 10
release delete
do relog
}
automacro delete {
hook charSelectScreen
exclusive 1
run-once 1
var login < 2
timeout 3
call {
$email = 050293
$login = 0
do eval $::messageSender->sendCharDelete($::chars[0]{charID}, '$email');$::AI::temp::delIndex = 0;$::timeout{'charlogin'}{'time'} = time;
pause 10
do eval $::timeout{'charlogin'}{'time'} = time;
pause 10
release create
do relog
}
}
Mã:
# $Id: Automacro.pm 5939 2007-08-29 12:09:28Z arachnophobia $
package Macro::Automacro;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(releaseAM lockAM automacroCheck consoleCheckWrapper);
our @EXPORT = qw(checkVar checkVarVar checkLoc checkLevel checkLevel checkClass
checkPercent checkStatus checkItem checkPerson checkCond checkCast
checkEquip checkMsg checkMonster checkAggressives checkConsole checkMapChange
checkNotMonster);
use Utils;
use Globals;
use Skill;
use AI;
use Log qw(message error warning);
use Macro::Data;
use Macro::Utilities qw(between cmpr match getArgs refreshGlobal
getPlayerID getSoldOut getInventoryAmount getCartAmount getShopAmount
getStorageAmount callMacro);
our ($rev) = q$Revision: 5939 $ =~ /(\d+)/;
# check for variable #######################################
sub checkVar {
my ($var, $cond, $val) = getArgs($_[0]);
$var = "#$var" if $_[1] eq 'varvar';
if ($cond eq "unset") {return exists $varStack{$var}?0:1}
refreshGlobal($var);
if (exists $varStack{$var}) {
return cmpr($varStack{$var}, $cond, $val)
} else {
return $cond eq "!="
}
}
# checks for location ######################################
# parameter: map [x1 y1 [x2 y2]]
# note: when looking in the default direction (north)
# x1 < x2 and y1 > y2 where (x1|y1)=(upper left) and
# (x2|y2)=(lower right)
# uses: calcPosition (Utils?)
sub checkLoc {
my $arg = $_[0];
if ($arg =~ /,/) {
my @locs = split(/\s*,\s*/, $arg);
foreach my $l (@locs) {return 1 if checkLoc($l)}
return 0
}
my $not = ($arg =~ s/^not +//)?1:0;
my ($map, $x1, $y1, $x2, $y2) = split(/ /, $arg);
if ($map eq $field->name) {
if ($x1 && $y1) {
my $pos = calcPosition($char);
return 0 unless defined $pos->{x} && defined $pos->{y};
if ($x2 && $y2) {
if (between($x1, $pos->{x}, $x2) && between($y2, $pos->{y}, $y1)) {
return $not?0:1
}
return $not?1:0
}
if ($x1 == $pos->{x} && $y1 == $pos->{y}) {
return $not?0:1
}
return $not?1:0
}
return $not?0:1
}
return $not?1:0
}
# checks for base/job level ################################
# uses cmpr (Macro::Utils)
sub checkLevel {
my ($cond, $level) = $_[0] =~ /([<>=!]+)\s*(\d+)/;
return cmpr($char->{$_[1]}, $cond, $level)
}
# checks for player's jobclass #############################
sub checkClass {
return 0 unless defined $char->{jobID};
return lc($_[0]) eq lc($::jobs_lut{$char->{jobID}})?1:0
}
# checks for HP/SP/Weight ##################################
# uses cmpr (Macro::Utils)
sub checkPercent {
my ($arg, $what) = @_;
my ($cond, $amount) = $arg =~ /([<>=!]+)\s*(\d+%?)/;
if ($what =~ /^(?:hp|sp|weight)$/) {
return 0 unless (defined $char->{$what} && defined $char->{$what."_max"});
if ($amount =~ /\d+%$/ && $char->{$what."_max"}) {
$amount =~ s/%$//;
return cmpr(($char->{$what} / $char->{$what."_max"} * 100), $cond, $amount)
} else {
return cmpr($char->{$what}, $cond, $amount)
}
} elsif ($what eq 'cweight') {
return 0 unless (defined $cart{weight} && defined $cart{weight_max});
if ($amount =~ /\d+%$/ && $cart{weight_max}) {
$amount =~ s/%$//;
return cmpr(($cart{weight} / $cart{weight_max} * 100), $cond, $amount)
} else {
return cmpr($cart{weight}, $cond, $amount)
}
}
return 0
}
# checks for status #######################################
sub checkStatus {
if ($_[0] =~ /,/) {
my @statuses = split(/\s*,\s*/, $_[0]);
foreach my $s (@statuses) {return 1 if checkStatus($s)}
return 0
}
my $status = lc($_[0]);
my $not = ($status =~ s/^not +//)?1:0;
foreach (split(',', $varStack{".status"})) {
if (lc($_) eq $status) {return $not?0:1}
}
return $not?1:0
}
# checks for item conditions ##############################
# uses: getInventoryAmount, getCartAmount, getShopAmount,
# getStorageAmount (Macro::Utils?)
sub checkItem {
my ($where, $check) = @_;
if ($check =~ /,/) {
my @checks = split(/\s*,\s*/, $check);
foreach my $c (@checks) {return 1 if checkItem($where, $c)}
return 0
}
my ($item, $cond, $amount) = getArgs($check);
my $what;
if ($where eq 'inv') {$what = getInventoryAmount($item)}
if ($where eq 'cart') {$what = getCartAmount($item)}
if ($where eq 'shop') {
return 0 unless $shopstarted;
$what = getShopAmount($item)
}
if ($where eq 'stor') {
return 0 unless $::storage{opened};
$what = getStorageAmount($item)
}
return cmpr($what, $cond, $amount)?1:0
}
# checks for near person ##################################
sub checkPerson {
my ($who, $dist) = $_[0] =~ /^(["\/].*?["\/]\w*)\s*,?\s*(.*)/;
foreach my $player (@{$playersList->getItems()}) {
next unless match($player->name, $who);
if ($dist > 0) {
return (distance($char->{pos_to}, $player->{pos_to}) <= $dist)?1:0
}
return 1
}
return 0
}
# checks arg1 for condition in arg3 #######################
# uses: cmpr (Macro::Utils)
sub checkCond {
my ($cond, $amount) = $_[1] =~ /([<>=!]+)\s*(\d+)/;
return cmpr($_[0], $cond, $amount)?1:0
}
# checks for equipment ####################################
# equipped <item>, <item2>, ... # equipped item or item2 or ..
# equipped rightHand <item>, rightAccessory <item2>, ... # equipped <item> on righthand etc.
# equipped leftHand none, .. # equipped nothing on lefthand etc.
# see @Item::slots
sub checkEquip {
if ($_[0] =~ /,/) {
my @equip = split(/\s*,\s*/, $_[0]);
foreach my $e (@equip) {return 1 if checkEquip($e)}
return 0
}
my $arg = $_[0];
if ($arg =~ m/^((?:top|mid|low)Head|(?:left|right)Hand|robe|armor|shoes|(?:left|right)Accessory|arrow)\s+(.*)/i) {
if (my $item = $char->{equipment}{$1}) {
return lc($2) eq lc($item->name)?1:0
}
return lc($2) eq 'none'?1:0
}
$arg = lc($arg);
foreach my $s (keys %{$char->{equipment}}) {
next unless lc($char->{equipment}{$s}->name) eq $arg;
return 1
}
return 0
}
# checks for a spell casted on us #########################
# uses: distance, judgeSkillArea (Utils?)
sub checkCast {
my ($cast, $args) = @_;
$cast = lc($cast);
my $pos = calcPosition($char);
return 0 if $args->{sourceID} eq $accountID;
my $target = (defined $args->{targetID})?$args->{targetID}:0;
if (($target eq $accountID ||
($pos->{x} == $args->{x} && $pos->{y} == $args->{y}) ||
distance($pos, $args) <= judgeSkillArea($args->{skillID})) &&
existsInList($cast, lc(Skill->new(idn => $args->{skillID})->getName()))) {return 1}
return 0
}
# checks for public, private, party or guild message ######
# uses calcPosition, distance (Utils?)
sub checkMsg {
my ($var, $tmp, $arg) = @_;
my $msg;
if ($var eq '.lastpub') {
($msg, my $distance) = $tmp =~ /^([\/"].*?[\/"]\w*)\s*,?\s*(\d*)/;
if ($distance ne '') {
my $mypos = calcPosition($char);
my $pos = calcPosition($::players{$arg->{pubID}});
return 0 unless distance($mypos, $pos) <= $distance
}
} elsif ($var eq '.lastpm') {
($msg, my $allowed) = $tmp =~ /^([\/"].*?[\/"]\w*)\s*,?\s*(.*)/;
my $auth;
if (!$allowed) {
$auth = 1
} else {
my @tfld = split(/,/, $allowed);
for (my $i = 0; $i < @tfld; $i++) {
next unless defined $tfld[$i];
$tfld[$i] =~ s/(?:^ +| +$)//g;
if ($arg->{privMsgUser} eq $tfld[$i]) {$auth = 1; last}
}
}
return 0 unless $auth
} else {
$msg = $tmp
}
$arg->{Msg} =~ s/[\r\n]*$//g;
if (match($arg->{Msg},$msg)){
$varStack{$var} = $arg->{MsgUser};
$varStack{$var."Msg"} = $arg->{Msg};
return 1
}
return 0
}
# checks for monster, credits to illusionist
sub checkMonster {
my $monsterList = $_[0];
foreach (@monstersID) {
next unless defined $_;
if (existsInList($monsterList, $monsters{$_}->{name})) {
my $pos = calcPosition($monsters{$_});
my $val = sprintf("%d %d %s", $pos->{x}, $pos->{y}, $field->name);
$varStack{".lastMonster"} = $monsters{$_}->{name};
$varStack{".lastMonsterPos"} = $val;
return 1
}
}
return 0
}
# checks for forbidden monster
# quick hack, maybe combine it with checkMonster later
sub checkNotMonster {
my $monsterList = $_[0];
foreach (@monstersID) {
next unless defined $_;
next if existsInList($monsterList, $monsters{$_}->{name});
return 1
}
return 0
}
# checks for aggressives
sub checkAggressives {
my ($cond, $amount) = $_[0] =~ /([<>=!]+)\s*(\d+)/;
return cmpr(scalar ai_getAggressives, $cond, $amount)
}
# checks for console message
sub checkConsole {
my ($msg, $arg) = @_;
$$arg[4] =~ s/[\r\n]*$//;
if (match($$arg[4],$msg)){
$varStack{".lastLogMsg"} = $$arg[4];
return 1
}
return 0
}
sub consoleCheckWrapper {
return unless defined $conState;
# skip "macro" and "cvsdebug" domains to avoid loops
return if $_[1] =~ /^(?:macro|cvsdebug)$/;
# skip debug messages unless macro_allowDebug is set
return if ($_[0] eq 'debug' && !$::config{macro_allowDebug});
my @args = @_;
automacroCheck("log", \@args)
}
# checks for map change
sub checkMapChange {
return ($_[0] eq '*' || existsInList($_[0], $field->name))?1:0
}
# releases a locked automacro ##################
sub releaseAM {
if ($_[0] eq 'all') {
foreach (keys %automacro) {
undef $automacro{$_}->{disabled}
}
return 1
}
if (defined $automacro{$_[0]}) {
undef $automacro{$_[0]}->{disabled};
return 1
}
return 0
}
# locks an automacro ##################
sub lockAM {
if (defined $automacro{$_[0]}) {
$automacro{$_[0]}->{disabled} = 1;
return 1
}
return 0
}
# parses automacros and checks conditions #################
sub automacroCheck {
my ($trigger, $args) = @_;
return unless $conState == 5 || $trigger =~ /^(?:charSelectScreen|Network)/;
if ($trigger =~ /^(?:charSelectScreen|Network)/) {
my (undef, $args) = @_;
$timeout{'charlogin'}{'time'} = time;
$args->{return} = 2;
}
return if (defined $queue && !$queue->interruptible); ;
refreshGlobal();
CHKAM:
foreach my $am (sort {
($automacro{$a}->{priority} or 0) <=> ($automacro{$b}->{priority} or 0)
} keys %automacro) {
next CHKAM if $automacro{$am}->{disabled};
if (defined $automacro{$am}->{call} && !defined $macro{$automacro{$am}->{call}}) {
error "automacro $am: macro ".$automacro{$am}->{call}." not found.\n";
$automacro{$am}->{disabled} = 1; return
}
if (defined $automacro{$am}->{timeout}) {
$automacro{$am}->{time} = 0 unless $automacro{$am}->{time};
my %tmptimer = (timeout => $automacro{$am}->{timeout}, time => $automacro{$am}->{time});
next CHKAM unless timeOut(\%tmptimer)
}
if (defined $automacro{$am}->{hook}) {
next CHKAM unless $trigger eq $automacro{$am}->{hook};
# save arguments
my $s = 0;
foreach my $save (@{$automacro{$am}->{save}}) {
if (defined $args->{$save}) {
if (ref($args->{$save}) eq 'SCALAR') {
$varStack{".hooksave$s"} = ${$args->{$save}}
} else {
if (!$::config{macro_nowarn} && ref($args->{$save}) ne '') {
warning "[macro] \$.hooksave$s is of type ".ref($args->{$save}).". Take care!\n"
}
$varStack{".hooksave$s"} = $args->{$save}
}
} else {
error "[macro] \$args->{$save} does not exist\n"
}
$s++
}
} elsif (defined $automacro{$am}->{console}) {
if ($trigger eq 'log') {
next CHKAM unless checkConsole($automacro{$am}->{console}, $args)
} else {next CHKAM}
} elsif (defined $automacro{$am}->{spell}) {
if ($trigger =~ /^(?:is_casting|packet_skilluse)$/) {
next CHKAM unless checkCast($automacro{$am}->{spell}, $args)
} else {next CHKAM}
} elsif (defined $automacro{$am}->{pm}) {
if ($trigger eq 'packet_privMsg') {
next CHKAM unless checkMsg(".lastpm", $automacro{$am}->{pm}, $args)
} else {next CHKAM}
} elsif (defined $automacro{$am}->{pubm}) {
if ($trigger eq 'packet_pubMsg') {
next CHKAM unless checkMsg(".lastpub", $automacro{$am}->{pubm}, $args)
} else {next CHKAM}
} elsif (defined $automacro{$am}->{party}) {
if ($trigger eq 'packet_partyMsg') {
next CHKAM unless checkMsg(".lastparty", $automacro{$am}->{party}, $args)
} else {next CHKAM}
} elsif (defined $automacro{$am}->{guild}) {
if ($trigger eq 'packet_guildMsg') {
next CHKAM unless checkMsg(".lastguild", $automacro{$am}->{guild}, $args)
} else {next CHKAM}
} elsif (defined $automacro{$am}->{mapchange}) {
if ($trigger eq 'packet_mapChange') {
next CHKAM unless checkMapChange($automacro{$am}->{mapchange})
} else {next CHKAM}
}
next CHKAM if (defined $automacro{$am}->{map} && $automacro{$am}->{map} ne $field->name);
next CHKAM if (defined $automacro{$am}->{class} && !checkClass($automacro{$am}->{class}));
next CHKAM if (defined $automacro{$am}->{notMonster} && !checkNotMonster($automacro{$am}->{notMonster}));
foreach my $i (@{$automacro{$am}->{monster}}) {next CHKAM unless checkMonster($i)}
foreach my $i (@{$automacro{$am}->{aggressives}}){next CHKAM unless checkAggressives($i)}
foreach my $i (@{$automacro{$am}->{location}}) {next CHKAM unless checkLoc($i)}
foreach my $i (@{$automacro{$am}->{var}}) {next CHKAM unless checkVar($i, "")}
foreach my $i (@{$automacro{$am}->{varvar}}) {next CHKAM unless checkVar($i, "varvar")}
foreach my $i (@{$automacro{$am}->{base}}) {next CHKAM unless checkLevel($i, "lv")}
foreach my $i (@{$automacro{$am}->{job}}) {next CHKAM unless checkLevel($i, "lv_job")}
foreach my $i (@{$automacro{$am}->{hp}}) {next CHKAM unless checkPercent($i, "hp")}
foreach my $i (@{$automacro{$am}->{sp}}) {next CHKAM unless checkPercent($i, "sp")}
foreach my $i (@{$automacro{$am}->{spirit}}) {next CHKAM unless checkCond($char->{spirits} or 0, $i)}
foreach my $i (@{$automacro{$am}->{weight}}) {next CHKAM unless checkPercent($i, "weight")}
foreach my $i (@{$automacro{$am}->{cartweight}}) {next CHKAM unless checkPercent($i, "cweight")}
foreach my $i (@{$automacro{$am}->{soldout}}) {next CHKAM unless checkCond(getSoldOut(), $i)}
foreach my $i (@{$automacro{$am}->{zeny}}) {next CHKAM unless checkCond($char->{zenny}, $i)}
foreach my $i (@{$automacro{$am}->{player}}) {next CHKAM unless checkPerson($i)}
foreach my $i (@{$automacro{$am}->{equipped}}) {next CHKAM unless checkEquip($i)}
foreach my $i (@{$automacro{$am}->{status}}) {next CHKAM unless checkStatus($i)}
foreach my $i (@{$automacro{$am}->{inventory}}) {next CHKAM unless checkItem("inv", $i)}
foreach my $i (@{$automacro{$am}->{storage}}) {next CHKAM unless checkItem("stor", $i)}
foreach my $i (@{$automacro{$am}->{shop}}) {next CHKAM unless checkItem("shop", $i)}
foreach my $i (@{$automacro{$am}->{cart}}) {next CHKAM unless checkItem("cart", $i)}
message "[macro] automacro $am triggered.\n", "macro";
unless (defined $automacro{$am}->{call} || $::config{macro_nowarn}) {
warning "[macro] automacro $am: call not defined.\n", "macro"
}
$automacro{$am}->{time} = time if $automacro{$am}->{timeout};
$automacro{$am}->{disabled} = 1 if $automacro{$am}->{'run-once'};
foreach my $i (@{$automacro{$am}->{set}}) {
my ($var, $val) = $i =~ /^(.*?)\s+(.*)/;
$varStack{$var} = $val
}
if (defined $automacro{$am}->{call}) {
undef $queue if defined $queue;
$queue = new Macro::Script($automacro{$am}->{call});
if (defined $queue) {
$queue->overrideAI(1) if $automacro{$am}->{overrideAI};
$queue->interruptible(0) if $automacro{$am}->{exclusive};
$queue->orphan($automacro{$am}->{orphan}) if defined $automacro{$am}->{orphan};
$queue->timeout($automacro{$am}->{delay}) if $automacro{$am}->{delay};
$queue->setMacro_delay($automacro{$am}->{macro_delay}) if $automacro{$am}->{macro_delay};
$varStack{".caller"} = $am;
$onHold = 0;
callMacro
} else {
error "unable to create macro queue.\n"
}
}
return # don't execute multiple macros at once
}
}
1;
