;==================;
; ECTS script v2.5 ;
;==================;
;
; Functies:
;
; - startaantal ECTS invoeren
; - doelaantal ECTS + datum invoeren
; - gehaald vak invoeren (datum onthouden, evt omschrijving)
; - undo functie haalt laatste ects weg
; - !ects -> spamt ects van alle gebruikers (inc % balkje en ECTS/month)
; - !ects graph -> echo't graph
; - !ects showspeed on|off -> laat de speed wel of niet zien

;========;
; events ;
;========;

on *:INPUT:*: {
  if ($1 == !ects) {
    if (!$exists($ectsfile)) {
      /writeini $ectsfile main goal 0
      /writeini $ectsfile main goaldate 0
      /writeini $ectsfile main num_bookings 0
    }
    if ($2 == start) {
      if ($3 isnum) {
        /ects_del_booking all
        /writeini $ectsfile bookdates 0 $ctime
        /writeini $ectsfile bookects 0 $3
        /echo Set startvalue of12 $3 ECTS at12 $asctime(d mmmm yyyy) $+ .
      }
      else {
        /echo Please enter a number of ECTS.
      }
    }
    elseif ($2 == goal) {
      if ($ctime($4) isnum) {
        if ($3 isnum) {
          /writeini $ectsfile main goaldate $ctime($4)
          /writeini $ectsfile main goal $3
          /echo Set goalvalue of12 $3 ECTS at12 $asctime($ctime($4),d mmmm yyyy) $+ .
        }
        else {
          /echo Please enter a number of ECTS.
        }
      }
      else {
        /echo Please enter a date in the format dd/mm/yy.
      }
    }
    elseif ($2 == add) {
      if ($3 isnum) {
        $ectsadd(num_bookings)
        /writeini $ectsfile bookdates $ectsbookings $ctime
        /writeini $ectsfile bookects $ectsbookings $3
        /writeini $ectsfile bookdescription $ectsbookings $4-
        /echo Added12 $3 ECTS at12 $asctime(d mmmm yyyy) $+ $iif($4 != $null, $chr(32) $+ ( $+ $4- $+ )) $+ .
      }
      else {
        /echo Please enter a number of ECTS.
      }
    }
    elseif ($2 == undo) {
      if ($ectsbookings >= 1) {
        /ects_del_booking
      }
      else {
        /echo There are no bookings to delete.
      }
    }
    elseif ($2 == graph) {
      /show_graph $3-4
    }
    elseif ($2 == showspeed) {
      if ($3 == on) {
        /writeini $ectsfile main showspeed $true
        /echo The current and required speed of aquiring ECTS will be shown.
      }
      elseif ($3 == off) {
        /writeini $ectsfile main showspeed $false
        /echo The current and required speed of aquiring ECTS will not be shown.
      }
    }
    elseif ($2 == help) {
      /echo -
      /echo [1,0ECTS help file] You can use the following functions:
      /echo 12!ects start $chr(35) - Deletes all previous ECTS, and sets number of ECTS you have at this moment.
      /echo 12!ects goal $chr(35) dd/mm/yy - Sets goal number of ECTS you need at date dd/mm/yy.
      /echo 12!ects add $chr(35) description - Use when you got new ECTS. Description can be used to set course information.
      /echo 12!ects undo - Deletes last ECTS you added with "!ects add".
      /echo 12!ects graph - Plots a graph of the ECTS you aquired.
      /echo 12!ects graph #width #height - Changes the width and height of the graph.
      /echo 12!ects showspeed on|off - Enables/Disables showing the current and required speed of aquiring ECTS.
      /echo 12!ects help - Displays this help information
      /echo -

    }
    else {
      /msg $chan !ects
      /show_ects $chan
    }
    /halt
  }
}

on *:TEXT:*:*: {
  if ($1- == !ects) {
    if (!$exists($ectsfile)) {
      /writeini $ectsfile main goal 0
      /writeini $ectsfile main goaldate 0
      /writeini $ectsfile main num_bookings 0
    }
    /show_ects $chan
  }
}

