IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   !ipucu vermesi mümkünmü? Yardim edermisiniz? (https://www.ircforumlari.net/mirc-scripting-sorunlari/313217-ipucu-vermesi-mumkunmu-yardim-edermisiniz.html)

Azad 26 Ocak 2010 18:22

!ipucu vermesi mümkünmü? Yardim edermisiniz?
 
Selamun aleyküm, IRCForumlari.net kullanicilari..
XcLusive(HaLiL)'in yazdigi Kaos mIRC versionu kendimce editlemeye calistim. Takildigim 1-2 bölüm var, bunlari cözebilirmiyiz?
Soru sordugunda 3 defa ipucu vermesini istiyorum yani Trivia gibi, örnek;
343.Soru: Bu konuyu kim acti?
1.ipucu:*****
2.ipucu: Q***r
3.ipucu: Q*car
Soruyu bilemediginiz. Cevap: QscaR. sanirim acik bir sekilde anlattim.
Ve birde kacinci soru oldugunu ayarlasak >> 343.Soru gibi.
PHP- Kodu:

Coded by XcLusive(HaLiL)
;
###### deðiþtirilecek bölümler ######
alias -l botnick return islamisoru
alias 
-l kanal return %Oyunkanali
;#### deðiþtirilecek bölüm sonu #####
alias mdir return $remove($mircexe,$nopath($mircexe))
alias -l puan return 20
alias 
-l sorular { return $shortfn($mdir $+ sorular.txt) }
alias -l sorusira set %sorusira $rand(1,$lines($sorular)) }
alias -l soru { return $gettok($read($sorular,%sorusira),1,42) }
alias -l cevaplar set %cevaplar $gettok($read($sorular,%sorusira),2-,42) }
alias -l toplucevap { return $regsubex(%cevaplar,/(\*)/g,$+($chr(32),$chr(124),$chr(32))) }
alias -l 10 msg $kanal 4Ýpucu08,02Cevaplanan$calc($numtok($gettok($read($sorular,%sorusira),2-,42),42) - $numtok(%cevaplar,42)) Toplam $numtok($gettok($read($sorular,%sorusira),2-,42),4212 20 1Saniye kaldý! }
alias -l 20 msg $kanal 4Ýpucu: ******3 10 6Puan 14-3 10 6Sn.1 kaldý! }
alias -l sor 
  
sorusira 
  cevaplar
  msg $kanal 0
,4Soru:9,1 $soru $+ ? 
  
msg $kanal 4Doðru Cevapa3 20 6Puan 
  
.timer15 1 10 10
  
.timer30 1 20 20
  
.timer45 1 30 sorukapat
}
alias -l sorukapat {
  
msg $kanal 6Sorunun Cevabý: 14«1 $toplucevap 14»
  
.timerssoru 1 5 msg $kanal 3Hazýrlanýn sýradaki soru geliyor...
  .
timersor 1 8 sor
}
alias -l sorupuanlarý {
  if (!
$hget(toplist)) { hmake toplist }
  unset %
sorupuanlar
  
var %$hget(puanlar,0).data,%x
  
while (%i) {
    %
0,10 $hget(puanlar,%i).item 0,6 $hget(puanlar,%i).data
    
var %nick $hget(puanlar,%i).item,%puan $hget(puanlar,%i).data
    set 
%sorupuanlar $addtok(%sorupuanlar,%x,32)
    if (
$hget(toplist,%nick)) { hadd toplist %nick $calc($hget(toplist,%nick) + %puan) }
    else { 
hadd toplist %nick %puan }
    
dec %i
  
}
  .
hfree -sw puanlar hsave -a toplist $qt($+($mdir,toplist.data))
  return 
0,6Puanlar: $+ $iif(%sorupuanlar == $null,$+ $chr(44) $+ 6Yok,%sorupuanlar)
}
on *:start:{ 
  
hmake toplist 
  
if $isfile($+($mdir,toplist.data)) { hload toplist $qt($+($mdir,toplist.data)) }
  else { 
hsave -a toplist $qt($+($mdir,toplist.data)) }
  
server $sunucu
}
on *:text:*:#:{
  
if $chan != $kanal halt
  
if $== !tekrar msg $kanal 0,4Soru tekrarý:9,1 $soru $+ ?
  if $
== !top10 msg $kanal $toplist }
  if $
