61 replies to this topic

[Sergio_XL]

Prey sluwaj , estj scp kotorij ne toljko otbegajet no i podbegaet , dlja wara otli4no voobwe bilo bi...

[Gpuxa]

Prey sluwaj , estj scp kotorij ne toljko otbegajet no i podbegaet , dlja wara otli4no voobwe bilo bi...

Есть такой скрипт на вара вот только на инжект! Есди нужен вот скайп gpuxa1991

[Sergio_XL]

a sjuda ne skinewj? a to ja kak to uzhe prinjal failik , i ostalsja bez ni4ego , ni4ego li4nogo , no eto internet :/

[Prey]

Prey sluwaj , estj scp kotorij ne toljko otbegajet no i podbegaet , dlja wara otli4no voobwe bilo bi...

Атака мобов, по нажатию кнопки.

Set %Pathfind #True; Budet bezhatj za mobom posle ataki poka ne ubjet

Set %Key c		; Knopka Ataki i ona zhe otmena esli Pathfind True

Set %Distance 10; Do kakogo rastojanija budet iskatj mobov





set %mob DF_SD_JD_AD_SE_FD_ED; stavim type mobov, kotorih budem atakovatj



start:

set %d 0

loop:

onhotkey %Key

gosub find

goto loop



sub find

msg $

repeat

{

set %d %d + 1

finditem %mob G_ , %d

if #findcnt >= 1

{

set %mobik #findid

gosub kill

}

}

until %d > %distance

set %d 0

return



sub kill

set #ltargetid %mobik

event macro 27 0

if %Pathfind

{

repeat

{

finditem %mobik

event pathfind #findx #findy #findz

onhotkey %Key

goto start

}

until #findcnt = 0

}

set %d 0

goto loop

Если pathfind true то подбегает и атакует. и ид мобов вписать твоих надо.

[Sergio_XL]

Атака мобов, по нажатию кнопки.

Set %Pathfind #True; Budet bezhatj za mobom posle ataki poka ne ubjet

Set %Key c	; Knopka Ataki i ona zhe otmena esli Pathfind True

Set %Distance 10; Do kakogo rastojanija budet iskatj mobov





set %mob DF_SD_JD_AD_SE_FD_ED; stavim type mobov, kotorih budem atakovatj



start:

set %d 0

loop:

onhotkey %Key

gosub find

goto loop



sub find

msg $

repeat

{

set %d %d + 1

finditem %mob G_ , %d

if #findcnt >= 1

{

set %mobik #findid

gosub kill

}

}

until %d > %distance

set %d 0

return



sub kill

set #ltargetid %mobik

event macro 27 0

if %Pathfind

{

repeat

{

finditem %mobik

event pathfind #findx #findy #findz

onhotkey %Key

goto start

}

until #findcnt = 0

}

set %d 0

goto loop

Если pathfind true то подбегает и атакует. и ид мобов вписать твоих надо.

eto vsjo ja ponjal toljko on dolzhen 4tobi ne pritik stojatj k mobu a otbegatj podbegatj , 4tobi mob ne tak mnogo bil

[Sergio_XL]

ni4em ne pomo4? :/

[sergylka]

Атака Ближнего плайера.
С проверкой на Фракцию.
Магам этот скрипт тоже ставит таргет.

;-----------------------Settings--------------------------------

Set %Hotkey s; Knopka pri nazhatii kotoroj budet ataka

Set %Distance 10;Distancija na kotoroj budet iskatsa protivnik.

Set %Friends ####_####_####;Stavim id playerov kotorih ne hotim atakavatj.

Set %Order #False;False ne bduet atakovatj frakciju

Set %Chaos #True; True budet atakфvatj frakciju

Set %Criminal #True



;---------------------------------------------------------------







Start:

If %Order

Set %Or 1

If %Chaos

Set %Ch 6

If %Criminal

Set %Cr 4

Set %d 0

Ignoreitem %Friends

Ignoreitem #Charid

Set %Player IS_HS



Loop:

Onhotkey %Hotkey

Gosub find

Goto loop



Sub find

Msg $

Repeat

{

Set %d %d + 1

Finditem %Player G_ , %d

If #Findcnt = 1

{

If #Findrep = %Or || #Findrep = %Ch || #Findrep = %Cr

Set %Enemy #Findid

Gosub Kill

}

}

Until %d => %Distance

Set %d 0

Return



Sub Kill

Set #Ltargetid %Enemy

Event macro 27 0

Set %d 0

Goto Loop

Return

почему-то неработает скрипт неставит магу вообще таргетов, всё поменял как надо, атаковать нужную фракцию. Подскажите в чём может быть дело? И можно ли ставить хоткей F5 например

