Dabar yra 2019-09-16, 04:54




Naujos temos kūrimas Atsakyti į temą  [ 6 pranešimai(ų) ] 
PCW botas 
Autorius Žinutė
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-11, 19:56
Pranešimai: 285
Forumo litai: 304
Pinigų pervedimas
Miestas: Negerija
Standartinė PCW botas
Kodas:
on *:text:*:#: {
  set %nickas $nick
  if ($1 == .pcw) {
    var %t.s $readini(sistema.ini,$chan,t.s)
    var %f.s $readini(sistema.ini,$chan,f.s)
    var %s  $+ %t.s $+ , $+ %f.s
    var %t 0, $+ %f.s
    if ($lines($chan $+ .laisvi.txt) == $null || $lines($chan $+ .laisvi.txt) == 0) {
      notice $nick %t Atsiprasome siuo metu laisvu serveriu $+ %s nera %t $+ .
    }
    else {
      var %zodis
      if ($lines($chan $+ .laisvi.txt) == 1) %zodis = serveris
      elseif (($lines($chan $+ .laisvi.txt) > 1) && ($lines($chan $+ .laisvi.txt) < 10) ) %zodis = serveriai
      elseif ($lines($chan $+ .laisvi.txt) < 10) %zodis = serveriu
      notice $nick %t Yra %s $+ $lines($chan $+ .laisvi.txt) %t $+ %zodis $+ , noredami gauti viena rasykite %s $+ .startpcw $+ %t .
    }
  }
  elseif ($1 == .startpcw) {
    var %t.s $readini(sistema.ini,$chan,t.s)
    var %f.s $readini(sistema.ini,$chan,f.s)
    var %s  $+ %t.s $+ , $+ %f.s
    var %t 0, $+ %f.s
    if ($lines($chan $+ .laisvi.txt) == $null || $lines($chan $+ .laisvi.txt) == 0) {
      notice $nick %t Atsiprasome siuo metu laisvu serveriu $+ %s nera %t $+ .
    }
    else {
      if ($readini(sistema.ini,$nick,pcw) != on) {
        writeini sistema.ini $chan $nick $read($chan $+ .laisvi.txt,1)
        write -dl1 $chan $+ .laisvi.txt
        writeini sistema.ini $nick pcw on
        writeini sistema.ini $nick chan $chan
        writeini sistema.ini $nick t.s %t.s
        writeini sistema.ini $nick f.s %f.s
        timer 1 $calc($calc($readini(sistema.ini,$chan,laikas) - 5) * 60) laikas $nick
        set %nick $nick
        cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32))
        msg $nick %t Jums priskirtas $+ %s $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32) %t $+ serveris, jo slaptazodi galite nustatyti: %s $+ .password <slaptazodis> $+ %t $+ , jusu pcw galiojimo laikas: %s $+ $readini(sistema.ini,$chan,laikas) $+ %t $+ min. visas komandas suzinosite parase: %s $+ .pagalba $+ %t $+ .
        .notice $nick %t Sekmingai paimete serveri.     
      }
      else { .notice $nick %t Jus jau turite pasiemes pcw arena, noredami jos atsisakyti rasykite %s $+ .stoppcw %t $+ mano private. }
    }
  }
  elseif ($1 == .stoppcw) && ($readini(sistema.ini,$nick,pcw) == on) {
    var %t.s $readini(sistema.ini,$chan,t.s)
    var %f.s $readini(sistema.ini,$chan,f.s)
    var %s  $+ %t.s $+ , $+ %f.s
    var %t 0, $+ %f.s
    write $readini(sistema.ini,$nick,chan) $+ .laisvi.txt $readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick)
    .notice $nick %t Jus sekmingai atsisakete PCW serverio.
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Aciu kad naudojates musu paslaugomis.
    timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_password pcwbymatoxaz
    timer 1 5 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) changelevel de_dust
    timer 1 10 msg $readini(sistema.ini,$nick,chan) %t Atsilaisvino $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32) serveris, noredami ji gauti rasykite %s $+ .startpcw 
    remini sistema.ini $chan $nick
    remini sistema.ini $nick
  }
}
on *:connect: {
  nick %bot.nick
  identify %bot.pw
  var %visi 1
  while (%visi <= $ini(sistema.ini,0)) {
    if ($left($ini(sistema.ini,%visi),1) == $chr(35)) {
      timer 1 $calc(%visi * 0.5) join $ini(sistema.ini,%visi)
    }
    inc %visi
  }
}
on *:text:*:?: {
  var %ch $readini(sistema.ini,$nick,chan)
  var %t.s $readini(sistema.ini, $+ %ch $+ ,t.s)
  var %f.s $readini(sistema.ini, $+ %ch $+ ,f.s)
  var %s  $+ %t.s $+ , $+ %f.s
  var %t 0, $+ %f.s
  if ($1 == .server) {
    if ($ini(sistema.ini,admin,$nick)) {
      var %ch $readini(sistema.ini,admin,$nick)
      var %t.s $readini(sistema.ini, $+ %ch $+ ,t.s)
      var %f.s $readini(sistema.ini, $+ %ch $+ ,f.s)
      var %s  $+ %t.s $+ , $+ %f.s
      var %t 0, $+ %f.s
      if (!$2) { .msg $nick %t Komandos: %s $+ .server add %t $+ (prideti serveri prie jusu saraso) %s $+ .server list %t $+ (jusu serveriu sarasas) %s $+ .server del %t $+ (istrinti serveri is saraso, serveris turi buti laisvas(nepaimtas)) %s $+ .server change %t $+ (norint pakeisti serverio rcona(serveris taip pat turi buti laisvas)) }
      elseif ($2 == add) {
        if ($left($right($3,6),1) == :) && ($4) {
          write %ch $+ .txt $3 $4
          write %ch $+ .laisvi.txt $3 $4
          .msg $nick %t Sekmingai pridetas %s $+ $lines(%ch $+ .txt) %t $+ serveris, Dabar yra $+ %s $lines(%ch $+ .laisvi.txt) %t $+ laisvi serveriai.
        }
        else { notice $nick %t Sintakse: %s $+ .server add ip:port rcon %t $+, pvz: .server add 78.59.54.43:27015 limonadas }
      }
      elseif ($2 == list) {
        if ($lines(%ch $+ .txt) != 0) {
          var %srv 1
          while (%srv >= $lines(%ch $+ .txt)) {
            timer 1 $calc(%srv * 0.5) .msg $nick %t Serveris %s $+ %srv %t $+ Ip %s $+ $gettok($read(%ch $+ .txt,%srv),1,32) %t $+ Rcon %s $+ $gettok($read(%ch $+ .txt,%srv),2,32) $+ %t $+ .
            dec %srv
          }
        }
        else { .msg $nick %t Nera serveriu. }
      }
      elseif ($2 == del) {
        if ($3) {
          if ($3 <= $lines(%ch $+ .txt)) {
            var %srvas $gettok($read(%ch $+ .txt, $3),1,32)
            write -dl $+ $3 %ch $+ .txt
            write -ds $+ %srvas %ch $+ .laisvi.txt
            .msg $nick %t Sekmingai istrintas %s $+ $3 %t $+ serveris.
          }
          else { .msg $nick %t Jus turite tik $lines(%ch $+ .txt) serveriu. }
        }
        else { .msg $nick %t Sintakse: %s $+ .server del <serverio numeris> $+ %t $+ ,pvz: .server del 3 }
      }
      elseif ($2 == change) {
        if ($3 <= $lines(%ch $+ .txt)) && ($4) {
          var %srvas $gettok($read(%ch $+ .txt, $3),1,32)
          write -ds $+ %srvas %ch $+ .txt
          write -ds $+ %srvas %ch $+ .laisvi.txt
          write %ch $+ .txt %srvas $4
          write %ch $+ .laisvi.txt %srvas $4
          .msg $nick %t Serverio %s $+ %srvas %t $+ rconas pakeistas i %s $+ $4 $+ %t $+ .
        }
        else { .msg $nick %t Sintakse: %s $+ .server change <serverio numeris> <naujas rcon> $+ %t $+ ,pvz: .server change 3 limonadas }
      }
    }
    else { .msg $nick 0,1 Norint naudotis sia komanda turite uzsisakyti bota, daugiau info e-mail 7,01maToxaZ.c@inbox.lt0. }
  }
  elseif ($1 == .laikas) {
    if ($ini(sistema.ini,admin,$nick)) {
      if ($2 isnum) && ($2 > 30) && ($2 < 101) {
        var %ch $readini(sistema.ini,admin,$nick)
        var %t.s $readini(sistema.ini, $+ %ch $+ ,t.s)
        var %f.s $readini(sistema.ini, $+ %ch $+ ,f.s)
        var %s  $+ %t.s $+ , $+ %f.s
        var %t 0, $+ %f.s
        writeini sistema.ini $readini(sistema.ini,admin,$nick) laikas $2
        .msg $nick %t Nustatytas laikas: %s $+ $2 $+ %t $+ min.
      }
      else { .msg $nick %t Sintakse: %s $+ .laikas <laikas minutemis> $+ %t $+ , si komanda leidzia jums nustatyti kuriam laikui bus galima pasiimti pcw serverius(default - 45 min),maziausia 30 min, daugiausia - 100, pvz: .laikas 60 }
    }
    else { .msg $nick 0,01 Turite uzsisakyti bota norint naudotis sia komanda.Klausimai7 matoxaz.c@inbox.lt }
  }
  elseif ($1 == .fcolor) && ($2) {
    if ($ini(sistema.ini,admin,$nick)) {
      var %ch $readini(sistema.ini,admin,$nick)
      writeini sistema.ini %ch f.s $2
      var %t.s $readini(sistema.ini, $+ %ch $+ ,t.s)
      var %f.s $readini(sistema.ini, $+ %ch $+ ,f.s)
      var %s  $+ %t.s $+ , $+ %f.s
      var %t 0, $+ %f.s
      .msg $nick %t Fonos spalva %s $+ pakeista
    }
  }
  elseif ($1 == .tcolor) && ($2) {
    if ($ini(sistema.ini,admin,$nick)) {
      var %ch $readini(sistema.ini,admin,$nick)
      writeini sistema.ini %ch t.s $2
      var %t.s $readini(sistema.ini, $+ %ch $+ ,t.s)
      var %f.s $readini(sistema.ini, $+ %ch $+ ,f.s)
      var %s  $+ %t.s $+ , $+ %f.s
      var %t 0, $+ %f.s
      .msg $nick %t Teksto spalva %s $+ pakeista
    }
  }
  elseif ($1 == .addchan) && ($2) && ($3) && ($nick == %bot.owner) {
    writeini sistema.ini admin $3 $2
    writeini sistema.ini $2 laikas 45
    writeini sistema.ini $2 t.s 4
    writeini sistema.ini $2 f.s 01
    notice $nick Kanalas $2 pridetas, owneris $3
    join $2
    timer 1 1 msg $3 0,1 Sveikiname! Kanale $2 pridetas PCW botas, noredami nusistatyti spalvas mano private rasykite: 7,01 $+ .fcolor 0(fono spalva), 7.tcolor 0(teksto spalva) , noredami prideti serverius rasykite 7.server
    timer 1 2 msg $3 0,1 Daugiau komandu parasius 7.help0 Aciu, kad naudojates musu paslaugomis.
  }
  elseif ($1 == .delchan) && ($left($2,1) == #) && ($nick == %bot.owner) {
    if ($ini(sistema.ini,$2,t.s)) {
      remini sistema.ini $2
      write -c $2 $+ .txt
      write -c $2 $+ .laisvi.txt
    }
    else { .msg $nick nera tokio kanalo sarase }
  }
  elseif ($1 == .rr) && ($readini(sistema.ini,$nick,pcw) == on) {
    if (%chnum. $+ $nick) {
      cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_restart 1
    }
    else {
      set %nick $nick
      cmd $gettok($readini(sistema.ini,$nick,ip),1,58) $gettok($readini(sistema.ini,$nick,ip),2,58)
    }
    ivyko $nick $1 %t %s
  }
  elseif ($1 == .pagalba) && ($readini(sistema.ini,$nick,pcw) == on) {
    var %pagalba 1
    while (%pagalba <= $lines(pagalba.txt)) {
      timer 1 $calc(%pagalba * 0.5) msg $nick %t $read(pagalba.txt,%pagalba)
      inc %pagalba
    }
  }
  elseif ($1 == .live) && ($readini(sistema.ini,$nick,pcw) == on) {
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Live zaidimas po 3 restartu
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_roundtime 1.75
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_startmoney 800
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_freezetime 6
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_buytime 0.25
    timer 1 1 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_restart 1
    timer 1 2 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Live zaidimas po 2 restartu
    timer 1 2 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_restart 1
    timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Live zaidimas po 1 restarto
    timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_restart 1
    timer 1 4 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] LIVE zaidimas prasidejo
    timer 1 10 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] PCW paslaugos irc:maToxaZ
    ivyko $nick $1 %t %s
  }
  elseif ($1 == .warmup) && ($readini(sistema.ini,$nick,pcw) == on) {
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Warmup po vieno restarto
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_roundtime 5
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_startmoney 16000
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_freezetime 1
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) mp_buytime 20
    timer 1 1 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_restart 1
    timer 1 1.2 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Warmup Round
    timer 1 10 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] PCW paslaugos irc:maToxaZ
    ivyko $nick $1 %t %s
  }
  elseif ($1 == .password) && ($2) && ($readini(sistema.ini,$nick,pcw) == on) {
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32))
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_password $2-
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Serverio slaptazodis buvo pakeistas.
    ivyko $nick $1 %t %s
  }
  elseif ($1 == .kick) && ($2) && ($readini(sistema.ini,$nick,pcw) == on) {
    var %k $chr(35) $+ $2
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) kick %k
    ivyko $nick $1 %t %s
  }
  elseif ($1 == .kicklist) && ($readini(sistema.ini,$nick,pcw) == on) {
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) status
  }
  elseif ($1 == .map) && ($len($2) > 5) && ($readini(sistema.ini,$nick,pcw) == on) {
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) changelevel $2
    ivyko $nick $1 %t %s
  }
  elseif ($1 == .stoppcw) && ($readini(sistema.ini,$nick,pcw) == on) {
    write $readini(sistema.ini,$nick,chan) $+ .laisvi.txt $readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick)
    .msg $nick %t Jus sekmingai atsisakete PCW serverio.
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) say [PCW by maToxaZ] Aciu kad naudojates musu paslaugomis.
    timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) sv_password pcwbymatoxaz
    timer 1 5 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32),:,$chr(32)) $readini(sistema.ini,$nick,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),2,32) changelevel de_dust
    timer 1 10 msg $readini(sistema.ini,$nick,chan) %t Atsilaisvino $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32) serveris, noredami ji gauti rasykite %s $+ .startpcw 
    remini sistema.ini $chan $nick
    remini sistema.ini $nick
  }
  elseif ($1 == .ip) && ($readini(sistema.ini,$nick,pcw) == on) {
    msg $nick %t Jusu serverio ip - $gettok($readini(sistema.ini,$readini(sistema.ini,$nick,chan),$nick),1,32)
  }
  elseif ($1 == .pratesti) && ($readini(sistema.ini,$nick,pcw) == on) && ($ini(sistema.ini,$nick,gali)) {
    writeini sistema.ini $nick pratesimas 1
  }
}