== !puan 
    if ($
2) { msg $kanal 6 $+ $nick $+ 1 $qt($2) $+  1Nickli kiþinin puaný:6 $iif($hget(toplist,$2),$hget(toplist,$2),Yok) }
    else { 
msg $kanal 6 $+ $nick $+ 1 Sizin puanýnýz:6 $iif($hget(toplist,$nick),$hget(toplist,$nick),Yok) }
  }
  if $
== !basla && $nick ison $chan && %bot != on msg $kanal 6«1 Ýslami SoruBot$+ $qt($nick) $+  1 tarafýndan baþlatýldý. Hazýrlanýn.. 6» | .timerbot 1 5 sor set %bot on halt 
  elseif $
== !gec && %bot != off msg $kanal 6!gec1 Komutu ile bir sonraki soruya gecildi3Sorunun cavabi 14«6 $toplucevap 14» | .set %bot on | .timerbot 1 2 sor halt }  
  elseif $
== !dur && %bot != off msg $kanal  6«1 Ýslami SoruBot$+ $qt($nick) $+  1 tarafýndan durduruldu!6 » set %bot off | .timers off hsave -a toplist $qt($+($mdir,toplist.data)) | halt }
  if %
bot == on && $findtok(%cevaplar,$1-,0,42) {
    
set %cevaplar $remtok(%cevaplar,$1-,$v1,42)
    
msg # 4Tebrikler1 $nick $+ 3 $puan 6Puan kazandýnýz!4 Dogru cevap: 3 $+ $qt($1-)
    
if !$hget(puanlar) { hmake puanlar }
    if 
$hget(puanlar,$nick) { hadd puanlar $nick $calc($hget(puanlar,$nick) + $puan) }
    else { 
hadd puanlar $nick $puan }
    if !
$numtok(%cevaplar,42) {
      
msg $kanal $sorupuanlarý
      .
timer15 off | .timer30 off | .timer45 off | .timerssoru off | .timersor off
      
.timer 1 5 msg $kanal 3Bir sonraki soru için hazýrlanýn...
      .
timer 1 8 sor
    
}
  }
}
on *:exit:hsave -a toplist $qt($+($mdir,toplist.data))
on *:disconnect:set %bot off hsave -a toplist $qt($+($mdir,toplist.data))
alias -l toplist {
  
hsave -a toplist $qt($+($mdir,toplist.data))
  .
hfree -sw toplist hmake toplist hload toplist $qt($+($mdir,toplist.data))
  if (!
$hget(top10puan)) { hmake top10puan }
  var %
xc $hget(toplist,0).data
  
while %xc {
    
set %top10puan $addtok(%top10puan,$hget(toplist,%xc).data,46)
    
dec %xc
  
}
  var %
sira $sorttok(%top10puan,46,nr)
  var %
1,%1,%1,%1,%1,%1,%1,%1,%1,%10 1
  
%0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46)
  %
0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46)
  %
0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46)
  %
0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46)
  %
0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46)
  %
0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46)
  %
0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46)
  %
0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46)
  %
0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46)
  %
10 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46)
  return 
