Topic Hướng Dẫn Viết Script + Fix Lỗi cho Gamer

[hoivegame]

 function denbopld()
	--w,x,y = GetWorldPos() de cho nay se ko biet map nao neu dung timer de chay function nay
	 for u=1,GetPlayerCount() do
		 PlayerIndex = u
		 w,x,y = GetWorldPos() ---fix cho nay vi no se lay vi tri map, toa x, toa y cua tung nhan vat qua for loop 
		 if w == 45 then
			 NewWorld(53, 200*8, 200*16);
			 SetFightState(0)
			 Msg2SubWorld("Các hạ về ba lăng huyện")
		 end
 	end
 end

của bạn đấy

[rongdatbg]

bác fix giúp em lỗi không hiện skill không? khi mới vô nó không hiện skill đánh thường, khi mả bảng skill lên thì bị lỗi game--> treo game không thể làm gì ngoài thoát ra ^^

[NotIAm]

-- Author: ATNTem
-- Date: 21/01/13
-- Npc Ho tro tan thu
Include("\\script\\global\\sourceatn.lua")
Include("\\script\\global\\tasklist.lua")
Include("\\script\\global\\npc\\faction\\main_fact ion.lua")

function main()
-- dofile("script/global/npc/npc_support.lua")
hotro()
end

function hotro()
local TAB_SUPPORT = {
--"T×m hiÓu trß ch¬i./SoNhapGame",
"NhËn hç trî cÊp ®é (50 cÊp)/hotroexp",
"NhËn th­ëng th¨ng cÊp/nhanthuong",
"NhËn kü n¨ng 9x./NhanSkill9x",
"NhËn LÖnh bµi Minh Chñ LÖnh./HoTroTT",
"V©ng! C¹n chÐn./no",
}
local nCost = GetCash()
if(GetLevel() < 160) then
SayImg(10002, 2, 0, TAB_SUPPORT[1], TAB_SUPPORT[2], TAB_SUPPORT[3], TAB_SUPPORT[4], TAB_SUPPORT[5])
--elseif (GetLevel() > 80) and (GetTask(T_NhanSkill) == 0) then
SayImg(10002, 2, 0, TAB_SUPPORT[6], TAB_SUPPORT[5])
else
Msg2Player("<color=green>B¹n ®· trë thµnh cao thñ kh«ng cÇn trî gióp cña ta n÷a.")
end
end
function NhanSkill9x()
SetTask(T_NhanSkill,1)
skill_90()
end
function SoNhapGame()
Talk(8,"no", 10009, 10010, 10011, 10012, 10013, 10014, 10015, 10016)
end
function nhanthuong()
SayEx({"Xin chµo <color=wood>"..GetName().."<color>!",
"NhËn th­ëng Level 10/cap10",
"NhËn th­ëng Level 20/cap20",
"NhËn th­ëng Level 30/cap30",
"NhËn th­ëng Level 40/cap40",
"NhËn th­ëng Level 50/cap50",
"NhËn th­ëng Level 120/cap60",
"NhËn th­ëng Level 130/cap130",
"NhËn th­ëng Level 140/cap140",
"NhËn th­ëng Level 150/cap150",
"KÕt thóc ®æi tho¹i/no"})
end
function HoTroTT()
AddEventItem(120)
Msg2Player("B¹n nhËn ®­îc <color=green>1 LÖnh bµi hæ trî t©n thñ.")
end

