PDA

View Full Version : Share -- Source Tools AddNpc của Akarizone bản Free (5 Máp)


sangpronhat
02-06-10, 09:05 PM
Global $a[1000],$wor[5],$mapWor[6],$inf
<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>
$cellX = 0
$cellX = 0
$PicWidth = 800
$PicHeight = 600
$beginposX = 0
$beginposY = 0
$MapWidth = 800
$MapHeight = 600
$ActualCell = 0
$ActualCell = 0
$wor[1] = 0
$wor[2] = 0
$wor[3] = 0
$wor[4] = 0
$noX = 0
$noY = 0
$nX = 0
$nY = 0
$i = 1
$ret = 1
$mapwidthpic = StringSplit("1504,1440,1024,608",",")
$mapheightpic = StringSplit("1056,832,640,416",",")
$mapFiles = StringSplit("thieulamphai;daili;samactang3;daohoadao",";")
$mapWor[1] = StringSplit("78,81,124,113,103",",")
$mapWor[2] = StringSplit("74,89,117,112,162",",")
$mapWor[3] = StringSplit("80,90,110,108,227",",")
$mapWor[4] = StringSplit("90,94,108,106,235",",")
$Form1 = GUICreate("JX Map Tools - Akari", 1016, 648, -1, -1)
$Pic1 = GUICtrlCreatePic("", 3, 40, 800, 600, BitOR($SS_NOTIFY,$WS_GROUP))
$Input1 = GUICtrlCreateInput("Chuc nang nay chi co o ban FULL.", 48, 8, 369, 21)
GUICtrlSetState(-1,$GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Path :", 8, 11, 35, 17)
$Button1 = GUICtrlCreateButton("Browse...", 424, 8, 75, 21, 0)
GUICtrlSetState(-1,$GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("Map pos X :", 533, 3, 123, 17)
$Label3 = GUICtrlCreateLabel("Map pos Y :", 533, 20, 123, 17)
$Label4 = GUICtrlCreateLabel("Script pos X :", 709, 3, 281, 17)
$Label5 = GUICtrlCreateLabel("Script pos Y :", 709, 20, 189, 17)
$Edit1 = GUICtrlCreateEdit("", 808, 224, 201, 375)
$Button2 = GUICtrlCreateButton("Xem file Script...", 926, 617, 83, 25, 0)
$Combo1 = GUICtrlCreateCombo("Lua chon Map", 808, 64, 193, 25)
GUICtrlSetData(-1,"Thieu Lam Phai|Dai li|Sa mac Son Dong Tang 3|Dao Hoa Dao")
$Label6 = GUICtrlCreateLabel("Chon ban do :", 805, 42, 189, 17)
$npcid = GUICtrlCreateInput("0", 851, 94, 49, 21)
$Label7 = GUICtrlCreateLabel("NPC ID :", 808, 96, 43, 17)
$map1id = GUICtrlCreateInput("0", 851, 120, 25, 21)
GUICtrlSetState(-1,$GUI_DISABLE)
$Lmap1id = GUICtrlCreateLabel("Map ID :", 808, 124, 43, 17)
$level = GUICtrlCreateInput("1", 955, 93, 49, 21)
GUICtrlSetState(-1,$GUI_DISABLE)
$Label8 = GUICtrlCreateLabel("Level :", 912, 97, 43, 17)
$Button3 = GUICtrlCreateButton("Clear", 810, 616, 83, 25, 0)
$script = GUICtrlCreateInput("Chuc nang nay chi co o ban FULL.", 809, 162, 201, 21)
GUICtrlSetState(-1,$GUI_DISABLE)
$B_script = GUICtrlCreateButton("Browse...", 928, 190, 83, 25, 0)
$B_copyall = GUICtrlCreateButton("Copy All...", 809, 190, 83, 25, 0)
$Label9 = GUICtrlCreateLabel("NPC Script :", 810, 146, 139, 16)
$camp = GUICtrlCreateCombo("Chon...", 935, 120, 70, 21)
GUICtrlSetData(-1,"Chinh phai|Ta phai|Trung lap|Sat thu|Noi chuyen")
$Label10 = GUICtrlCreateLabel("Loai NPC :", 880, 124, 55, 17)
<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>
<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>
Opt("MouseCoordMode", 2)
While 1
$pos = MouseGetPos()
$PicPosX = $pos[0]-3
$PicPosY = $pos[1]-40
If $PicPosX > 800 Or $PicPosX < 0 Or $PicPosY > 600 Or $PicPosY < 0 Then
$PicPosX = 0
$PicPosY = 0
EndIf
GuiCtrlSetData($Label2, "Map pos X : "&$nX)
GuiCtrlSetData($Label3, "Map pos Y : "&$nY)
ExtPos()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0,"Info","Chuc nang nay chi co o ban chinh thuc!")
Case $Combo1
$ret = _GUICtrlComboGetCurSel($Combo1)
If $ret = 0 Then $ret = 1
If($ret <> $CB_ERR) Then
$Path1 = $wdr&"\"&$mapFiles[$ret]&".jpg"
$wor = $mapWor[$ret]
$MapWidth = $mapwidthpic[$ret]
$MapHeight = $mapheightpic[$ret]
ExtPos()
GuiCtrlDelete($Pic1)
$Pic1 = GUICtrlCreatePic($path1, 3, 40, $PicWidth, $PicWidth*$MapHeight/$MapWidth)
GUICtrlSetOnEvent($Pic1, "Pic1Click")
GuiCtrlSetData($map1id, $wor[5])
EndIf
Case $B_copyall
MsgBox(0,"Info","Chuc nang nay chi co o ban chinh thuc!")
Case $GUI_EVENT_PRIMARYDOWN
Pic1Click()
Case $camp
MsgBox(0,"Info","Chuc nang nay chi co o ban chinh thuc!")
Case $GUI_EVENT_SECONDARYDOWN
If $PicPosX < 800 And $PicPosX > 0 And $PicPosY < 600 And $PicPosY > 0 Then
ExtPos()
<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>
EndIf
Case $Button2
<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>
$TempScr = FileOpen("TempScript.lua",2)
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
<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>
FileWrite("TempScript.lua",$author)
FileWrite("TempScript.lua",GUICtrlRead($Edit1))
<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>
FileClose($TempScr)
<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>
Case $Button3
GuiCtrlSetData($Edit1,"")
Case $B_script
MsgBox(0,"Info","Chuc nang nay chi co o ban chinh thuc!")
EndSwitch
WEnd
Func ExtPos()
$cellX = 32
$cellX = 32
$beginposX = $wor[1]*2
$beginposY = $wor[2]*2
$PicWidth = 800
$PicHeight = $PicWidth*$MapHeight/$MapWidth
If $PicHeight > 600 Then
$PicHeight = 600
$PicWidth = $PicHeight*$MapWidth/$MapHeight
EndIf
If $MapWidth < $PicWidth Then
$ActualCell = $cellX
$ActualCell = $cellX
$PicWidth = $MapWidth
Else
$ActualCell = $PicWidth*$cellX/($MapWidth*2)
EndIf
$nX = $beginposX + Floor($PicPosX/$ActualCell)
$nY = $beginposY + Floor($PicPosY/$ActualCell)
$noX = $PicPosX-($nX-$beginposX)*$ActualCell+$ActualCell/10
$noY = $PicPosY-($nY-$beginposY)*$ActualCell+$ActualCell/10
GuiCtrlSetData($Label2, "Map pos X : "&$nX)
GuiCtrlSetData($Label3, "Map pos Y : "&$nY)
GuiCtrlSetData($Label4, "Script pos X : "&floor(($nX+$noX/10)*8*1))
GuiCtrlSetData($Label5, "Script pos Y : "&floor(($nY+$noY/10)*16*1))
EndFunc
Func Pic1Click()
If $PicPosX < 800 And $PicPosX > 0 And $PicPosY < 600 And $PicPosY > 0 Then
$ret1 = GUICtrlRead($map1id)
If GUICtrlRead($npcid) = 0 Then
<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>
Else
If StringInStr(GUICtrlRead($npcid),";") Then
$npcs = StringSplit(GUICtrlRead($npcid),";")
$npc = Random($npcs[1],$npcs[2],1)
Else
$npc =GUICtrlRead($npcid)
EndIf
<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>
EndIf
_GUICtrlEditLineScroll ($edit1, 0,_GUICtrlEditGetLineCount ($edit1))
EndIf
EndFunc
Func GenCode()
$ctm_name = "AKARIMAP"
While StringInStr(StringRight($ctm_name,1)," ")
$ctm_name=StringTrimRight($ctm_name,1)
WEnd
If $ctm_name = "" Then
MsgBox(0,"Error","Ten khong duoc bo trong")
Else
<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>
$ctm_passphrase = "yeuemkhonghoihan1110"
$regcodegen = _StringEncrypt (1, $ctm_hdd, $ctm_passphrase,1)
EndIf
Return $regcodegen
EndFunc


Tặng pà con source nỳ mong bà con sẽ tự thân mình mà làm nên sự việc nghen ^^ !
Món quà cúng cùi múm gủi tặng đến anh em >''< Chúc pè con bOx jX khỏe mạnh =))

