on *:TEXT:.fish:#:{
  if ( %fish [ $+ [ $address($nick,2) ] ] != $null ) {
    notice $nick You need to wait $floor($calc(%fish [ $+ [ $address($nick,2) ] ] / 60)) $+ m $calc( %fish [ $+ [ $address($nick,2) ] ] % 60) $+ s before you can fish again!
    halt
  }
  if ( %fish [ $+ [ $address($nick,2) ] ] == $null ) {
    if ( %flev [ $+ [ $address($nick,2) ] ] == $null) {
      set %flev [ $+ [ $address($nick,2) ] ] 1
      set %fexp [ $+ [ $address($nick,2) ] ] 0
      goto fish
    }
    elseif ( %flev [ $+ [ $address($nick,2) ] ] != $null ) {
      :fish
      var %flv $ndrand(-10,10), %clv $rand(5,15), %wchance $rand(1,10000), %divisor $rand(1,25), %fish $rand(1, $ini(fish.ini,$ini(fish.ini,1),0) )
      if ( $calc( %flev [ $+ [ $address($nick,2) ] ] + %flv ) <= 0 ) { var %flv 0 }
      var %chance $calc( ( %flev [ $+ [ $address($nick,2) ] ] * %clv ) ^ 2.5 )
      var %cchance $calc( ( ( %flev [ $+ [ $address($nick,2) ] ] + %flv ) * ( $rand(1,5) ^ $rand(0,3) ) * 2 ) )
      var %weight $floor( $calc( ( ( ( %wchance * %clv ) * 1.5 ) / ( ( %wchance / %divisor ) * 1.2 ) ) * 5 ) )
      if ( %chance > 100 ) { var %chance 100 }
      msg $chan Fishing Level: Lv. $+ %flev [ $+ [ $address($nick,2) ] ]
      msg $chan 1,7 $+ $nick casts a line into the water.
      timer 1 5 /msg $chan 1,7 $+ $nick feels a tug on the pole and begins to reel it in.
      if ( %chance >= %cchance ) {
        timer 1 10 /msg $chan 0,3 $+ $nick caught a %weight pound Lv. $+ $calc( %flev [ $+ [ $address($nick,2) ] ] + %flv ) $readini(fish.ini,Fish,%fish)!
        var %cexp %fexp [ $+ [ $address($nick,2) ] ]
        set %fexp [ $+ [ $address($nick,2) ] ] $floor( $calc( %fexp [ $+ [ $address($nick,2) ] ] + ( %weight * ( ( %flev [ $+ [ $address($nick,2) ] ] + %flv ) / 5 ) ) ) )
        var %clev %flev [ $+ [ $address($nick,2) ] ]
        var %elev $calc( %flev [ $+ [ $address($nick,2) ] ] + 1 )
        if ( %weight > %lweight ) {
          timer 1 11 /msg $chan 1,7Congratulations, $nick $+ ! That's a new record!
          set %lweight %weight
          set %lweighth $nick
          set %lweightf $readini(fish.ini,Fish,%fish)
        }
        if ( %flev [ $+ [ $address($nick,2) ] ] >= 100 ) { halt }
        while ( %fexp [ $+ [ $address($nick,2) ] ] > $readini(exp.ini, EXP, %elev) ) {
          inc %flev [ $+ [ $address($nick,2) ] ]
          inc %elev
        }
        if ( $calc( %flev [ $+ [ $address($nick,2) ] ] - %clev ) > 0 ) {
          timer 1 12 notice $nick You gained $calc( %fexp [ $+ [ $address($nick,2) ] ] - %cexp ) XP!
          timer 1 13 notice $nick Your fishing level increased to %flev [ $+ [ $address($nick,2) ] ] $+ !
        }
      }
      elseif ( %chance < %cchance ) {
        timer 1 10 /msg $chan 0,4It got away!
        var %cexp %fexp [ $+ [ $address($nick,2) ] ]
        set %fexp [ $+ [ $address($nick,2) ] ] $calc( %fexp [ $+ [ $address($nick,2) ] ] + ( 20 * %flev [ $+ [ $address($nick,2) ] ] ) )
        var %clev %flev [ $+ [ $address($nick,2) ] ]
        var %elev $calc( %flev [ $+ [ $address($nick,2) ] ] + 1 )
        if ( %flev [ $+ [ $address($nick,2) ] ] >= 101 ) { halt }
        while ( %fexp [ $+ [ $address($nick,2) ] ] > $readini(exp.ini, EXP, %elev) ) {
          inc %flev [ $+ [ $address($nick,2) ] ]
          inc %elev
        }
        if ( $calc( %flev [ $+ [ $address($nick,2) ] ] - %clev ) > 0 ) {
          timer 1 12 notice $nick You gained $calc( %fexp [ $+ [ $address($nick,2) ] ] - %cexp ) XP!
          timer 1 13 notice $nick Your fishing level increased to %flev [ $+ [ $address($nick,2) ] ] $+ !
        }
        if ( $calc( %flev [ $+ [ $address($nick,2) ] ] - %clev ) == 0 ) {
          timer 1 12 notice $nick You gained $calc( %fexp [ $+ [ $address($nick,2) ] ] - %cexp ) XP!
        }
      }
    }
    if ($chan == #sandcastle) { halt }
    set -z %fish $+ $address($nick,2) 180
  }
}