drugdealer.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:!drugdeal:#[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\Drug jobs.txt,w,$nick $+ *)) {
n14=        var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
n15=        write -dl $+ $readn "Stats\Drug jobs.txt"
n16=        msg $chan 2[DRUGS]4 $nick 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops.
n17=        .timer 1 1 calculatedrugs $nick %runningtime
n18=      }
n19=      elseif ($nick !isin $read(Stats\Drug jobs.txt,w,$nick $+ *)) {
n20=        checkjob $nick $nick
n21=        write "Stats\Drug jobs.txt" $nick $+ . $+ $uptime
n22=        msg $chan 2[DRUGS]4 $nick 2has started his/her job as a drug dealer
n23=      }
n24=    }
n25=  }
n26=}
n27=on *:TEXT:!drugdealjob:#[MM]IKKE: {
n28=  if ($me == %bot4) {
n29=    rpglog $nick $1-
n30=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
n31=      createaccount $nick
n32=    }
n33=    {
n34=      if ($nick isin $read(Stats\Drug jobs.txt,w,$nick $+ *)) {
n35=        var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
n36=        var %seconds = $calc(60 - $round($calc(( $calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ) * 60) - ( %runningtime * 60)),0))
n37=        msg $chan 2[DRUGS] You are dealing for7 %runningtime 2minute(s) now. This means you have a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops. [Seconds till next minute:7 %seconds $+ 2]
n38=      }
n39=      elseif ($nick !isin $read(Stats\Drug jobs.txt,w,$nick $+ *)) {
n40=        .notice $nick 4ERROR:2 You are currently not dealing drugs
n41=      }
n42=    }
n43=  }
n44=}
n45=on *:TEXT:!drugdealers:#[MM]IKKE: {
n46=  if ($me == %bot4) {
n47=    rpglog $nick $1-
n48=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
n49=      createaccount $nick
n50=    }
n51=    if ($lines(Stats\Drug jobs.txt) == 0) {
n52=      .notice $nick 2[DRUGS] There are no drug dealers at the moment.
n53=      halt
n54=    }
n55=    var %i = 1
n56=    set %dealers $null
n57=    while (%i <= $lines(Stats\Drug jobs.txt)) {
n58=      set %dealers %dealers $+ , $gettok($read(Stats\Drug jobs.txt,%i),1,46)
n59=      inc %i
n60=    }
n61=    set %dealers $right(%dealers, $calc($len(%dealers) - 2)) $+ .
n62=    .notice $nick 2[DRUGS] Current drug dealers are: %dealers
n63=    unset %dealers
n64=  }
n65=}
n66=on *:NICK: {
n67=  if ($me == %bot4) {
n68=    if ($nick isin $read(Stats\Drug jobs.txt,w,$nick $+ *)) {
n69=      var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
n70=      write -dl $+ $readn "Stats\Drug jobs.txt"
n71=      msg #[MM]IKKE 2[DRUGS]4 $nick 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops. [Auto-stop on nickchange]
n72=      .timer 1 1 calculatedrugs $nick %runningtime
n73=    }
n74=  }
n75=}
n76=on *:PART:#[MM]IKKE: {
n77=  if ($me == %bot4) {
n78=    if ($nick isin $read(Stats\Drug jobs.txt,w,$nick $+ *)) {
n79=      var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
n80=      write -dl $+ $readn "Stats\Drug jobs.txt"
n81=      msg #[MM]IKKE 2[DRUGS]4 $nick 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops. [Auto-stop on part]
n82=      .timer 1 1 calculatedrugs $nick %runningtime
n83=    }
n84=  }
n85=}
n86=on *:QUIT: {
n87=  if ($me == %bot4) {
n88=    if ($nick isin $read(Stats\Drug jobs.txt,w,$nick $+ *)) {
n89=      var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
n90=      write -dl $+ $readn "Stats\Drug jobs.txt"
n91=      msg #[MM]IKKE 2[DRUGS]4 $nick 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops. [Auto-stop on quit]
n92=      .timer 1 1 calculatedrugs $nick %runningtime
n93=    }
n94=  }
n95=}
n96=on *:KICK:#[MM]IKKE {
n97=  if ($me == %bot4) {
n98=    if ($knick isin $read(Stats\Drug jobs.txt,w,$knick $+ *)) {
n99=      var %runningtime = $floor($calc(($uptime - $gettok($read(Stats\Drug jobs.txt,$readn),2,46)) / 60 ))
n100=      write -dl $+ $readn "Stats\Drug jobs.txt"
n101=      msg #[MM]IKKE 2[DRUGS]4 $knick 2has ended his/her job as a drug dealer. (S)he has been dealing7 %runningtime 2minute(s). This means (s)he has a chance of7 $round($calc(100 - (100* (0.9 ^ %runningtime))),2) $+ $chr(37) 2to get caught by cops. [Auto-stop on kick]
n102=      .timer 1 1 calculatedrugs $knick %runningtime
n103=    }
n104=  }
n105=}