Các bạn tui ngày càng phát triển Jx nhen ^^ ! Các newbie hãy học nhiều hơn là copy và paste

1. Một số chức năng bị khóa tự mò cách hoạt động >''<
2. Dùng hàm AddNpc (rườm rà so với AddNPCEx)
3. Tọa độ bị lệch nếu ta sữ dụng các Map cò Width và height nhỏ
4. Chưa đủ map
5. Chưa Include thư viện keke

-- <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> Code bằng AutoIT 3 dễ học dễ làm không cần có ebook TV vì cái ebook Help.chm của nó rất là hay Cý ngôn ngữ nỳ ngâm lâu sẽ có nhiều trò hay >''< cho Jx nói riêng và game Online nói chung

Sẵn tiện lúc rảnh quay cho anh em 1 Tut tools hoàn chỉnh để anh em có thể bắt chước hay lè làm theo mình tùy thích >''<

<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>

------------------------Good Bye-------------------------
:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|

- Ước gì mai sau trên đường đời đầy tấp nập
- Ta vô tình vấp phải cọc Đô La $$$ =))=))
[S]ocola[S]an
02-06-10, 09:10 PM
Bóc tem 30 charrrrrrrrrrrrrrrrr
Mr.Rezo™
02-06-10, 09:11 PM
ừ chào bạn Sang nhé :( lúc nào thiếu $$ nhắn tin cứ ra mà qua mặt mình

rồi mình bắn cho 500.000đ tiền thẻ điện thoại mà tha hồ tán gái :x
sangpronhat
02-06-10, 09:15 PM
Mốt bác tài hoàn thành xong cái TAPT chạy qua CQ kím người mở sv thì cũng sẽ sáp mặt kuj thoai >''< Tý pmm đưa cho mý cái hình map hum qua chưa UpLoad kịp ( ngáp ngáp)

Mốt tui chắc cũng ra ngoải du lịch xa cóa gì đi uống nước nhớ bao tui được gồi =))
[S]ocola[S]an
02-06-10, 09:17 PM
Mr Rezo giàu thế bắn em 100k với:))
notfile
02-06-10, 09:24 PM
Ông sang ra đi rồi kìa
ai ngăn ông ta lại đi
Box JX đang chết dần rồi ???????????????
Čħīċķėň
02-06-10, 09:27 PM
Ông sang ra đi rồi kìa
ai ngăn ông ta lại đi
Box JX đang chết dần rồi ???????????????

ngăn làm gì %-( cho hắn o:-)............................
notfile
02-06-10, 09:28 PM
war thì war chứ Box JX ngày càng ít người đó
dạo này thaihoa cũng ít onl nữa ?????
zonjkut3
02-06-10, 09:35 PM
war thì war chứ Box JX ngày càng ít người đó
dạo này thaihoa cũng ít onl nữa ?????

thaihoa thi chứ bộ
câu thaihoa:
Ngày nào thaihoa chưa có vợ,ngày đó thaihoa vẫn dev jx
(cầu mong ổng ế vợ ;)) )
[S]ocola[S]an
02-06-10, 09:36 PM
Đi rồi sao cản dc nữa thôi đành chấp nhận đi notfile:))
kinkina2009
02-06-10, 09:38 PM
;)). ku sang đi được rồi đó :-|
Mr.Rezo™
02-06-10, 09:58 PM
bạn NotFile ơi :-" box JxP chết dần là sao thế :-"

Thế bạn so sánh giữa tớ và Sang ai cao trình hơn ai ?
thanh159
02-06-10, 10:00 PM
bạn NotFile ơi :-" box JxP chết dần là sao thế :-"

Thế bạn so sánh giữa tớ và Sang ai cao trình hơn ai ?
tự tin vãi ;))
30 char ... ..
notfile
02-06-10, 10:02 PM
bạn NotFile ơi :-" box JxP chết dần là sao thế :-"