0,6Top10 Puan Listesi $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)
}
alias -l fazlaise {
  unset %
| unset %w
  
var %$hfind(toplist,$1,0,w).data
  
while (%i) {
    %
$hfind(toplist,$1,%i,w).data
    
%= %%w
    dec 
%i
  
}
  return 
$replace($sorttok(%w,32,a),$chr(32),$chr(44))


Yukarda belirttigim gibi, kendimce editlemeye calistim. Bilgisi olmadan editledim, umarim yanlis birsey yapmamisimdir. Zaten kimin yazdiginida belirttim. Yardimlarinizi bekliyorum..

iyi ve hayrli Forumlar dilerim[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

Lucifer 26 Ocak 2010 18:47

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
Bildiğim kadarıyla soruları sorarken yani..

!tekrar dediğinde aynı soruyu tekrarlıyor..

ipucu konusuna gelirsek, Tek şıklı bir cevap yok yani oyunda 7 8 sorulu cevaplarda var ona göre düzenlenmiş. zaten ipucu şeklinde olursa bir zevkide kalmaz diye düşünüyorum..

Kişisel fikrim..

Azad 26 Ocak 2010 23:03

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
Alıntı:

Lucifer Nickli Üyeden Alıntı (Mesaj 1040306236)
Bildiğim kadarıyla soruları sorarken yani..

!tekrar dediğinde aynı soruyu tekrarlıyor..

ipucu konusuna gelirsek, Tek şıklı bir cevap yok yani oyunda 7 8 sorulu cevaplarda var ona göre düzenlenmiş. zaten ipucu şeklinde olursa bir zevkide kalmaz diye düşünüyorum..

Kişisel fikrim..

Lucifer, dedigin dogru Kaos soru botunda 1'den fazla cevap oldugu icin ipucu vermiyor.Konuyu acarkende belirtmistim, kendimce editledim. Kaos botu gibi soru sormuyor. Tek soru tek cevap seklinde Trivia gibi, yapmak istedim.. Yardimlarinizi bekliyorum..

iyi ve hayrli, Forumlar dilerim[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

CipriX 27 Ocak 2010 01:05

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
istediklerin çok basit şeyler fakat hangi değişgende cevap var vs. bilmediğimizden dolayı senin istediğini yapmak için oturup bu kodu baştan aşşağıya satır satır incelemek gerek, bunun yerine kodun sahibine bir pm atsan yardım sever biridir seni kırmaz yardımcı olur.

XcLusive 27 Ocak 2010 01:50

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
kodu bir eklenti şeklinde koyarsan düzeltebilirim ama saten multi cevap olduğu için ipucu biraz abartılı hangi kelime için ipucu verecek ki? :)
345. soru gibi eklenti olabilir. ama dediğim gibi bu kod bende yok foruma koyarsan bişiler yapmaya çalışırız..
(php modunda eklemişsin ve bazı yerler eksik çıkmış)

Azad 27 Ocak 2010 15:08

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1040306681)
kodu bir eklenti şeklinde koyarsan düzeltebilirim ama saten multi cevap olduğu için ipucu biraz abartılı hangi kelime için ipucu verecek ki? :)
345. soru gibi eklenti olabilir. ama dediğim gibi bu kod bende yok foruma koyarsan bişiler yapmaya çalışırız..
(php modunda eklemişsin ve bazı yerler eksik çıkmış)

Halil, multi cevap islemini iptal ettim, Su örnek ile göstereyim..
[13:52] <QscaR> !basla
[13:52] <@islamisoru> « Islami SoruBot, "QscaR" tarafindan baslatildi. Hazirlanin.. »
[13:52] <@islamisoru> Soru: Islâmiyet'te akilli ve bâlig (ergen ve evlenecek yasa gelmis) olan kimsenin namaz kilarken açmasi veya her zaman baskasina göstermesi ve baskasinin bakmasi haram (günâh) olan yerleri?
[13:52] <@islamisoru> Dogru Cevapa: 20 Puan
[13:53] <@islamisoru> ipucu: Cevaplanan: 0 Toplam : 1 20 Saniye kaldi!
[13:53] <@islamisoru> ipucu: ****** 10 Puan - 10 Sn. kaldi!
[13:53] <@islamisoru> Sorunun Cevabi: « avret »

Umarim yeterli bir sekilde acikladim, Her sorunun tek cevapi var, örnekte de oldugu gibi, Fakat ipucu vermesini yapamadim, ipucu verdiginde saniye ve puanida azaltsin. Kodu tekrardan yaziyorum, insAllah sorunu cözersin Halil :-)

Konu acarkende belirtmistim, kendimce editledim örnek; !gec komutu ile bir sonra ki soruya geciyor :p

;Kod

