Kral Forum

Server'a Pack Sistemi Yapmak [Detaylı Anlatım] Uyeolj



Join the forum, it's quick and easy

Kral Forum

Server'a Pack Sistemi Yapmak [Detaylı Anlatım] Uyeolj

Kral Forum

Would you like to react to this message? Create an account in a few clicks or log in to continue.

rel="publisher"

    Server'a Pack Sistemi Yapmak [Detaylı Anlatım]

    avatar


    Karizma Puanı : 0
    Kayıt tarihi : 01/01/70
    • Post n°1

    Server'a Pack Sistemi Yapmak [Detaylı Anlatım] Empty Server'a Pack Sistemi Yapmak [Detaylı Anlatım]

    Mesaj tarafından  Cuma Mayıs 14, 2010 7:16 pm

    Merhaba Arkadaslar Bugun Serverınıza Pack Sistemi Yapmaya Gelicez Gercekten Öenmli Bir Konu Serverınız İçin Gecelim Anlatıma
    İlk Olarak Verdigim Linkleti Dosyayı İndirin:
    [Linkleri görebilmek için üye olun veya giriş yapın.]
    İndirdikden Sonra Rardan Cıkartınız.
    İçinde Metin2.au3 Die Bi Dosya Var Onu Not Defterinde Acınız.(c++ Programıyla Daha Kapsamlı Editleye Bilirsiniz)
    Açtıktan Sonra İçinde Pack Sisteminin Yazılmış Oldugu script Var.Ben Türkçeleştirdim.Chinesee43 Yazan Yerleri Serverinize
    Göre Ayarlayıp Kullana Bilirsiniz.Butonlar Resimleri Türkçedir.
    Yaptıktan Sonra İndirdiginiz Klösörde scriptleri Exe Ye Cevirmek İçin
    Program Olucak Onu Acıyoruz.
    Source(AutoIt .au3 File ) Yazan Kısım script Not Defteriyle Acıp
    Editlediginizi Secin.
    Destination (.Exe/.au3 File) Yazan Yer Nereye Exe Olarak Kayıt
    Edilmesi Gerektigi Yeri Gösterceksiniz.
    Custom Icon (/.ico File) Yazan Kısım Da Programınızın Simgesidir
    Ben Size Metin2 Nin Simgesini Dosyaya Atmış Olarak.
    Vericeğim Onu Yapabilirsiniz.
    Pack Klösöründe patch.ini Var Ondan Linkleri Görmesi İcin Koydum Exe Nizi Oraya Kayıt Edin.
    script Exe Dönüştürücü Klösöründe Aut2exe.exe İle scripti Exeye Dönüştürüceksiniz.
    İcon Simgede Size Verdigim Hazır Bir Simgedir.
    Autoİt Hata Verirse Bunu İndirip
    [Linkleri görebilmek için üye olun veya giriş yapın.]
    Compile script to .exe İle Devam Ediniz.
    script
    Kod:
    #Include <File.au3>
    #Include <GuiConstants.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #NoTrayIcon
    Global $m2ordner = @scriptDir
    Global $scriptDir = @scriptDir
    Global $TempDir = @TempDir
    Global $url = FileReadLine($scriptDir & "\patch.ini" 1)
    Global $adurl = FileReadLine ($scriptDir & "\patch.ini"2)
    Global $fensterurl = FileReadLine ($scriptDir & "\patch.ini"3)
    Global $buttonurl = FileReadLine ($scriptDir & "\patch.ini"4)
    FileInstall("C:\Documents and Settings\ADEM\metin2start.bmp"  @Tempdir&"\metin2start.bmp"1)
    FileInstall("E:\Metin2t\patchs kin\btn_startgame_up.bmp" @Tempdir&"\btn_startgame_up.bm p"1)
    FileInstall("E:\Metin2t\patchs kin\btn_settings_up.bmp" @Tempdir&"\btn_settings_up.bmp "1)
    FileInstall("E:\Metin2t\patchs kin\btn_newaccount_up.bmp" @Tempdir&"\btn_newaccount_up.b mp"1)
    FileInstall("E:\Metin2t\patchs kin\btn_idpwd_up.bmp" @Tempdir&"\btn_idpwd_up.bmp"1 )
    FileInstall("E:\Metin2t\patchs kin\btn_quit_up.bmp" @Tempdir&"\btn_quit_up.bmp"1)
    ;GUI########################## ############################
    Opt("GUIOnEventMode" 1)
    $Form1 = GUICreate("Metin2 Oto Pack By Chinesee43" 373 541 193 125)
    GUISetOnEvent($GUI_EVENT_CLOSE  "_close")
    $stat = GUICtrlCreateEdit("" 16 8 337 281)
    GUICtrlSetData(-1 "((`~Pack Baslatılıyor.~´))"[url=http://kralfrm.all-up.com/mailto:&@CRLF&"File]&@CRLF&"File[/url] s Kontrol Ediliyor...")
    $cancel = GUICtrlCreateButton("Çıkış" 288 496 75 25 0)
    GUICtrlSetOnEvent($cancel "_close")
    $Progress1 = GUICtrlCreateProgress(16 464 334 17)
    ;16 312 340 13
    $oIE = _IECreateEmbedded()
    $oIE_ctrl = GUICtrlCreateObj($oIE 16 312 336 136)
    GUISetState(@SW_SHOW)
    _IENavigate($oIE $adurl)
    $Form2 = GUICreate("Metin2 OtoPack By Chinesee43" 595 385 328 160)
    GUISetOnEvent($GUI_EVENT_CLOSE  "_close")
    $Pic1 = GUICtrlCreatePic(@Tempdir&"\me tin2start.bmp" 0 0 593 382 $BS_BITMAP)
    $start = GUICtrlCreateButton("(Not allowed)" 464 40 127 41 $BS_BITMAP)
    GUICtrlSetImage(-1 @Tempdir&"\btn_startgame_up.bm p" 1)
    GUICtrlSetOnEvent($start "start")
    $config = GUICtrlCreateButton("(Not allowed)" 464 96 127 25 $BS_BITMAP)
    GUICtrlSetOnEvent($config "config")
    GUICtrlSetImage(-1 @Tempdir&"\btn_settings_up.bmp " 1)
    $seite1 = GUICtrlCreateButton("(Not allowed)" 464 184 127 25 $BS_BITMAP)
    GUICtrlSetImage(-1 @Tempdir&"\btn_newaccount_up.b mp" 1)
    GUICtrlSetOnEvent($seite1 "seite")
    $seite2 = GUICtrlCreateButton("(Not allowed)" 464 160 129 25 $BS_BITMAP)
    GUICtrlSetImage(-1 @Tempdir&"\btn_idpwd_up.bmp" 1)
    GUICtrlSetOnEvent($seite2 "seite")
    $ende = GUICtrlCreateButton("(Not allowed)" 464 352 127 25 $BS_BITMAP)
    GUICtrlSetImage(-1 @Tempdir&"\btn_quit_up.bmp" 1)
    GUICtrlSetOnEvent($ende "_close")
    $oIE1 = _IECreateEmbedded()
    $oIE_ctrl1 = GUICtrlCreateObj($oIE1 8 8 456 376)
    _IENavigate($oIE1 $fensterurl)
    GUISetState(@SW_HIDE)
    ;gui########################## ###########################
    Func seite ()
    _IECreate($buttonurl)
    EndFunc
    func start ()
    run($scriptdir&"/metin2.exe")
    Exit
    EndFunc
    Func config ()
    Run($scriptDir&"\config.exe")
    EndFunc

    func _close ()
    Exit
    EndFunc
    Sleep (500)
    patch ()

    func patch ()
    $file = @TempDir&"\files.txt"
    InetGet( $url&"\files.txt"  $file)
    $lines = _FileCountLines($file)
    If $lines = 0 Then
    MsgBox(48"Hata""Pack Listesi Bulunamadı!")
    Exit
    EndIf
    DirCreate("pack")
    DirCreate("BGM")
    DirCreate("lib")
    DirCreate("mark")
    DirCreate("miles")
    DirCreate("upload")
    While ($lines >= 1)
    $datei = FileReadLine($file$lines)
    GUICtrlSetData($stat"Tamamlan dı!: "& $datei & @CRLF & GUICtrlRead($stat))
    $size_inet = InetGetSize($url&"\"&$datei)
    If FileExists($scriptDir&""&$date i) Then
    If @error Then
    MsgBox(16  "Fehler" @error)
    EndIf
    $size_ordner = FileGetSize( $scriptDir&""&$datei)
    If $size_inet <> $size_ordner Then
    GUICtrlSetData($stat"Pack İndiriliyor: "& $datei & @CRLF & GUICtrlRead($stat))
    InetGet($url&$datei  $scriptDir& "" & $datei  1  1)
    while 1
    $hFileSize = FileGetSize($scriptDir & "" & $datei) ;Wie viel wurde schon geladen.
    $iPercent = round ( @InetGetBytesRead / $size_inet *100) ;Rechen Operation ? O.O
    GUICtrlSetData($Progress1 $iPercent) ;Progressbar einstellen
    If $hFileSize = $size_inet Then
    GUICtrlSetData($Progress1 100)
    ExitLoop
    EndIf
    sleep (50)
    WEnd
    Else
    GUICtrlSetData($stat"Dosyalar Kontrol Ediliyor!: "& $datei & @CRLF & GUICtrlRead($stat))
    EndIf
    Else
    InetGet($url&$datei$scriptDir &""&$datei11)
    GUICtrlSetData($stat "Dosya İndiriliyor!: "& $datei& @CRLF & GUICtrlRead($stat))
    while 1
    $hFileSize = FileGetSize($scriptDir & "" & $datei) ;Wie viel wurde schon geladen.
    $iPercent = round ( @InetGetBytesRead / $size_inet *100) ;Rechen Operation ? O.O
    GUICtrlSetData($Progress1 $iPercent) ;Progressbar einstellen
    If $hFileSize = $size_inet Then
    GUICtrlSetData($Progress1 100)
    ExitLoop
    EndIf
    sleep (50)
    WEnd
    EndIf
    sleep (500)
    $lines = $lines-1
    WEnd
    FileDelete($TempDir&"files.txt ")
    GUISetState(@SW_HIDE$Form1)
    GUISetState(@SW_SHOW$Form2)
    while 1
    Sleep(100)
    WEnd
    EndFunc
    Detaylı Anlatımla Hala Yapamayanlar İçin Very Happy Video Linki
    [Linkleri görebilmek için üye olun veya giriş yapın.]
    Arkadaslarmız Forumda Kopyalama Olmadığı İçin Kodu Alamadılar Bende Txt Olarak Upload Ettim
    Upload By CrisVector : [Linkleri görebilmek için üye olun veya giriş yapın.]
    Tek Dosyaya Giremeyen Arkadaslarım İçin uploaded.to : [Linkleri görebilmek için üye olun veya giriş yapın.]

    000]Metin2UseR]
    • Sayfa başına dön

      Forum Saati Cuma Kas. 15, 2024 10:06 am