Dabar yra 2019-09-16, 04:55




Naujos temos kūrimas Atsakyti į temą  [ 3 pranešimai(ų) ] 
DEL serverio loginimo.(pagalbos) 
Autorius Žinutė

Užsiregistravo: 2012-07-14, 11:45
Pranešimai: 46
Forumo litai: 64
Pinigų pervedimas
Standartinė DEL serverio loginimo.(pagalbos)
Sveiki yra tame problema kad serverio nelogina, visas užklausas į serveri nusiunčia bet atsakymu į mircą jokių.

Kodus čia sudėsiu betkaip, bet esmė yra pačiuose juose.
Langas atsidaro kai tik prisiconectinu tai butu štai kodai
Kodas:
on *:connect: {
  ns ghost %nicke %botopw
  .timer 1 1 nick %botonick
  .timer 1 3 identify %botopw
  .timer 1 3 identify %chan %kanalopw
  .timer 1 4 mode %nicke +R
  .timer 1 4 join %chan
  .timereile 0 5 eile
  checkbans
  .timerblist 0 5 checkbans
  resetbot
  set %sub off
  set %negalimas off
  set %negalimass off
  langai
  .timer 0 120 tikrintis
  .timer 1 5 pradetilog
  .timer 1 7 tikrintis
  var %t 1
  while %t <= $lines(servers.txt) {
    .timer 1 1 sockudp -kn cs_ $+ challenge $+ _ $+ %t $gettok($gettok($read(servers.txt, $+ %t),1,32),1,58) $gettok($gettok($read(servers.txt, $+ %t),1,32),2,58) $str($chr(255),4) $+ challenge rcon
    .timer $+ challenge $+ _ $+ %t 0 5 sockudp -kn cs_ $+ challenge $+ _ $+ %t $gettok($gettok($read(servers.txt, $+ %t),1,32),1,58) $gettok($gettok($read(servers.txt, $+ %t),1,32),2,58) $str($chr(255),4) $+ challenge rcon
    inc %t
  }
}


o stai visi kiti.
Kodas:
alias logai {
  sockclose scorebotkoma_ $+ $1 $+ : $+ $2
  sockclose scorebota_ $+ $1 $+ : $+ $2
  aline -p @ $+ $1 $+ : $+ $2 ########################## PRADEDAMAS LOGINIMAS © ##########################
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " logaddress_del $ip 5
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " mp_logmessages 1
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " mp_logfile 1
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " mp_logdetail 0
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " log on
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " echo LOGINAM
  sockudp -k scorebota_ $+ $1 $+ : $+ $2 $5 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " logaddress_add $ip 5
}

alias challenge {
  .remove srv.ini
  .timer $+ challenge $+ _? off
  var %t 1
  while %t <= $lines(servers.txt) {
    .timer 1 1 sockudp -kn cs_ $+ challenge $+ _ $+ %t $gettok($gettok($read(servers.txt, $+ %t),1,32),1,58) $gettok($gettok($read(servers.txt, $+ %t),1,32),2,58) $str($chr(255),4) $+ challenge rcon
    .timer $+ challenge $+ _ $+ %t 0 5 sockudp -kn cs_ $+ challenge $+ _ $+ %t $gettok($gettok($read(servers.txt, $+ %t),1,32),1,58) $gettok($gettok($read(servers.txt, $+ %t),1,32),2,58) $str($chr(255),4) $+ challenge rcon
    inc %t
  }
}

alias tikrintis {
  if ($read(servers.txt)) {
    var %t 1
    while (%t <= $lines(servers.txt)) {
      var %failas $read(servers.txt,s, $+ $gettok($read(servers.txt, $+ %t),1,32) $+ )
      var %srvrs $readn
      var %rrcon $readini(srv.ini,challenge, $+ %srvrs)
      sockudp -kn tikrinti_ $+ $gettok($read(servers.txt, $+ %t),1,32) $gettok($gettok($read(servers.txt, $+ %t),1,32),1,58) $gettok($gettok($read(servers.txt, $+ %t),1,32),2,58) $str($chr(255),4) $+ rcon %rrcon " $+ $gettok($read(servers.txt, $+ %srvrs $+ ),2,32) $+ " status
      inc %t
    }
  }
}

on *:udpread:tikrinti*:{
  if ($sockerr > 0) {
    return
  }
  :nextreada
  sockread -f %sock.tikras
  if ($sockbr == 0) {
    return
  }
  if (%sock.tikras == $null) {
    goto nextreada
  }
  else {
    if (players == $gettok(%sock.tikras,1,32)) && ($gettok(%sock.tikras,3,32) == 0) && (!$readini(negalima.ini,negalima, $+ $gettok($sockname,2,95))) && ($read(vyksta.txt,s, $+ $gettok($sockname,2,95))) {
      write -ds $+ $gettok($sockname,2,95) vyksta.txt
    }
  } 
  goto nextreada
}

alias pradetilog {
  var %t 1
  sockclose scorebot*
  while (%t <= $lines(servers.txt)) {
    if (%t >= 10) { var %logport %t }
    else { var %logport 3 $+ %t }
    logai $gettok($gettok($read(servers.txt, $+ %t),1,32),1,58) $gettok($gettok($read(servers.txt, $+ %t),1,32),2,58) $gettok($read(servers.txt, $+ %t),2,32) $readini(srv.ini,challenge, $+ %t) 69 $+ %logport
    inc %t
  }
}

alias langai {
  if ($read(servers.txt)) {
    var %t 1
    while (%t <= $lines(servers.txt)) {
      window @ $+ $gettok($read(servers.txt, $+ %t),1,32)
      inc %t
    }
  }
}

Stai cia parasius kai gali nebelogint serveriu su šita komanda .log vel juos pradeda loginti.
Kodas:
if ($1 == .log) && ($nick == %owner) && ($nick isop %chan) {
    pradetilog
    .timer 1 2 tikrintis
    .msg $nick 0,1Pradedu $+ %spalva loginti 0serverius.


Ir štai ka man rašo kai aš juos loginu.

Paveikslėlis

Dėkingas bučiau kas padetu.


2012-11-27, 20:05
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1554
Forumo litai: 937
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: DEL serverio loginimo.(pagalbos)
Kodas:
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " logaddress_del $ip 5
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " mp_logmessages 1
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " mp_logfile 1
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " mp_logdetail 0
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " log on
  sockudp -kn scorebotkoma_ $+ $1 $+ : $+ $2 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " echo LOGINAM
  sockudp -k scorebota_ $+ $1 $+ : $+ $2 $5 $1 $2 $str($chr(255),4) $+ rcon $4 " $+ $3 $+ " logaddress_add $ip 5


Paziurek kokias komandas su logaddress siunti tu i serva ir tau klaia neta kokia ;] nes "current" logaddress'as yra visai ne ant to porto, ir seip susigalvok porta kazkoki kita, o ne "5" pvz 27001

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-11-28, 20:14
Aprašymas WWW

Užsiregistravo: 2012-07-14, 11:45
Pranešimai: 46
Forumo litai: 64
Pinigų pervedimas
Standartinė Re: DEL serverio loginimo.(pagalbos)
pakeiciau portus į $5 ir viska pradejo logint. Dėkui už šiokę tokę pagalbą. :)


2012-11-28, 22:50
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