Coded by: XcLusive(HaLiL)
;###### de&eth;i&thorn;tirilecek bölümler ######
alias -l botnick return islamisoru
alias -l kanal return %Oyunkanali
;#### de&eth;i&thorn;tirilecek bölüm sonu #####
alias mdir return $remove($mircexe,$nopath($mircexe))
alias -l puan return 20
alias -l sorular { return $shortfn($mdir $+ sorular.txt) }
alias -l sorusira { set %sorusira $rand(1,$lines($sorular)) }
alias -l soru { return $gettok($read($sorular,%sorusira),1,42) }
alias -l cevaplar { set %cevaplar $gettok($read($sorular,%sorusira),2-,42) }
alias -l toplucevap { return $regsubex(%cevaplar,/(\*)/g,$+($chr(32),$chr(124),$chr(32))) }
alias -l 10 { msg $kanal 4&Yacute;pucu: 08,02Cevaplanan: $calc($numtok($gettok($read($sorular,%sorusira),2-,42),42) - $numtok(%cevaplar,42)) Toplam : $numtok($gettok($read($sorular,%sorusira),2-,42),42) 12 20 1Saniye kald&yacute;! }
alias -l 20 { msg $kanal 4&Yacute;pucu: ******3 10 6Puan 14-3 10 6Sn.1 kald&yacute;! }
alias -l sor {
sorusira
cevaplar
msg $kanal 0,4Soru:9,1 $soru $+ ?
msg $kanal 4Do&eth;ru Cevapa: 3 20 6Puan
.timer15 1 10 10
.timer30 1 20 20
.timer45 1 30 sorukapat
}
alias -l sorukapat {
msg $kanal 6Sorunun Cevab&yacute;: 14«1 $toplucevap 14»
.timerssoru 1 5 msg $kanal 3Haz&yacute;rlan&yacute;n s&yacute;radaki soru geliyor...
.timersor 1 8 sor
}
alias -l sorupuanlar&yacute; {
if (!$hget(toplist)) { hmake toplist }
unset %sorupuanlar
var %i = $hget(puanlar,0).data,%x
while (%i) {
%x = 0,10 $hget(puanlar,%i).item 0,6 $hget(puanlar,%i).data
var %nick = $hget(puanlar,%i).item,%puan = $hget(puanlar,%i).data
set %sorupuanlar $addtok(%sorupuanlar,%x,32)
if ($hget(toplist,%nick)) { hadd toplist %nick $calc($hget(toplist,%nick) + %puan) }
else { hadd toplist %nick %puan }
dec %i
}
.hfree -sw puanlar | hsave -a toplist $qt($+($mdir,toplist.data))
return 0,6Puanlar: $+ $iif(%sorupuanlar == $null,0 $+ $chr(44) $+ 6Yok,%sorupuanlar)
}
on *:start:{
hmake toplist
if $isfile($+($mdir,toplist.data)) { hload toplist $qt($+($mdir,toplist.data)) }
else { hsave -a toplist $qt($+($mdir,toplist.data)) }
server $sunucu
}
on *:text:*:#:{
if $chan != $kanal halt
if $1 == !tekrar msg $kanal 0,4Soru tekrar&yacute;:9,1 $soru $+ ?
if $1 == !top10 { msg $kanal $toplist }
if $1 == !puan {
if ($2) { msg $kanal 6 $+ $nick $+ 1 $qt($2) $+  1Nickli ki&thorn;inin puan&yacute;:6 $iif($hget(toplist,$2),$hget(toplist,$2),Yok) }
else { msg $kanal 6 $+ $nick $+ 1 Sizin puan&yacute;n&yacute;z:6 $iif($hget(toplist,$nick),$hget(toplist,$nick),Yok ) }
}
if $1 == !basla && $nick ison $chan && %bot != on { msg $kanal 6«1 &Yacute;slami SoruBot, 6 $+ $qt($nick) $+  1 taraf&yacute;ndan ba&thorn;lat&yacute;ld&yacute;. Haz&yacute;rlan&yacute;n.. 6» | .timerbot 1 5 sor | set %bot on | halt }
elseif $1 == !gec && %bot != off { msg $kanal 6!gec1 Komutu ile bir sonraki soruya gecildi. 3Sorunun cavabi : 14«6 $toplucevap 14» | .set %bot on | .timerbot 1 2 sor | halt }
elseif $1 == !dur && %bot != off { msg $kanal 6«1 &Yacute;slami SoruBot, 6 $+ $qt($nick) $+  1 taraf&yacute;ndan durduruldu!6 » | set %bot off | .timers off | hsave -a toplist $qt($+($mdir,toplist.data)) | halt }
if %bot == on && $findtok(%cevaplar,$1-,0,42) {
set %cevaplar $remtok(%cevaplar,$1-,$v1,42)
msg # 4Tebrikler1 $nick $+ 3 $puan 6Puan kazand&yacute;n&yacute;z!4 Dogru cevap: 3 $+ $qt($1-)
if !$hget(puanlar) { hmake puanlar }
if $hget(puanlar,$nick) { hadd puanlar $nick $calc($hget(puanlar,$nick) + $puan) }
else { hadd puanlar $nick $puan }
if !$numtok(%cevaplar,42) {
msg $kanal $sorupuanlar&yacute;
.timer15 off | .timer30 off | .timer45 off | .timerssoru off | .timersor off
.timer 1 5 msg $kanal 3Bir sonraki soru için haz&yacute;rlan&yacute;n...
.timer 1 8 sor
}
}
}
on *:exit:hsave -a toplist $qt($+($mdir,toplist.data))
on *:disconnect:set %bot off | hsave -a toplist $qt($+($mdir,toplist.data))
alias -l toplist {
hsave -a toplist $qt($+($mdir,toplist.data))
.hfree -sw toplist | hmake toplist | hload toplist $qt($+($mdir,toplist.data))
if (!$hget(top10puan)) { hmake top10puan }
var %xc = $hget(toplist,0).data
while %xc {
set %top10puan $addtok(%top10puan,$hget(toplist,%xc).data,46)
dec %xc
}
var %sira = $sorttok(%top10puan,46,nr)
var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1
%1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46)
%2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46)
%3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46)
%4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46)
%5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46)
%6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46)
%7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46)
%8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46)
%9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46)
%10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46)
return 0,6Top10 Puan Listesi $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)
}
alias -l fazlaise {
unset %y | unset %w
var %i = $hfind(toplist,$1,0,w).data
while (%i) {
%y = $hfind(toplist,$1,%i,w).data
%w = %y %w
dec %i
}
return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}

