;##########################################
; spuzzy2@hotmail.com
;##########################################

alias getinfo { return 3 $+ $readini(Players\ $+ $1 $+ .ini,$1,$2) $+ 10 }
alias getinfo2 { return $readini(Players\ $+ $1 $+ .ini,$1,$2) }
alias getinfo3 { return $readini(PlayerLogs\ $+ $1 $+ .ini,$1,$2) }
alias getinfo4 { return $readini(GangLogs\ $+ $1 $+ .ini,$1,$2) }
alias getstat { return $readini(players\ $+ $1 $+ .ini,$1,STAT) }
alias reset_players {
  player_check
  reset_gangwarplayers
  DelInactive
  aamsg 3Updating Loans...
  aamsg 3Resetting Gang Wars...
  aamsg 3Updating Player HP...
  aamsg 3Adding Bank Interest...
  aamsg 3Resetting Safety Deposit Box...
  aamsg 3Giving Dirty Money...
  aamsg 3Giving Max Energy...
  aamsg 3Resetting Attack Counts...
  aamsg 3Resetting Safe Cracks...
  aamsg 3Resetting Safe Cracks2...
  aamsg 3Resetting Money Game...
  aamsg 3Resetting Hack Counts...
  aamsg 3Resetting Casino Counts...
  %resettime = $ticks
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(players\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    if %ttt3 == $null { goto enddd2 }
    %bank.amount = $readini(%file1,%ttt3,BANK)
    %player.curhp = $readini(%file1,%ttt3,CURHP)
    %player.hp = $readini(%file1,%ttt3,HP)
    %player.loan = $getinfo2( %ttt3 ,LOAN)
    if %player.loan == YES {
      %loan.amount = $getinfo2( %ttt3 ,LOANAMOUNT)
      if %loan.amount == $null { goto second }
      %loan.days = $getinfo2( %ttt3 ,LOANDAYS)
      if %loan.days == $null { %loan.days = 1 | writeini Players\ $+ %ttt %ttt3 LOANDAYS 1 }
      %new.loandays = $calc( %loan.days + 1)
      if %new.loandays >= 7 {
        ADD_LOG %ttt3 Your loan has not been paid so 1000 Experience points has been deducted!
        %player.exp = $getinfo2( %ttt3 ,EXP)
        %player.exp = $calc( %player.exp - 1000)
        writeini Players\ $+ %ttt %ttt3 EXP %player.exp
      }
      writeini Players\ $+ %ttt %ttt3 LOANDAYS %new.loandays
      %new.loanamount = $calc( %loan.amount * 1.07 )
      writeini Players\ $+ %ttt %ttt3 LOANAMOUNT $round( %new.loanamount ,0)
      ADD_LOG %ttt3 - $round( $calc(%new.loanamount - %loan.amount),0) interest added onto your loan
    }
    :second
    if %player.curhp < %player.hp { writeini players\ $+ %ttt %ttt3 CURHP %player.hp }
    %bank.amount3 = $round($calc( %bank.amount * 1.010 ),0)
    %bank.int = $round($calc( %bank.amount * 0.010),0)
    writeini players\ $+ %ttt %ttt3 BANK $round( %bank.amount3 ,0)
    writeini players\ $+ %ttt %ttt3 ROD NO
    var %fact.level = $readini(%file1,%ttt3,LEVEL)
    if (%fact.level >= 10) {
      var %fact.prise = 250
      var %fact.prise = $calc(%fact.prise * %fact.level)
      var %ret.cash = $calc( 25000 + %fact.prise)
    }
    else {
      var %ret.cash = 25000
    }
    writeini players\ $+ %ttt %ttt3 SAFEDEP $calc($getinfo2(%ttt3,SAFEDEP) + %ret.cash )
    writeini players\ $+ %ttt %ttt3 ENERGY $getinfo2(%ttt3,MAXENERGY)
    writeini players\ $+ %ttt %ttt3 DRUGS $calc($getinfo2(%ttt3,DRUGS) + 25000)
    writeini players\ $+ %ttt %ttt3 DRUGHITSMAX 5
    writeini players\ $+ %ttt %ttt3 CASINO 0
    writeini players\ $+ %ttt %ttt3 BJ 20
    writeini players\ $+ %ttt %ttt3 SAFE 0
    writeini players\ $+ %ttt %ttt3 SAFE2 0
    writeini players\ $+ %ttt %ttt3 money 0
    writeini players\ $+ %ttt %ttt3 DEP 0
    writeini players\ $+ %ttt %ttt3 WITH 0  
    writeini players\ $+ %ttt %ttt3 HACKATTACKS 0
    writeini players\ $+ %ttt %ttt3 HACKSDEF 0
    writeini players\ $+ %ttt %ttt3 ROBNUM 0
    ADD_LOG %ttt3 %ret.cash has been deposited into your safety deposit box.
    ADD_LOG %ttt3 Your daily interest of %bank.int has been added to your bank account.
    :enddd
    if $exists(Attacks\ $+ %ttt3 $+ .ini) == $true { .remove Attacks\ $+ %ttt3 $+ .ini }
    :enddd2
    inc %x

  }
  MoneyStats
  Payland
  %shutdown = NO
  %midnight = NO
  aamsg 7[Reset]3 Main Reset Complete. 10Time taken to Reset: $itime($calc(($ticks - %resettime)/1000))
  sysbackup yeah
  scon -a topic #all-out-war $replace($chan(#all-out-war).topic,Maintenance,ONLINE)
  scon -a mode #all-out-war -m
}
alias MoneyStats {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %money = 0
  %factz = 0
  %safety = 0
  %walletz = 0
  %bankz = 0
  %gangz = 0
  while %x <= %nof {
    %file1 = $findfile(players\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    if %ttt3 == $null { goto enddd2 }
    %p.1 = $getinfo2(%ttt3,cash)
    %p.2 = $getinfo2(%ttt3,bank)
    %p.3 = $getinfo2(%ttt3,safedep)
    %p.4 = $getinfo2(%ttt3,factprod)
    %factz = $calc( %p.4 + %factz )
    %safety = $calc( %p.3 + %safety )
    %bankz = $calc( %p.2 + %bankz )
    %walletz = $calc( %p.1 + %walletz )
    inc %x
  }
  :enddd2
  %blehh = $findfile(Gangs\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(Gangs\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\gangs\) - 6))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    %g.cash = $gi(%ttt3,cash)
    %gangz = $calc( %gangz + %g.cash)
    inc %x
  }
  %money = %factz
  %money = $calc( %money + %safety )
  %money = $calc( %money + %bankz )
  %money = $calc( %money + %gangz )
  %money = $calc( %money + %walletz )
}
alias Payland {
  unset %nof
  %blehh = $findfile(Gangs\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %gang.tot = 0
  aamsg 3Collecting money from gang territory...
  while %x <= %nof {
    %file1 = $findfile(Gangs\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\gangs\) - 6))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    var %ter = $gi(%ttt3,territory)
    var %c = $gi(%ttt3,cash)
    var %prof = $calc(%ter * 1000)
    var %c.n = $calc(%c + %prof)
    writeini gangs\ $+ %ttt3 $+ .ini gang Cash %c.n
    inc %x
  }
}
alias reset_players_midday {
  ;  scon -a topic #all-out-war $replace($chan(#all-out-war).topic,online,Maintenance)
  player_check
  reset_gangwarplayers
  aamsg 3Updating Player HP...
  aamsg 3Giving Max Energy...
  aamsg 3Resetting Casino Counts...
  aamsg 3Resetting Attack Counts...
  aamsg 3Adding bank interest...
  %resettime = $ticks
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(players\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    %bank.amount = $readini(%file1,%ttt3,BANK)
    %bank.amount3 = $round($calc( %bank.amount * 1.010 ),0)
    %bank.int = $round($calc( %bank.amount * 0.010),0)
    if %ttt3 == $null { goto enddd2 }
    %player.curhp = $readini(%file1,%ttt3,CURHP)
    %player.hp = $readini(%file1,%ttt3,HP)
    :second
    if %player.curhp < %player.hp { writeini players\ $+ %ttt %ttt3 CURHP %player.hp }
    writeini players\ $+ %ttt %ttt3 ENERGY $getinfo2(%ttt3,MAXENERGY)
    writeini players\ $+ %ttt %ttt3 CASINO 0
    writeini players\ $+ %ttt %ttt3 ROBNUM 0
    writeini players\ $+ %ttt %ttt3 BJ 20
    writeini players\ $+ %ttt %ttt3 BANK $round( %bank.amount3 ,0)
    ADD_LOG %ttt3 Your interest of %bank.int has been added to your bank account.
    :enddd
    if $exists(Attacks\ $+ %ttt3 $+ .ini) == $true { .remove Attacks\ $+ %ttt3 $+ .ini }
    :enddd2
    inc %x
  }
  ;  Payland
  %shutdown = NO
  %midnight = NO
  aamsg 7[Game Online]3 Energy Reset Complete. 10Time taken to Reset: $itime($calc(($ticks - %resettime)/1000))
  scon -a topic #all-out-war $replace($chan(#all-out-war).topic,Maintenance,ONLINE)
  scon -a mode #all-out-war -m

}

alias reset_players_middaybackup {
  ;  scon -a topic #all-out-war $replace($chan(#all-out-war).topic,online,Maintenance)
  player_check
  reset_gangwarplayers
  aamsg 3Updating Player HP...
  aamsg 3Giving Max Energy...
  aamsg 3Resetting Casino Counts...
  aamsg 3Resetting Attack Counts...
  aamsg 3Adding bank interest...
  %resettime = $ticks
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(players\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    %bank.amount = $readini(%file1,%ttt3,BANK)
    %bank.amount3 = $round($calc( %bank.amount * 1.010 ),0)
    %bank.int = $round($calc( %bank.amount * 0.010),0)
    if %ttt3 == $null { goto enddd2 }
    %player.curhp = $readini(%file1,%ttt3,CURHP)
    %player.hp = $readini(%file1,%ttt3,HP)
    :second
    if %player.curhp < %player.hp { writeini players\ $+ %ttt %ttt3 CURHP %player.hp }
    writeini players\ $+ %ttt %ttt3 ENERGY $getinfo2(%ttt3,MAXENERGY)
    writeini players\ $+ %ttt %ttt3 CASINO 0
    writeini players\ $+ %ttt %ttt3 ROBNUM 0
    writeini players\ $+ %ttt %ttt3 BJ 20
    writeini players\ $+ %ttt %ttt3 BANK $round( %bank.amount3 ,0)
    ADD_LOG %ttt3 Your interest of %bank.int has been added to your bank account.
    :enddd
    if $exists(Attacks\ $+ %ttt3 $+ .ini) == $true { .remove Attacks\ $+ %ttt3 $+ .ini }
    :enddd2
    inc %x
  }
  ;  Payland
  %shutdown = NO
  %midnight = NO
  sysbackup
  aamsg 7[Game Online]3 Energy Reset Complete. 10Time taken to Reset: $itime($calc(($ticks - %resettime)/1000))
  scon -a topic #all-out-war $replace($chan(#all-out-war).topic,Maintenance,ONLINE)
  scon -a mode #all-out-war -m

}


alias reset_gangwarplayers {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(players\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    writeini Players\ $+ %ttt3 $+ .ini %ttt3 INWAR NO
    inc %x
  }
  unset %nof
  %blehh = $findfile(Gangs\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(Gangs\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\gangs\) - 6))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    writeini Gangs\ $+ %ttt3 $+ .ini GANG WAR X
    writeini Gangs\ $+ %ttt3 $+ .ini GANG GANGWAR NO
    writeini Gangs\ $+ %ttt3 $+ .ini GANG WARS 0
    writeini Gangs\ $+ %ttt3 $+ .ini GANG BOMBS 0
    inc %x
  }
  else halt
}
alias reset_drughits {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(players\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    writeini Players\ $+ %ttt3 $+ .ini %ttt3 DRUGHITSMAX 5
    inc %x
  }
}