function cap10()
if(GetLevel() >= 10) then
if(GetTask(T_HoTro) < 11) then
local x = random(0,4)
SetTask(T_HoTro, 11)
Earn(50000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 10.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 10 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 10.")
end
end

function cap20()
if(GetLevel() >= 20) then
if(GetTask(T_HoTro) < 21) then
local x = random(0,4)
SetTask(T_HoTro, 21)
Earn(100000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 20.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 20 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 20.")
end
end

function cap30()
if(GetLevel() >= 30) then
if(GetTask(T_HoTro) < 31) then
local x = random(0,4)
SetTask(T_HoTro, 31)
AddItem(0, 10, x, 4, 1, 0, 5)
AddEventItem(34)
Earn(150000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 30.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 30 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 30.")
end
end

function cap40()
if(GetLevel() >= 40) then
if(GetTask(T_HoTro) < 41) then
local x = random(0,4)
SetTask(T_HoTro, 41)
AddItem(0, 10, x, 5, 1, 0, 5)
AddEventItem(34)
AddEventItem(34)
Earn(200000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 40.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 40 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 40.")
end
end

function cap50()
if(GetLevel() >= 50) then
if(GetTask(T_HoTro) < 51) then
local x = random(0,4)
SetTask(T_HoTro, 51)
AddItem(0, 10, x, 6, 1, 0, 5)
AddGoldItem (1)
AddGoldItem (2)
AddGoldItem (3)
AddGoldItem (4)
AddGoldItem (5)
AddGoldItem (6)
AddGoldItem (7)
AddGoldItem (8)
AddGoldItem (9)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
Earn(250000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 50.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 50 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 50.")
end
end

function cap60()
if(GetLevel() >= 60) then
if(GetTask(T_HoTro) < 61) then
local x = random(0,4)
SetTask(T_HoTro, 61)
AddItem(0, 10, x, 7, 1, 0, 5)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
Earn(300000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 60.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 60 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 60.")
end
end

function cap130()
if(GetLevel() >= 130) then
if(GetTask(T_HoTro) < 131) then
local x = random(0,4)
SetTask(T_HoTro, 131)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
Earn(2000000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 130.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 130 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 130.")
end
end

function cap140()
if(GetLevel() >= 140) then
if(GetTask(T_HoTro) < 141) then
local x = random(0,4)
SetTask(T_HoTro, 141)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(33)
AddEventItem(33)
AddEventItem(33)
AddEventItem(33)
AddEventItem(33)
AddEventItem(8)
AddEventItem(8)
AddEventItem(8)
AddEventItem(8)
AddEventItem(8)
Earn(5000000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 140.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 140 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 140.")
end
end

function cap150()
if(GetLevel() >= 150) then
if(GetTask(T_HoTro) < 151) then
local x = random(0,4)
SetTask(T_HoTro, 151)
AddEventItem(0)
AddEventItem(1)
AddEventItem(14)
AddEventItem(15)
AddEventItem(16)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(11)
AddEventItem(11)
AddEventItem(11)
AddEventItem(11)
AddEventItem(11)
AddEventItem(36)
AddEventItem(36)
AddEventItem(36)
AddEventItem(36)
AddEventItem(36)
AddEventItem(39)
AddEventItem(40)
Earn(10000000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 150 .")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 150 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 150.")
end
end


function hotroexp()
if(GetLevel() >= 1) then
while GetLevel() < 100 do AddOwnExp(9999999) end
if(GetTask(T_HoTro) < 151) then
local x = random(0,4)
SetTask(T_HoTro, 151)
AddItem(0, 10, x, 10, 1, 0, 5)
AddGoldItem(1)
AddGoldItem(2)
AddGoldItem(3)
AddGoldItem(4)
AddGoldItem(5)
AddGoldItem(6)
AddGoldItem(7)
AddGoldItem(8)
AddGoldItem(9)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
Earn(10000)
Msg2Player("B¹n nhËn ®­îc hç trî lªn level<color=green> 120.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "B¹n ®· nhËn phÇn th­ëng lvl 120 råi mµ.")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 120.")
end
end

Đây là Scrip Của NPC hỗ trợ
Ai giúp em viết thêm scrip nhận đồ xanh + tiền vạn với ạ

[calms1001]

bạn ơi!!! bạn có thể giúp mình viết script ngôi sao hạnh phúc giống của võ lầm miễn phí được không, mình cám ơn bạn!!!

[rioranso]

♫ sao không có bác nào tạo topic fix lỗi bug sever nhờ

[hoivegame]

Vậy bạn đã chuyển sinh bao nhiêu?

[f-fantasy]

Em viết script để nhận thưởng vòng sáng chuyển sinh
thế *éo nào nó báo là e ko có số lần chuyển sinh để nhận thưởng mặc dù account e hiện đang là cs 6 nhưng nó vẫn báo là 0 lần cs ai giúp e đc k

function vscs()
if GetTask(T_ChuyenSinh1) >= 6 and GetTask(T_ChuyenSinh1) < 7 then
if HaveMagic(319) <= 0 then
AddMagic(319,50)
DelMagic(323)
DelMagic(325)
DelMagic(327)
DelMagic(328)
DelMagic(329)
DelMagic(330)
DelMagic(331)
DelMagic(332)
DelMagic(338)
DelMagic(339)
DelMagic(340)
DelMagic(343)
DelMagic(352)
DelMagic(353)
DelMagic(354)
DelMagic(356)
DelMagic(357)
DelMagic(358)
DelMagic(359)
DelMagic(360)
DelMagic(369)
DelMagic(370)
DelMagic(371)
DelMagic(318)
DelMagic(320)
DelMagic(321)
DelMagic(322)
DelMagic(324)
DelMagic(337)
DelMagic(344)
DelMagic(345)
DelMagic(346)
DelMagic(347)
DelMagic(348)
DelMagic(349)
DelMagic(350)
DelMagic(361)
DelMagic(362)
DelMagic(363)
DelMagic(366)
DelMagic(367)
DelMagic(368)
DelMagic(372)
DelMagic(373)
DelMagic(374)
DelMagic(376)
DelMagic(326)
DelMagic(316)
DelMagic(314)
DelMagic(315)
DelMagic(317)
DelMagic(333)
DelMagic(334)
DelMagic(335)
DelMagic(351)
DelMagic(336)
Msg2Player("Bạn Nhận Được Vòng Sáng Cs")
KickOutSelf()
else
Talk(1,"addrank","Ngươi Đã Nhận <color=fire>Vòng Sáng<color> không thể nhận nữa")
end
else
Msg2Player("Số lần Cs của bạn là : "..GetTask(T_ChuyenSinh1).." không đủ nhận thưởng")
end
end

Sao không để if GetTask(T_ChuyenSinh1) == 6 luôn lại còn phải >=6 và <7
T_ChuyenSinh bạn đã khai báo chưa?

[cuongvh93]

Mình có 1 đoạn scripts up lên lv 80. Nhưng mình muốn 1gmer chỉ nhận được 1 lần thôi thì sao vậy các bác? tại em mới gia nhập nên còn gà.

function level_up_to80()
	local nCurLevel = GetLevel()
	if nCurLevel >= 80 then
		if ST_IsTransLife() == 1 then
			Talk(1, "", "Ng­¬i ®· ®¹t cÊp 80 råi.")
		else
			Talk(1, "", "Ng­¬i ®· v­ît qu¸ cÊp ®é cho phÐp råi.")
		end
		return
	end
	local nAddLevel = 80 - nCurLevel
	ST_LevelUp(nAddLevel)
end

[cuongvh93]

Mình có 1 đoạn scripts up lên lv 80. Nhưng mình muốn 1gmer chỉ nhận được 1 lần thôi thì sao vậy các bác? tại em mới gia nhập nên còn gà.

function level_up_to80()
	local nCurLevel = GetLevel()
	if nCurLevel >= 80 then
		if ST_IsTransLife() == 1 then
			Talk(1, "", "Ng­¬i ®· ®¹t cÊp 80 råi.")
		else
			Talk(1, "", "Ng­¬i ®· v­ît qu¸ cÊp ®é cho phÐp råi.")
		end
		return
	end
	local nAddLevel = 80 - nCurLevel
	ST_LevelUp(nAddLevel)
end

Mình làm được rồi. 30 charrrrrrrrrrrrrrrrrrrrrr

[gamevn500]

e moi tap dev sv . may a co ai ranh thj giup e ti. co hau ta . 0962172913 hoac FB [Only registered and activated users can see links. ]