[Buuren]

Атака мобов, по нажатию кнопки.

Set %Pathfind #True; Budet bezhatj za mobom posle ataki poka ne ubjet

Set %Key c		; Knopka Ataki i ona zhe otmena esli Pathfind True

Set %Distance 10; Do kakogo rastojanija budet iskatj mobov





set %mob DF_SD_JD_AD_SE_FD_ED; stavim type mobov, kotorih budem atakovatj



start:

set %d 0

loop:

onhotkey %Key

gosub find

goto loop



sub find

msg $

repeat

{

set %d %d + 1

finditem %mob G_ , %d

if #findcnt >= 1

{

set %mobik #findid

gosub kill

}

}

until %d > %distance

set %d 0

return



sub kill

set #ltargetid %mobik

event macro 27 0

if %Pathfind

{

repeat

{

finditem %mobik

event pathfind #findx #findy #findz

onhotkey %Key

goto start

}

until #findcnt = 0

}

set %d 0

goto loop

a vrodi vse zdelal norm nazhimaju knopku lovit bota nu nebezhit na nevo nepodskazhesh v chem problemka ?

[keidzhii]

a vrodi vse zdelal norm nazhimaju knopku lovit bota nu nebezhit na nevo nepodskazhesh v chem problemka ?

ne peresmotrel kod, no vozmozhno tip ne tot postavljen ?

[Buuren]

ne peresmotrel kod, no vozmozhno tip ne tot postavljen ?

da vrodi tip praveljna on evo atakuet nu nebezhit na nevo ja k botu podhazu on bjot evo no nebegaet za nim
vchem problemka ?

[Prey]

Поставь пробел перед всеми ;
а то на форуме он убирает пробелы!
+ обновил скриптик, а то отмена не работала.

[Fonarj]

Атака Ближнего плайера.
С проверкой на Фракцию.
Магам этот скрипт тоже ставит таргет.

;-----------------------Settings--------------------------------

Set %Hotkey s; Knopka pri nazhatii kotoroj budet ataka

Set %Distance 10;Distancija na kotoroj budet iskatsa protivnik.

Set %Friends ####_####_####;Stavim id playerov kotorih ne hotim atakavatj.

Set %Order #True;False ne bduet atakovatj frakciju

Set %Chaos #False; True budet atakфvatj frakciju

Set %Criminal #False



;---------------------------------------------------------------







Start:

If %Order

Set %Or 1

If %Chaos

Set %Ch 6

If %Criminal

Set %Cr 4

Ignoreitem %Friends

Ignoreitem #Charid

Set %Player IS_HS



Loop:

Onhotkey %Hotkey

Gosub find

Goto loop



Sub find

ataka:

Msg $

set %d 0

Repeat

{

Set %d %d + 1

Finditem %Player G_ , %d

If #Findcnt <> 0

{

If #Findrep = %Or || #Findrep = %Ch || #Findrep = %Cr

{

Set %Enemy #Findid

Gosub Kill

}

}

}

Until %d => %Distance

Set %d 0

Return



Sub Kill

Set #Ltargetid %Enemy

Event macro 27 0

Set %d 0

Goto Loop

Return

Как запустить етот скрипт ! вроде ставлю Ордер труе, Чаос фалсе (играю за чаос) криминал фалсе, ид друзей нетрогал, и кнопку поставил "S" но при нажатии на S нечего нставится, неатакуется ! На етой клавише некакого макроса нет ! В чем проблема подскажите плзз

[nerac]

Как запустить етот скрипт ! вроде ставлю Ордер труе, Чаос фалсе (играю за чаос) криминал фалсе, ид друзей нетрогал, и кнопку поставил "S" но при нажатии на S нечего нставится, неатакуется ! На етой клавише некакого макроса нет ! В чем проблема подскажите плзз

Скрипт сначала запусти а потом тыркай S
+ поставь пробелы между установками и ; иначе не будет работать

[Fonarj]

Всмысле так пробелы ставить ? я походу ваше дуб

;-----------------------Settings--------------------------------

Set %Hotkey s; Knopka pri nazhatii kotoroj budet ataka

Set %Distance 10;Distancija na kotoroj budet iskatsa protivnik.

Set %Friends ####_####_####;Stavim id playerov kotorih ne hotim atakavatj.

Set %Order #True;False ne bduet atakovatj frakciju

Set %Chaos #False; True budet atakфvatj frakciju

Set %Criminal #False

;---------------------------------------------------------------

[Fonarj]

а всё понял ! спс большое :]

[nerac]

а всё понял ! спс большое :]

Не за что %)

