All pastes #998903 Raw Edit

BOT ADMIN CONTROLS!

public text v1 · immutable
#998903 ·published 2008-04-27 01:27 UTC
rendered paste body
menu * {
  -
  Bot Dialog:/dialog -md Bot Bot
  -
}
Alias Bot { 
  dialog -m Bot Bot
}
dialog Bot {
  title "Bot control"
  size -1 -1 200 200
  option dbu

  tab "Channel options and Messages" 1, -1 -1 200 185
  tab "Modes" 2,
  tab "Channels" 3,
  tab "Channels 2" 4, 

  list 36, 10 25 170 50, tab 4 vsbar
  box "[SS]Shawncs_Bot" 39, 2 15 185 65, tab 4

  Button "Update Shawncs_Bot" 43, 10 160 80 10, tab 3
  button "Update [RS]Shawncs_Bot" 44, 10 170 80 10, tab 3
  button "update [SS]Shawncs_Bot" 45, 10 160 80 10, tab 4
  button "Update [SK]Shawncs_Bot" 46, 10 170 80 10,tab 4

  box "[SK]Shawncs_Bot" 41, 2 85 185 65, tab 4
  list 40, 10 95 170 50, tab 4 vsbar 

  list 35, 10 25 170 50, tab 3 vsbar
  box "Shawncs_Bot" 42, 2 15 185 65, tab 3

  box "[RS]Shawncs_Bot" 38, 2 85 185 65, tab 3
  list 37, 10 95 170 50, tab 3 vsbar

  button "ok" 8, 0 190 30 10, ok   
  button "cancel" 9, 170 190 30 10, cancel

  box "Channel options" 10, 5 20 130 70, tab 1

  Button "Channel list" 11, 8 30 50 10, tab 1
  Button "Join Channel:" 14, 8 40 50 10, tab 1
  button "Part channel:" 12, 8 50 50 10, tab 1
  button "part all channels" 13, 8 60 50 10, tab 1

  check "" 81, 60 60 8 10, tab 1
  check "" 82, 60 50 8 10, tab 1
  check "" 83, 60 40 8 10, tab 1
  check "" 84, 60 30 8 10, tab 1

  Edit "Channel" 16, 70 40 50 8, tab 1 center autohs
  Edit "Reason" 17, 70 60 50 8, tab 1 center autohs

  Box "Messages" 18, 5 100 130 50, tab 1

  Button "Amsg" 19, 8 110 50 10, tab 1
  Button "Message Channel" 20, 8 120 50 10, tab 1
  Button "Message Nick" 21, 8 130 50 10, tab 1

  check "" 85, 60 110 8 10, tab 1
  check "" 86, 60 120 8 10, tab 1
  check "" 87, 60 130 8 10, tab 1

  Edit "Message" 22, 70 110 50 8, tab 1 center autohs
  Edit "Channel" 24, 70 120 50 8, tab 1 center autohs
  Edit "Nick" 23, 70 130 50 8, tab 1 center autohs

  button "Invite msg" 25, 8 20 50 10, tab 2
  Button "Ignore user" 27, 8 30 50 10, tab 2
  button "Temp ignore" 28, 8 40 50 10, tab 2
  button "Unignore" 29, 8 50 50 10, tab 2
  Button "Blacklist chan" 32, 8 60 50 10, tab 2 
  button "unBlacklist chan" 33, 8 70 50 10, tab 2
  button "Temp blacklist chan" 34, 8 80 50 10, tab 2

  Check "" 88, 1 20 7 10, tab 2
  check "" 89, 1 30 7 10, tab 2
  check "" 90, 1 40 7 10, tab 2
  check "" 91, 1 50 7 10, tab 2
  check "" 92, 1 60 7 10, tab 2
  check "" 93, 1 70 7 10, tab 2
  check "" 94, 1 80 7 10, tab 2

  text "Invite msg/reason for ignore:" 52, 60 22 100 10, tab 2 center

  edit "" 26, 60 30 100 10, tab 2 center autohs

  text "Users/channel name:" 51, 60 42 100 10, tab 2 center

  edit "" 30, 60 50 100 10, tab 2 center autohs

  text "Temp ignore time:" 50, 60 62 100 10, tab 2 center

  edit "" 31, 60 70 100 10, tab 2 center autohs

  Check "[RS]Shawncs_Bot" 100, 8 150 50 10, tab 1 tab 2
  check "[SS]Shawncs_Bot" 101, 8 160 50 10, tab 1 tab 2
  check "Shawncs_Bot" 102, 8 170 50 10, tab 1 tab 2

}
on 1:dialog:bot:init:0: {
  /did -b bot 50,51,52,15,13,12,11,14,19,20,21,25,27,28,29,32,33,34
  unset %bot1
  unset %bot2
  unset %bot3
  unset %bot4
}
On *:Dialog:BOT:sclick:80: {  
  if ($did(80).state == 1) { 
    /did -e bot 15 
  }
  else /did -b bot 15
} 
On *:Dialog:BOT:sclick:88: {  
  if ($did(88).state == 1) { 
    /did -e bot 25 
  }
  else /did -b bot 25
} 
On *:Dialog:BOT:sclick:89: {  
  if ($did(89).state == 1) { 
    /did -e bot 27 
  }
  else /did -b bot 27
}
On *:Dialog:BOT:sclick:90: {  
  if ($did(90).state == 1) { 
    /did -e bot 28 
  }
  else /did -b bot 28
} 
On *:Dialog:BOT:sclick:91: {  
  if ($did(91).state == 1) { 
    /did -e bot 29 
  }
  else /did -b bot 29
} 
On *:Dialog:BOT:sclick:92: {  
  if ($did(92).state == 1) { 
    /did -e bot 32 
  }
  else /did -b bot 32
} 
On *:Dialog:BOT:sclick:93: {  
  if ($did(93).state == 1) { 
    /did -e bot 33 
  }
  else /did -b bot 33
} 
On *:Dialog:BOT:sclick:94: {  
  if ($did(94).state == 1) { 
    /did -e bot 34 
  }
  else /did -b bot 34
} 
On *:Dialog:BOT:sclick:85: {  
  if ($did(85).state == 1) { 
    /did -e bot 19 
  }
  else /did -b bot 19
} 
On *:Dialog:BOT:sclick:86: {  
  if ($did(86).state == 1) { 
    /did -e bot 20 
  }
  else /did -b bot 20
} 
On *:Dialog:BOT:sclick:87: {  
  if ($did(87).state == 1) { 
    /did -e bot 21 
  }
  else /did -b bot 21
} 

