[CoCoRiCo]

Yükle sag tıkla yada
/şif yaz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

menu * { 
  Köşeye şifrele :.şif 
}
alias şif {
  window -xa @tryco 
  echo -t @tryco 4,8Sol ok tuşuna 2 saniye basılı tusun ve ardından CTRL tusuna basın..
  echo -t @tryco  4,8 Şifrenizi yazın ve ardından onaylayın..
  echo -t @tryco  8,4 NOT: 6şifrenizi unutmayınız aksi halde Program acılmayacaktır..
 
}
on *:KEYDOWN:@:37: {  set %coco  1 |  inc %coco |  .timer_st 1 2 unset %coco  }
on *:KEYUP:@:*: { 
  var %k  $keyval $keyrpt  
  if ($gettok(%k,1,32) == 17) && ($gettok(%k,2,32) = $true) {
    if (%coco >= 2)  { 
    set  -u20 %_s ok  }
    if (%_s) { 
      :bida 
      var %_s2 $?*="Lütfen Kilit Şifresini giriniz..!" 
      if (!%_s1)  {  var %_s1 $?*="Tekrar giriniz" 
      }
      if (%_s1 != %_s2) {
unset %_s*        
goto bida
      }
      if (%_s1 == %_s2) {   
        hadd -m ccrc 1 $encode($encode(%_s2,m),m) 
        showmirc -m 
        showmirc -t 
        unset %_s* 
        set %ct 1
        if ($window(@tryco)) {  .window -c @tryco  }
      }
    }
  }
}
on *:ACTIVE:*: { if (%ct  == 1) {  if ($lactice == $null) { showmirc -t | var %pt_ $?*="Lütfen sifreyi giriniz." |   if (%pt_ != $decode($decode($hget(ccrc,1).data,m),m)) {
        unset %pt_ |  showmirc -m | showmirc -t
      }
  if (%pt_ == $decode($decode($hget(ccrc,1).data,m),m))  {  showmirc -x | unset %pt_ |  unset %ct | hfree ccrc  }  }  }
}