Share -- Source Tools AddNpc của Akarizone bản Free (5 Máp)
Hello & Welcome to our community. Is this your first visit? Đăng Ký
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Trang 1 của 4 1 2 3 ... CuốiCuối
Kết quả 1 đến 10 của 38
  1. #1
    [S]-[A]-[N]-[G] sangpronhat's Avatar
    Ngày tham gia
    Apr 2008
    Đang ở
    HCM
    Bài viết
    546
    Thanks
    9
    Thanked 82 Times in 27 Posts

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

    Code:
    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 $$$
    Soure game mobile full Unity3d mới nhất cập nhật liên tục
    Có share 1 số source free cho anh em học tập
    Click ngay
    [Only registered and activated users can see links. ]

  2. Các thành viên gởi lời cảm ơn đến sangpronhat vì bài viết này !

    HeavenGames (25-07-12)

  3. #2
    Thành Viên Tâm Huyết [S]ocola[S]an's Avatar
    Ngày tham gia
    Apr 2010
    Đang ở
    Taddle Legacy
    Bài viết
    1,894
    Thanks
    92
    Thanked 105 Times in 41 Posts

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

    Bóc tem 30 charrrrrrrrrrrrrrrrr
    >.<

  4. #3
    Vi phạm quy định
    Ngày tham gia
    Apr 2007
    Đang ở
    ☼♥ ®€Žø In Dä Høü§€ ♥☼
    Bài viết
    958
    Thanks
    6
    Thanked 78 Times in 25 Posts

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

    ừ 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
    Khách viếng thăm hãy cùng Mr.Rezo™ xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #4
    [S]-[A]-[N]-[G] sangpronhat's Avatar
    Ngày tham gia
    Apr 2008
    Đang ở
    HCM
    Bài viết
    546
    Thanks
    9
    Thanked 82 Times in 27 Posts

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

    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
    Soure game mobile full Unity3d mới nhất cập nhật liên tục
    Có share 1 số source free cho anh em học tập
    Click ngay
    [Only registered and activated users can see links. ]

  6. #5
    Thành Viên Tâm Huyết [S]ocola[S]an's Avatar
    Ngày tham gia
    Apr 2010
    Đang ở
    Taddle Legacy
    Bài viết
    1,894
    Thanks
    92
    Thanked 105 Times in 41 Posts

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

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

  7. #6
    JX-Group-Development notfile's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    1,615
    Thanks
    66
    Thanked 184 Times in 62 Posts

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

    Ô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 ???????????????
    Khách viếng thăm hãy cùng notfile xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #7
    ±‡[̲̅ə̲̅٨̲̅٥̲̅٦� �� �̅]‡± Čħīċķėň's Avatar
    Ngày tham gia
    Jul 2009
    Đang ở
    TP HCM
    Bài viết
    1,349
    Thanks
    62
    Thanked 101 Times in 48 Posts

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

    Trích dẫn Gửi bởi notfile [Only registered and activated users can see links. ]
    Ô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 ............................
    Chúc 4rum ngày càng phát triển

  9. #8
    JX-Group-Development notfile's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    1,615
    Thanks
    66
    Thanked 184 Times in 62 Posts

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

    war thì war chứ Box JX ngày càng ít người đó
    dạo này thaihoa cũng ít onl nữa ?????
    Khách viếng thăm hãy cùng notfile xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. #9
    dev jx hay lấy vợ ta? zonjkut3's Avatar
    Ngày tham gia
    Jun 2010
    Đang ở
    bãi tha ma
    Bài viết
    1,104
    Thanks
    3
    Thanked 38 Times in 19 Posts

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

    Trích dẫn Gửi bởi notfile [Only registered and activated users can see links. ]
    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ợ )
    [Only registered and activated users can see links. ]

  11. #10
    Thành Viên Tâm Huyết [S]ocola[S]an's Avatar
    Ngày tham gia
    Apr 2010
    Đang ở
    Taddle Legacy
    Bài viết
    1,894
    Thanks
    92
    Thanked 105 Times in 41 Posts

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

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

 

 
Trang 1 của 4 1 2 3 ... CuốiCuối

Các Chủ đề tương tự

  1. [JX] Share tools quản lý tài khoản SQL
    Bởi MillyVu trong diễn đàn Releases
    Trả lời: 16
    Bài viết cuối: 27-08-11, 06:47 AM
  2. Web Source NWeb v1.12 Dev by Thiếu Vân phiên bản 1.42 FREE
    Bởi membering trong diễn đàn SQL Server & Website
    Trả lời: 125
    Bài viết cuối: 27-01-11, 08:37 AM
  3. Share tools creator acc không cần web nè
    Bởi My.Ami.Pro trong diễn đàn Guides - Kho Lưu trữ
    Trả lời: 4
    Bài viết cuối: 30-04-09, 08:43 PM
  4. Share tools việt hóa Cliens Flyff
    Bởi langtuvn trong diễn đàn Guides - Kho Lưu trữ
    Trả lời: 10
    Bài viết cuối: 19-02-09, 08:52 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 08:52 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.