Post Reply 
 
Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
автоодевание оружия
Author Message
drenod Offline
Porta
*

Posts: 43
Joined: Feb 2013
Reputation: 0
Version: 1.4.1.99
Post: #1
автоодевание оружия

При дизарме глада берса есть скрипт чтоб пуха сама одевалась ?
10-26-2014 23:15 PM
Find all posts by this user Quote this message in a reply
sarbonas Offline
Goblin Grave Robber
*

Posts: 17
Joined: Feb 2013
Reputation: 1
Version: 1.4.1.112
Post: #2
RE: автоодевание оружия

Pvpsuite
10-26-2014 23:20 PM
Find all posts by this user Quote this message in a reply
drenod Offline
Porta
*

Posts: 43
Joined: Feb 2013
Reputation: 0
Version: 1.4.1.99
Post: #3
RE: автоодевание оружия

Почемуто не срабатывает пуха снимается но не одевается=(
10-27-2014 13:21 PM
Find all posts by this user Quote this message in a reply
TheQQmaster Offline
Trolling the Trolls
*****

Posts: 1,532
Joined: Jun 2012
Reputation: 635
Version: 1.4.2.133
Post: #4
RE: автоодевание оружия

    LUA Programming
weapid = 1;
objid = 1;
Disarmlist = {794,485,877,5260};
 
 
function GetWeaponId()
	invList = GetInventory();
	for item in invList.list do
		if item.ItemType == 0 and item.IsEquipped then
			objid= item.objectId ;
			weapid= item.displayId ;
		end;
	end;
end;
 
 
function IsEquipped()
	item = GetInventory():FindById(objid);
	if item ~= nil then
		if item.IsEquipped then
			return true;
		else
			return false;
		end;
	else
		weapid = 1;
		objid = 1;
		return true;
	end;
end;
 
 
function checkDisarm()
	local me=GetMe();
	for k,w in pairs(Disarmlist) do
		if me:GotBuff(w) == true then
			return w; 
		end;
	end;
	return 1;
end;
 
 
 
 
repeat
	GetWeaponId();
	if weapid ~=1 and objid ~= 1 then
		if IsEquipped() == false then
			if GetMe():GotBuff(checkDisarm()) then
				Sleep(GetMe():GetBuff(checkDisarm()).endTime - GetTime() + 250);
				if UseItem(weapid,objid)==false then
					weapid = 1;
					objid = 1;
				end;
			else
				if UseItem(weapid,objid)==false then
					weapid = 1;
					objid = 1;
				end;
			end;
			Sleep(1500);
		end;
	end;
Sleep(200);
until false


PUSH [Image: knUu53] IF HELPED
10-27-2014 15:36 PM
Visit this user's website Find all posts by this user Quote this message in a reply
Post Reply 


Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  скрипт на автоточку оружия линдвиор drenod 0 1,749 09-02-2013 00:03 AM
Last Post: drenod



User(s) browsing this thread: 1 Guest(s)