AnasayfaAnasayfa  SSSSSS  AramaArama  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 Herkes Kendi Pack Dosyasını Olusturabilecek...!!

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
Admin
Site Kurucusu
Site Kurucusu
avatar

Mesaj Sayısı : 1102
Exp : 2147483626
Kayıt tarihi : 14/02/10
Nerden : Ä°stanbul

MesajKonu: Herkes Kendi Pack Dosyasını Olusturabilecek...!!   Salı Nis. 27, 2010 8:19 pm

Selam Forum Herkes Kendi
Serverine Göre Pack Yapmak İster.Bende Size Bunu Öğreticeğim!
Bazı
Arkadaşlar Alıntı Falan Yazmış Görücez Birazdan Kim Eme Hırsızı Kim
İftiracı.

İlk Olarak Bu Programı İndiriniz.
[Linkleri görebilmek için üye olun veya giriş yapın.]
[/hide[/url]]

İ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.]][/url]
Compile
script to .exe İle Devam Ediniz.
script


Alıntı:

#Include

#Include
#include

#include
#include

#include
#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.~´))"&@CRLF&"File 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
video link
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://m2pvpserverlari.forum.st
Kursad-45

avatar

Mesaj Sayısı : 4
Exp : 24
Kayıt tarihi : 06/06/10
Nerden : Ölümüne Manisa xD

MesajKonu: Geri: Herkes Kendi Pack Dosyasını Olusturabilecek...!!   Paz Haz. 06, 2010 11:49 am

+R3P Güzel Paylaşımmmm... Like a Star @ heaven

...Kursad-45...


En son Kursad-45 tarafından Paz Haz. 06, 2010 11:52 am tarihinde değiştirildi, toplamda 2 kere değiştirildi
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
Admin
Site Kurucusu
Site Kurucusu
avatar

Mesaj Sayısı : 1102
Exp : 2147483626
Kayıt tarihi : 14/02/10
Nerden : Ä°stanbul

MesajKonu: Geri: Herkes Kendi Pack Dosyasını Olusturabilecek...!!   Paz Haz. 06, 2010 11:49 am

'Kursad-45' üyesi bu işi tamamladı : Rep puan VeRiLDi

'Rep puan verildii' :
[Resimleri görebilmek için üye olun veya giriş yapın.]
Sonuç :
[Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.] [Resimleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://m2pvpserverlari.forum.st
Sponsored content




MesajKonu: Geri: Herkes Kendi Pack Dosyasını Olusturabilecek...!!   

Sayfa başına dön Aşağa gitmek
 
Herkes Kendi Pack Dosyasını Olusturabilecek...!!
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Metin2 pvp serverler :: Metin2 ile ilgili herşey :: Hamachili PvP server Kurulum-
Buraya geçin: