БОМБЫ!

www.i.ru · Post by **www.i.ru** » 2008-02-16 16:21:44

Простите что вылкадую тут скрипт на изи уо! Но просто есть скрипт кидает бомбы, но почему то в ся где тут ошибка

и только вы можете мне помочь


;================================== 

set %hotkey 4

set %msg


set %wait1 1


set %wait2 2

set %lpc 100

;================================== 
initevents

LinesPerCycle %lpc

loop:
gosub findboom
gosub hotkey
gosub boom
gosub setwait
gosub throw
goto loop:

sub findboom
for %a 1 4
	{
	finditem TUF
	set %pot , %a #findid
	ignoreitem #findid
	}
return

sub hotkey
hotkeyloop:
onhotkey %hotkey
	goto startthrow
goto hotkeyloop
startthrow:
targetloop:
set #enemyid #ltargetid
set #ltargetid #enemyid
set %target #ltargetid
return

sub boom
set %charposx #charposx
set %charposy #charposy
for %b 1 4
	{
	wait %wait1
	set #lobjectid %pot . %b
	event macro 17
	target
	key esc
	}
return

sub setwait
set #enemyid #ltargetid
set #ltargetid #enemyid
set %laststatus #ltargetid
finditem %laststatus
set #enemyid #ltargetid
set #ltargetid #enemyid
set %target #ltargetid
if #finddist > 9
	{
	set %wait3 %wait2 - 2
	goto setwait
	}
if #finddist > 7
	set %wait3 %wait2 - 1
setwait:
set %movewait %wait3 - 4
return

sub throw
if #charposx <> %charposx || #charposy <> %charposy
	wait %movewait
else
	wait %wait3	
for %c 1 4
	{
	set #lobjectid %pot . %c
	event macro 17
	set #enemyid #ltargetid
  set #ltargetid #enemyid
  set %target #ltargetid
	finditem %target
	set #enemyid #ltargetid
  set #ltargetid #enemyid
  set %target #ltargetid
	;if #finddist > 12
	;	gosub findnewtarget
	target
	event macro 22
	wait %wait1
	set #enemyid #ltargetid
  set #ltargetid #enemyid
  set %target #ltargetid
	}
return

Code: Select all

А вот и тэги :) aka I'm

Edred · Post by **Edred** » 2008-02-16 17:55:35

Во-первых, код засунь в теги code. Иначе даже смотреть не хочется.

www.i.ru wrote:но почему то в ся где тут ошибка

Долго думал, но так и не понял что в этой фразе написано. Телепаты в отпуске. Что за ошибка и где. Изя все говорит, вот и ты напиши.

www.i.ru · Post by **www.i.ru** » 2008-02-16 18:34:45

Скрипт заключается в том что бросает Explotion в противника, но скрипт не работает!!! Он зажигает банки, но они не летят в противника и взрываются на мне! А мне нужно чтобы они летели в противника! вот так

Edred · Post by **Edred** » 2008-02-17 00:30:02

Отлично. Теперь все объяснил. Осталась малость - выполнить правила форума и запостить скрипт в тегах code.

Grin · Post by **Grin** » 2008-02-17 00:37:15

и выровнять;)

Edred · Post by **Edred** » 2008-02-17 01:09:03

Там есть отступы. Именно поэтому и требую в теги заключить - скрипт сразу станет читабельным. Увидеть, что там есть отступы можно выбрав вариант ответа с цитированием...

www.i.ru · Post by **www.i.ru** » 2008-02-17 13:03:28

Code: Select all


;================================== 

set %hotkey 4 

set %msg 


set %wait1 1 


set %wait2 2 

set %lpc 100 

;================================== 
initevents 

LinesPerCycle %lpc 

loop: 
gosub findboom 
gosub hotkey 
gosub boom 
gosub setwait 
gosub throw 
goto loop: 

sub findboom 
for %a 1 4 
{ 
finditem TUF 
set %pot , %a #findid 
ignoreitem #findid 
} 
return 

sub hotkey 
hotkeyloop: 
onhotkey %hotkey 
goto startthrow 
goto hotkeyloop 
startthrow: 
targetloop: 
set #enemyid #ltargetid 
set #ltargetid #enemyid 
set %target #ltargetid 
return 

sub boom 
set %charposx #charposx 
set %charposy #charposy 
for %b 1 4 
{ 
wait %wait1 
set #lobjectid %pot . %b 
event macro 17 
target 
key esc 
} 
return 

sub setwait 
set #enemyid #ltargetid 
set #ltargetid #enemyid 
set %laststatus #ltargetid 
finditem %laststatus 
set #enemyid #ltargetid 
set #ltargetid #enemyid 
set %target #ltargetid 
if #finddist > 9 
{ 
set %wait3 %wait2 - 2 
goto setwait 
} 
if #finddist > 7 
set %wait3 %wait2 - 1 
setwait: 
set %movewait %wait3 - 4 
return 