alias cmd {
  if (!$3) {
    .sockudp -kn pcw $1 $2 ÿÿÿÿchallenge rcon
  }
  else {
    sockudp -kn pcw $1 $2 ÿÿÿÿchallenge rcon
    .sockudp -kn pcw $1 $2 ÿÿÿÿrcon $3 " $+ $4 $+ " $5-
  }
}


on *:udpread:pcw:{
  if ($sockerr > 0) {
    return
  }
  :nextreada
  sockread -f %pcw.sock
  if ($sockbr == 0) {
    return
  }
  if (%pcw.sock == $null) {
    goto nextreada
  }
  else {
    if (players isin %pcw.sock) {
      var %zaidejai $gettok(%pcw.sock,3,32)
      write sistema.txt %zaidejai Zaidejai
    }
    if ($chr(35) == $gettok(%pcw.sock,1,32)) && (name != $gettok(%pcw.sock,2,32)) {
      write sistema.txt $gettok(%pcw.sock,2,32) $gettok(%pcw.sock,4,32) $remove($gettok(%pcw.sock,3,32),")
      timer 1 $calc($gettok(%pcw.sock,2,32) * 0.5) msg %nickas 0,1 $gettok(%pcw.sock,2,32) - $remove($gettok(%pcw.sock,3,32),") ( $+ $gettok(%pcw.sock,5,32) $+ ), kodas 4.kick $gettok(%pcw.sock,4,32) 
    }
    if ($gettok(%pcw.sock,1,32) == ÿÿÿÿchallenge) {
      writeini sistema.ini %nick chnum $gettok(%pcw.sock,3,32)
    }
    if ($left(%pcw.sock,5) == ÿÿÿÿl) {
      %pcw.sock = $remove(%pcw.sock,$left(%pcw.sock,5))
    }
  }
  aline -p @pcw %pcw.sock
  goto nextreada
}
alias laikas {
  if ($readini(sistema.ini,$1,pcw) == on) {
    var %t.s $readini(sistema.ini, $+ $1 $+ ,t.s)
    var %f.s $readini(sistema.ini, $+ $1 $+ ,f.s)
    var %s  $+ %t.s $+ , $+ %f.s
    var %t 0, $+ %f.s
    .msg $1 %t Jusu pcw galiojimas baigiasi, noredami pratesti pcw galiojimo laika 15 minutemis rasykite mano private: %s $+ .pratesti $+ %t .
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) say [maToxaZ] Pcw galiojimo laikas baigiasi,galite naudotis komanda .pratesti
    timer 1 300 pratesimas $1
    writeini sistema.ini $1 gali 1
    timer 1 300 remini sistema.ini $1 gali
  }
}
alias pratesimas {
  if ($readini(sistema.ini,$1,pcw) == on) {
    if ($ini(sistema.ini,$1,pratesimas)) {
      .msg $1 0,1Jusu pcw galiojimas pratestas dar 1 min.
      timer 1 600 pabaiga $1
    }
    else {
      var %t.s $readini(sistema.ini, $+ $1 $+ ,t.s)
      var %f.s $readini(sistema.ini, $+ $1 $+ ,f.s)
      var %s  $+ %t.s $+ , $+ %f.s
      var %t 0, $+ %f.s
      .msg $1 %t Baigesi jusu pcw galiojimo laikas. Aciu kad naudojates musu paslaugomis.
      timer 1 10 msg $readini(sistema.ini,$1,chan) %t Atsilaisvino $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32) serveris, noredami ji gauti rasykite %s $+ .startpcw 
      cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) say [PCW by maToxaZ] Aciu kad naudojates musu paslaugomis.
      timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) sv_password pcwbymatoxaz
      timer 1 5 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) changelevel de_dust
      write $readini(sistema.ini,$1,chan) $+ .laisvi.txt $readini(sistema.ini,$readini(sistema.ini,$1,chan),$1)
      timer 1 6 remini sistema.ini $readini(sistema.ini,$1,chan) $1
      timer 1 7 remini sistema.ini $1
    }
  }
}
alias pabaiga {
  if ($readini(sistema.ini,$1,pcw) == on) {
    var %t.s $readini(sistema.ini, $+ $1 $+ ,t.s)
    var %f.s $readini(sistema.ini, $+ $1 $+ ,f.s)
    var %s  $+ %t.s $+ , $+ %f.s
    var %t 0, $+ %f.s
    .msg $1 %t Baigesi jusu pcw galiojimo laikas. Aciu kad naudojates musu paslaugomis.
    timer 1 10 msg $readini(sistema.ini,$1,chan) %t Atsilaisvino $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32) serveris, noredami ji gauti rasykite %s $+ .startpcw 
    cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) say [PCW by maToxaZ] Aciu kad naudojates musu paslaugomis.
    timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) sv_password pcwbymatoxaz
    timer 1 5 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) changelevel de_dust
    write $readini(sistema.ini,$1,chan) $+ .laisvi.txt $readini(sistema.ini,$readini(sistema.ini,$1,chan),$1)
    timer 1 6 remini sistema.ini $readini(sistema.ini,$1,chan) $1
    timer 1 7 remini sistema.ini $1
  }
}
alias ivyko {
  msg $1 $3 Ivykdyta komanda $4 $+ $2 $3 $+ .
}
on *:start: {
  if (!%start) {
    dialog -m inbox inbox
  }
  else { server }
}
dialog inbox {
  title "Pcw Sistema"
  size -1 -1 133 156
  option dbu
  text "Si langa jus matysite tik viena karta, tad duomenis iveskite teisingai", 1, 9 4 110 16, center
  text "Pcw boto nickas", 2, 2 25 40 8
  text "Pcw boto slaptazodis", 3, 2 38 50 8
  text "Serveris", 4, 2 51 24 8
  text "Portas", 5, 2 65 24 8
  text "Boto savininko nickas:", 6, 2 87 128 8, center
  button "Toliau", 7, 3 140 56 12
  button "Aciu, ne dabar", 8, 73 140 56 12
  edit "maToxaZ", 9, 2 100 129 10, limit 30 center
  edit "", 10, 58 24 63 10, autohs limit 30 center
  edit "", 11, 58 36 63 10, pass autohs center
  edit "", 13, 58 64 63 10, limit 7 center
  combo 12, 58 50 63 50, size drop
  text "Pagrindinis boto kanalas:", 14, 2 112 128 8, center
  edit "#help", 15, 2 125 129 10, limit 30 center
}
on *:dialog:inbox:*:*: {
  if ($devent == init) {
    did -a inbox 12 irc.data.lt
    did -a inbox 12 irc.ktu.lt
    did -a inbox 12 irc.mikrovisata.lt
    did -a inbox 12 irc.kis.lt
    did -a inbox 12 irc.torrent.lt
    did -a inbox 12 irc-ssl.data.lt
  }
  if ($devent == sclick) {
    if ($did == 12) {
      if ($did(inbox,12).seltext == irc-ssl.data.lt) {
        did -ra inbox 13 +6668
      }
      else { did -ra inbox 13 6667 }
    }
    if ($did == 8) {
      dialog -x inbox
      disconnect
      exit
    }
    if ($did == 7) {
      set %start 1
      set %bot.owner $did(inbox,9)
      set %bot.chan $did(inbox,15)
      set %bot.pw $did(inbox,11)
      set %bot.nick $did(inbox,10)
      writeini sistema.ini admin %bot.owner %bot.chan
      writeini sistema.ini %bot.chan laikas 45
      writeini sistema.ini %bot.chan t.s 4
      writeini sistema.ini %bot.chan f.s 01
      server $did(inbox,12).seltext $did(inbox,13)
      dialog -x inbox
    }
  }
}




