PDA

View Full Version : Scripts đổi màu pk



kakadk
26-06-10, 10:39 PM
Các bác ngó hộ em cái scripts này với. E add vào NPC A Phương nhưng vào game click vào nó ko hiện ra gì. Ko biết thiếu cái gì. Các bác giúp em với.

Include("\\Script\\global\\sourcejx49.lua");


MONEYTOCOLOR = 100000

MONEYTOCLEANPK = 500000

function doimau()
SayEx({"<color="..colorS()..">A Phuong<color>: Nguoi muon thay doi nhu the nao ?",
"Mau Luyen Cong./mc",
"Chinh Phai./mc",
"Ta Phai./mc",
"Trung Lap./mc",
"Sat Thu./mc",
"GM./mc",
--"Phuc hoi lai trang thai./ph",

"Tro ve./main",
"Thoat./Exit"})
end;

function mc(nsel)
if GetCash() >= MONEYTOCOLOR then
SetCamp(nsel)
SetCurCamp(nsel)
Pay(MONEYTOCOLOR)
MsgEx("Trang thai cua nhan vat da thay doi...")
elseif GetCash() < MONEYTOCOLOR then
MsgEx("Ban khong co "..MONEYTOCOLOR.." luong de thuc hien.")
end
end;

function ruapk()
if GetPK() == 0 then
MsgEx("Ban khong co diem PK nen khong the rua...")
elseif GetPK() >= 1 then
a = GetPK()
tocash = a*MONEYTOCLEANPK
if GetCash() >= tocash then
SetPK(0)
Pay(tocash)
else
MsgEx("De rua diem PK ban can co "..tocash.." ngan luong...")
end
end
end;

thaihoa91
26-06-10, 10:49 PM
Xem đã có file .lua này theo đường dẫn chưa ???

\Script\global\sourcejx49.lua

Čħīċķėň
26-06-10, 10:58 PM
mc(nsel)

nsel là giá trị set màu pk nên bắc buộc phải nhập nsel

Tôi có thể chỉnh lại là :

Include("\\Script\\global\\sourcejx49.lua");


MONEYTOCOLOR = 100000

MONEYTOCLEANPK = 500000

function doimau()
SayEx({"<color="..colorS()..">A Phuong<color>: Nguoi muon thay doi nhu the nao ?",
"Mau Luyen Cong./mc1",
"Chinh Phai./mc2",
"Ta Phai./mc3",
"Trung Lap./mc4",
"Sat Thu./mc5",
"GM./mc6",
--"Phuc hoi lai trang thai./ph",

"Tro ve./main",
"Thoat./Exit"})
end;
function mc1()
mc(1) ---vd
end;
function mc2()
mc(2) ---vd
end;
function mc3()
mc(3) ---vd
end;
function mc4()
mc(4) ---vd
end;
function mc5()
mc(5) ---vd
end;
function mc6()
mc(6) ---vd
end;
function mc(nsel)
if GetCash() >= MONEYTOCOLOR then
SetCamp(nsel)
SetCurCamp(nsel)
Pay(MONEYTOCOLOR)
MsgEx("Trang thai cua nhan vat da thay doi...")
elseif GetCash() < MONEYTOCOLOR then
MsgEx("Ban khong co "..MONEYTOCOLOR.." luong de thuc hien.")
end
end;

function ruapk()
if GetPK() == 0 then
MsgEx("Ban khong co diem PK nen khong the rua...")
elseif GetPK() >= 1 then
a = GetPK()
tocash = a*MONEYTOCLEANPK
if GetCash() >= tocash then
SetPK(0)
Pay(tocash)
else
MsgEx("De rua diem PK ban can co "..tocash.." ngan luong...")
end
end
end;

Mr.Rezo™
26-06-10, 11:01 PM
các Professional lại có dấu hiệu bất thường rồi :">

Chủ Topic chép script này vào nhé :



Include("\\Script\\global\\sourcejx49.lua");


MONEYTOCOLOR = 100000

MONEYTOCLEANPK = 500000

function main()
SayEx({"<color="..colorS()..">A Phuong<color>: Nguoi muon thay doi nhu the nao ?",
"Mau Luyen Cong./mc",
"Chinh Phai./mc",
"Ta Phai./mc",
"Trung Lap./mc",
"Sat Thu./mc",
"GM./mc",
--"Phuc hoi lai trang thai./ph",

"Tro ve./main",
"Thoat./Exit"})
end;

function mc(nsel)
if GetCash() >= MONEYTOCOLOR then
SetCamp(nsel)
SetCurCamp(nsel)
Pay(MONEYTOCOLOR)
MsgEx("Trang thai cua nhan vat da thay doi...")
elseif GetCash() < MONEYTOCOLOR then
MsgEx("Ban khong co "..MONEYTOCOLOR.." luong de thuc hien.")
end
end;

