on *:JOIN:#DM: {
  if (%dmnick [ $+ [ $nick ] ] != 1) { 
    notice $nick You have not yet registered an DM account type !register in #dm To register. 
  }
  else { 
    notice $nick Please Identify by typing: /msg Supabot !id <yourpass> 
  }

  On *:TEXT:!Clan*:#DM*: {
    if (dmid. [ $+ [ $nick ] ] == 1) {
      if (dmnick. [ $+ [ $nick ] ] == 1) {
        msg $nick Do you want to start a clan or join one? Type !startclan to start one and !joinclan to join one.
      }
      else { notice $nick please identify first: /msg supabot !id <pass>
      }
    }
    else { notice $nick please register firts: !register (in #DM)
    }
  }

  on *:TEXT:!startclan*:*: {
    if ($2 == $null) {
      Msg $nick please type this: !startclan <name> <lvl-requirement>
    }
    if (%clan. [ $+ [ $2 ] ] == 1) { msg $nick The clan you wanted to make already excists. }
    Else {
      write dmclans.txt $nick %clanname %clanrequirement
      set %clan $2
      set %clanmembers. [ $+ [ %clan ] ] %owner
    }
  }
  else { notice $nick please identify first: /msg supabot !id <pass>
  }
}
else { notice $nick please register firts: !register (in #DM)
}
}

on *:TEXT:!joinclan*:*: {
if (dmid. [ $+ [ $nick ] ] == 1) {
  if (dmnick. [ $+ [ $nick ] ] == 1) {
    if ($2 == $null) { 
      msg $nick Please type: !joinclan <clan-name>
    }
    if (%clan. [ $+ [ $2 ] ] != 1) {
      msg $nick This clan doesnt excists.
    }
    set %clanreq$gettok($read(dmclans.txt, w, $nick $+ *),3,32)
    if (%dmlvl. [ $+ [ $nick ] ] >= %clanreq) {
      msg $nick your lvl is not high enough to join This clan, sry.
    }
    else {
      set %owner $gettok($read(dmclans.txt, w, $2 $+ *),2,32)
      msg $nick the clan owner is being informed of you wanting to join his clan.
      msg memoserv Send %owner hello dear owner of $2 , $nick wants to join your clan. please type !acceptmember < $nick > or !declinemember < $nick >
      write Dmjoin.txt $nick $2
    }
  }
  else { notice $nick please identify first: /msg supabot !id <pass>
  }
}
else { notice $nick please register firts: !register (in #DM)
}
}
on *:TEXT:!acceptmember*:*: {
if (dmid. [ $+ [ $nick ] ] == 1) {
  if (dmnick. [ $+ [ $nick ] ] == 1) {
    if ($gettok($read(dmclans.txt, w, $nick $+ *),1,32) == 1) {
      set %clan $gettok($read(dmclans.txt, w, $nick $+ *),2,32)
      set %owner $gettok($read(dmclans.txt, w, $nick $+ *),1,32)
      set %joiner $2
      set %clanmembers %clanmembers %joiner
      /msg memoserv SEND %joiner Congratz, %joiner , your join-request was accepted by %owner ! you are now in the %clan clan.
    }
    else {
      msg $nick you arent owner of a clan! 
    }
  }
  else { notice $nick please identify first: /msg supabot !id <pass>
  }
}
else { notice $nick please register firts: !register (in #DM)
}
}

on *:TEXT:!declinemember*:*: {
if (dmid. [ $+ [ $nick ] ] == 1) {
  if (dmnick. [ $+ [ $nick ] ] == 1) {
    if ($gettok($read(dmclans.txt, w, $nick $+ *),1,32) == 1) {
      set %clan $gettok($read(dmclans.txt, w, $nick $+ *),2,32)
      set %owner $gettok($read(dmclans.txt, w, $nick $+ *),1,32)
      set %joiner $2
      /msg memoserv SEND %joiner Sry, %joiner , your join-request wasn't accepted by %owner ! Good luck finding another clan 
    }
    else {
      msg $nick you arent owner of a clan! 
    }
  }
  else { notice $nick please identify first: /msg supabot !id <pass>
  }
}
else { notice $nick please register firts: !register (in #DM)
}
}

on *:TEXT:!clanlist*:*: {
Play dmclans.txt
}