rendered paste body;==================;
; ECTS script v2.3 ;
;==================;
;
; 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/qtr)
; - !ects graph -> echo't graph
;========;
; 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
/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
}
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 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)) {
%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) - $num_ects) / ($readini($ectsfile,main,goaldate) - $ctime) * $duration(13wks)),0)
}
%delay = $rand(2,5)
/.timerects1 1 %delay [ /msg $1 2I have $chr(91) $+ 12 $+ [ $num_ects ] $+ 2/12 $+ [ $readini($ectsfile,main,goal) ] $+ 2 $+ [ $chr(93) ] ECTS. %balkje ]
/.timerects2 1 %delay /msg $1 2 $+ $iif(%cur_speed != =undef=,Current speed:12 %cur_speed 2EC/qtr - 2) $+ $iif(%req_speed != =undef=,Required speed:12 %req_speed 2ECTS/qtr)
}
alias show_graph {
/echo This is a graph of your ECTS:
/echo
%xcoord = 0
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 g_h {
/return 20
}
alias g_w {
/return 100
}
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 $readini($ectsfile,bookects,%num_ects_i)
inc %num_ects_i
}
/return %num_ects
}
}
alias ects_bar {
/return 10
}
alias -l echo {
/echo 2 $1-
}