Dani

ситуация такая... стою возле дома, одето +40 мининга, всё ништяк, прибегает Itaky, киляет само сабой разумеецо, никаких действий небыло произведенно, всё ништяк, полутил там чёта, я ресаюсь, смотрю шапки нет :roll: , ктонить может обяснить, куда делать нюб шапка? я чаром ваще ничё не делал, тупо стоял макрос был выключен, я вообще курил в это время... вот, чё за прекол? мне кажеццо это какаято баговая вещь, ибо я ее купил на вендоре с дюрабом 38, но на ней писалось нюбная, и ненадо орать что я слепой и всё такое...

Скрипт можно юзать как в доме с сундуком где лежат отмычки и пандоры, так и на улице (при этом у вас должны находиться отмычки и пандоры в паке).
Если юзать дома - скупаем много отмычек и скидываем в сундук - где лежат пандоры.
Настройка скрипта:

%Container - Id сундука в котором лежат пандоры и отмычки
%LockPickCount - Цифра - количество отмычек, которое вы будете брать из сундука

Ну вот сопсно и всё

InitEvents

Set %Container UPJNKMD

Set %Box CUD

Set %LockPick NWH

Set %LockPickCount 30



FindBox-Container:

	Set #LObjectId %Container

	If #ContId <> %Container

		{

			Event Macro 17 0

				Wait 10

		}

	FindItem %Box C_ , %Container

		If #FindKind <> -1

			{

				ExEvent Drag #FindId #FindStack

					Wait 10

				ExEvent DropC #BackPackId

					Wait 10

			}

FindBox-BackPack:

	Set %JIndex #JIndex

	FindItem %Box C_ , #BackPackId

		If #FindKind = -1

			{

				GoTo FindBox-Container

			}

		If #FindKind <> -1

			{

				Set %UnTrapTimer #SCnt2 + 60

				Untrap:

					Set #LObjectId #FindId

					Event Macro 17 0

						Wait 10

					While #True

						{

							If #JIndex > %JIndex

								{

									Set %JIndex %JIndex + 1

									ScanJournal %JIndex

									If You_must_unlock_it_at_first. In #Journal || Trapped_succesfully_removed In #Journal

										{

											Set %UntrappedBox #FindId

											GoSub Unlock %UntrappedBox

											GoTo FindBox-BackPack

										}

									If You_fail_to_untrap_Pandora_Box In #Journal

										{

											GoTo Untrap

										}

								}

							If #SCnt2 => %UnTrapTimer || You_destroy_Pandora_Box! In #Journal

								{

									GoTo FindBox-BackPack

								}

						}

				}



Sub Unlock

	FindLockPick:

		Set #LObjectId %Container

		If #ContId <> %Container

			{

				Event Macro 17 0

					Wait 10

			}

		FindItem %LockPick C_ , #BackPackId

			If #FindKind = -1

				{

					FindItem %LockPick C_ , %Container

						If #FindKind <> -1

							{

								ExEvent Drag #FindId %LockPickCount

									Wait 10

								ExEvent DragC #BackPackId

									Wait 10

								GoTo FindLockPick

							}

						If #FindKind = -1

							{

								Display Ok Закончились отмычки, макрос поставлен на ПАУЗУ!!!

								If #DispRes = Ok

									{

										Pause

										GoTo FindLockPick

									}

							}

				}

		Set %JIndex #JIndex

		Set #LObjectId #FindId

		Set #LTargetId %1

		Set #LTargetKind 1

		Event Macro 17 0

			Target 1s

		If #TargCurs <> 1

			{

				GoTo FindLockPick

			}

		Event Macro 22 0

		While #True

			{

				If #JIndex > %JIndex

					{

						Set %JIndex %JIndex + 1

						ScanJournal %JIndex

						If You_fail_to_unlock_box. In #Journal || You_must_wait_to_unlock_next_item! In #Journal

							{

								Wait 10

								GoTo FindLockPick

							}

						If Box_unlocked. In #Journal || It_is_already_unlocked. In #Journal

							{

								Wait 10

								GoTo Unlocked

							}

					}

			}

	Unlocked:

	Set #LObjectId %1

	Event Macro 17 0

		Wait 10

	If #Weight > #MaxWeight

		{

			Display Ok Разгрузите чара!!! Скрипт на ПАУЗЕ!!!

			If #DispRes = Ok

				{

					Pause

				}

		}

Return

Кстате, скрипт лучше копировать в русской раскладке, чтоб оповещения были видны кириллицей а не албаницей

Если есть предложения/баги - пишите - рассмотрим

собсно сабж, ник игрока Ative, если еще играеш стукни в аську или пм
TC!!!

Дело в том, что бегая по миру, а точнее в районе гор, где вход в Шэйм, я наткнулся на километры забора (iron fense), так как я нуб, думаю возьму ка я пару штучек, и увлекся так, что собрал весь забор, пришел в банк, а забор та не хочет из пака вылазить, и при киле не исчезает... почините этот прекол плыз! Уник чара 0bc8f3
забор был взят с земли, двойным кликом, домов небыло внутри забора, и ненада арать что я багер

2 дня орал на пагу, 0 эмоций...