function ruapk()
if GetPK() == 0 then
MsgEx("Ban khong co diem PK nen khong the rua...")
elseif GetPK() >= 1 then
a = GetPK()
tocash = a*MONEYTOCLEANPK
if GetCash() >= tocash then
SetPK(0)
Pay(tocash)
else
MsgEx("De rua diem PK ban can co "..tocash.." ngan luong...")
end
end
end;


Lỗi của chủ Topic là ở chỗ



function doimau()


Vì script mặc định luôn phải có cái dòng này


function main()

kakadk
26-06-10, 11:49 PM
Thanks các bác. Em mò mẫm cả buổi chiều nay mãi ko đc. Em vào test thử coi sao :D

zonjkut3
27-06-10, 09:30 AM
thiếu function main() =)) 30charrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

Čħīċķėň
27-06-10, 10:08 AM
Có func man() cũng không hoạt động :|
bởi vì ở trên tui đã nói :

nsel là giá trị set màu pk nên bắc buộc phải nhập nsel

nếu biết kết hợp giữa Mr.Rezo & Chicken thì chắc chắn sẽ hoạt động :|

kakadk
27-06-10, 01:16 PM
Em dùng thử hàm của bác Rezo thì hoạt động tốt rồi các bác ạ. Các bác nói đúng. E bị thiếu function main().
Căn bản là e quên mất nên thiếu dòng này.

function main()
SayEx({"<color="..colorS()..">A Phuong<color>: Nguoi muon ta giup do vai van de nho nho hay khong ?\nPK: "..GetPK().." diem.","Ta muon thay doi thuoc tinh./doimau","Ta muon rua PK./ruapk","Thoat./Exit"})
end;
Cám ơn các bác rất nhiều :-*

notfile
27-06-10, 01:19 PM
khi gán trực tiếp script vào NPC bạn nên nhớ là function main()
còn nếu là function doimau() file này là file con của 1 file khác có đường dẫn đến file này rồi !!

kakadk
27-06-10, 03:36 PM
Đa tạ các bác. Em lơ là nên thiếu mất cái dòng quan trọng nhất. Thanks các bác đã chỉ bảo :D

DirectX
27-06-10, 06:11 PM
mấy cái scripts này dễ mà :)) =))

Từ Vy Linh
27-06-10, 06:14 PM
Sao bác phải cười lăn lộn. Bác chưa làm bao giờ bác có thấy dễ ko ?

Mr.Rezo™
27-06-10, 11:52 PM
@Chicken : thật sự cậu được cái cố chấp và cãi bố láo là không ai hơn..

Script này tôi dùng cho Server Online mà tôi viết sai chắc tôi đóng cửa server nhỉ ;)

@DieJX : bạn này pro.

phien-nhatrang
29-07-10, 05:59 PM
kaka thường thì pro chẳng để ý đến những chổ tầm thường ko đãng sai =)) >pro mới phát hiện.

sangpronhat
30-07-10, 11:38 PM
Các bác ngó hộ em cái scripts này với. E add vào NPC A Phương nhưng vào game click vào nó ko hiện ra gì. Ko biết thiếu cái gì. Các bác giúp em với.

Include("\\Script\\global\\sourcejx49.lua");


MONEYTOCOLOR = 100000

MONEYTOCLEANPK = 500000

function doimau()
SayEx({"<color="..colorS()..">A Phuong<color>: Nguoi muon thay doi nhu the nao ?",
"Mau Luyen Cong./mc",
"Chinh Phai./mc",
"Ta Phai./mc",
"Trung Lap./mc",
"Sat Thu./mc",
"GM./mc",
--"Phuc hoi lai trang thai./ph",

"Tro ve./main",
"Thoat./Exit"})
end;

function mc(nsel)
if GetCash() >= MONEYTOCOLOR then
SetCamp(nsel)
SetCurCamp(nsel)
Pay(MONEYTOCOLOR)
MsgEx("Trang thai cua nhan vat da thay doi...")
elseif GetCash() < MONEYTOCOLOR then
MsgEx("Ban khong co "..MONEYTOCOLOR.." luong de thuc hien.")
end
end;

function ruapk()
if GetPK() == 0 then
MsgEx("Ban khong co diem PK nen khong the rua...")
elseif GetPK() >= 1 then
a = GetPK()
tocash = a*MONEYTOCLEANPK
if GetCash() >= tocash then
SetPK(0)
Pay(tocash)
else
MsgEx("De rua diem PK ban can co "..tocash.." ngan luong...")
end
end
end;