EDIT:

Cia buvo sena tema kuria autorius nenorejo dalintis labai :) O kiek matau visai neblogas PCW botas paredaguotas ir sutvarkytas aso :) Gero naudojimosi
Ishban

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


2011-10-28, 16:01
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: PCW botas
Pastebejau, forumas vietoj skliausteliu ( , ) pakeite i #40; #41; . Vietoj tu #40 ir #41; turetu buti skliausteliai!
Normalu bota idejau cia: NUORODA

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


2012-01-03, 20:55
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-08, 21:19
Pranešimai: 955
Forumo litai: 1125
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: PCW botas
Asas` rašė:
Pastebejau, forumas vietoj skliausteliu ( , ) pakeite i #40; #41; . Vietoj tu #40 ir #41; turetu buti skliausteliai!
Normalu bota idejau cia: NUORODA


Eh idejau kaip mIRC bbcode koda :D

Beja 40 ir 41 yra ascii ( ir ) numeriai :D ( nu $chr(..) )
reiktu pameginti gal mIRC supras :D

_________________
!!! <-

search.php & Google

Respect Existence or Expect Resistance


2012-01-13, 18:43
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: PCW botas
Zinau, kad tie 40 41 yra $chr(40) $chr(41) :)

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


2012-01-14, 00:57
Aprašymas

Užsiregistravo: 2011-01-17, 17:00
Pranešimai: 41
Forumo litai: 75
Pinigų pervedimas
Standartinė Re: PCW botas
ir kur čia šitą kelti kodą? įdėjau į remote padarau reconnect ir nieko..
Kur čia duonenis įrašyt serverių ar dar ką?


2012-02-27, 11:58
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2005-10-10, 20:07
Pranešimai: 1296
Forumo litai: 615
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: PCW botas
Sngz rašė:
Nuo mano udp tutorialo, paskui pasižiūrėk .ini failų tutorialą, ir galiausiai /help /timer, jei viską gerai ikirsi ir švariai parašysi kodą, tavo pcw botas užims iki 100 eilučių
.

Yra kur tobulėt :D Bet šaunu, kad pasidalinot. Ir įdėkit 'usage' kai dedat scriptus;)

Bonqe, nelabai ką galiu patart, gal kūrėjai patars daugiau, o iš manęs.. Mėgink rašyti //dialog -m inbox inbox ir ten tvarkytis;)

_________________
Niekada nebijok daryti to ko nemoki, atmink: Nojaus arką pastatė mėgėjas, o Titaniką - profesionalai.


2012-02-27, 12:17
Aprašymas WWW
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 6 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