;===========;
; functions ;
;===========;

alias ects_del_booking {
  if ($1 == all) {
    /remini $ectsfile bookdates
    /remini $ectsfile bookects
    /writeini $ectsfile bookdates 0 $ctime
    /writeini $ectsfile bookects 0 0
    /writeini #ectsfile main num_bookings 0
  }
  else {
    /echo Deleted booking: $readini($ectsfile,bookects,$ectsbookings) ECTS at $asctime($readini($ectsfile,bookdates,$ectsbookings),d mmmm yyyy) $+ .
    /remini $ectsfile bookdates $ectsbookings
    /remini $ectsfile bookects $ectsbookings
    $ectsadd(num_bookings,-1)
  }
}

alias show_ects {
  %balkje = [12
  %i = 1
  while (%i <= $ects_bar) {
    if ($calc($num_ects / $readini($ectsfile,main,goal) * $ects_bar) >= %i) {
      %balkje = %balkje $+ X
    }
    else {
      %balkje = %balkje $+ _
    }
    inc %i
  }
  %balkje = %balkje $+ 2]
  if (($calc($ctime - $readini($ectsfile,bookdates,0)) < $duration(13wks)) || ($readini($ectsfile,bookdates,0) == $null)) {
    %cur_speed = =undef=
  }
  else {
    %cur_speed = $round($calc( ($num_ects - $readini($ectsfile,bookects,0)) / ($ctime - $readini($ectsfile,bookdates,0)) * 7),0)
  }
  if ($readini($ectsfile,main,goaldate) <= $ctime) {
    %req_speed = =undef=
  }
  else {
    %req_speed = $round($calc( ($readini($ectsfile,main,goal) - $readini($ectsfile,bookects,0)) / ($readini($ectsfile,main,goaldate) - $readini($ectsfile,bookdates,0)) * $duration(13wks)),0)
  }
  %has_goal = [ $readini($ectsfile,main,goaldate) != 0 ]
  %show_speed = $iif($readini($ectsfile,main,showspeed) != $null,$readini($ectsfile,main,showspeed),$true)
  /.timerects1 1 $rand(2,10) [ /msg $1 2I have $chr(91) $+ 12 $+ [ $num_ects ] $+ [ $iif( [ %has_goal ] ,2/12 $+ [ $readini($ectsfile,main,goal) ] ) ] $+ 2 $+ [ $chr(93) ] ECTS. [ $iif( [ %has_goal ] ,%balkje) ] ] $iif( %show_speed ,     2 $+ $iif((%cur_speed != =undef=) || (%req_speed != =undef=),$chr(40)) $+ $iif(%cur_speed != =undef=,Cur $+ $iif(%req_speed != =undef=,/)) $+ $iif(%req_speed != =undef=,Req) $iif((%cur_speed != =undef=) || (%req_speed != =undef=),spd:) $iif(%cur_speed != =undef=,12 $+ %cur_speed $+ $iif(%req_speed != =undef=,2/)) $+ $iif(%req_speed != =undef=,12 $+ %req_speed) $iif((%cur_speed != =undef=) || (%req_speed != =undef=),2EC/qtr $+ $chr(41)) )
}

