| BiGBeLa | 01 Temmuz 2008 15:13 |
Scriptinize Ördek Avı Kodu
Evet arkadaşlar kodu aşağıda ama ben kolaylık olsun die klasör olarak hazırladım çünkü kod yetmiyor birkaç resim ve logo geekio.
şimdi önce bunu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bunu bilgisayara indirin sonra çıkartın ve mirc klasörüne olduğu gibi kopyalayın
Rar şifresi: ircforumlari
ayrıca merak ederseniz bu da kodu Kod:
menu * {
-
Duck Shoot:{
window -pdk0 @DuckShoot 0 0 700 500
DsSt
}
-
}
alias DsM1 {
if (%DsDi == 1) {
set %DsP $calc($gettok(%DsP,1,32) + %DsSp) $calc($gettok(%DsP,2,32) $iif($r(0,1),-,+) $r(1,4))
if ($gettok(%DsP,1,32) > 820) {
DsNew
inc %DsMi
}
}
elseif (%DsDi == 0) {
set %DsP $calc($gettok(%DsP,1,32) - %DsSp) $calc($gettok(%DsP,2,32) $iif($r(0,1),-,+) $r(1,4))
if ($gettok(%DsP,1,32) < -120) {
DsNew
inc %DsMi
}
}
if (%DsMi >= 5) DsEnd
elseif (%DsMi < 5) {
drawpic -c @DuckShoot 0 0 DuckShoot\dsbg.PNG
drawpic -tc @DuckShoot 16777215 $iif($mouse.x,$mouse.x,350) 350 DuckShoot\Gun.PNG
drawpic -tc @DuckShoot 16777215 %DsP %DsPi
drawtext @DuckShoot 4 arial 30 200 10 Kaçırılan: %DsMi
drawtext @DuckShoot 6 arial 30 400 10 En Yüksek Puan: $iif(%HiDs,%HiDs,N/A)
drawtext @DuckShoot 1 arial 30 10 10 Puan: %DsSc
drawrect -e @DuckShoot 1 2 $calc($mouse.x - 30) $calc($mouse.y - 30) 60 60
drawrect -e @DuckShoot 1 2 $calc($mouse.x - 50) $calc($mouse.y - 50) 100 100
drawline @DuckShoot 1 2 $calc($mouse.x - 70) $mouse.y $calc($mouse.x + 70) $mouse.y
drawline @DuckShoot 1 2 $mouse.x $calc($mouse.y - 70) $mouse.x $calc($mouse.y + 70)
}
}
menu @DuckShoot {
sclick:{
if (%DsOv) DsSt
else {
if (($mouse.y isnum $+($gettok(%DsP,2,32),-,$+($calc($gettok(%DsP,2,32) + 100)))) && ($mouse.x isnum $+($gettok(%DsP,1,32),-,$+($calc($gettok(%DsP,1,32) + 100))))) {
inc %DsSc %DsSp
splay -w $scriptdirquack.wav
DsNew
}
}
}
}
on *:CLOSE:*:{
if ($target == @DuckShoot) {
unset %ds*
.timerds* off
}
}
alias DsSt {
if (!%HiDs) set %HiDs 0
if (%DsOv) unset %DsOv
drawpic -c @DuckShoot 0 0 DuckShoot\dsbg.PNG
drawtext @DuckShoot 1 arial 30 10 10 Puan: 0
drawtext @DuckShoot 4 arial 30 200 10 Kaçırılan: 0
drawtext @DuckShoot 6 arial 30 400 10 En Yüksek Puan: $iif(%HiDs,%HiDs,N/A)
drawpic -tc @DuckShoot 16777215 50 50 DuckShoot\duck1.PNG
set %DsMi 0
set %DsSc 0
set %DsP -118 $r(10,200)
drawpic @DuckShoot 0 0 DuckShoot\dsbg.PNG
set %DsSp 15
set %DsPi DuckShoot\duck1.PNG
set %DsDi 1
.timerDsD1 -h 0 100 DsM1
}
alias DsEnd {
.timerds* off
if (%DsSc > %HiDs) set %HiDs %DsSc
drawpic -c @DuckShoot 0 0 DuckShoot\dsbg.PNG
drawtext @DuckShoot 13 arial 50 100 200 Kaybettiniz! Puan: %DsSc
drawtext @DuckShoot 13 arial 20 230 250 Sag Tıklayarak Yeniden Başlatın
drawtext @DuckShoot 1 arial 30 10 10 Score: %DsSc
drawtext @DuckShoot 6 arial 30 400 10 Highest score: $iif(%HiDs,%HiDs,N/A)
drawtext @DuckShoot 4 arial 30 200 10 Missed: %DsMi
unset %ds*
set %DsOv true
DsNew
}
alias DsNew {
set %DsDi $r(0,1)
inc %DsSp 1
set %DsDi $r(0,1)
if (%DsDi == 1) {
set %DsPi DuckShoot\duck $+ $iif($rand(0,19),1,2) $+ .PNG
set %DsP -300 $r(10,250)
}
else {
set %DsPi DuckShoot\duck $+ $iif($rand(0,19),3,4) $+ .PNG
set %DsP 1000 $r(10,250)
}
}
evet umarım işinize yarar arkadaşlar. |