Thế bạn so sánh giữa tớ và Sang ai cao trình hơn ai ?

Tôi không thể đánh giá 2 bạn ai cao hơn ai được
vì tôi tự nhận tôi còn kém hơn cả 2 bạn làm sao có thể đánh giá được !!!
nhưng tôi thấy buồn vì BOX JX ngày càng đi xuống !!!
BOX JX với tôi cũng chỉ là niềm vui thôi thực sự chính ra tôi cũng không chuyên về JX chỉ vì niềm đam mê mà thôi . Tôi đang hướng tới Pwn2Own
nhưng đã làm cái gì dù là không phải tâm huyết nhưng cũng phải làm cho tử tế !!!
Mr.Rezo™
02-06-10, 10:02 PM
không hẳn là tự tin =; nói thẳng tôi đây sống chết với JxP lâu nay rồi =;

ngay cả cách fix bug rollback + WPE Tài này đều nắm rõ =;
notfile
02-06-10, 10:05 PM
không hẳn là tự tin =; nói thẳng tôi đây sống chết với JxP lâu nay rồi =;

ngay cả cách fix bug rollback + WPE Tài này đều nắm rõ =;

nếu có lòng hảo tâm thì share cách fix roll đi ^^
đang đau đầu vì cái này :D:D:D:D
thanh159
02-06-10, 10:05 PM
ơ thế sao hồi nãy server lag thế còn kênh chát chả thấy dc chữ nào
kinkina2009
02-06-10, 10:06 PM
;));))
:-|sangpronhat ơi nghỉ tay đi rồi đợi tui, anh em mình làm CQ ;))
notfile
02-06-10, 10:08 PM
ơ thế sao hồi nãy server lag thế còn kênh chát chả thấy dc chữ nào

SV nào tôi đâu có làm SV onl nào đâu ????
Đính Chính lại 1 lần nữa SV Phong Hỏa Liên Thành không phải do tôi quản lý !!!
mà sao cái SV đó lắm người chơi thế nhỉ !!!
kinkina2009
02-06-10, 10:10 PM
chắc là nói SV TAPT không phải nói anh bạn đọc rõ cm đi ;)
Čħīċķėň
02-06-10, 10:19 PM
Box JX đi xuông được nhận ra từ mấy năm trước rùi :D
Điếc không sợ súng
[S]ocola[S]an
03-06-10, 08:09 AM
Cái source này làm sao để thành cái tools thế?:))
thanh159
03-06-10, 10:04 AM
Include thư viện + complite là xong ;))
[S]ocola[S]an
03-06-10, 01:18 PM
Include thư viện + complite là xong ;))
Bạn pro làm dùm mình với:))Mình ko bik gì hết:))
giangleloi
04-06-10, 03:19 PM
Tốt quá, đang thích autoit:))
thanks nhá chú
[S]ocola[S]an
04-06-10, 04:41 PM
Tốt quá, đang thích autoit:))
thanks nhá chú

