[פרסום] מידע על שרת וונטרילו - Ventrilo Information

[Arthas]

גירסא חדשה משופרת קוד טוב יותר. גירסא 3.0

שם הקוד: מידע על שרת הוונטרילו שלכם
יוצר: Arthas
גירסא: 3.0
תיאור: מראה מידע על הוונט כמו מספר האנשים המחוברים או המקסימום שיכולים, שם הוונט וכו'.. בערוץ כאשר מישהו כותב !Vent או !Ventrilo.
הפעלה: הכנסת הקוד לרימווט (Alt +R) הגדרת האייפי והפורט של הוונט ע"י מקש ימיני -> Ventrilo Sockets -> Iport
הגדרת הערוץ שתרצו שבו יקבלו את המידע והקוד יעבוד בו ע"י מקש ימיני גם.. -> Channel
קוד:

קוד: בחר הכל

; ——————————————————————————————————————————————— ;
; Arthas Ventrilo Sockets v3.0
; ——————————————————————————————————————————————— ;

Alias Ventsock { sockclose Ventrilo | sockopen Ventrilo www.Ventrilo.com 80 | sockmark Ventrilo $1- }
on *:sockopen:Ventrilo: {
  if (!$sockerr) {
    var %a = sockwrite -tn $sockname
    %a GET /status.php?hostname= $+ $replace($sock($sockname).mark,:,&port=) HTTP/1.1
    %a Host: www.Ventrilo.com
    %a $crlf
  }
}
on *:sockread:Ventrilo:{
  var %a
  sockread %a
  if (Ventrilo server is not responding isin %a) || (<strong>Invalid port.</strong> isin %a) { msg %VentChannel Ventrilo server is not responding. | inc -u2 %Vflood | sockclose Ventrilo }
  elseif ($regex(%a,/<td width="25%" bgcolor=".+"> (.+) </td>/)) { set -u1 %write $regml(1) }
  elseif (%write) && ($regex(%a,/<td width="75%" bgcolor=".+"> (.+) </td>/)) { set -u5 %Vent. $+ $replace(%Write,Max clients,Max,Client count,User) $regml(1) | unset %Write }
}
on *:sockclose:Ventrilo: msg %VentChannel Hostname $+ : $+(%Vent.name,$iif(%Vent.Comment,$chr(32) $+ ( $+ $v1 $+ )),$Chr(44)) IPort $+ : $sock($sockname).mark $+ $Chr(44) Users $+ : $+(%Vent.user,/,$remove(%Vent.Max,,$chr(32)),$Chr(44)) Version $+ : %Vent.Version $+ . | unset %Vent.* | inc -u3 %Vflood
on *:text:!Vent*:%VentChannel: if (($1 == !Vent) || ($1 == !Ventrilo)) && (!%Vflood) { inc -u6 %Vflood | Ventsock %Ventiport }
menu * {
  Ventrilo sockets
  .Set IPort: if ($input(Write IP:Port,e,Ventrilo sockets,%Ventiport)) Set %Ventiport $v1
  .Set Channel: if (#* iswm $input(Write #Channel,e,Ventrilo sockets,%VentChannel)) Set %VentChannel $v2
  .-
  .$Style(2) By Arthas: noop
}



[naorzie]

יפה מאוד כפרע עליךך

[SinteL]

אהבתי, יהיה לי לשימוש בעתיד (:
תמשיך להשקיע.

[vendetta]

ציפיתי מימך למשהו אחר ! לא הייתי מצפה אם חשבתי שאתה לא מסוגל :\

בכל אופן קוד חמוד

[ZxoR]

תודה רבה, אני קצת מתלבט לגבי הקוד, אגיע להחלטה בהמשך.

[Arthas]

יונתן במיוחד בשבילך עשיתי שיפור עם הרג'אקס בקוד :} וגם sockmark שלמדתי ממך ;] 3>

[ZxoR]

Arthas כתב:

יונתן במיוחד בשבילך עשיתי שיפור עם הרג'אקס בקוד :} וגם sockmark שלמדתי ממך ;] 3>

כל הכבוד
עם כל כמה שהסקריפט כתוב בצורה טובה, הוא לא מתאים לאף פורום חוץ מלארכיון, זה לא אומר שהוא נעלם מהפורום... פשוט אין לו פורום מתאים במדוייק