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

[sangpronhat]

Global $a[1000],$wor[5],$mapWor[6],$inf
        $Path = @ScriptDir&"\maps"
        $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)
GUISetState(@SW_SHOW)
$wdr = @WorkingDir
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()
                MsgBox(0,"Info","Pic Width : "&$PicWidth&",Height : "&$PicHeight&@CRLF&"Map Width : "&$MapWidth&" Height : "&$MapHeight&@CRLF&"ActualCell : "&$ActualCell&"-"&$ActualCell&@CRLF&"Cell : "&$cellX&"-"&$cellX)
            EndIf
        Case $Button2
            If FileExists("TempScript.lua") = 0 Then _FileCreate(@WorkingDir&"\TempScript.lua")
            $TempScr = FileOpen("TempScript.lua",2)
            $author =     "-- Gioi thieu chuong trinh :            "&@CRLF & _
                        "-- Day chi la ban dung thu voi cac chuc nang han che, chi mo 4 maps."&@CRLF & _
                        "-- De co ban day du xin hay lien he voi tac gia qua so dien thoai : (08) 2103683. (Chi tu 8h den 20h)"&@CRLF & _
                        "-- Gia ban cua phien ban day du la 100 nghin VND."&@CRLF & _
                        "-- Tinh nang : mo hon 600 maps, AddNPC co ca Script, phan loai NPC, tuong thich voi cac script cu."&@CRLF & _
                        "-- Ma so may cua ban la : "&GenCode()&@CRLF&@CRLF & _
                        "-- Nhung thong tin khac hay lien he YM! : manhcuong1910"&@CRLF&@CRLF & _
                        "-- Huong dan su dung : "&@CRLF & _
                        "-- Buoc 1 : Chon ban do tu muc : Chon ban do"&@CRLF & _
                        "-- Buoc 2 : Nhap chuot vao vi tri can xac dinh toa do trong hinh."&@CRLF & _
                        "-- Buoc 3 : Sau khi chon toa do xong, nhan nut Open Script... de xem ket qua xuat ra."&@CRLF & _
                        "-- Neu o NpcID de la 0 thi se chuyen sang chuc nang di chuyen NPC(NewWorld)"&@CRLF & _
                        "-- Neu o NpcID de la mot so lon hon 0, vi du '123' thi se chuyen sang chuc nang them NPC(AddNPC)"&@CRLF & _
                        "-- Neu o NpcID de la mot so lon hon 0 va phan cach bang dau ';', vi du '123;128' thi se chuyen sang chuc nang them NPC(AddNPC) ngau nhien tu 123 - 128"&@CRLF & _
                        "-- Luu y : file Maplist.ini va Worldset.ini cua ban phai co cac ban do tren."&@CRLF & _
                        "-- Sau do, ban hay chep toan bo noi dung o day vao file scrip cua ban "&@CRLF & _
                        "-- Vi du ban muon khi nhap vao Thien Vuong de tu o Ba Lang huyen se thuc thi script nay ban hay lam nhu sau :"&@CRLF & _
                        "-- Ban hay copy toan bo noi dung o day vao file '\jxserver\script\Á½ºþÇø\°ÍÁêÏØ\npc\°ÍÁêÏØ_ÌìÍõ°ïÖÚ¶Ô»°.lua'"&@CRLF & _
                        "-- Khoi dong lai server, dang nhap vao va noi chuyen voi Thien Vuong de tu o Ba Lang huyen de thuc thi script."&@CRLF&@CRLF&@CRLF & _
                        "function main(sel)"&@CRLF&@CRLF
            FileWrite("TempScript.lua",$author)
            FileWrite("TempScript.lua",GUICtrlRead($Edit1))
            FileWrite("TempScript.lua",@CRLF&"end;")
            FileClose($TempScr)
            Run("notepad.exe "&@WorkingDir&"\TempScript.lua")
        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
                    GuiCtrlSetData($Edit1,GUICtrlRead($Edit1)&"NewWorld("&$ret1&","&floor(($nX+$noX/10)*8*1)&","&floor(($nY+$noY/10)*16*1)&")"&@CRLF)
            Else
                If StringInStr(GUICtrlRead($npcid),";") Then
                    $npcs = StringSplit(GUICtrlRead($npcid),";")
                    $npc = Random($npcs[1],$npcs[2],1)
                Else
                    $npc =GUICtrlRead($npcid)
                EndIf
                        GuiCtrlSetData($Edit1,GUICtrlRead($Edit1)&"AddNPC("&$npc&","&GUICtrlRead($level)&","&$ret1&","&floor(($nX+$noX/10)*8*1)&"*32,"&floor(($nY+$noY/10)*16*1)&"*32)"&@CRLF)
            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
    $ctm_hdd = DriveGetSerial (@HomeDrive)
    $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

-- [Only registered and activated users can see links. ] 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 >''<

[Only registered and activated users can see links. ]

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

Bóc tem 30 charrrrrrrrrrrrrrrrr

[Mr.Rezo™]

ừ 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

[sangpronhat]

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]

Mr Rezo giàu thế bắn em 100k với

[notfile]

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

[notfile]

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]

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]

Đi rồi sao cản dc nữa thôi đành chấp nhận đi notfile