Bác Giang rảnh làm cái source này thành cái tools rồi share em với:D
kinkina2009
04-06-10, 07:21 PM
cái nì thì thà lấy cái demo của chicken xài còn ngon hơn có zoom + ;))
huntersun
04-06-10, 07:25 PM
Bạn Sang xài ngôn ngữ teen quá nên đọc hơi mệt :">
[S]ocola[S]an
04-06-10, 07:47 PM
cái nì thì thà lấy cái demo của chicken xài còn ngon hơn có zoom + ;))

Vậy add xong lưu ở đâu vậy pro:(
sangpronhat
04-06-10, 08:48 PM
Tốt quá, đang thích autoit:))
thanks nhá chú



Cho ca'i Y!M ra no'i chuye^.n musik keke đang ghie^`n Remix cu?a Giang đa^y keke=))
kinkina2009
05-06-10, 07:59 AM
^
forum này cũng cấm teencode thì phải . từ hồi nó lên lớp 9 thấy nó hơi bị Teen ;))
amaluong
19-07-10, 03:07 PM
khong bi dao nay co ai choi vo om offline khong?
minh dang cai ma choi chan wa.co may map a.co map mo dc nhng khong co npc.khong co quai(sa mac dia bieu).nhung cai co ban minh thay hay o vo lam ofline la 1 nhan vat 1 he co the vo dc 2 phái.vi du nhan vat he tho vo vo dang+con lon.chay suong luon.dang cung manh nua.ai giu minh cai máp voi.thank nhiu
zonjkut3
19-07-10, 03:12 PM
khong bi dao nay co ai choi vo om offline khong?
minh dang cai ma choi chan wa.co may map a.co map mo dc nhng khong co npc.khong co quai(sa mac dia bieu).nhung cai co ban minh thay hay o vo lam ofline la 1 nhan vat 1 he co the vo dc 2 phái.vi du nhan vat he tho vo vo dang+con lon.chay suong luon.dang cung manh nua.ai giu minh cai máp voi.thank nhiu

viết có dấu dùm
bới rác à =.=
[S]ocola[S]an
19-07-10, 03:31 PM
Mua đại tools addNPc của sangpronhat 150k kìa =))=))
Sir.THÀNH™
20-07-10, 11:34 AM
Yên tâm đi. Chờ RONALDO 1 năm nữa thôi. Khi ấy RONALDO sẽ hack MAXOFF bộ Source của King & Vina. Share miễn phí cho mọi người. Chờ ta nhé !! =))
thaihoa91
20-07-10, 07:33 PM
Yên tâm đi. Chờ RONALDO 1 năm nữa thôi. Khi ấy RONALDO sẽ hack MAXOFF bộ Source của King & Vina. Share miễn phí cho mọi người. Chờ ta nhé !! =))

Tui chờ đấy ! 1 năm sau mà tui vẫn chưa thấy C_Ronaldo share bộ SOURCE JX FULL của KingSoft và VNG thì tui sẽ xử C_Ronaldo đấy nha :))

Anh em vào đây làm chứng :D
Čħīċķėň
20-07-10, 07:54 PM
Tui chờ đấy ! 1 năm sau mà tui vẫn chưa thấy C_Ronaldo share bộ SOURCE JX FULL của KingSoft và VNG thì tui sẽ xử C_Ronaldo đấy nha :))

Anh em vào đây làm chứng :D

e đề nghị del nick vĩnh viễn, nếu tạo lại nick khác mà bít tên đó là C_Ronaldo thì del típ ............... ;)) ;)) khổ chưa 8->
[S]ocola[S]an
20-07-10, 08:02 PM
Ông C_Ronaldo sao mà giàu thế định mua source lun à =))