All pastes #804239 Raw Edit

Dragulas team script

public text v1 · immutable
·published 2007-12-03 07:34 UTC
rendered paste body
on 1:TEXT:!teamset*:*: {
  if ($nick isop $chan || $nick ishelp $chan) || $address($nick,2) == $address($me,2) {
    set %team $2- 
    msg #cwg 12Team has been updated type 4!team 12to view.
  }
  else {
    notice $nick 12You do not have 4permission 12to do that. 
  }
}
on 1:TEXT:!team:*: {
  if ($nick isvoice $chan || $nick isop $chan || $nick ishelp $chan) {
    notice $nick 7[Team] $iif(%team,$v1,N/A)  
  }
  Else {
    notice $nick 12Apply at our 4website 12to gain access to that command.
    halt 
  }
}
Alias Teamset {
  dialog -m Team1337 Team1337
}
menu * {
  Self TeamSet:dialog -m Team1337 Team1337
}
dialog Team1337 {
  Title "Team Dialog | Made By: Dragula ©"
  size -1 -1 200 100
  option dbu 
  button "Ok", 1, 0 0 30 100, ok 
  button "Cancel", 2, 170 0 30 100, cancel 
  box "Script By Dragula ©", 3, 70 0 55 15,
  edit "Team", 4, 70 16 55 15, center
  edit "#channel", 5, 70 31 55 15, center 
  button "Set Team", 6, 70 50 55 50, center
  check "Sara", 7, 40 10 20 15
  check "Blue", 8, 130 10 20 15 
  check "Zam", 9, 40 40 20 15
  check "Red", 10, 130 40 20 15
  check "Guth", 11, 40 70 20 15
  check "Green", 12, 130 70 25 15
} 
on *:DIALOG:Team1337:sclick