Hì hì vì các hàm được gọi trong Say là không có biến phụ nên nừ ta dùng cách thức nSel có nghĩa là số của dòng chọn ^^

Lưu ý : Qua 1 cái ví dụ ^^

Say("loi thoai",n,"Lựa chọn 1/func","Lựa chọn 2/func","Lựa chọn 3/func",....,"Lựa chọn n/func")

Như vậy thì mỗi lựa chọn ta sẽ gọi 1 hàm func có 1 cái số riêng keke

function func(nSel)
--Chú ý nSel bắt đầu từ 0 trở đi

SetCurCamp(n)

n có thể là 0 1 2 3 4 5 ^^

Choa nin khi sữ dụng nSel ko cần thym cái gì cả ^^

Nhưng mà khi sử dụng mảng thì khác ngaz

Phần tử mảng lại bắt đầu từ phần tử 1 - MAX

Do đó áp dụng nSel để sữ dụng mảng cần có dùng

ViTriMang = nSel + 1


Ông tài ông chic ông hoà ông king ông tùm lum dạo nỳ khoẻ hơm zạ kaka dạo nỳ đi chơi với px ít vào forum chơi :)) =P~=P~

Mr.Phát
30-07-10, 11:42 PM
pác sang có px xyh thế ko đy chơi cả ngày mới lạ ;))

sangpronhat
30-07-10, 11:45 PM
Éo có đi thì tối cug về chớ đi nguyên ngày méc công có của haha :-s

Mr.Phát
30-07-10, 11:49 PM
có của thì tốt nó khỏi chạy ;)) .

sangpronhat
30-07-10, 11:53 PM
:)) Thou đi cha súi bậy con nữa con lương thiện lém ;))

Mr.Phát
31-07-10, 12:00 AM
;)) lương thiện lắm tốt bụng lắm share hết cái kho JX của ông cho AE đi nào =))

sangpronhat
31-07-10, 12:04 AM
Đồ nghề hơm thíu kho nỳ lưu trư cug dc 2 năm mí gòi :)) Up lên chắc đuối chết :|
Tuy lè nó 1 đống mà sài hong dc bao nhiu :)) kaka ;))

Mr.Phát
31-07-10, 12:05 AM
ôg ở đâu ;)) cho tui cầm cái Usb qua chép về ngâm cứu ;))

sangpronhat
31-07-10, 12:11 AM
Ở Vĩnh Long .

Mr.Phát
31-07-10, 12:15 AM
thế thôi xin rút xa gúm ;)) có YH ko ? đọc yk

kinkina2009
01-08-10, 07:13 AM
Hì hì vì các hàm được gọi trong Say là không có biến phụ nên nừ ta dùng cách thức nSel có nghĩa là số của dòng chọn ^^

Lưu ý : Qua 1 cái ví dụ ^^

Say("loi thoai",n,"Lựa chọn 1/func","Lựa chọn 2/func","Lựa chọn 3/func",....,"Lựa chọn n/func")

Như vậy thì mỗi lựa chọn ta sẽ gọi 1 hàm func có 1 cái số riêng keke

function func(nSel)
--Chú ý nSel bắt đầu từ 0 trở đi

SetCurCamp(n)

n có thể là 0 1 2 3 4 5 ^^

Choa nin khi sữ dụng nSel ko cần thym cái gì cả ^^

Nhưng mà khi sử dụng mảng thì khác ngaz

Phần tử mảng lại bắt đầu từ phần tử 1 - MAX

Do đó áp dụng nSel để sữ dụng mảng cần có dùng

ViTriMang = nSel + 1


Ông tài ông chic ông hoà ông king ông tùm lum dạo nỳ khoẻ hơm zạ kaka dạo nỳ đi chơi với px ít vào forum chơi :)) =P~=P~










khỏe gì nẩu h toàn làm cái on mệt gúk lun đâu có zui sướng như ông đâu hì hì~X(

thaihoa91
01-08-10, 09:04 AM
Tui rảnh thì làm à ! Còn bận học hay làm biếng là khỏi làm lun :))

Čħīċķėň
02-08-10, 10:11 AM
he he khỏe khỏe .. .

kinkina2009
03-08-10, 09:41 AM
anh sang bắt đầu yêu em gòk đó :-L

sangpronhat
03-08-10, 11:04 AM
thằng king of shit 12h đang ngủ cái nó nhắn tin bậy bạ :|

Čħīċķėň
03-08-10, 02:34 PM
bỏ bỏ ;)) ;)) lúc trc đang yên đang lành tự nhiện anh ấy pmm em, nói là :

e
xem sex ko
nhầm
:-&:-&:-&:-&

kinkina2009
03-08-10, 05:04 PM
sang: yêu nèk :-w
cấm chối