theo manhtuyen đã làm
thằng xaphu
--************************written by manh tuyen*******************--
--date : 8/8/2008
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
--************************************************** ************--
giatien_xp = 500
function main(sel)
xaphu()
end
function xaphu()
SetTaskTemp(1,1)
if GetLevel() < 5 then
Talk(1,"","Ban linh cua nguoi con non kem,khi nao dat den <color=red>5<color> hay nghi den chuyen roi khoi day!")
return
end
Say("<color=yellow>Xe Om<color>:Khach quan muon di den dau, chi can <color=red>"..giatien_xp.."<color> luong ta se dua khac quan den bat cu dau.",5,"Nhung noi da di qua/WayPointFun","Nhung thanh thi da di qua/thanhthi","Tro lai dia diem cu/trolaidiadiemcu","Den noi luyen cong/luyencong","Khong can dau/out")
end;
function thanhthi(sel)
xa_phu = {}
for i = 1,7 do
w,x,y = GetStationPos(i)
if SubWorldID2Idx(w) ~= -1 then
xa_phu[getn(xa_phu)+1] = GetStationName(i).."/go_thanhthi"
end
end
W,X,Y = GetWorldPos()
if W ~= 53 then
xa_phu[getn(xa_phu)+1] = "Ba Lang Huyen/balang"
end
xa_phu[getn(xa_phu)+1] = "Khong di dau ca/out"
Say("<color=yellow>Xe Om<color>: Xin lua chon:",getn(xa_phu),xa_phu)
end
function balang()
if SubWorldID2Idx(53) ~= -1 then
NewWorld(53, 1582, 3237)
end
end
function luyencong()
LCong = {}
for i = 1,GetTaskTemp(1)*10 do
if GetWayPointName(i) ~= nil then
w,x,y = GetWayPointPos(i)
if SubWorldID2Idx(w) ~= -1 then
LCong[getn(LCong)+1] = GetWayPointName(i).."/go_luyencong"
end
end
end
if getn(LCong) == 0 then
return
end
LCong[getn(LCong)+1] = "Trang ke/tiep"
LCong[getn(LCong)+1] = "Khong di dau ca/out"
Say("<color=yellow>Xe Om<color>: Xin lua chon:",getn(LCong),LCong)
end
function tiep()
SetTaskTemp(1,GetTaskTemp(1)+1)
end
function go_luyencong(nSel)
for i =1,100 do
if GetWayPointName(i).."/go_luyencong" == LCong[nSel+1] then
NewWorld(GetWayPointPos(i))
Pay(giatien_xp)
SetFightState(1)
AddItem(5,0,0,0,0,0,0)
break
end
end
end
function go_thanhthi(nSel)
w,x,y = GetStationPos(nSel+1)
if GetCash() < 500 then
Talk(1,"","<color=yellow>Xe Om<color>: Khong co tien ma cung doi di xe om, muon chet ah!")
return
end
for i = 1,20 do
if GetStationName(i).."/go_thanhthi" == xa_phu[nSel+1] then
NewWorld(GetStationPos(i))
Pay(giatien_xp)
SetFightState(0)
break
end
end
end;
function trolaidiadiemcu()
ReturnFromPortal()
SetLogoutRV(1);
end
function SelWayPoint(nSel)
nWayPoint = GetWayPoint(nSel + 1);
if (nWayPoint ~= 0) then
nW, nX, nY = GetWayPointPos(nWayPoint)
nFightState = GetTerminiFState(nWayPoint)
nResult = NewWorld(nW, nX, nY)
SetFightState(nFightState)
if (nResult == 2) then
end
if (nResult == 0) then
end
end;
end
function WayPointFun()
p1 = GetWayPoint(1);
p2 = GetWayPoint(2);
p3 = GetWayPoint(3);
HaveBin={};
i = 1;
if (p1 ~= 0) then
name = GetWayPointName(p1);
name = name .."/SelWayPoint";
HaveBin[i]= name;
i = i + 1;
end;
if (p2 ~= 0) then
name = GetWayPointName(p2);
name = name .."/SelWayPoint";
HaveBin[i]= name;
i = i + 1;
end;
if (p3 ~= 0) then
name = GetWayPointName(p3);
name = name .."/SelWayPoint";
HaveBin[i]= name;
i = i + 1;
end;
HaveBin[i] = "Ta khong muon di nua/out";
if (i == 1) then
Say("<color=blue>Nguoi chua tung di den noi nao khac<color>", 0);
else
Say("<color=yellow>Xe Om<color>: Xin lua chon:", i, HaveBin);
end;
end;
function SelWayPoint(nSel)
nWayPoint = GetWayPoint(nSel + 1);
if (nWayPoint ~= 0) then
nW, nX, nY = GetWayPointPos(nWayPoint)
nFightState = GetTerminiFState(nWayPoint)
nResult = NewWorld(nW, nX, nY)
SetFightState(nFightState)
if (nResult == 2) then
end
if (nResult == 0) then
end
end;
end
function out()
Talk(1,"","Co tien thi hay quay lai nhe!")
end;
tiếp đó là nội dung file waypoint.txt
ID DESC SECT FightState
1 Hoa son 2, 2288, 4091 1
2 Kiem Cac Thuc Dao 3, 1159, 3715 1
3 Lang Tan Thuy Hoang 7, 2235, 2847 1
4 Kim Quang dong 4, 1596, 3282 1
5 Kinh Hoang dong 5, 1802, 3412 1
6 Toa Van dong 6, 1660, 3314 1
7 Kiem Cac Tay Nam 19, 3486, 4070 1
8 tang 1 Tan Lang 8, 1603, 3497 1
9 Nhan Thach dong 10, 1603, 3209 1
10 Thanh Thanh son 21, 2625, 4507 1
11 Hau Vien Tin Tuong Tu 12, 1589, 3188 1
12 Truong Giang Nguyen Dau 9, 2158, 5631 1
13 Manh Ho dong 14, 1589, 3217 1
14 Bach Van dong 22, 1752, 3372 1
15 Than Tien dong 23, 1583, 3205 1
16 Huong Thuy dong 24, 1692, 3189 1
17 Truc To dong< tang 1> 26, 1493, 3344 1
18 Hoang Ha Nguyen Dau 121, 1965, 4198 1
19 Mieu Linh 74, 2040, 3259 1
20 Vu Lang son 70, 1608, 3230 1
21 Duoc Vuong Coc 140, 2308, 3223 1
22 Hoanh son phai 56, 1491, 3534 1
23 Yen Tu dong 77, 1321, 3292 1
24 Son Bao dong 76, 1554, 2963 1
25 Xi Vuu dong 75, 1671, 3345 1
26 Thanh Loa dong 69, 1600, 3207 1
27 Duoi day gieng dinh Ho< tang 1> 66, 1897, 3107 1
28 Thien Vuong dong 65, 1596, 3250 1
29 Bach Thuy dong 71, 1701, 3029 1
30 Phuc Luu dong 73, 1599, 2803 1
31 Dai Tu dong 72, 1700, 2865 1
32 Phuc Nguu Son Tay 41, 2078, 2804 1
33 Thiet Thap me cung < tang 1> 38, 1602, 3206 1
34 Thien Tam dong 42, 1584, 3221 1
35 Kiem Cac Trung Nguyen 43, 1695, 3200 1
36 Ke Quan dong 91, 1595, 3215 1
37 Thuc Cuong Son 92, 1852, 3240 1
38 Me cung Tinh De 82, 1593, 3193 1
39 Hoa Lang dong 83, 1584, 3248 1
40 Phuc Nguu son Dong 90, 1649, 3567 1
41 Thuc Cuong son 92, 1637, 3302 1
42 La Tieu son 179, 1738, 2559 1
43 Vu Di son 193, 1937, 2851 1
44 Nhan Dang son 195, 682, 2863 1
45 Diem Thuong son 167, 1606, 3214 1
46 Khoai Hoat Lam 136, 1716, 3144 1
47 Lam Du Quan 319, 1612, 3612 1
48 Truong Bach son cuoc 320, 1137, 3151 1
49 Truong Bach son Nam 321, 966, 2296 1
50 Truong Bach son Nam 321, 1573, 3150 1
51 Truong Bach son Bac 322, 2048,4120 1
52 Truong Bach son Bac 322, 1582, 3147 1
53 Thien Tam Thap tang 1 164, 1606, 3194 1
54 108 La Han Tran 114, 1499, 3312 1
55 Tang 5 Dia ha Me Cung 120, 1597, 3205 1
56 Tan Lang tang 2 206, 1598, 3212 1
57 Tan Lang tang 3 207, 1595, 3205 1
58 Tang 3 Duoc Vuong dong 143, 1686, 3262 1
59 Tang 4 Duoc Vuong dong 144, 1592, 3106 1
60 Thanh Khe dong 198, 1522, 2955 1
61 Co Duong dong 200, 1612, 3171 1
62 Bang Ha dong 201, 1599, 3197 1
63 Phu Dung dong 202, 1786, 2823 1
64 Vo Danh dong 203, 1551, 2992 1
65 Phi Thien dong 204, 1679, 3391 1
66 Duong Trung dong 205, 1698, 3408 1
67 Vu Lang dong 199, 1644 ,2906 1
68 Lao Ho dong 123, 1698, 3363 1
69 Can Vien dong 124, 1588, 3209 1
70 Hoa Son phai 333, 1227, 3346 1
71 Thien Long Tu 332, 1105, 3170 1
72 Phong Lang Do 336, 1112, 3189 1
73 Mac Cao Quat 340, 1853, 3446 1