Mine

on *:LOAD:{
  set %nick.S Open
  set %nick.1 Open
  set %nick.2 Open
  set %nick.3 Open
  set %nick.4 Open
  set %y 0
}

;;;;Pug Starter/Ender
on *:text:*@start eastpug:#ls:{ 
  if ( %nick.S == Open ) {
    set %nick.S $nick
    /msg #ls [PugTime] $nick has started an eastern pug! To join, please type @join eastpug
    /invite $nick #pugtime
    /cs #pugtime Topic Welcome Eastern Puggers. Tag: EP - Name
  }
  else { /msg $nick A eastern pug is already in progress. Please wait until they are done or join #findpug for other pugs }
}

on *:text:@done:#pugtime:{
  if ( %nick.S == $nick ) {
    /kick #pugtime %nick.S Pug Complete
    /kick #pugtime %nick.1 Pug Complete
    /kick #pugtime %nick.2 Pug Complete
    /kick #pugtime %nick.3 Pug Complete
    /kick #pugtime %nick.4 Pug Complete
    set %nick.S Open
    set %nick.1 Open
    set %nick.2 Open
    set %nick.3 Open
    set %nick.4 Open
    set %y 0
    /msg #ls [PugTime] The eastern pug is over. To start another eastern pug, please type @start eastpug
    /cs #pugtime topic Awaiting for Pug team to join
  }
  else { /notice $nick You did not start the pug, please do not type @done }
}

;;;;Pug Joiners/Quitters
on *:text:@join eastpug*:#ls:{
  if ( %nick.S == Open) {
    /notice $nick There is no eastern pug at the moment
  }
  else {
    if (%y < 4) {
      inc %y
      set %nick. [ $+ [ %y ] ] $nick
      /invite $nick #PugTime
    }
    else { /notice $nick The Eastern Pug is Full }
  }
}

on *:join:#pugtime:{
/msg #ls [PugTime] $nick has just joined the eastern pug! To join, please type @join eastpug
/msg #ls [PugTime] Line up: 14 $+ %nick.S $+  ; 14  $+ %nick.1 $+  ; 14  $+ %nick.2 $+  ; 14  $+ %nick.3 $+  ; 14  $+ %nick.4 $+
}

on *:part:#pugtime:{
  if ( %nick.S == $nick ) {
    set %nick.S Open
    /kick #pugtime %nick.1 The pug host has left
    /kick #pugtime %nick.2 The pug host has left
    /kick #pugtime %nick.3 The pug host has left
    /kick #pugtime %nick.4 The pug host has left
    set %nick.1 Open
    set %nick.2 Open
    set %nick.3 Open
    set %nick.4 Open
    set %y 0
    /msg #ls [PugTime] $nick has just left and ended the eastern pug!
    /msg #ls [PugTime] To start another eastern pug, please type @start eastpug
    /cs #pugtime topic Awaiting for Pug team to join
  }
  else { 
    if ( %nick.1 == $nick ) {
      set %nick.1 Open
      /msg #ls [PugTime] $nick has just left the eastern pug!
      /msg #ls [PugTime] Line up: 14 $+ %nick.S $+  ; 14  $+ %nick.1 $+  ; 14  $+ %nick.2 $+  ; 14  $+ %nick.3 $+  ; 14  $+ %nick.4 $+
    }
    else
      if ( %nick.2 == $nick ) {
        set %nick.2 Open
        /msg #ls [PugTime] $nick has just left the eastern pug!
        /msg #ls [PugTime] Line up: 14 $+ %nick.S $+  ; 14  $+ %nick.1 $+  ; 14  $+ %nick.2 $+  ; 14  $+ %nick.3 $+  ; 14  $+ %nick.4 $+
      }
      else
        if ( %nick.3 == $nick ) {
          set %nick.3 == Open
          /msg #ls [PugTime] $nick has just left the eastern pug!
          /msg #ls [PugTime] Line up: 14 $+ %nick.S $+  ; 14  $+ %nick.1 $+  ; 14  $+ %nick.2 $+  ; 14  $+ %nick.3 $+  ; 14  $+ %nick.4 $+
        }
        else
          if ( %nick.4 == $nick ) {
            set $nick.4 Open
            /msg #ls [PugTime] $nick has just left the eastern pug!
            /msg #ls [PugTime] Line up: 14 $+ %nick.S $+  ; 14  $+ %nick.1 $+  ; 14  $+ %nick.2 $+  ; 14  $+ %nick.3 $+  ; 14  $+ %nick.4 $+
          }
        }
      }
    }
  }
} 


on *:text:@need*:#pugtime:{ /msg #ls [PugTime] The eastern pug needs $2 more to start the pug. To join, please type @joineastpug }