On *:Dialog:BOT:sclick:83: {  
  if ($did(83).state == 1) { 
    /did -e bot 14 
  }
  else /did -b bot 14
} 
On *:Dialog:BOT:sclick:84: {  
  if ($did(84).state == 1) { 
    /did -e bot 11 
  }
  else /did -b bot 11
} 
On *:Dialog:BOT:sclick:81: {  
  if ($did(81).state == 1) { 
    /did -e bot 13
  }
  else /did -b bot 13
}
On *:Dialog:BOT:sclick:82: {  
  if ($did(82).state == 1) { 
    /did -e bot 12
  }
  else /did -b bot 12
}  
On *:Dialog:BOT:sclick:104: {  
  if ($did(104).state == 1) { 
    set %bot4 Shawncs_Bot
  }
  else unset %bot4
} 
On *:Dialog:bot:sclick:102: {  
  if ($did(102).state == 1) { 
    set %bot3 Shawncs_Bot
  }
  else unset %bot3
} 
On *:Dialog:bot:sclick:101: {  
  if ($did(101).state == 1) { 
    set %bot2 [SS]Shawncs_Bot
  }
  else unset %bot2
} 
On *:Dialog:bot:sclick:100: {  
  if ($did(100).state == 1) { 
    set %bot1 [RS]Shawncs_Bot
  }
  else unset %bot1
} 
on 1:dialog:Bot:edit:26: {
  if ($did(26).text == $null) { Unset %Bot.mode.invite }
  set %Bot.mode.invite $did(26).text (ADMIN $me $+ )
}
on 1:dialog:Bot:edit:30: {
  if ($did(30).text == $null) { Unset %Bot.mode.ignore }
  set %Bot.mode.ignore $did(30).text
}
on 1:dialog:Bot:edit:31: {
  if ($did(31).text == $null) { Unset %Bot.mode.temp }
  set %Bot.mode.temp $did(31).text 
}
on 1:dialog:Bot:edit:16: {
  if ($did(16).text == $null) { Unset %Bot.options.chan }
  set %Bot.options.chan $did(16).text 
}
on 1:dialog:Bot:edit:17: {
  if ($did(17).text == $null) { Unset %Bot.options.reason }
  set %Bot.options.reason $did(17).text (ADMIN $me $+ )
}
on 1:dialog:Bot:edit:22: {
  if ($did(22).text == $null) { Unset %Bot.msg.msg }
  set %Bot.msg.msg $did(22).text (ADMIN $me $+ )
}
on 1:dialog:Bot:edit:23: {
  if ($did(23).text == $null) { Unset %Bot.msg.nick }
  set %Bot.msg.nick $did(23).text 
}
on 1:dialog:Bot:edit:24: {
  if ($did(24).text == $null) { Unset %Bot.msg.chan }
  set %Bot.msg.chan $did(24).text
} 
on 1:dialog:BOT:Sclick:11: {
  /msg %bot1 11
  /msg %bot2 11
  /msg %bot3 11
}
on 1:dialog:BOT:Sclick:12: {
  /msg %bot1 12 %bot.options.chan %bot.options.reason
  /msg %bot2 12 %bot.options.chan %bot.options.reason
  /msg %bot3 12 %bot.options.chan %bot.options.reason
  /msg Shawnc Used 12 command.
}
on 1:dialog:BOT:Sclick:13: {
  /msg %bot1 13 %bot.options.reason
  /msg %bot2 13 %bot.options.reason
  /msg %bot3 13 %bot.options.reason
  /msg Shawnc Used 13 command.
}
on 1:dialog:BOT:Sclick:14: {
  /msg %bot1 14 %bot.options.chan
  /msg %bot2 14 %bot.options.chan
  /msg %bot3 14 %bot.options.chan
  /msg Shawnc Used 14 command.
}
on 1:dialog:BOT:Sclick:15: {
  /msg %bot1 15 %bot.options.reason
  /msg %bot2 15 %bot.options.reason
  /msg %bot3 15 %bot.options.reason
  /msg Shawnc Used 15 command.
}
on 1:dialog:BOT:Sclick:19: {
  /msg %bot1 19 %bot.msg.msg
  /msg %bot2 19 %bot.msg.msg
  /msg %bot3 19 %bot.msg.msg
  /msg %bot4 19 %bot.msg.msg
  /msg %bot5 19 %bot.msg.msg
  /msg Shawnc Used 19 command.
}
on 1:dialog:BOT:Sclick:20: {
  /msg %bot1 20 %bot.msg.chan %bot.msg.msg
  /msg %bot2 20 %bot.msg.chan %bot.msg.msg
  /msg %bot3 20 %bot.msg.chan %bot.msg.msg
  /msg %bot4 20 %bot.msg.chan %bot.msg.msg
  /msg %bot5 20 %bot.msg.chan %bot.msg.msg
  /msg Shawnc Used 20 command.
}
on 1:dialog:BOT:Sclick:21: {
  /msg %bot1 21 %bot.msg.nick %bot.msg.msg
  /msg %bot2 21 %bot.msg.nick %bot.msg.msg
  /msg %bot3 21 %bot.msg.nick %bot.msg.msg
  /msg %bot4 21 %bot.msg.nick %bot.msg.msg
  /msg %bot5 21 %bot.msg.nick %bot.msg.msg
  /msg Shawnc Used 21 command.
}
on 1:dialog:BOT:Sclick:25: {
  /msg Shawncs_Bot 26 %bot.mode.invite
  /msg [RS]Shawncs_Bot 26 %bot.mode.invite
  /msg [SS]Shawncs_Bot 26 %bot.mode.invite
  /msg [SK]Shawncs_Bot 26 %bot.mode.invite
  /msg [LL]Shawncs_Bot 26 %bot.mode.invite
  /msg Shawnc Used 26 command.
}
on 1:dialog:BOT:Sclick:27: {
  /msg [RS]Shawncs_Bot 27 %bot.mode.ignore %bot.mode.invite
  /msg [SS]Shawncs_Bot 27 %bot.mode.ignore %bot.mode.invite
  /msg [SK]Shawncs_Bot 27 %bot.mode.ignore %bot.mode.invite
  /msg [LL]Shawncs_Bot 27 %bot.mode.ignore %bot.mode.invite
  /msg Shawncs_Bot 27 %bot.mode.ignore %bot.mode.invite
  /msg Shawnc Used 27 command.
}
on 1:dialog:BOT:Sclick:28: {
  /msg [RS]Shawncs_Bot 28 %bot.mode.ignore %bot.mode.temp %bot.mode.invite
  /msg [SS]Shawncs_Bot 28 %bot.mode.ignore %bot.mode.temp %bot.mode.invite
  /msg [SK]Shawncs_Bot 28 %bot.mode.ignore %bot.mode.temp %bot.mode.invite
  /msg [LL]Shawncs_Bot 28 %bot.mode.ignore %bot.mode.temp %bot.mode.invite
  /msg Shawncs_Bot 28 %bot.mode.ignore %bot.mode.temp %bot.mode.invite
  /msg Shawnc Used 28 command.
}
on 1:dialog:BOT:Sclick:29: {
  /msg Shawncs_Bot 29 %bot.mode.ignore
  /msg [LL]Shawncs_Bot 29 %bot.mode.ignore 
  /msg [SK]Shawncs_Bot 29 %bot.mode.ignore  
  /msg [SS]Shawncs_Bot 29 %bot.mode.ignore
  /msg [RS]Shawncs_Bot 29 %bot.mode.ignore
  /msg Shawnc Used 29 command.
}
on 1:dialog:BOT:Sclick:32: {
  /msg [LL]Shawncs_Bot 32 %bot.mode.ignore
  /msg [SK]Shawncs_Bot 32 %bot.mode.ignore
  /msg [SS]Shawncs_Bot 32 %bot.mode.ignore
  /msg [RS]Shawncs_Bot 32 %bot.mode.ignore
  /msg Shawncs_Bot 32 %bot.mode.ignore
  /msg Shawnc Used 32 command.
}
on 1:dialog:BOT:Sclick:33: {
  /msg [LL]Shawncs_Bot 33 %bot.mode.ignore
  /msg [SK]Shawncs_Bot 33 %bot.mode.ignore
  /msg [SS]Shawncs_Bot 33 %bot.mode.ignore
  /msg [RS]Shawncs_Bot 33 %bot.mode.ignore
  /msg Shawncs_Bot 33 %bot.mode.ignore
  /msg Shawnc Used 33 command.
}
on 1:dialog:BOT:Sclick:34: {
  /msg [RS]Shawncs_Bot 34 %bot.mode.ignore %bot.mode.temp 
  /msg [SS]Shawncs_Bot 34 %bot.mode.ignore %bot.mode.temp
  /msg [SK]Shawncs_Bot 34 %bot.mode.ignore %bot.mode.temp
  /msg [LL]Shawncs_Bot 34 %bot.mode.ignore %bot.mode.temp
  /msg Shawncs_Bot 34 %bot.mode.ignore %bot.mode.temp
  /msg Shawnc Used 34 command.
}
ON *:TEXT:*:?: { if (90 isin $1) {
    if ($nick == Shawncs_Bot) {
      /did -o bot 35 1 $2
      /did -o bot 35 2 $3
      /did -o bot 35 3 $4
      /did -o bot 35 4 $5
      /did -o bot 35 5 $6
      /did -o bot 35 6 $7
      /did -o bot 35 7 $8
      /did -o bot 35 8 $9
      /did -o bot 35 9 $10
      /did -o bot 35 10 $11
      /did -o bot 35 11 $12
      /did -o bot 35 12 $13
      /did -o bot 35 13 $14
      /did -o bot 35 14 $15
      /did -o bot 35 15 $16
      /did -o bot 35 16 $17
      /did -o bot 35 17 $18
      /did -o bot 35 18 $19
      /did -o bot 35 19 $20
      /did -o bot 35 20 $21
      /did -o bot 35 21 $22
      /did -o bot 35 22 $23
      /did -o bot 35 23 $24
      /did -o bot 35 24 $25
      /did -o bot 35 25 $26
      /did -o bot 35 26 $27
      /did -o bot 35 27 $28
      /did -o bot 35 28 $29
      /did -o bot 35 29 $30
      /did -o bot 35 30 $31
    }
    elseif ($nick == [RS]Shawncs_Bot) {
      /did -o bot 37 1 $2
      /did -o bot 37 2 $3
      /did -o bot 37 3 $4
      /did -o bot 37 4 $5
      /did -o bot 37 5 $6
      /did -o bot 37 6 $7
      /did -o bot 37 7 $8
      /did -o bot 37 8 $9
      /did -o bot 37 9 $10
      /did -o bot 37 10 $11
      /did -o bot 37 11 $12
      /did -o bot 37 12 $13
      /did -o bot 37 13 $14
      /did -o bot 37 14 $15
      /did -o bot 37 15 $16
      /did -o bot 37 16 $17
      /did -o bot 37 17 $18
      /did -o bot 37 18 $19
      /did -o bot 37 19 $20
      /did -o bot 37 20 $21
      /did -o bot 37 21 $22
      /did -o bot 37 22 $23
      /did -o bot 37 23 $24
      /did -o bot 37 24 $25
      /did -o bot 37 25 $26
      /did -o bot 37 26 $27
      /did -o bot 37 27 $28
      /did -o bot 37 28 $29
      /did -o bot 37 29 $30
      /did -o bot 37 30 $31
    }
    elseif ($nick == [ss]Shawncs_Bot) {
      /did -o bot 36 1 $2
      /did -o bot 36 2 $3
      /did -o bot 36 3 $4
      /did -o bot 36 4 $5
      /did -o bot 36 5 $6
      /did -o bot 36 6 $7
      /did -o bot 36 7 $8
      /did -o bot 36 8 $9
      /did -o bot 36 9 $10
      /did -o bot 36 10 $11
      /did -o bot 36 11 $12
      /did -o bot 36 12 $13
      /did -o bot 36 13 $14
      /did -o bot 36 14 $15
      /did -o bot 36 15 $16
      /did -o bot 36 16 $17
      /did -o bot 36 17 $18
      /did -o bot 36 18 $19
      /did -o bot 36 19 $20
      /did -o bot 36 20 $21
      /did -o bot 36 21 $22
      /did -o bot 36 22 $23
      /did -o bot 36 23 $24
      /did -o bot 36 24 $25
      /did -o bot 36 25 $26
      /did -o bot 36 26 $27
      /did -o bot 36 27 $28
      /did -o bot 36 28 $29
      /did -o bot 36 29 $30
      /did -o bot 36 30 $31
    }
    elseif ($nick == [SK]Shawncs_Bot) {
      /did -o bot 40 1 $2
      /did -o bot 40 2 $3
      /did -o bot 40 3 $4
      /did -o bot 40 4 $5
      /did -o bot 40 5 $6
      /did -o bot 40 6 $7
      /did -o bot 40 7 $8
      /did -o bot 40 8 $9
      /did -o bot 40 9 $10
      /did -o bot 40 10 $11
      /did -o bot 40 11 $12
      /did -o bot 40 12 $13
      /did -o bot 40 13 $14
      /did -o bot 40 14 $15
      /did -o bot 40 15 $16
      /did -o bot 40 16 $17
      /did -o bot 40 17 $18
      /did -o bot 40 18 $19
      /did -o bot 40 19 $20
      /did -o bot 40 20 $21
      /did -o bot 40 21 $22
      /did -o bot 40 22 $23
      /did -o bot 40 23 $24
      /did -o bot 40 24 $25
      /did -o bot 40 25 $26
      /did -o bot 40 26 $27
      /did -o bot 40 27 $28
      /did -o bot 40 28 $29
      /did -o bot 40 29 $30
      /did -o bot 40 30 $31
    }
  }
}
on 1:dialog:BOT:Sclick:43: {
  /msg Shawncs_Bot 11
}
on 1:dialog:BOT:Sclick:44: {
  /msg [RS]Shawncs_Bot 11
}
on 1:dialog:BOT:Sclick:45: {
  /msg [SS]Shawncs_Bot 11
}
on 1:dialog:BOT:Sclick:46: {
  /msg [SK]Shawncs_Bot 11
}
On *:Dialog:BOT:dclick:35: {  
  /msg Shawncs_Bot 12 $did(35).seltext ASKED TO LEAVE BY ADMIN (JARED_WHITE5)
  /msg Shawnc Told Shawncs_Bot to leave $did(35).seltext  
/did -d bot 35 $did(35).sel
}
On *:Dialog:BOT:dclick:40: {  
  /msg [SK]Shawncs_Bot 12 $did(40).seltext ASKED TO LEAVE BY ADMIN (JARED_WHITE5)
  /msg Shawnc Told [SK]Shawncs_Bot to leave $did(40).seltext   
/did -d bot 40 $did(40).sel
}
On *:Dialog:BOT:dclick:36: {  
  /msg [SS]Shawncs_Bot 12 $did(36).seltext ASK TO LEAVE BY ADMIN (JARED_WHITE5)
  /msg Shawnc Told [SS]Shawncs_Bot to leave $did(36).seltext   
/did -d bot 36 $did(36).sel
}
On *:Dialog:BOT:dclick:37: {  
  /msg [RS]Shawncs_Bot 12 $did(37).seltext ASK TO LEAVE BY ADMIN (JARED_WHITE5)
  /msg [RS]Shawnc Told Shawncs_Bot to leave $did(37).seltext   
/did -d bot 38 $did(37).sel
}