mirc scripting gia megala myala omos!

[Xvipes]

>
ON 1:TEXT:!vote:#: {
 .enable #voting
 msg $chan Pshfiste gia to atomo pou sas aresei sto $chan $+ . Oi pshfoi katametrountai dinontas to Nick tou atomou prv se emena.
 set %chan $chan
 var %i = 1
 while (%i <= $nick(%chan,0)) {
   set %nick $nick(%chan,%i)
   writeini votes.ini nicks %i %nick
   writeini votes.ini votes %no $+ %nick 0
   inc %i
 }
}
#voting on
ON 1:TEXT:*:?: {
 var %i = 1
 while (($readini votes.ini banned %i != $false) && ($readini votes.ini banned %i != $nick)) {
   set %nick $1
   if ($1 ison %chan) {
     var %j = 1
     while ($readini votes.ini nicks %j != $false) {
       if (%nick == $readini votes.ini nicks %j) {
           inc %no $+ %nick 1
           writeini votes.ini votes %nick %no $+ %nick
         }
         msg $nick Euxaristw gia thn summetoxh, $nick $+ . H pshfos sou katametrh8hke.
         msg $nick Ta apotelesmata mexri stigmhs einai:
         var %k = 1
         while ($readini votes.ini votes %k != $false) {
           msg $nick $readini votes.ini votes %k
         }
       }
     }
   }
   else {
     To Nick pou dwsate den einai egkuro. Parakalw elegkste to gia tuxon or8ografika la8h.
   }
 }
 writeini votes.ini banned %i $nick
}
#voting end

 

 

 

loipon.... ayto einai mia idea gia ton eksis logo.thelw na ftiaksw ena tipo voting.dil.na psifizei o user pou einai mesa sto room gia kapoion xristi.ola ok omos to vote.ini pou ftiaxnete,den emfanizete sto xristi pou psifizei kai den metraei psifous.dil. egw mporei na psifisw ena atomo alla to vote.ini na min to exei metrisei.o kodikas douleuei mia xara ektos apo ta parapanw!!!(emfanisi kai counter) any ideas????iparxei kapoios allos tropos na to kanw?

[heavy_metal]

sou dixnw enan tropo pou 8a to ftiaxna egw

h lista 8a htan ths morfhs:

petros 5

kwstas 9

 

o kwdikas gia increase kai msg:

>
var %i = 1 
while (%i <= lines(test.txt)) {
 if ($gettok($read(test.txt,%i),1,32) == %nick) {
  write -l $+ %i test.txt %nick $calc($gettok($read(test.txt,%i),2,32) + 1)
 }
 inc %i
}
var %z=1
while(%z<= $lines(test.txt)) {
 if ($numtok(%total,44) < 10 )
 { 
   set %total %total $+ , $+ $read(test.txt,%i)
 }
 else {
   /msg $nick %total
   unset %total
 }
inc %z
}

(den dokimasa an leitourgei )

[Xvipes]

heavy_metal thanx alla den doulepse! mporei kapoios na mou bgalei olokliromeno ton kodika??? to kserw zitaw polla alla exw spasei to kefali mou alla den ginetai me tpt!!! ((((( thanx prokatavolika