Tweet
script is in 2 posts
keeps u near your vendor, open several gates, takls to people.
U still need to modify a lot to use it for your pg and your place - U can ask me by PM))
place in several books "recalltovendorrune" + same count of runes to all books
edit in sub talk text u want to say
keeps u near your vendor, open several gates, takls to people.
U still need to modify a lot to use it for your pg and your place - U can ask me by PM))
place in several books "recalltovendorrune" + same count of runes to all books
edit in sub talk text u want to say
codice:
;===VendorGaterBot ============
;===Ver 1.2.1=======================
;===Author: Felix=================
;===15/05/08======================
;================================
set #lpc 1000
;list of Ids that are ifnored for talking (vendors, disturbers)
ignoreitem BWTN
ignoreitem CBNN
ignoreitem SXLM
ignoreitem XQJL
ignoreitem PEJL
ignoreitem JVJK
ignoreitem YQSJ
ignoreitem UITI
ignoreitem UDSI
ignoreitem BMUD
ignoreitem KSWF
ignoreitem NENN
ignoreitem FYSI
ignoreitem KLSI
ignoreitem SYLM
ignoreitem EUPD
ignoreitem EKOB
ignoreitem BRWL
;amount of mana for one gate
set %neededmanaforgate 24
;types of itmes that script wil dragdrop on ground considering it as somebody trie to block your movement
set %shit CUD_UXM_TXM_HKF
;how far script will find person to talk to
set %dist 9
;how often to talk to people
set %saydelay 4000
set %nextsay 0
deleteJournal
set %scan_journal_line #jindex
set %SmthSaidForMedetation 0
;how often to check if gate has closed
set %gatecheckdelay 1000
set %nextgatecheck #systime + %gatecheckdelay
;how often to check if where is somebody to talk to
set %talkcheckdelay 1000
set %nexttriedtotalk #systime + %talkcheckdelay
;how often to change runebook
set %bookchangedelay 34000
set %nextbookchange #systime + %bookchangedelay
set %posbcheckdelay 100
set %nextposbcheck #systime + %posbcheckdelay
set %LastPersonTriedToTalk 0
set %TriedToTalkTimes 0
;numer of tries of talking to consider person as a disturber
set %NTriesToIgnore 3
set %Gate_button_Y_Deplacement 163
set %Gate_button_X_Deplacement 139
set %_defaultWaitForTimeout 20
set %hide_own_moongates #true
;types which script will talk to
set %beings IS_HS_XU_AV_LAB_MAB_PAB
set %waittime 82400
;%wait position
set %posxb2 1051
set %posyb2 514
set %poszb2 -90
set %posxb3 1051
set %posyb3 514
set %poszb3 -90
set %posxb4 1051
set %posyb4 514
set %poszb4 -90
set %posxb5 1052
set %posyb5 514
set %poszb5 -90
set %posxb6 1052
set %posyb6 514
set %poszb6 -90
set %posxb7 1052
set %posyb7 514
set %poszb7 -90
set %posxb8 1052
set %posyb8 515
set %poszb8 -90
set %posxb9 1052
set %posyb9 515
set %poszb9 -90
set %posxb10 1052
set %posyb10 515
set %poszb10 -90
set %posxb11 1051
set %posyb11 515
set %poszb11 -90
set %posxb12 1051
set %posyb12 515
set %poszb12 -90
set %posxb1 1051
set %posyb1 515
set %poszb1 -90
set %posxb %posxb1
set %posyb %posyb1
set %poszb %poszb1
set %needposbchange 1
;array of gate positions
set %posx1 1050
set %posy1 515
set %posz1 -90
set %posx2 1050
set %posy2 514
set %posz2 -90
set %posx3 1050
set %posy3 513
set %posz3 -90
set %posx4 1051
set %posy4 513
set %posz4 -90
set %posx5 1052
set %posy5 513
set %posz5 -90
set %posx6 1053
set %posy6 513
set %posz6 -90
set %posx7 1053
set %posy7 514
set %posz7 -90
set %posx8 1053
set %posy8 515
set %posz8 -90
set %posx9 1053
set %posy9 516
set %posz9 -90
set %posx10 1052
set %posy10 516
set %posz10 -90
set %posx11 1051
set %posy11 516
set %posz11 -90
set %posx12 1050
set %posy12 516
set %posz12 -90
set %mongate_list JEF_OTF_KEF
;length of array of gate position and array of rune numbers
set %q 12
;array of rune books
set %book1 FOUTUMD
set %book2 MCAYPMD
set %book3 GYBYPMD
set %book4 SXHYPMD
set %book5 HFOZJMD
set %book6 HHOZJMD
;length of book array
set %bookq 6
set %booki 1
;array of rune numbers on which u want to make gate
set %runenum1 13
set %runenum2 2
set %runenum3 3
set %runenum4 4
set %runenum5 5
set %runenum6 6
set %runenum7 7
set %runenum8 8
set %runenum9 9
set %runenum10 10
set %runenum11 11
set %runenum12 12
set %needreturntoposb 0
for %i 1 %q
{
set %gatefound . %i 0
set %gate . % i 0
}
begin:
gosub checkgates
loop:
set %GateMadePerCicle #False
for %i 1 %q
{
if %needposbchange = 1
{
gosub changeposb %i
set %needposbchange 0
}
if #charposx <> %posxb || #CHARPOSY <> %posyb || #CHARPOSZ <> %poszb
{
gosub moveto %posxb %posyb %poszb
if #result = blocked
{
sound
gosub checkforplace
if #result = far
{
gosub recalltovendor
}
}
}
if #systime > %nexttriedtotalk
{
set %nexttriedtotalk #systime + %talkcheckdelay
gosub talk
}
if %gatefound . %i = 0 && #mana > %neededmanaforgate
{
set %needposbchange 1
gosub moveto %posx . %i %posy . %i %posz . %i
if #result <> blocked
{
set %gate . %i 0
gosub gate %book . %booki %runenum . %i #TRUE Gate
if %gate . %i <> 0
{
set %GateMadePerCicle #True
}
}
if #charposx <> %posxb || #CHARPOSY <> %posyb || #CHARPOSZ <> %poszb
{
gosub moveto %posxb %posyb %poszb
}
}
}
if #hits < #maxhits - 10
{
gosub heal
}
if %GateMadePerCicle = #False
{
gosub med
}
if #mana < %neededmanaforgate
{
gosub med
}
if #systime > %nextgatecheck
{
gosub checkgates
set %nextgatecheck #systime + %gatecheckdelay
}
if #systime > %nextbookchange
{
gosub changebook
}
goto loop
sub checkgates
for %i 1 %q
{
set %gatefound . %i 1
}
for %i 1 %q
{
if %gate . %i <> 0
{
finditem %gate . %i G_ , %dist
if #findcnt = 0
{
set %gatefound . %i 0
}
}
if %gate . %i = 0
{
set %gatefound . %i 0
}
}
set %needposbchange 1
return
sub changeposb
set %posxb %posxb . %1
set %posyb %posyb . %1
set %poszb %poszb . %1
return
sub changebook
set %nextbookchange #systime + %bookchangedelay
set %booki %booki + 1
if %booki = %bookq
{
set %booki 1
}
return
sub checkforplace
set %rab #charposx - %posxb
set %rab ABS %rab
if %rab > 15
{
return far
}
set %rab #charposy - %posyb
set %rab ABS %rab
if %rab > 15
{
return far
}
return ok
sub recalltovendor
set %dsa #CHARPOSX
set #result N/A
repeat
event macro 15 31
target 26
if #targcurs = 1
{
wait 5
set #LTargetKind 1
set #ltargetid %book . %booki
event macro 22 0
wait 20
gosub changebook
gosub checkforplace
}
until #result = ok
return
Commenta