taxi.ini

[script]
n0=on *:TEXT:*:*: { halt }
n1=on *:NICK: { halt }
n2=on *:PART:#: { halt }
n3=on *:QUIT: { halt }
n4=on *:KICK:#: { halt }
n5=on *:TEXT:!taxi:#[MM]IKKE: {
n6=  if ($me == %bot4) {
n7=    rpglog $nick $1-
n8=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
n9=      createaccount $nick
n10=    }
n11=    alive $nick
n12=    {
n13=      if ($nick isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
n14=        var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
n15=        write -dl $+ $readn "Stats\Taxi jobs.txt"
n16=        increasecash $nick $calc(100 * $floor( $calc(%runningtime / 60) ))
n17=        increaserank $nick $floor( $calc(%runningtime / 120) )
n18=        msg $chan 2[TAXI]4 $nick 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash.
n19=      }
n20=      elseif ($nick !isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
n21=        checkjob $nick $nick
n22=        write "Stats\Taxi jobs.txt" $nick $+ . $+ $uptime
n23=        msg $chan 2[TAXI]4 $nick 2has started his/her job as a taxi driver (100 cash/min)
n24=      }
n25=    }
n26=  }
n27=}
n28=on *:TEXT:!taxijob:#[MM]IKKE: {
n29=  if ($me == %bot4) {
n30=    rpglog $nick $1-
n31=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
n32=      createaccount $nick
n33=    }
n34=    {
n35=      if ($nick isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
n36=        var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
n37=        var %seconds = $calc(60 - (%runningtime - $calc(60 * $floor( $calc( %runningtime / 60 ))))))
n38=        msg $chan 2[TAXI] You are driving around for7 %runningtime 2seconds now, so you earned7 $calc(100 * $floor( $calc( %runningtime / 60 ))) 2cash up till now. [Seconds till next minute:7 %seconds $+ 2]
n39=      }
n40=      elseif ($nick !isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
n41=        .notice $nick 4ERROR:2 You are currently not driving a taxi
n42=      }
n43=    }
n44=  }
n45=}
n46=on *:TEXT:!taxidrivers:#[MM]IKKE: {
n47=  if ($me == %bot4) {
n48=    rpglog $nick $1-
n49=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
n50=      createaccount $nick
n51=    }
n52=    if ($lines(Stats\Taxi jobs.txt) == 0) {
n53=      .notice $nick 2[TAXI] There are no taxi drivers at the moment.
n54=      halt
n55=    }
n56=    var %i = 1
n57=    set %drivers $null
n58=    while (%i <= $lines(Stats\Taxi jobs.txt)) {
n59=      set %drivers %drivers $+ , $gettok($read(Stats\Taxi jobs.txt,%i),1,46)
n60=      inc %i
n61=    }
n62=    set %drivers $right(%drivers, $calc($len(%drivers) - 2)) $+ .
n63=    .notice $nick 2[TAXI] Current taxi drivers are: %drivers
n64=    unset %drivers
n65=  }
n66=}
n67=on *:NICK: {
n68=  if ($me == %bot4) {
n69=    if ($nick isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
n70=      var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
n71=      write -dl $+ $readn "Stats\Taxi jobs.txt"
n72=      increasecash $nick $calc(100 * $floor( $calc(%runningtime / 60) ))
n73=      increaserank $nick $floor( $calc(%runningtime / 60) )
n74=      msg #[MM]IKKE 2[TAXI]4 $nick 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash. [Auto-stop on nickchange]
n75=    }
n76=  }
n77=}
n78=on *:PART:#[MM]IKKE: {
n79=  if ($me == %bot4) {
n80=    if ($nick isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
n81=      var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
n82=      write -dl $+ $readn "Stats\Taxi jobs.txt"
n83=      increasecash $nick $calc(100 * $floor( $calc(%runningtime / 60) ))
n84=      increaserank $nick $floor( $calc(%runningtime / 60) )
n85=      msg #[MM]IKKE 2[TAXI]4 $nick 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash. [Auto-stop on part]
n86=    }
n87=  }
n88=}
n89=on *:QUIT: {
n90=  if ($me == %bot4) {
n91=    if ($nick isin $read(Stats\Taxi jobs.txt,w,$nick $+ *)) {
n92=      var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
n93=      write -dl $+ $readn "Stats\Taxi jobs.txt"
n94=      increasecash $nick $calc(100 * $floor( $calc(%runningtime / 60) ))
n95=      increaserank $nick $floor( $calc(%runningtime / 60) )
n96=      msg #[MM]IKKE 2[TAXI]4 $nick 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash. [Auto-stop on quit]
n97=    }
n98=  }
n99=}
n100=on *:KICK:#[MM]IKKE: {
n101=  if ($me == %bot4) {
n102=    if ($knick isin $read(Stats\Taxi jobs.txt,w,$knick $+ *)) {
n103=      var %runningtime = $calc($uptime - $gettok($read(Stats\Taxi jobs.txt,$readn),2,46))
n104=      write -dl $+ $readn "Stats\Taxi jobs.txt"
n105=      increasecash $knick $calc(100 * $floor( $calc(%runningtime / 60) ))
n106=      increaserank $knick $floor( $calc(%runningtime / 60) )
n107=      msg #[MM]IKKE 2[TAXI]4 $knick 2has ended his/her job as a taxi driver. (S)he has driven around7 %runningtime 2seconds, so (s)he earned7 $calc(100 * $floor( $calc(%runningtime / 60 ))) 2cash. [Auto-stop on kick]
n108=    }
n109=  }
n110=}