IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

kheldor · 06 Ağustos 2012, 14:43

Merhaba Sevgili Arkadaşlar. Yabanci bir siteden bulup Menü ve içeriğini türkçeleştirdiğim Casiona Slot oyununda yardımınıza ihtiyacım var.
Sorunum şu:
!add chips nick (miktar) ile istediğimiz kullanıcıya para ekleyebiliyor
!del chips nick (miktar) ile oyuncunun parasını silebiliyoruz.

Ancak aşağıda vereceğim kodda bu komutu kanaldaki yetkisi olmayan herkes normal userlarda yapabiliyor böylece istediği kişiye ekleyip istediği kişinin parasini silebiliyor.

Lütfen Chip (para ekleme ve silme) sadece @lar yapabilsin.
@ harici bir normal user para eklemeye veya silmeye çalıstıgında Üzgünüm. Yetkili değilsiniz mesajını bot kanala yazsın.

Diğer !bakiye ve !bahis miktar komutlarını herkese açık kalacak sekilde tekrar düzenlermisiniz.
Eklenti olarak EK'tedir.
Saygilarimla

alias -l comma {
var %a, %b = $regsub($ticks,$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
return %a
}
on *:TEXT:*:#:{
if ($regex($1-2,/^!add chips$/Si)) {
if (!$4) || ($4 !isnum) msg # 5Lütfen Komutu Dogru Yazin. 2!add chips 4<nick> 5<chips>.
else {
set %Chips $calc($read(CasinoChips.txt, s, $3) + $4)
write -ds $+ $3 CasinoChips.txt
write CasinoChips.txt $3 %Chips
msg # 4 $nick $comma($4) Chip $+(5ekledi,$chr(44))4 $3'in 2Bakiyesi:4 $comma(%Chips) Chips.
}
}
elseif ($regex($1-2,/^!del chips$/Si)) {
if (!$4) || ($4 !isnum) msg # $+($nick,$chr(44)) 5Lütfen Komutu Dogru Yazin. 2!del chips 4<nick> 5<chips>..
else {
set %Chips $calc($read(CasinoChips.txt, s, $3) - $4)
write -ds $+ $3 CasinoChips.txt
write CasinoChips.txt $3 %chips
msg # 4 $nick $comma($4) Chip $+(5sildi,$chr(44))4 $3'in 2Bakiyesi:4 %Chips Chips.
}
}
elseif ($regex($1,/^!Bakiye$/Si)) {
if (!$2) {
set %balance $read(CasinoChips.txt, s, $nick)
if (!$read(CasinoChips.txt, s, $nick)) msg # $+($nick,$chr(44)) 4Bakiyeniz:5 0 Chip
elseif ($read(CasinoChips.txt, s, $nick)) msg # 5 $+($nick,$chr(44)) 2Bakiyeniz:4 $comma(%Balance) Chips.
}
else {
set %Balance $read(CasinoChips.txt, s, $2)
if (!$read(CasinoChips.txt, s, $2)) msg # $+($2,'s) Balance is: 0 Chips.
elseif ($read(CasinoChips.txt, s, $2)) msg # $+($2,'s)) Balance is: $comma(%Balance) Chips.
}
}
elseif ($regex($1,/^!bahis$/Si)) {
set %cbalance $read(CasinoChips.txt, s, $nick)
if (%cbalance < $2) msg # $+($nick,$chr(44)) you only have %cbalance chips
elseif (!$read(CasinoChips.txt, s, $nick)) msg # $+($nick,$chr(44)) You do not have anymore Chips to bet with.
elseif ($2 == $null) || ($2 !isnum) msg # $+($nick,$chr(44)) 4Dikkat! 5Komutu Dogru Yazin 4!Bahis 2(Bahis Konacak Miktar)
elseif ($2 < 0) msg # $+($nick,$chr(44)) Please use a positive number to bet with.
else {
set %prand $rand(1,175)
set %srand1 $rand(1,5)
set %srand2 $rand(1,5)
set %srand3 $rand(1,5)
while (%srand1 == %srand2) {
set %srand2 $rand(1,5)
}
if (%prand < 5) {
set %srand1 3
set %srand2 3
set %srand3 3
}
elseif (%prand < 15) {
set %srand1 2
set %srand2 2
set %srand3 2
}
elseif (%prand < 30) {
set %srand1 1
set %srand2 1
set %srand3 1
}
if (%srand1 == 1) set %srand1 @
if (%srand1 == 2) set %srand1 %
if (%srand1 == 3) set %srand1 $
if (%srand1 == 4) set %srand1 &
if (%srand1 == 5) set %srand1 !
if (%srand2 == 1) set %srand2 @
if (%srand2 == 2) set %srand2 %
if (%srand2 == 3) set %srand2 $
if (%srand2 == 4) set %srand2 &
if (%srand2 == 5) set %srand2 !
if (%srand3 == 1) set %srand3 @
if (%srand3 == 2) set %srand3 %
if (%srand3 == 3) set %srand3 $
if (%srand3 == 4) set %srand3 &
if (%srand3 == 5) set %srand3 !
set %win1 $2
set %win2 $calc( $2 * 5 )
set %win3 $calc( $2 * 10 )
set %awins 0
msg # 4( %srand1 )5( %srand2 )2( %srand3 )
if (%srand1 == @) if (%srand2 == @) if (%srand3 == @) {
if (%srand1 == %srand2 && %srand2 == %srand3) {
if ($calc( %win1 * 2 ) > %awins) set %awins $calc( %win1 * 2 )
}
}
if (%srand1 == % || %srand2 == % || %srand3 == %) {
if (%srand1 == %srand2 && %srand2 == %srand3) {
if (%win2 > %awins) set %awins %win2
}
}
if (%srand1 == $ || %srand2 == $ || %srand3 == $) {
if (%srand1 == %srand2 && %srand2 == %srand3) {
if (%win3 > %awins) set %awins %win3
}
}
if (%awins == 0) {
msg # 5Üzgünüm.4 $comma($2) 2Chip Kaybettiniz!
write -ds $+ $nick CasinoChips.txt
set %outval $calc( %cbalance - $2 )
write CasinoChips.txt $nick %outval
}
else {
msg # 4Tebrikler! $comma(%awins) 2chips kazandiniz!
write -ds $+ $nick CasinoChips.txt
set %outval $calc(( %cbalance - $2 ) + %awins ))
write CasinoChips.txt $nick %outval
}
msg # $+($nick,$chr(44)) 5Kalan Chip Miktari:4 $comma($read(CasinoChips.txt, s, $nick))
notice $nick Lütfen 10 saniye bekleyin.
ignore -cu10 $nick
timertime 1 10 notice $nick Simdi Oynayabilirsiniz!
}
}
}