[Prey]

CTF атака игроков с противоположной команды.

;-----------------------Settings--------------------------------

Set %Hotkey insert; Knopka pri nazhatii kotoroj budet ataka

Set %Distance 10;Distancija na kotoroj budet iskatsa protivnik.

Set %Friends ####_####_####;Stavim id playerov kotorih ne hotim atakavatj.

Set %Order #True;Ne budet atakovatj etu frakciju

Set %Chaos #False; False budet atakovatj

Set %Criminal #False

Set %EnemyGuild #True

;---------------------------------------------------------------



set #LPc 10000



Start:

If %Order

Set %Or 1

If %Chaos

Set %Ch 6

If %Criminal

Set %Cr 4

If %EnemyGuild

Set %Eg 5

Ignoreitem %Friends

Ignoreitem #Charid

Set %Player IS_HS



Loop:

Onhotkey %Hotkey

Gosub find

Goto loop



Sub find

ataka:

Msg $

set %d 0

Repeat

{

Set %d %d + 1

Finditem %Player G_ , %d

If #Findcnt <> 0

{

If #Findrep = %Or || #Findrep = %Ch || #Findrep = %Cr || #Findrep = %Eg

{

ignoreitem #findid 1

goto ataka

}

If #findid <> %Enemy

{

ignoreitem reset

gosub ignore

set %Enemy #Findid

Set %Double #False

gosub kill

}

If #findid = %Enemy

{

ignoreitem #findid 3

If %double

gosub kill

Set %Double #True

goto ataka

}

}

}

Until %d => %Distance

ignoreitem reset

gosub ignore

gosub kill

Set %d 0

Return



Sub Kill

Set #Ltargetid %Enemy

Event macro 27 0

Set %d 0

wait 10

Goto Loop

Return



sub ignore

ignoreitem #Charid 2

ignoreitem %Friends 2

return

[Djukok]

Kak najti ID moba?>

[Prey]

Kak najti ID moba?>

самый первый скрипт используй

[Prey]

Атакуем мобы, запускаем скрипт, и он максимально быстро кастует ФС в моба пока тот не сдохнит или не нажмете кнопку отмены.

Set %Hotkey F1



Loop:

OnHotkey %Hotkey

{

Wait 5

set #sysmsgcol 64

Event Sysmessage Cast Started

msg $

Gosub Casting

}

Goto loop



Sub Casting

set #LTargetkind 1

Set %TimeCheck #True

Spelling:

Finditem #enemyid G_ , 16

if #findcnt = 0

return

If #findcnt <> 0

Set #Ltargetid #enemyid

repeat

{

OnHotkey %Hotkey

{

set #sysmsgcol 64

Event Sysmessage Cast Stopped

wait 15

goto loop

}

Finditem #enemyid G_ , 16

if #findcnt = 0

return

if #mana < 41

wait 1

}

until #mana > 41

repeat

{

event macro 15 50

target 1s

if World_save in #sysmsg

wait 10s

If This_is_beyond_your_ability in #sysmsg

stop

if You_lack_sufficient_mana_for_this_spell in #sysmsg

goto Spelling

if You_lack_Sulfurous in #sysmsg

{

pause

goto Loop

}

}

until #Targcurs = 1

targett:

event macro 22 0

if Target_is_not_in_line in #sysmsg

{

deletejournal

return

}

if You_can't_see_the_target in #sysmsg

{

deletejournal

return

}

Set %Mana #mana

gosub scan

goto spelling

return



sub scan

if %TimeCheck

{

set %time #scnt2

Set %spelltime #scnt2 + 60

goto ED

}

set %spelltime #scnt2 + %casttime

ED:

Scan:

deletejournal

set %CastJIndex #jindex

repeat

{

if #jindex > %CastJIndex

set %CastJIndex 1 + %CastJIndex

scanJournal %CastJIndex

if The_spell_fizzles in #journal && #mana < %mana

return

if The_spell_fizzles in #journal && #mana >= %mana

return

if #mana < %mana && You_see:_- in #journal || Your_total_damage in #sysmsg

{

if %TimeCheck

gosub Time

return

}

if You_are_hungry in #sysmsg

return

If You_gained in #sysmsg

goto loop

OnHotkey %Hotkey

{

set #sysmsgcol 64

Event Sysmessage Cast Stopped

wait 15

goto loop

}

if World_save in #sysmsg

wait 10s

}

until %spelltime <= #scnt2

return



sub time

set %casttime #scnt2 - %time + 2

set #sysmsgcol 32

event sysmessage Casttime = %casttime Ms

set %TimeCheck #false

set %spelltime #scnt2 + %casttime

return