iyi ve hayrli, Forumlar dilerim[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

XcLusive 27 Ocak 2010 15:40

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
Türkçe karakterler çıkmıyor sende onu dosyanın içine atıp foruma koyarmısın

Azad 27 Ocak 2010 17:42

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
Toplam 1 Eklenti bulunuyor.
Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1040307097)
Türkçe karakterler çıkmıyor sende onu dosyanın içine atıp foruma koyarmısın

Umarim bu sondur :-) Yurtdisinda olmanin zorluklari IRCForumlari.net'e de tasinda helal olsun :p

iyi ve hayrli, Forumlari dilerim[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

XcLusive 27 Ocak 2010 19:48

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
Senide uğraştırdım malum kodlar bende yok :)

Alıntı:

[19:39:14] <HaLiL> !basla
[19:39:15] <Kelebek23958> « İslami SoruBot, "HaLiL" tarafından başlatıldı. Hazırlanın.. »
[19:39:19] <Kelebek23958> Soru: xclusive kimdir??
[19:39:19] <Kelebek23958> Doğru Cevapa: 20 Puan
[19:39:29] <Kelebek23958> İpucu: ***il
[19:39:39] <Kelebek23958> İpucu: *alil
[19:39:45] <HaLiL> !dur
[19:39:45] <Kelebek23958> « İslami SoruBot, "HaLiL" tarafından durduruldu! »
Kod:

alias -l 10 { msg $kanal 4İpucu: $ipucu(2) }
alias -l 20 { msg $kanal 4İpucu: $ipucu(1) }
alias -l ipucu {
  var %sayı = $len(%cevaplar)
  var %ipucu = %cevaplar
  if $1 == 1 { var %böl2 = $int($calc(%sayı / 3)) | var %xc = $left(%cevaplar,%böl2) | return $replace(%ipucu,%xc,$str(*,%böl2)) }
  if $1 == 2 { var %böl3 = $ceil($calc(%sayı / 2)) | var %xc = $left(%cevaplar,%böl3) | return $replace(%ipucu,%xc,$str(*,%böl3)) }
}

üstteki remote değiştirilen kısımlar, biraz aceleye geldi umarım sorun çıkmaz.
şimdi sana nasıl * koyacağını anlatim bunu değiştirebilirsin, ilk önce remoteleri söyliyim
$int = bu remote çıkan bölme işleminde küsürat varsa onu düz hesaba çeker mesela 7 / 2 = 3 şeklinde
$ceil = aynı işlem 7 / 2 = 4
$int identifieri bölme işleminde küsürat varsa küsüratı siler ve önceki sayıyı alır.
$ceil identifieri aynı şekilde küsürat varsa küsüratı siler ve sonraki sayıyı alır.
ipucu sisteminde bunu kullandım mantığı şu:
ilk ip ucunda $ceil kullandım ve 2 ye böldüm yarısını yada daha fazlasını * şeklinde verecek
ikinci ip ucu sisteminde $int kullandım ve 3 e böldüm bölünen miktar az olduğu için * sayısıda az olacak ve ipucu çoğalacak.

kod: ekte..

dediğim gibi remotenin içindeki int ve ceil kısımlarını kendin nasıl ipucu vermek istiyorsan öyle ayarlarsın

Azad 28 Ocak 2010 18:00

Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?
 
HaLiL, yardimin icin tsk ederim, Soru: kisminda örnek; 345. soru eklentisini nasil yapariz, yeterince ugrastirdigimi biliyorum idare ediver :-))


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:29.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net