alias show_graph {
  if (($1 isnum) && ($2 isnum)) {
    /writeini $ectsfile main graph_w $1
    /writeini $ectsfile main graph_h $2
  }
  if (($readini($ectsfile,main,graph_w) == $null) || ($readini($ectsfile,main,graph_h) == $null)) {
    /writeini $ectsfile main graph_w 100
    /writeini $ectsfile main graph_h 20
  }
  /echo This is a graph of your ECTS:
  /echo  
  %xcoord = 0
  %g_w = $readini($ectsfile,main,graph_w)
  %g_h = $readini($ectsfile,main,graph_h)
  while (%xcoord <= %g_w) {
    %lined [ $+ [ %xcoord ] ] = $false
    inc %xcoord
  }
  %ycoord = %g_h
  while (%ycoord >= 0) {
    %balk = $null
    if ((($calc(%ycoord % 5) == 0) && ($calc(%g_h - %ycoord) >= 5)) || (%ycoord == %g_h)) {
      %balk = $ceil($calc( %ycoord * $readini( $ectsfile ,main,goal) / %g_h )))
      %i = 1
      while (%i <= $len($ceil($calc( %ycoord * $readini( $ectsfile ,main,goal) / %g_h )))) {
        %balk = %balk $+ 
        inc %i
      }
    }
    %balk = %balk $+ $chr(124)
    while ($len(%balk) < 6) {
      %balk =  %balk
    }
    if (%ycoord == 0) {
      %balk =   0|
    }
    %xcoord = 0
    %lined = $false
    while (%xcoord <= %g_w) {
      if (($calc(%xcoord * ( $readini( $ectsfile ,main,goaldate) - $readini( $ectsfile ,bookdates,0) ) / %g_w + $readini( $ectsfile ,bookdates,0)) <= $ctime) && ($num_ects( $calc(%xcoord * ( $readini( $ectsfile ,main,goaldate) - $readini( $ectsfile ,bookdates,0) ) / %g_w + $readini( $ectsfile ,bookdates,0)) ) >= $calc( %ycoord * $readini( $ectsfile ,main,goal) / %g_h ))) {
        if (!%lined [ $+ [ %xcoord ] ] ) {
          %balk = %balk $+ $iif(%ycoord == 0, ,_)
          %lined [ $+ [ %xcoord ] ] = $true
        }
        else {
          %balk = %balk $+ $iif(%ycoord == 0,) $+ /
        }
      }
      else {
        %balk = %balk $+ $iif(%ycoord == 0,)  
      }
      inc %xcoord
    }
    %balk = %balk $+ |
    /echo %balk
    dec %ycoord
  }
  /unset %lined*
  %balk =    $chr(124)
  %xcoord = 0
  while (%xcoord <= %g_w) {
    if ((($calc(%xcoord % 25) == 0) && ($calc(%g_w - %xcoord) > 20)) || ($calc(%g_w - %xcoord + 1) == $len($asctime($readini($ectsfile,main,goaldate),d/mm/yy)))) {
      %balk = %balk $+ $iif(($calc(%g_w - %xcoord + 1) == $len($asctime($readini($ectsfile,main,goaldate),d/mm/yy))),04 $+ $asctime($readini($ectsfile,main,goaldate),d/mm/yy),$asctime($calc(%xcoord * ( $readini( $ectsfile ,main,goaldate) - $readini( $ectsfile ,bookdates,0) ) / %g_w + $readini( $ectsfile ,bookdates,0)),d/mm/yy)) $+ 
    }
    elseif ($len($strip(%balk)) <= $calc(%xcoord + 1)) {
      %balk = %balk 
    }
    inc %xcoord
  }
  %balk = %balk $+ |
  /echo %balk
}

;=============;
; identifiers ;
;=============;

alias ectsfile {
  /return " $+ $scriptdir $+ ects.ini $+ "
}

alias ectsbookings {
  /return $readini($ectsfile,main,num_bookings)
}

alias ectsadd {
  /writeini $ectsfile main $1 $calc($readini($ectsfile,main,$1) + $iif($2 == $null,1,$2))
}

alias num_ects {
  if ($1 isnum) {
    %num_ects_i = 0
    %num_ects = 0
    while ((%num_ects_i <= $ectsbookings) && ($readini($ectsfile,bookdates,%num_ects_i) <= $1)) {
      inc %num_ects $readini($ectsfile,bookects,%num_ects_i)
      inc %num_ects_i
    }
    /return %num_ects
  }
  else {
    %num_ects_i = 0
    %num_ects = 0
    while (%num_ects_i <= $ectsbookings) {
      inc %num_ects $iif($readini($ectsfile,bookects,%num_ects_i) != $null,$readini($ectsfile,bookects,%num_ects_i),0)
      inc %num_ects_i
    }
    /return %num_ects
  }
}

alias ects_bar {
  /return 10
}

alias -l echo {
  /echo 2 $1-
}