[סניפט] קלאן בוא פשוט ביותר

[orelnati120]

קלאן בוא פשוט ביותר

;;;;;;;;;;;;;;;;;;;;;
;;;;;;;Clan Bot;;;;
;;;;;;By XeRap`;;;
;;;;;;;;;;;;;;;;;;;;;
on *:load: {
  echo -ta Thank You For Using Clan Bot By XeRap` :D
  set %Vent NOTSET
  Set %Vent.ver NOTSET
  Set %Server NOTSET
  Set %News NOTSET
  Set %Roster NOTSET
  set %c.chan $$?="Enter Channel With # !!"
  set %Style $$?="Enter Style 1"
  set %Style2 $$?="Enter Style 2"
  set %vent $$?="Enter Vent ip"
  set %vent.ver $$?="Enter Vent Version Like: 2.1 3.0"
  set %server $$?="Enter Server ip"
}
on *:connect: {
  .timer 1 2 join %c.chan
}
on @*:text:*:%C.chan: {
  if ($1 == !Vent) && (!%flood) { msg # %Style Clan Vent Ip: %Vent Version %Vent.ver %Style2 | set -u2 %Flood 1 }
  if ($1 == !Server) && (!%flood) { msg # %Style Clan Server ip: %Server %Style2 | set -u2 %Flood 1 }
  if ( ($1 == !Help) || ($1 == !Commands) ) && (!%flood) { msg # %Style Commands: !Vent , !Server , !Roster , !News , !Credits , Owners Commands: !Notice <TEXT> , !Add <Name-Roster> , !Del <Name-Roster> , !Set <Vent,Ventver,Server,News> <TEXT> %Style2 | set -u2 %Flood 1 }
  if ($1 == !Roster) && (!%flood) { msg # %Style Clan Roster: %Roster %Style2 | set -u2 %Flood 1 }
  if ($1 == !News) && (!%flood) { msg # %Style Clan News: %News %Style2 | set -u2 %Flood 1 }
  if ($1 == !Credits) && (!%flood) { msg # %Style Clan Bot By XeRap` %Style2 | set -u2 %flood 1 }
  if ($1 == !Notice) && ($2) && ($istok(%Owners,$address($nick,2),32)) && (!%flood) { mode # +N | notice # %Style Msg From $nick $+ : $2- %Style2 | mode # -N | set -u2 %flood 1 }
  if ($1 == !Set) && ($istok(%Owners,$address($nick,2),32)) && (!%flood) {
    if ($2 == Vent) && ($3) { set %vent $3 | msg # %Style Done Owner. Vent Ip: $3 %Style2 }
    if ($2 == VentVer) && ($3) { set %vent $3 | msg # %Style Done Owner. Vent Version: $3 %Style2 }
    if ($2 == Server) && ($3) { set %server $3 | msg # %Style Done Owner. Server Ip: $3 %Style2 }
    if ($2 == News) && ($3) { Set %News $3- | msg # %Style Done Owner. News: $3- %Style2 }
    set -u2 %flood 1
  }
  if ($1 == !Add) && ($2) && ($istok(%Owners,$address($nick,2),32)) && (!%flood) {
    if (%Roster == NOTSET) { set %roster  }
    if ($istok(%Roster,$2,32)) { msg # %Style $2 Is Already in Roster %Style2 | set -u2 %flood 1 | halt }
    set %roster $addtok(%roster,$2,32)
    msg # %Style $2 Is Added To Roster %Style2
    set -u2 %Flood 1
  }
  if ($1 == !Del) && ($2) && ($istok(%Owners,$address($nick,2),32)) && (!%flood) {
    if (!$istok(%Roster,$2,32)) { msg # %Style No Find $2 Roster %Style2 | set -u2 %flood 1 | halt }
    set %roster $remtok(%roster,$2,32)
    msg # %Style $2 Is Removed from Roster %Style2
    set -u2 %Flood 1
  }
}
menu * {
  Set
  .Vent: set %vent $$?="Enter Vent ip" | set %vent.ver $$?="Enter Vent version"
  .Server: set %server $$?="Enter Server ip"
  .News: set %news $$?="Enter News"
  .Style1: set %style $$?="Enter Style 1"
  .Style2: set %style2 $$?="Enter Style 2"
  Add
  .Owner: set %Owners $addtok(%Owners,*!*@ $+ $$?="Enter Qacc" $+ .users.quakenet.org,32)
  .Roster: Set %Roster $addtok(%Roster,$$=?"Enter Roster Name",32)
  Del
  .Owner: set %Owners $remtok(%Owners,*!*@ $+ $$?="Enter Qacc" $+ .users.quakenet.org,32)
  .Roster: Set %Roster $remtok(%Roster,$$=?"Enter Roster Name",32)
  RrBot: Rr
}
alias Rr {
  set %Vent NOTSET
  Set %Vent.ver NOTSET
  Set %Server NOTSET
  Set %News NOTSET
  Set %Roster NOTSET
  set %Owners
}

קלאן בוט פשוט בלי יותר מדי סיבוכים
כדי להוסיף אונר:
קליק ימני
Add
Owner
מכניסים את ה Q Account Name

ורושמים בערוץ !Help
מראה את כל הפקודות למשתמשים רגילים ולאונרים

כאשר טוענים את הסקריפט הוא נותן לך לעשות הגדרות
ערוץ ונט סרבר גירסא ונט

הכל ניתן להגדיור גם דרך המניו
וגם אונרים דרך פקודה
!Set <NEWS,SERVER,Vent,Ventver> <TEXT>

כדי להוסיף ולמחוק רוסטסר
!Add <NICK>
!Del <NICK>
רק על ידי אונרים!!!!
קרדיט לפורום אחר
תהנו

[rikufu]

נחמד תודה

[Human]

תודה תימני