Description:

;edit %chan for channel, %cmd for command prefix, and %color for color
on *:START: {
  set %cmd -
  set %chan #script
  set %color [^K]1,0
}
;do NOT edit this section
on *:TEXT:$(%cmd $+ addclan *):%chan: {
  if ($ini(clans.ini,$remove($gettok($1-,1,44),-addclan $+ $chr(32)))) {
    notice $nick %color $+ $remove($gettok($1-,1,44),-addclan $+ $chr(32)) is already on the list
    halt
  }
  elseif ($numtok($gettok($1-,2,44),32) == 5) {
    writeini clans.ini $+(",$remove($gettok($1-,1,44),-addclan $+ $chr(32)),") Leader $gettok($gettok($1-,2,44),1,32)
    writeini clans.ini $+(",$remove($gettok($1-,1,44),-addclan $+ $chr(32)),") Email $gettok($gettok($1-,2,44),2,32)
    writeini clans.ini $+(",$remove($gettok($1-,1,44),-addclan $+ $chr(32)),") Channel $gettok($gettok($1-,2,44),3,32)
    writeini clans.ini $+(",$remove($gettok($1-,1,44),-addclan $+ $chr(32)),") Website $gettok($gettok($1-,2,44),4,32)
    writeini clans.ini $+(",$remove($gettok($1-,1,44),-addclan $+ $chr(32)),") Location $gettok($gettok($1-,2,44),5,32)
    notice $nick %color $+ Clan " $+ $remove($gettok($1-,1,44),-addclan $+ $chr(32)) $+ " added
  }
  else {
    notice $nick %color $+ Not enough parameters
  }
}
alias information {
  if ($1 == 1) {
    return Leader: $readini(clans.ini,$2,Leader)
  }
  elseif ($1 == 2) {
    return Email: $readini(clans.ini,$2,Email)
  }
  elseif ($1 == 3) {
    return Channel: $readini(clans.ini,$2,Channel)
  }
  elseif ($1 == 4) {
    return Website: $readini(clans.ini,$2,Website)
  }
  elseif ($1 == 5) {
    return Location: $readini(clans.ini,$2,Location)
  }
}
on *:TEXT:$(%cmd $+ clan *):%chan:{
  if ($ini(clans.ini,$remove($gettok($1-,1,44),-clan $+ $chr(32)))) {
    var %i 1
    while (%i <= 5) {
      notice $nick %color $+ $information(%i,$remove($gettok($1-,1,44),-clan $+ $chr(32)))
      inc %i
    }
  }
  else {
    notice $nick %color $+ No such clan $2-
  }
}
on *:TEXT:$(%cmd $+ delclan *):%chan: {
  if ($ini(clans.ini,$2-)) {
    remini clans.ini $+(",$2-,")
    notice $nick %color $+ Profile " $+ $2- $+ " deleted
  }
  else {
    notice $nick %color $+ Profile $2- not found
  }
}
on *:TEXT:$(%cmd $+ clans*):%chan: {
  notice $nick %color $+ There are currently [^B] $+ $ini(clans.ini,0) $+ [^B] clan $+ $iif($ini(clans.ini,0) == 1,.,s.)
  var %i 1
  while (%i <= $ini(clans.ini,0)) {
    set %tempclans $iif(%tempclans,%tempclans $+ $chr(44) $+ $ini(clans.ini,%i),$ini(clans.ini,%i))
    inc %i
  }
  notice $nick %color $+ $iif($ini(clans.ini,0) == 1,That,Those) clans are: %tempclans
}

TAGS! TAGS! Rayeh didn't make the mirc tags for nothing!

Oops! You need to login or register before you can post a comment!