sub throw 
if #charposx <> %charposx || #charposy <> %charposy 
wait %movewait 
else 
wait %wait3 
for %c 1 4 
{ 
set #lobjectid %pot . %c 
event macro 17 
set #enemyid #ltargetid 
set #ltargetid #enemyid 
set %target #ltargetid 
finditem %target 
set #enemyid #ltargetid 
set #ltargetid #enemyid 
set %target #ltargetid 
;if #finddist > 12 
; gosub findnewtarget 
target 
event macro 22 
wait %wait1 
set #enemyid #ltargetid 
set #ltargetid #enemyid 
set %target #ltargetid 
} 
return

www.i.ru · Post by **www.i.ru** » 2008-02-17 13:04:21

Получилось

Grin · Post by **Grin** » 2008-02-17 13:26:49

неа...

www.i.ru · Post by **www.i.ru** » 2008-02-17 13:35:11

А что еще не правильно?

ну пожалуйсто исправте его...

Grin · Post by **Grin** » 2008-02-17 14:01:59

ошибок уйма... сек

Edred · Post by **Edred** » 2008-02-17 14:16:46

В первом посте скрипт без тегов, но с отступами. Это видно при цитировании. В повторном - в тегах, но без отступов. Плохо и так, и так. Поправить твой пост я не могу, я не модератор. Надо зайти в редактирование первого поста и добавить перед скриптом тег [сode], а после скрипта тег [/сode]. Тогда должно получиться нормально.

Grin · Post by **Grin** » 2008-02-17 14:17:31

давай определимся с какого параметра надо брать серийник жертвы? с #enemyid или #ltargetid

Grin · Post by **Grin** » 2008-02-17 14:20:05

Code: Select all

;==================================

set %hotkey 4
set %msg
set %wait1 1
set %wait2 2
set %lpc 100

;==================================
initevents

LinesPerCycle %lpc

loop:
	
		gosub findboom
		gosub hotkey
		gosub boom
		gosub setwait
		gosub throw
		
		goto loop:
		
	sub findboom
	
		for %a 1 4
		{
			finditem TUF
			set %pot.%a #findid
			ignoreitem #findid
		}
		return
		
	sub hotkey
	
hotkeyloop:

		onhotkey %hotkey
			goto startthrow
		goto hotkeyloop
			
startthrow:
targetloop:
			
		set #enemyid #ltargetid
		set #ltargetid #enemyid
		set %target #ltargetid
		return
		
	sub boom
	
		set %charposx #charposx
		set %charposy #charposy
		for %b 1 4
		{
			wait %wait1
			set #lobjectid %pot.%b
			event macro 17
			target
			key esc
		}
		return
		
	sub setwait
	
		set #enemyid #ltargetid
		set #ltargetid #enemyid
		set %laststatus #ltargetid
		
		finditem %laststatus
		
		set #enemyid #ltargetid
		set #ltargetid #enemyid
		set %target #ltargetid
		
		if #finddist > 9
		{
			set %wait3 %wait2 - 2
			goto setwait
		}
		
		if #finddist > 7
			set %wait3 %wait2 - 1

setwait:

		set %movewait %wait3 - 4
		return
		
	sub throw
	
		if #charposx <> %charposx || #charposy <> %charposy
			wait %movewait
		else
			wait %wait3
			
		for %c 1 4
		{
			set #lobjectid %pot . %c
			event macro 17
			
			set #enemyid #ltargetid
			set #ltargetid #enemyid
			set %target #ltargetid
			
			finditem %target
			
			set #enemyid #ltargetid
			set #ltargetid #enemyid
			set %target #ltargetid
			
			;if #finddist > 12
			; gosub findnewtarget
			
			target
			event macro 22
			wait %wait1
			
			set #enemyid #ltargetid
			set #ltargetid #enemyid
			set %target #ltargetid
		}
		return

держи с отступасми, но его весь пере делывать надо...

www.i.ru · Post by **www.i.ru** » 2008-02-17 15:12:37

серийник жертвы #ltargetid

Edred · Post by **Edred** » 2008-02-17 15:18:42

Да все не так уж плохо, единственное что - зачем:

Code: Select all

         set #enemyid #ltargetid 
         set #ltargetid #enemyid

Я не понял. Ну и бомбы чар метать будет в себя, а не в врага, потому как координаты-то свои берутся...

Code: Select all

      set %charposx #charposx 
      set %charposy #charposy

Grin · Post by **Grin** » 2008-02-17 15:21:47

там была проблема с присвоением %pot,%a
должно быть %pot.%a собствено в версии с отступами исправлено.

Edred · Post by **Edred** » 2008-02-17 22:48:41

А, я предыдущие версии просто не смотрел. А через точку - это правильно.

www.i.ru · Post by **www.i.ru** » 2008-02-18 15:56:52

Я не понял то есть все скпрт на 1 странице готов (исправлен)?

Edred · Post by **Edred** » 2008-02-18 15:58:04

А попробовать лень?

Yoko

БОМБЫ!

БОМБЫ!

Re: БОМБЫ!