[פרסום] בוט קלאבים

[orelnati120]

בוט קלאבים

alias HL {
  sockclose HL
  set %ticks $ticks
  set %temp.ip $1
  bset -t &x 1 $str($chr(255),4) $+ TSource Engine Query
  bset &x $calc($bvar(&x,0) + 1) 0
  sockudp -k HL $replace($1,:,$chr(32)) &x
}
on *:UDPREAD:HL:{
  sockread -f &reply
  var %offset, %name, %map, %game, %num, %max, %ip, %dir
  if ($chr($bvar(&reply,5)) == m) {
    %offset = 6
    %ip = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%ip) + 1)
    %name = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%name) + 1)
    %map = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%map) + 1)
    %dir = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%dir) + 1)
    %game = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%game) + 1)
    %num = $bvar(&reply,%offset)
    %max = $bvar(&reply,$calc(%offset + 1))
  }
  else {
    %offset = 7
    %name = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%name) + 1)
    %map = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%map) + 1)
    %dir = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%dir) + 1)
    %game = $bvar(&reply,%offset,128).text
    inc %offset $calc($len(%game) + 1)
    %num = $bvar(&reply,$calc(%offset + 2))
    %max = $bvar(&reply,$calc(%offset + 3))
  }
  write clubs.txt 5[14« 05Server14: %name 05IP14: %temp.ip 05Map14: %map 05Players14: %num $+ / $+ %max 05Ping14: $calc($ticks - %ticks) $+ ms 14»5]
  .timerHL off
  sockclose $sockname
  .timerTIMEOUT off
  unset %temp.ip
  unset %ticks
}
alias clubs {
  .remove clubs.txt
  var %x 1
  while ($ini(clubs.ini,%x)) {
    .timer 1 %x HL $readini(clubs.ini,$v1,IP)
    inc %x
  }
  .timer 1 $lines(clubs.ini) Clubing
}
alias Clubing {
  mode %Chan +m
  var %x 1
  while (%x <= $lines(clubs.txt)) {
    .timer 1 %x msg %Chan $read(clubs.txt,%x)
    inc %x
  }
  .timer 1 %x mode %Chan -m
  .remove clubs.txt
}
menu * {
  Add Server: {
    var %x 1 | while ($ini(clubs.ini,%x)) { inc %x }
    writeini clubs.ini $calc(%x +1) ip $$?"Enter IP:PORT"
  }
  Set Channel: { set %Chan $$?"Enter Channel" }
  Say The Clubs: { /Clubs }
}
on *:text:!clubs:%Chan: { if (!%Flood) { /clubs | set -u [ $+ [ $lines(clubs.txt) ] ] %Flood ON } }

להגדרה
מקש ימיני לא משנה איפה...
Set Channel...
ואז Add Server...
תוסיפו כמה שבא לכם...
הסרברים בעיקרון נמצאים בקובץ clubs.ini אם משהו לא נראה לכם תערכו משהו...
וזהו...
להפעלה !clubs בערוץ...

קרדיט לקהילה אחרת
תהנו

[rikufu]

תודה