Dabar yra 2019-09-19, 22:02




Naujos temos kūrimas Atsakyti į temą  [ 3 pranešimai(ų) ] 
Scripteriu prasau pagalbos! 
Autorius Žinutė
Naujokas
Naujokas

Užsiregistravo: 2012-02-16, 19:24
Pranešimai: 55
Forumo litai: 84
Pinigų pervedimas
Standartinė Scripteriu prasau pagalbos!
Sveiki , norejau paklaust gal kas nors galetu man padaryt toki scriptuka kai parasai .add $nick 50 30 (50 nuzude 30 mire) tada rasai .top5 ir raso ta nick ir 50 [kills] 30 [deaths] dar sonuose. Ir juk galetu addint tik admin , buciau labai diekingas


2012-02-19, 23:37
Aprašymas
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-11, 19:56
Pranešimai: 285
Forumo litai: 304
Pinigų pervedimas
Miestas: Negerija
Standartinė Re: Scripteriu prasau pagalbos!
Isbandziau, viskas veikia 100%. I variables isidek save kaip Owneri ( /set %owner gezhars ) ir kur parasyta TAVO_KANALAS pasikeisk i savo kanala. Komandos: .top, .add nickas fragai mirtys, .clear(Istrina visus zaidejus is saraso), .del nickas(Istrina norima zaideja is saraso).
Kodas:
on *:text:*:#TAVO_KANALAS: {
  if ($1 == .top) {
    topas 1 5 $nick
  }
  elseif ($1 == .add) {
    if ($nick == %owner) {
      if ($2) {
        if ($3) {
          if ($4) {
            write -ds $+ $2 kills.txt
            write kills.txt $2 $3
            write -ds $+ $2 deaths.txt
            write deaths.txt $2 $4
            .notice $nick 0,1Sekmingai priskirti taskai zaidejui $2.
          }
          else .notice $nick 0,1Nenurodei dead tasku.
        }
        else .notice $nick 0,1Nenurodei kill tasku.
      }
      else .notice $nick 0,1Nenurodei zaidejo nick'o.
    }
  }
  elseif ($1 == .clear) {
    if ($nick == %owner) {
      write -c kills.txt
      write -c deaths.txt
      .notice $nick 0,1Sekmingai istrynete visa zaidejo top'a.
    }
  }
  elseif ($1 == .del) {
    if ($nick == %owner) {
      if ($2) {
        write -ds $+ $2 kills.txt
        write -ds $+ $2 deaths.txt
        .notice $nick 0,1Sekmingai istrynete zaideja $2 is top'o.
      }
      else .notice $nick 0,1Nenurodei zaidejo nick'o.
    }
  }
}
alias topas {
  if ($read(kills.txt) != $null) {
    var %tint 1
    var %lines $lines(kills.txt)
    var %tmsg, %tstr, %tnick, %tscore, %ttok
    while (%tint <= %lines) {
      %tstr = $read(kills.txt,%tint)
      %tnick = $gettok(%tstr,1,32)
      %tscore = $gettok(%tstr,2,32)
      %ttok = %ttok %tscore $+ @ $+ %tnick
      inc %tint
    }
    %ttok = $sorttok(%ttok,32,nar)
    %tint = $1
    %lines = $iif($2 > %lines,%lines,$2)
    while (%tint <= %lines) {
      %tstr = $gettok(%ttok,%tint,32)
      %tmsg = %tmsg %tint $+ . $+ $gettok(%tstr,2,64) Kills: $+ $gettok(%tstr,1,64) $+ , Deaths: $+ $read(deaths.txt,s,$gettok(%tstr,2,64))
      inc %tint
    }
    .notice $nick 0,1Zaideju top 5: %tmsg $+ .
  }
  else .notice $nick 0,1Top'o nera.
}

_________________
Gincas internete - tas pats, kas silpnaprociu olimpiada, jei ir laimesi - vistiek tu PYYP.


2012-02-20, 20:05
Aprašymas
Naujokas
Naujokas

Užsiregistravo: 2012-02-16, 19:24
Pranešimai: 55
Forumo litai: 84
Pinigų pervedimas
Standartinė Re: Scripteriu prasau pagalbos!
ACIU :)))))


2012-02-20, 22:40
Aprašymas
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 3 pranešimai(ų) ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 1 svečias


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į:  
cron
© phpBB Group. Veikia phpBB pagrindu.
Dizaino autorius Vjacheslav Trushkin, adaptavo Igor „MucTuK“ Gubaidulin
Vertė Vilius Šumskas © 2003, 2005, 2007