;##########################################
; 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 chat_menu {
  writeini players\ $+ $1 $+ .ini $1 stat CHAT
  msg = $+ $1 7Chat!
  msg = $+ $1 10 -
  msg = $+ $1 10this is the ingame channel, you can talk to all other online users here, without having to prefix what you want with say <msg>
  msg = $+ $1 10To talk, just type your message and it will be sent!
  msg = $+ $1 10DO 3NOT10 prefix your message with say
  msg = $+ $1 10 -
  msg = $+ $1 10[3X10]
}
alias HPBAR {
  %hp1 = $getinfo2($1,Hp)
  %hp2 = $getinfo2($1,curHp)
  %tot = $round($calc(( %hp2 / %hp1 ) *20),0)
  if %tot = 0 { return 15 $+ $chr(124) $+ 4-------------------- }
  if %tot = 1 { return 9-15 $+ $chr(124) $+ 4------------------- }
  if %tot = 2 { return 9--15 $+ $chr(124) $+ 4------------------ }
  if %tot = 3 { return 9---15 $+ $chr(124) $+ 4----------------- }
  if %tot = 4 { return 9----15 $+ $chr(124) $+ 4---------------- }
  if %tot = 5 { return 9-----15 $+ $chr(124) $+ 4--------------- }
  if %tot = 6 { return 9------15 $+ $chr(124) $+ 4-------------- }
  if %tot = 7 { return 9-------15 $+ $chr(124) $+ 4------------- }
  if %tot = 8 { return 9--------15 $+ $chr(124) $+ 4------------ }
  if %tot = 9 { return 9---------15 $+ $chr(124) $+ 4----------- }
  if %tot = 10 { return 9---------15 $+ $chr(124) $+ 4---------- }
  if %tot = 11 { return 9----------15 $+ $chr(124) $+ 4--------- }
  if %tot = 12 { return 9-----------15 $+ $chr(124) $+ 4-------- }
  if %tot = 13 { return 9------------15 $+ $chr(124) $+ 4------- }
  if %tot = 14 { return 9-------------15 $+ $chr(124) $+ 4------ }
  if %tot = 15 { return 9--------------15 $+ $chr(124) $+ 4----- }
  if %tot = 16 { return 9---------------15 $+ $chr(124) $+ 4---- }
  if %tot = 17 { return 9----------------15 $+ $chr(124) $+ 4--- }
  if %tot = 18 { return 9-----------------15 $+ $chr(124) $+ 4-- }
  if %tot = 19 { return 9------------------15 $+ $chr(124) $+ 4- }
  if %tot = 20 { return 9-------------------15 $+ $chr(124) }
}
alias CHECK_PLAYERS_ONLINE {
  aamsg 7Current Players10 Online:3 $chat(0) 10out of3 $findfile(Players\,*.*,0) 10total players
  %x = 1
  unset %players
  if $chat(0) == 1 { aamsg 7Players: 10[3 $+ $chat(1) $+ 10] | goto eg }
  while %x <= $chat(0) {
    if %x == 1 { %players = 4[14 $+ $chat(%x) | goto dd }
    if %x == $chat(0) { %players = %players $+ 10] [3 $+ $chat(%x) $+ 10] | goto dd }
    %players = %players $+ 10] [3 $+ $chat(%x)
    :dd
    inc %x
  }
  if %players != $null && $1 != $null { notice $1 7Players:3 %players }
  :eg
}
alias aamsg { 
  if $scid(1).status == connected {
    scid 1 msg #all-out-war $1- 
  }
  if $scid(2).status == connected { 
    scid 2 msg #all-out-war $1-
  }
  if $scid(3).status == connected {
    scid 3 msg #all-out-war $1-
  }
  if $scid(4).status == connected {
    scid 4 msg #all-out-war $1-
  }
  if $scid(5).status == connected {
    scid 5 msg #all-out-war $1-
  }
  if $scid(6).status == connected {
    scid 6 msg #all-out-war $1-
  }
  if $scid(7).status == connected {
    scid 7 msg #all-out-war $1-
  }
  if $scid(8).status == connected {
    scid 8 msg #all-out-war $1-
  }
  if $scid(9).status == connected {
    scid 9 msg #all-out-war $1-
  }
  if $scid(10).status == connected {
    scid 10 msg #all-out-war $1-
  }
}

alias ban_user {
  if $2 ison #all-out-war {
    mode #all-out-war +b $2
    kick #all-out-war $2 7You have been banned from this game. Reason: $3-
  }
  Write Banned.txt $2
  msg $1 $2 has been added to the ban list.
}
on *:JOIN:#:{
  %check.ban = $read(Banned.txt, w, $nick)
  if %check.ban != $null {
    mode #all-out-war +b $nick
    kick #all-out-war $nick 7You have been banned from this game.
  }
}
alias check_loaded_scripts {
  %x = 0
  unset %script
  while %x < 30 {
    %t = n $+ %x
    if $readini(mirc.ini,rfiles,%t) == $null { goto d }
    %script = %script [ $+ $readini(Mirc.ini,rfiles,%t) $+ ] 
    :d
    inc %x
  }
  msg $1 %script

}

alias compare_players_in_gangs {
  %gang.members2 = $GI($1,MEMBERS)
  %x = 1
  while %x <= %gang.members2 {
    unset %member.name
    %member.name = $readini(Gangs\ $+ $1 $+ .ini,MEMBERS, %x )
    if %member.name != $null {
      echo NAME: %member.name (Level $getinfo2( %member.name ,LEVEL) $+ )
      %member.name.gang = $getinfo2( %member.name, GANGNAME)
      if %member.name.gang != $1 { echo %member.name does not belong in this gang! }
    }
    :next
    inc %x
  }


}
alias vpeg {
  var %n = $nick(#all-out-war,0)
  var %t = 1
  while %n >= %t {
    var %ni = $nick(#all-out-war,%t)
    mode #all-out-war +v %ni
    inc %t
  }
}
alias vpeg2 {
  var %n = $nick(#all-out-war,0)
  var %t = 1
  while %n >= %t {
    var %ni = $nick(#all-out-war,%t)
    mode #all-out-war -v %ni
    inc %t
  }
}
alias update_energy_time {
  inc %time 1
  inc %time2 1
  inc %stock.time 1
  if %stock.time >= 500 { %stock.time = 1 | stock_calc }
  if %time2 >= 2700 { %time2 = 1 | WAR_UPDATE_FACTORY }
  if %time >= 360 { %time = 1 | update_energy2 }
}

alias update_energy2 {
  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)
    %energy.amount = $readini(%file1,%ttt3,ENERGY)
    %energy.amount2 = $readini(%file1,%ttt3,MAXENERGY)
    if %energy.amount == %energy.amount2 { goto enddd }

    %energy.amount3 = $calc( %energy.amount + 1 )
    writeini players\ $+ %ttt %ttt3 ENERGY %energy.amount3
    if $getinfo2(%ttt3,PREF) == YES {
      if $chat(%ttt3) != $null {
        var %loop.status = $chat(%ttt3).status
        if (%loop.status == waiting) { close -c %ttt3 }
        else { msg = $+ %ttt3  10You gain3 1 Energy10. You currently have3 %energy.amount3 10energy points. }
      }
    }
    :enddd
    inc %x

  }
  scid -a msg #all-out-war 4,1[14E15N0E14RG14Y4]10 Everyone gains3 1 Energy10. Next energy increase in3 6 min

}

alias check_war_time {
  if $asctime(HH:nn:ss) == 20:00:00 {
    payoutlotto
  }
  if $asctime(HH:nn:ss) == 21:55:00 {
    aamsg 7[Main Reset]3 5 mins to go till shutdown for Main Reset ...
    anny The main reset will occur in 5 minutes!
  }
  if $asctime(HH:nn:ss) == 17:55:00 {
    aamsg 7[Main Reset]3 5 mins to go till shutdown for Energy Reset ...
    anny The Energy reset will occur in 5 minutes!
  }

  if $asctime(HH:nn:ss) == 05:25:00 {
    aamsg 7[Energy Reset]3 5 mins to go till shutdown for Energy Reset ...
    anny The Energy reset will occur in 5 minutes!
  }
  if $asctime(HH:nn:ss) == 08:55:00 {
    aamsg 7[Energy Reset]3 5 mins to go till shutdown for Energy Reset ...
    anny The Energy reset will occur in 5 minutes!
  }
  if $asctime(HH:nn:ss) == 13:55:00 {
    aamsg 7[Energy Reset]3 5 mins to go till shutdown for Energy Reset ...
    anny The Energy reset will occur in 5 minutes!
  }
  if $asctime(HH:nn:ss) == 21:59:00 {
    %shutdown = YES
    scid -a mode #all-out-war +m
    scid -a vpeg2
    scid -a topic #all-out-war $replace($chan(#all-out-war).topic,online,Maintenance)
    close -c *
    scid -a msg #all-out-war 7[Main Reset]3 Shutting game down for main reset...
    scid -a msg #all-out-war 7[Main Reset]3 You will not be able to log in until the reset has completed. Please be patient. This will take approx. 1 minute.
  }
  if $asctime(HH:nn:ss) == 08:59:00 {
    %shutdown = YES
    scid -a mode #all-out-war +m
    scid -a vpeg2
    scid -a topic #all-out-war $replace($chan(#all-out-war).topic,online,Maintenance)
    close -c *
    scid -a msg #all-out-war 7[Energy Reset] 3Shutting game down for energy reset...
    scid -a msg #all-out-war 7[Energy Reset]3 You will not be able to log in until the reset has completed. Please be patient. This will take approx. 1 minute.
  }
  if $asctime(HH:nn:ss) == 17:59:00 {
    %shutdown = YES
    scid -a mode #all-out-war +m
    scid -a vpeg2
    scid -a topic #all-out-war $replace($chan(#all-out-war).topic,online,Maintenance)
    close -c *
    scid -a msg #all-out-war 7[Energy Reset] 3Shutting game down for energy reset...
    scid -a msg #all-out-war 7[Energy Reset]3 You will not be able to log in until the reset has completed. Please be patient. This will take approx. 1 minute.
  }
  if $asctime(HH:nn:ss) == 05:29:00 {
    %shutdown = YES
    scid -a mode #all-out-war +m
    scid -a vpeg2
    scid -a topic #all-out-war $replace($chan(#all-out-war).topic,online,Maintenance)
    close -c *
    scid -a msg #all-out-war 7[Energy Reset] 3Shutting game down for energy reset...
    scid -a msg #all-out-war 7[Energy Reset]3 You will not be able to log in until the reset has completed. Please be patient. This will take approx. 1 minute.
  }
  if $asctime(HH:nn:ss) == 13:59:00 {
    %shutdown = YES
    scid -a mode #all-out-war +m
    scid -a vpeg2
    scid -a topic #all-out-war $replace($chan(#all-out-war).topic,online,Maintenance)
    close -c *
    scid -a msg #all-out-war 7[Energy Reset]3 Shutting game down for energy reset and player backup...
    scid -a msg #all-out-war 7[Energy Reset]3 You will not be able to log in until the reset has completed. Please be patient. This will take approx. 1 minute.
  }
  if $asctime(HH:nn:ss) == 22:00:00 { amsg 7[Main Reset]3 Initiating Main reset | reset_players | set %nextreset 5:30AM }
  if $asctime(HH:nn:ss) == 09:00:00 { amsg 7[Energy Reset]3 Initiating Energy reset | reset_players_midday | set %nextreset 2PM }
  if $asctime(HH:nn:ss) == 14:00:00 { amsg 7[Energy Reset]3 Initiating Energy reset | reset_players_middaybackup | set %nextreset 6PM }
  if $asctime(HH:nn:ss) == 18:00:00 { amsg 7[Energy Reset]3 Initiating Energy reset | reset_players_midday | set %nextreset 10PM }
  if $asctime(HH:nn:ss) == 05:30:00 { amsg 7[Energy Reset]3 Initiating Energy reset | reset_players_midday | set %nextreset 9AM }
}
alias syslog { write SysLog.txt $asctime(dd:mmm:yyyy) $asctime(HH:nn:ss) - $1- }
on *:NICK:{
  if $chat($nick).status == active { notice $newnick you cannot change nicknames while in the game! Session ended. | close -c $nick | mode #all-out-war -v $newnick }
}
alias player_check {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %inco = 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)
    %energy.amount = $readini(%file1,%ttt3,ENERGY)
    if %energy.amount == $null { 
      remove Players\ $+ %ttt3 $+ .ini
      inc %inco 1
    }
    :enddd
    inc %x
  }
}
alias nogang_check {
  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)
    %get.gang.leader = $readini(Gangs\ $+ %ttt3 $+ .ini,MEMBERS,1)
    if %get.gang.leader == $null { remove %file1 }
    inc %x
  }
  msg #aow Done. | halt 
}
alias check_gang_players {
  if $1 == $null { halt }
  %gang.name = $1
  %gang.members = $GI( %gang.name ,TRUEMEMBERS)
  %gang.members2 = $GI( %gang.name ,MEMBERS)
  msg $2 checking $1 for incomplete players....
  %x = 1
  %inco = 0
  while %x <= %gang.members2 {
    unset %member.name
    %member.name = $readini(Gangs\ $+ %gang.name $+ .ini,MEMBERS, %x )
    if %member.name != $null {
      echo - %member.name
      if $exists(Players\ $+ %member.name $+ .ini) == $false { inc %inco 1 | msg $2 %member.name is incomplete. }
      if $getinfo2(%member.name,SPEED) == $null { inc %inco 1 | msg $2 %member.name is incomplete. }
      if $getinfo2(%member.name,GANGNAME) != $1 { inc %inco 1 | msg $2 %member.name should not be in this gang! }
    }
    inc %x
  }
  if %inco = 0 { msg $2 No incomplete players found in the gang. | goto t }
  msg $2 Completed.
  :t
  unset %gang.name
  unset %gang.members
  unset %member.name
  unset %x


}
alias DRUG_HOLE {
  writeini players\ $+ $1 $+ .ini $nick STAT DRUGHOLE
  msg = $+ $1  $space
  msg = $+ $1 7MONEY LAUNDERING
  msg = $+ $1  $space
  if $getinfo2($1,MENU) == 0 { halt }
  msg = $+ $1 10You have3 $cash($getinfo2($1,DRUGS)) 10dirty money on you
  msg = $+ $1  $space
  msg = $+ $1 [1]: 10Launder some dirty money for energy 3(Cost $ $+ 6 000)
  msg = $+ $1 [2]: 10Launder some dirty money for a gym point 3(Cost $ $+ 50 000)
  msg = $+ $1 [GIVE x player]: 10Give x dirty money to a player
  msg = $+ $1 [SELL x]: 10Sell your dirty money at a 20% loss
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back


}
alias TAKE_DRUG {
  %drugs = $getinfo2($1,DRUGS)
  %energy = $getinfo2($1,ENERGY)
  %maxenergy = $getinfo2($1,MAXENERGY)
  if $calc(%energy + 1) > %maxenergy { msg = $+ $1 3You already have max energy! | halt }

  if %drugs <= 6000 { msg = $+ $1 3You do not have enough dirty money to gain an energy point! You need a minimum of R6 000 | halt }
  %drugsleft = $getinfo2($1,DRUGHITSMAX)
  if %drugsleft == $null { writeini Players\ $+ $1 $+ .ini $1 DRUGHITSMAX 5 | %drugsleft = 5 }
  if %drugsleft <= 0 { msg = $+ $1 3You cannot launder anymore dirty money today! You'll get bust you fewl! | halt }
  dec %drugsleft 1
  dec %drugs 6000
  writeini Players\ $+ $1 $+ .ini $1 DRUGHITSMAX %drugsleft
  writeini Players\ $+ $1 $+ .ini $1 ENERGY $calc($getinfo2($1,ENERGY) + 1)
  writeini Players\ $+ $1 $+ .ini $1 DRUGS %drugs
  msg = $+ $1 3You have gained an energy point!
  if $1 != %lastdrugperson { aamsg 3 $+ $1 10has laundered money! }
  %lastdrugperson = $1
}
alias TAKE_DRUGS {
  %drugs = $getinfo2($1,DRUGS)
  %energy = $getinfo2($1,PRACS)

  if %drugs < 50000 { msg = $+ $1 3You do not have enough dirty money to gain a gym point! You need a minimum of $ $+ 50 000 | halt }
  %drugsleft = $getinfo2($1,DRUGHITSMAX)
  if %drugsleft == $null { writeini Players\ $+ $1 $+ .ini $1 DRUGHITSMAX 5 | %drugsleft = 5 }
  if %drugsleft <= 0 { msg = $+ $1 3You cannot launder anymore dirty money today! You'll get bust you fewl! | halt }
  dec %drugsleft 1
  dec %drugs 50000
  writeini Players\ $+ $1 $+ .ini $1 DRUGHITSMAX %drugsleft
  writeini Players\ $+ $1 $+ .ini $1 PRACS $calc($getinfo2($1,PRACS) + 1)
  writeini Players\ $+ $1 $+ .ini $1 DRUGS %drugs
  msg = $+ $1 3You have gained a gym point!
  if $1 != %lastdrugperson { aamsg 3 $+ $1 10has laundered money! }
  %lastdrugperson = $1
}
alias GIVE_DRUG {
  if $1 == $3 { msg = $+ $1 smartass... | halt }
  if $exists(Players\ $+ $3 $+ .ini) == $FALSE {
    msg = $+ $1 10That player does not exist!
    halt
  }
  %drugs = $getinfo2($1,DRUGS)
  %var = $round($2,0)
  if $2 > %drugs { msg = $+ $1 3You dont have that much dirty money! | halt }
  %drugs = $calc(%drugs - %var )
  writeini Players\ $+ $1 $+ .ini $1 DRUGS %drugs
  writeini Players\ $+ $3 $+ .ini $3 DRUGS $calc($getinfo2($3,DRUGS) + %var )
  msg = $+ $1 10You have given3 %var 10dirty money to3 $3 
  if $chat($3).status == active { msg = $+ 3 $+ $3 $1 10has given you3 %var 10dirty money! }
  ADD_LOG $1 You have given %var dirty money to $3
  ADD_LOG $3 $1 has given you %var dirty money
}
alias reset_chals {
  unset %nof
  %blehh = $findfile(Race\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(race\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\race\) - 5))
    remove Race\ $+ %ttt
    inc %x
  }
  msg $1 Complete.
}
alias check_chals {
  unset %nof
  %blehh = $findfile(Race\,*.ini,0,inc %nof 1)
  msg $1 Number of files: %blehh
}
alias lottery_tickets_bought {
  aamsg 7[Lottery] -3 $lines(lottery.txt) 10tickets sold so far!

}
alias lottery_time {
  if $asctime(HH:nn:ss) == 19:59:00 { aamsg 7[Lottery]3 1 10Minute to go to the draw! }
  if $asctime(HH:nn:ss) == 19:55:00 { aamsg 7[Lottery]3 5 10Minutes to go to the draw! }
  if $asctime(HH:nn:ss) == 19:50:00 { aamsg 7[Lottery]3 10 10Minutes to go to the draw!  }
  if $asctime(HH:nn:ss) == 19:30:00 { aamsg 7[Lottery]3 30 10Minutes to go to the draw! }
}
alias check_p {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %inco = 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)
    write pass.txt %ttt3 $+ ; $+ $getinfo2(%ttt3,PASS)
    inc %x
  }
  echo set tickets to 0

}
alias remove_all_speed {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %inco = 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)
    %speed = $getinfo2(%ttt3,SPEED)
    %gymp = $calc(%speed / 5)
    %list = $getinfo2(%ttt3,LIST)
    %player.bank = $getinfo2(%ttt3,BANK)
    unset %give.cash
    if SOS1 isin %list { inc %give.cash 150000 }
    if SOS2 isin %list { inc %give.cash 250000 }
    if SOS3 isin %list { inc %give.cash 400000 }
    if GOM1 isin %list { inc %give.cash 150000 }
    if GOM2 isin %list { inc %give.cash 250000 }
    if GOM3 isin %list { inc %give.cash 400000 }
    if WRIST isin %list { inc %give.cash 250000 }
    if MEDA isin %list { inc %give.cash 400000 }
    if BEAN isin %list { inc %give.cash 750000 }
    inc %player.bank %give.cash
    writeini Players\ $+ %ttt3 $+ .ini %ttt3 BANK %player.bank
    writeini Players\ $+ %ttt3 $+ .ini %ttt3 PRACS $round(%gymp,0)
    ADD_LOG %ttt3 All your speed & speed items have been removed. you have been re-imbursed with gym points ( $+ $round(%gymp,0) $+ ) and cash ( $+ $cash(%give.cash) $+ ) for speed items bought.
    inc %x

  }
  echo -a done.

}
alias LOTTERY_MENU {
  writeini players\ $+ $1 $+ .ini $1 STAT LOTTERY
  unset %tickets
  %tickets = $getinfo2($1,TICKETS)
  if %tickets == $null { %tickets = 0 }
  msg = $+ $1  $space
  msg = $+ $1 7RyanNet LOTTERY
  msg = $+ $1  $space
  msg = $+ $1 10Jackpot stands at:3 $cash(%lottery.amount) 
  msg = $+ $1 10Please note that the maximum Jackpot Limit has been removed!
  msg = $+ $1 10The draw will take place at3 8PM 
  msg = $+ $1 10You have bought3 %tickets 10tickets - Maximum Tickets is3 40 
  msg = $+ $1 10Total tickets bought:3 $lines(lottery.txt) 10tickets
  msg = $+ $1 10Each ticket increases the jackpot by3 $cash(15000)
  msg = $+ $1  $space
  if $getinfo2($1,MENU) == 0 { halt }
  msg = $+ $1  $space
  msg = $+ $1 [1]:10 Buy a Quick Pick ticket (3 $+ $cash(2500) $+ 10)
  ;  msg = $+ $1 [2]:10 Choose Your own ticket number (3 $+ $cash(2500) $+ 10)
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back


}
alias PayOutLotto {
  %win1 = $null 
  %win2 = $null
  %win3 = $null
  if %none.win.lotto == $null || %none.lotto.win = 0 { set %none.win.lotto 1 }
  if %none.win.lotto == 5 {
    if $lines(winners.txt) == 0 {
      set %win1 $read(lottery.txt)
      set %win2 $read(lottery.txt)
      %win.fact = $rand(1,2)
      if %win.fact == 2 { 
        set %win3 $read(lottery.txt)
      }
      write winners.txt %win1
      write winners.txt %win2
      if %win3 != $null { write winners.txt %win3 }
    }
  }
  set %lottery.old.winners 0
  write -c templotto.txt
  write templotto.txt 1
  write tempLotto.txt %lottery.amount
  %lottery.winners = $lines(winners.txt)
  write -c templotto2.txt
  write templotto2.txt 1
  write templotto2.txt %lottery.winners
  aamsg 7[Lotto Payout]:
  if $lines(winners.txt) == 0 { aamsg 7[Lotto]3 There were No winning tickets sold, therefore there are no winners! 10The Jackpot total of 3( $+ $cash2( $+ %lottery.amount $+ ) $+ ) 10has been carried over for tommorrows draw. | set %lottery.old.winners None | set  %lottery.old.ammount $cash( $+ %lottery.amount $+ ) 
    goto roar
    inc %none.win.lotto 1
  }
  aamsg 7[Lotto]:10Winning ticket number:3 %winnumber 10Number of winning tickets Bought:3 $lines(winners.txt) 10Jackpot:3 $cash( $+ %lottery.amount $+ ) 10Each winner gets3 $cash2($calc($read(templotto.txt)/$read(templotto2.txt)))
  unset %x
  unset %y
  %x = $lines(winners.txt)
  %y = 1
  goto pay
  :pay
  aamsg 7[Winner]:3 $read(winners.txt, %y $+ )
  unset %winner.cash
  %winner.cash = $getinfo2($read(winners.txt, %y $+ ),CASH)
  write -c tempcash.txt
  write tempcash.txt 1
  write tempcash.txt %winner.cash
  add_log $read(winners.txt, %y $+ ) You Won the lottery! Amount: $calc($read(tempcash.txt)+($read(templotto.txt)/$read(templotto2.txt)))
  if $getinfo2($read(winners.txt, %y $+ ),LOTTO) == CASH { writeini Players\ $+ $read(winners.txt, %y $+ ) $+ .ini $read(winners.txt, %y $+ ) CASH $calc($getinfo2($read(winners.txt, %y $+ ),CASH)+($read(tempcash.txt)+($read(templotto.txt)/$read(templotto2.txt)))) }
  if $getinfo2($read(winners.txt, %y $+ ),LOTTO) == BANK { writeini Players\ $+ $read(winners.txt, %y $+ ) $+ .ini $read(winners.txt, %y $+ ) BANK $calc($getinfo2($read(winners.txt, %y $+ ),BANK)+($read(tempcash.txt)+($read(templotto.txt)/$read(templotto2.txt)))) }
  inc %y 1
  inc %lottery.old.winners
  goto check
  :check
  if %y <= %x { goto pay }
  else { goto done }
  :done
  aamsg 7[Lotto]:10We Thank our sponsor 3RyanNet IRC network10 Who made this daily lottery draw possible.
  write -c winners.txt
  unset %winnumber
  write -c lottery.txt
  unset %lottery.amount
  %winnumber = $rand(1,450)
  %lottery.amount = 350000
  :roar
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %inco = 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)
    writeini Players\ $+ %ttt3 $+ .ini %ttt3 TICKETS 0
    inc %x
  }
  echo set tickets to 0
  halt
}
alias BUY_LOTTERY {
  %player.cash = $getinfo2($1,CASH)
  if %player.cash < 2500 { msg = $+ $1 10You do not have enough cash to buy a ticket! | halt }
  if $getinfo2($1,TICKETS) >= 40 { msg = $+ $1 10You have bought the maximum amount of tickets! | halt }
  if $getinfo2($1,TICKETS) == $null {  writeini Players\ $+ $1 $+ .ini $1 TICKETS 0 }
  %player.cash = $calc(%player.cash - 2500)
  writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
  writeini Players\ $+ $1 $+ .ini $1 TICKETS $calc($getinfo2($1,TICKETS) + 1)
  unset %lotto
  %lotto = $rand(1,450)
  if %lotto == %winnumber { write winners.txt $1 }
  write lottery.txt $1
  inc %lottery.amount 15000
  msg = $+ $1 10You have bought a ticket. The number is3 %lotto
}
alias BUY_LOTTERY2 { }



alias Check_Inv {
  unset %inv
  unset %def
  unset %spe
  if CAK3 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[33 x CAK10] | goto p }
  if CAK2 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[32 x CAK10] | goto p }
  if CAK1 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[31 x CAK10] | goto p }
  :p
  if WDG3 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[33 x WDG10] | goto p2 }
  if WDG2 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[32 x WDG10] | goto p2 }
  if WDG1 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[31 x WDG10] | goto p2 }
  :p2

  if 01 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3ShoeSt10] }
  if 02 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3BGB10] }
  if 03 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3WaterP10] }
  if 04 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3FireC10] }
  if 05 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3CherryB10] }
  if 06 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3RazorB10] }
  if 07 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3StinkB10] }
  if 08 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3Baton10] }
  if 09 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3BaseB10] }
  if 10 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3KD10] }
  if 11 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3SKD10] }
  if 12 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3PepSp10] }
  if 13 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3Taezer10] }
  if 14 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3Dyna10] }
  if 15 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3ChainSaw10] }
  if 16 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3S&W10] }
  if 17 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[348Mag10] }
  if 18 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3TommyG10] }
  if 19 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3Uzi10] }
  if 20 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3DUzi10] }
  if 21 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3SoShot10] }
  if 22 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3C410] }
  if 23 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3AK4710] }
  if 24 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3LMG10] }
  if 25 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3RocketL10] }
  if 26 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3BLKHeli10] }
  if 27 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3M1A1D Tank10] }
  if 28 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3AttackAP10] }
  if 29 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3Warship10] }
  if 30 isin $getinfo2($1,LIST) { %inv = %inv $+ 10[3Nuke10] }



  if CLK3 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Super Cloak10] | goto p6 }
  if CLK2 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Med Cloak10] | goto p6 }
  if CLK1 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Std Cloak10] | goto p6 }
  :p6
  if TIT3 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Super TEG10] | goto p7 }
  if TIT2 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Med TEG10] | goto p7 }
  if TIT1 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Std TEG10] | goto p7 }
  :p7
  if 31 isin $getinfo2($1,LIST) { %def = %def $+ 10[3RubDuck10] }
  if 32 isin $getinfo2($1,LIST) { %def = %def $+ 10[3SwShirt10] }
  if 33 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Pillow10] }
  if 34 isin $getinfo2($1,LIST) { %def = %def $+ 10[3ConD10] }
  if 35 isin $getinfo2($1,LIST) { %def = %def $+ 10[3PrisJumSu10] }
  if 36 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Belt10] }
  if 37 isin $getinfo2($1,LIST) { %def = %def $+ 10[3LeaJac10] }
  if 38 isin $getinfo2($1,LIST) { %def = %def $+ 10[3WarHelm10] }
  if 39 isin $getinfo2($1,LIST) { %def = %def $+ 10[3CamoKit10] }
  if 40 isin $getinfo2($1,LIST) { %def = %def $+ 10[3NjaSuit10] }
  if 41 isin $getinfo2($1,LIST) { %def = %def $+ 10[3BriWall10] }
  if 42 isin $getinfo2($1,LIST) { %def = %def $+ 10[3MysticS10] }
  if 43 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Hut10] }
  if 44 isin $getinfo2($1,LIST) { %def = %def $+ 10[3BulletPrVest10] }
  if 45 isin $getinfo2($1,LIST) { %def = %def $+ 10[3PitBull10] }
  if 46 isin $getinfo2($1,LIST) { %def = %def $+ 10[3SigScram10] }
  if 47 isin $getinfo2($1,LIST) { %def = %def $+ 10[3BodyGau10] }
  if 48 isin $getinfo2($1,LIST) { %def = %def $+ 10[3DBodyGau10] }
  if 49 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Sniper10] }
  if 50 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Assasin10] }
  if 51 isin $getinfo2($1,LIST) { %def = %def $+ 10[3RockGol10] }
  if 52 isin $getinfo2($1,LIST) { %def = %def $+ 10[3ArmCar10] }
  if 53 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Limo10] }
  if 54 isin $getinfo2($1,LIST) { %def = %def $+ 10[3MamTank10] }
  if 55 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Castle10] }
  if 56 isin $getinfo2($1,LIST) { %def = %def $+ 10[3Sub10] }
  if 57 isin $getinfo2($1,LIST) { %def = %def $+ 10[3DukeShelter10] }
  if 58 isin $getinfo2($1,LIST) { %def = %def $+ 10[3UnderMansion10] }
  if 59 isin $getinfo2($1,LIST) { %def = %def $+ 10[3OsaBinLaden10] }
  if 60 isin $getinfo2($1,LIST) { %def = %def $+ 10[3IsraeliForce10] }

  ;  if SOS3 isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Super SoS10] | goto p3 }
  ;  if SOS2 isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Medium SoS10] | goto p3 }
  ;  if SOS1 isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Standard So10] | goto p3 }
  :p3
  ;  if GOM3 isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Super GoM10] | goto p4 }
  ;  if GOM2 isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Medium GoM10] | goto p4 }
  ;  if GOM1 isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Standard GoM10] | goto p4 }
  :p4
  if WRIST isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3WoR10] }
  if MEDA isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3MoR10] }
  if BEAN isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3BoSM10] }
  if BSTA isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3BSTA10] }
  if BSTD isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3BSTD10] }
  if CHUCK isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Chuck10] }
  if GUN isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3MinGun10] }
  if Bain isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Bain10] }
  if monkey isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3MOnkey10] }
  if Thunder isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Thunder10] }
  if Zathura isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Zathura10] }
  if Mini isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3MinAssult10] }
  if wizard isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Wizard10] }
  if Super isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3SuperWp10] }
  if Assult isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3AssultWP10] }
  if POWER isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3POWER-Ranger3] }
  if Ball isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3Z-Ball3] }
  if war isin $getinfo2($1,LIST) { %spe = %spe $+ 10[3War-Gen3] }

}

alias show_joint {
  check_inv $1
  msg = $+ $1  $space
  msg = $+ $1 7Your Joint
  msg = $+ $1 10Your place of R&R
  msg = $+ $1  $space
  msg = $+ $1 10You are currently level:3 $getinfo($1,LEVEL)
  msg = $+ $1 10You have3 $getinfo($1,ENERGY) energy points remaining. Max: $getinfo($1,MAXENERGY)
  msg = $+ $1 10Next energy increase in3 $duration($calc(360-%time))
  msg = $+ $1  $space
  msg = $+ $1 10Health:3 $getinfo($1,CURHP) / $getinfo($1,HP)
  msg = $+ $1 10HP Bar: $hpbar($1)
  msg = $+ $1  $space
  msg = $+ $1 10Bank:3 $cash($getinfo2($1,BANK))
  msg = $+ $1 10Safety Deposit Box:3 $cash($getinfo2($1,SAFEDEP))
  msg = $+ $1 10Cash:3 $cash($getinfo2($1,CASH))
  msg = $+ $1 10Dirty Money:3 $cash($getinfo2($1,DRUGS))
  msg = $+ $1  $space
  %expp = $getinfo2($1,EXP)
  %expp = $round( %expp ,0)
  %e = $calc($getinfo2($1,NEXTEXP))
  %e2 = $round($calc(($getinfo2($1,EXP) / %e)*100),2)

  %factor = $calc($getinfo2($1,LEVEL) * .65 )
  var %exp = $calc(50 + (17 * %factor))

  %tto = $calc(%e - %expp)
  %tto2 = $calc(%tto / %exp)

  msg = $+ $1 10Experience: 3 $+ %expp $+ / $+ $getinfo($1,NEXTEXP) ( $+ %e2 $+ % $+ )
  msg = $+ $1 10Approx. number of fights till level:3 $round(%tto2,2)
  msg = $+ $1 10Workouts:3 $getinfo($1,PRACS)
  msg = $+ $1  $space
  msg = $+ $1 10Strength:3 $getinfo($1,STRENGTH)
  msg = $+ $1 10Defense:3 $getinfo($1,DEFENSE)
  msg = $+ $1  $space
  msg = $+ $1 10Additional Attack:3 + $+ $getinfo($1,ATT)
  msg = $+ $1 10Additional Defense:3 + $+ $getinfo($1,DEF)
  msg = $+ $1  $space
  msg = $+ $1 10Attack Items: %inv
  msg = $+ $1 10Defense Items: %def
  msg = $+ $1 10Special Items: %spe
  msg = $+ $1  $space
  %total.games = $calc($getinfo2($1,WINS) + $getinfo2($1,LOSS))
  msg = $+ $1 10Wins/Losses:3 $getinfo($1,WINS) $+ / $+ $getinfo($1,LOSS) 10( $+ $round($calc(( $getinfo2($1,WINS) / %total.games )* 100 ),2) $+ % $+ )
  msg = $+ $1  $space
  var %fact.level = $getinfo2($1,LEVEL)
  if (%fact.level >= 10) {
    var %fact.prise = $round($calc(($getinfo2($1,FACTNUM) * 1250) / 1000),0)
    var %fact.prise = $calc(%fact.prise * %fact.level)
    var %ret.cash = $calc(($getinfo2($1,FACTNUM) * 1250) + %fact.prise)
  }
  else {
    var %ret.cash = $calc($getinfo2($1,FACTNUM) * 1250)
  }
  msg = $+ $1 10Factories:3 $getinfo($1,FACTNUM) 10producing3 $cash(%ret.cash) 10cash per 45mins
  msg = $+ $1 10Next factory production in3 $duration($calc(2700-%time2))
  msg = $+ $1 10Hackers:3 $getinfo($1,HACKNUM)
  msg = $+ $1  $space
  if $getinfo2($1,GANG) == YES {
    msg = $+ $1 10Gang:3 $getinfo($1,GANGNAME)
  }
  msg = $+ $1  $space
  msg = $+ $1 10Energy increase every3 6 minutes
  msg = $+ $1 10Factory production every3 45 minutes
  msg = $+ $1 10Lottery draw takes place every night at3 8PM
  msg = $+ $1 10Reset will occur at3 5:30AM, 9AM,3 2PM,3 6PM, 10PM
  if (%nextreset == 5:30AM) {   msg = $+ $1 10The next reset will be at3 %nextreset 10which is3 $duration($calc($ctime($date 5:30)-$ctime)) 10away }
  if (%nextreset == 2PM) {   msg = $+ $1 10The next reset will be at3 %nextreset 10which is3 $duration($calc($ctime($date 14:00)-$ctime)) 10away }
  if (%nextreset == 10PM) {   msg = $+ $1 10The next reset will be at3 %nextreset 10which is3 $duration($calc($ctime($date 22:00)-$ctime)) 10away }
  if (%nextreset == 9AM) {   msg = $+ $1  10The next reset will be at3 %nextreset 10which is3 $duration($calc($ctime($date 9:00)-$ctime)) 10away }
  if (%nextreset == 6PM) {   msg = $+ $1 10The next reset will be at3 %nextreset 10which is3 $duration($calc($ctime($date 18:00)-$ctime)) 10away }
  msg = $+ $1  $space
  ;  msg = $+ $1 10Your Password is:3 $readini(players\ $+ $1 $+ .ini, $1 $+ , pass)
  ;  if $readini(players\ $+ $1 $+ .ini, $1 $+ , title) != $null { msg = $+ $1 10Your Title is:3 $readini(players\ $+ $1 $+ .ini, $1 $+ , title) }
  ;  msg = $+ $1  $space
  ;  msg = $+ $1 10To change your password type 3!password <new pass>
  ;  if $readini(players\ $+ $1 $+ .ini, $1 $+ , title) != $null {  msg = $+ $1 10To change your Title type 3!title <new title> }
  ;  if $readini(players\ $+ $1 $+ .ini, $1 $+ , title) != $null {  msg = $+ $1 10TO delete your title type 3!Title Del }
  ;  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back
}
alias Check_Cities {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %inco = 0
  %jhb = 1
  %cpt = 1
  %pret = 1
  %dbn = 1
  %pe = 1
  %bfn = 1
  %pmb = 1
  %nel = 1
  %unk = 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)
    %nt = $readini(%file1,%ttt3,CITY)
    if %nt == JHB || %nt == <jhb> { inc %JHB 1 | goto end }
    if %nt == CPT || %nt == CapeTown { inc %CPT 1 | goto end }
    if %nt == PTA || %nt == <pret> { inc %PRET 1 | goto end }
    if %nt == PE { inc %PE 1 | goto end }
    if %nt == PMB { inc %pmb 1 | goto end }
    if %nt == BFN || %nt == BLOEM { inc %BFN 1 | goto end }
    if %nt == DBN || %nt == DURB { inc %DBN 1 | goto end }
    if %nt == NEL { inc %NEL 1 | goto end }
    if %nt == $null { inc %unk 1 | goto end }
    else { inc %unk 1 | goto end }
    :end
    inc %x
  }
  %tr = $calc(%jhb + %cpt + %pret + %pe + %dbn + %bfn + %pmb + %unk)
  scid $1 amsg 7Players From Region3 10(3Total: %tr $+ 10)
  scid $1 amsg 10Jo'burg:3 %jhb 10(3 $+ $round($calc((%jhb / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Cape Town:3 %cpt 10(3 $+ $round($calc((%cpt / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Pretoria:3 %pret 10(3 $+ $round($calc((%pret / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Port Elizabeth:3 %pe 10(3 $+ $round($calc((%pe / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Durban:3 %dbn 10(3 $+ $round($calc((%dbn / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Bloemfontein:3 %bfn 10(3 $+ $round($calc((%bfn / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Pietermaritzburg:3 %pmb 10(3 $+ $round($calc((%pmb / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Nelspruit:3 %nel 10(3 $+ $round($calc((%nel / %tr)*100),1) $+ % $+ 10)
  scid $1 amsg 10Unknown:3 %unk 10(3 $+ $round($calc((h%unk / %tr)*100),1) $+ % $+ 10)

}
alias check_players_inv {
  unset %nof
  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  unset %x
  %x = 1
  %inco = 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)
    %p.list = $getinfo2(%ttt3,LIST)
    %p.level = $getinfo2(%ttt3,LEVEL)
    if %p.level < 40 {
      if 07 isin %p.list { 
        writeini Players\ $+ %ttt3 $+ .ini %ttt3 BANK $calc($getinfo2(%ttt3,BANK) + 750000)
        writeini Players\ $+ %ttt3 $+ .ini %ttt3 ATT $calc($getinfo2(%ttt3,ATT) - 150)
        writeini Players\ $+ %ttt3 $+ .ini %ttt3 LIST $replace($getinfo2(%ttt3,LIST),07,00)
      }
      if 15 isin %p.list { 
        writeini Players\ $+ %ttt3 $+ .ini %ttt3 BANK $calc($getinfo2(%ttt3,BANK) + 500000)
        writeini Players\ $+ %ttt3 $+ .ini %ttt3 DEF $calc($getinfo2(%ttt3,DEF) - 120)
        writeini Players\ $+ %ttt3 $+ .ini %ttt3 LIST $replace($getinfo2(%ttt3,LIST),15,00)
      }
    }
    if %p.level < 50 {
      if 08 isin %p.list { msg $1 - %ttt3 has got a rocket launcher }
      if 09 isin %p.list { msg $1 - %ttt3 has got an apache }
      if 10 isin %p.list { msg $1 - %ttt3 has got a nuke }
      if 16 isin %p.list { msg $1 - %ttt3 has got dual body guards }
      if 17 isin %p.list { msg $1 - %ttt3 has got an armoured car }
      if 18 isin %p.list { msg $1 - %ttt3 has got a mammoth tank }
    }
    inc %x
  }
  msg $1 Complete.
}
alias dv_all {
  scon -a mode #all-out-war +m
  var %loop.servers = $scid(0), %loop.serversc = 0
  while (%loop.serversc < %loop.servers) {
    inc %loop.serversc
    var %loop.serverid = $scid(%loop.serversc)
    scid %loop.serverid .msg ChanServ CLEAR #All-Out-War VOICES
  }
}
alias WAR_GYM {
  writeini players\ $+ $1 $+ .ini $1 STAT GYM
  msg = $+ $1 [1]: 10Train Strength 10(3 $+ $getinfo2($1,STRENGTH) $+ 10)
  msg = $+ $1 [2]: 10Train Speed (3 $+ $getinfo($1,SPEED) $+ 10)
  msg = $+ $1 [3]: 10Train Defense 10(3 $+ $getinfo2($1,DEFENSE) $+ 10)
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back
  msg = $+ $1  $space
  msg = $+ $1 10You currently have3 $getinfo($1,PRACS) 10workouts left.
  halt
}

alias WAR_STREETS {
  writeini players\ $+ $1 $+ .ini $1 STAT STREETS
  msg = $+ $1  $space
  msg = $+ $1 7STREETS
  msg = $+ $1  $space
  if $getinfo2($1,MENU) == 0 { halt }
  msg = $+ $1 [1]: 10Battle the simulator
  msg = $+ $1 [2]: 10Item Shop
  msg = $+ $1 [3]: 10Energy Shop
  msg = $+ $1 [4]: 10Knockout Ring
  msg = $+ $1 [5]: 10Horse Racing 
  msg = $+ $1 [6]: 10Street Racing
  msg = $+ $1 [7]: 10Money Laundering 
  msg = $+ $1 [8]: 10National Lottery 
  msg = $+ $1 [9]: 10Illegal Warez 
  msg = $+ $1 [10]: 10Caged Fighting
  msg = $+ $1 [11]: 10Gang Shares Market 
  msg = $+ $1 [12]: 10Safe Cracking 
  msg = $+ $1 [13]: 10Casino
  msg = $+ $1 [14]: 10Drive By Shootings
  msg = $+ $1 [15]: 10Bank Account Hacking
  msg = $+ $1 [16]: 10Mystical Shop
  msg = $+ $1 [17]: 10Street Fighting (Development)
  msg = $+ $1 [18]: 10Suicide
  msg = $+ $1 [19]: 10Level Shop
  msg = $+ $1 [20]: 10Police Station (Development)
  msg = $+ $1 [21]: 10Special Techniques (Development)
  msg = $+ $1 [22]: 10Safe Cracking 2
  msg = $+ $1 [23]: 10Football Matches
  msg = $+ $1 [24]: 10Money Game [Win a Billion Dollars]
  msg = $+ $1 [25]: 10Drug Market
  msg = $+ $1 [26]: 10Jobs
  msg = $+ $1  $space
  msg = $+ $1 10[3EXIT10]: Go back
  halt
}
alias CASINO_MENU {
  writeini players\ $+ $1 $+ .ini $1 STAT CASINO
  msg = $+ $1  $space
  msg = $+ $1 7CASINO
  msg = $+ $1  $space
  msg = $+ $1 10You have3 $cash($getinfo2($1,CASH)) 10in your wallet
  msg = $+ $1  $space
  msg = $+ $1 [1]: 10Play the slots3 ( $+ $ $+ 120)
  msg = $+ $1 [2]: 10Play BlackJack
  msg = $+ $1 [3]: 10Play VideoPoker (Broken - Dont play this)
  msg = $+ $1 $chr(160) $+ [XB]: 10Jump to Bank
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back
}
alias BLACKJACK_MENU {
  writeini -n $+(players\,$1,.ini) $1 STAT BLACKJACK
  if ($getinfo2($1,BJ) == $null) { writeini -n $+(players\,$1,.ini) $1 BJ 20 }
  msg = $+ $1  $space
  msg = $+ $1 7 $str($chr(164),20)
  msg = $+ $1 7 $chr(206) $str($chr(160),2) 1BLACK-4JACK7 $str($chr(160),2) $chr(206)
  msg = $+ $1 7 $str($chr(164),20)
  var %infostr = 3Information
  msg = $+ $1  $space  
  msg = $+ $1 $chr(160) $+ 10 You have3 $cash($getinfo2($1,CASH)) 10in your wallet.
  if ($getinfo2($1,BJ) == 0) {
    var %istr = $chr(160) $+ 10 You have no more games left, please wait until the next reset.
  }
  else {
    var %istr = $chr(160) $+ 10 You have3 $getinfo($1,BJ) 10 $+ $iif($getinfo2($1,BJ) > 1,games,game) remaining.
  }
  msg = $+ $1 %istr
  msg = $+ $1 $chr(160)
  msg = $+ $1 $chr(160) $+ [B Amount]: 10Place your bet (Syntax: 3B <X> - Ex: B 1000)
  msg = $+ $1 $chr(160) $+ [XB]: 10Jump to Bank
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back

}
alias VIDEOPOKER_MENU {
  writeini -n $+(players\,$1,.ini) $1 STAT VIDEOPOKER
  if ($getinfo2($1,VP) == $null) { writeini -n $+(players\,$1,.ini) $1 VP 20 }
  msg = $+ $1  $space
  msg = $+ $1 7 $str($chr(164),15)
  msg = $+ $1 7 $chr(206) $str($chr(160),2) 1Video-4Poker7 $str($chr(160),2) $chr(206)
  msg = $+ $1 7 $str($chr(164),15)
  var %infostr = 3Information
  msg = $+ $1  $space  
  msg = $+ $1 $chr(160) $+ 10 You have3 $cash($getinfo2($1,CASH)) 10in your wallet.
  if ($getinfo2($1,VP) == 0) {
    var %istr = $chr(160) $+ 10 You have no more games left, please wait until the next reset.
  }
  else {
    var %istr = $chr(160) $+ 10 You have3 $getinfo($1,VP) 10 $+ $iif($getinfo2($1,VP) > 1,games,game) remaining.
  }
  msg = $+ $1 %istr
  msg = $+ $1 $chr(160)
  msg = $+ $1 $chr(160) $+ [B Amount]: 10Place your bet (Syntax: 3B <X> - Ex: B 1000)
  msg = $+ $1 $chr(160) $+ [XB]: 10Jump to Bank
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back

}
alias play_slots {
  %x = 1
  %player.play = $getinfo2($1,CASINO)
  if %player.play == 40 { msg = $+ $1 10You may only play3 40 10times between resets | halt }
  %player.cash = $getinfo2($1,CASH)
  if %player.cash < 120 { msg = $+ $1 10You are out of cash! Oops?! | halt }
  dec %player.cash 120
  writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
  inc %player.play 1
  writeini players\ $+ $1 $+ .ini $1 CASINO %player.play
  unset %slots
  while %x <= $2 {
    %num1 = $rand(1,9)
    %num2 = $rand(1,9)
    %num3 = $rand(1,9)
    %slots = %slots 10|| 10 3 $+ %num1 $+ 10 3 $+ %num2 $+ 10 3 $+ %num3 $+ 10
    if %num1 == 1 && %num2 == 1 && %num3 == 1 { casnio_WIN $1 150000 | goto won }
    if %num1 == 2 && %num2 == 2 && %num3 == 2 { casnio_WIN $1 200000 | goto won }
    if %num1 == 3 && %num2 == 3 && %num3 == 3 { casnio_WIN $1 500000 | goto won }
    if %num1 == 4 && %num2 == 4 && %num3 == 4 { casnio_WIN $1 1500000 | goto won }
    if %num1 == 5 && %num2 == 5 && %num3 == 5 { casnio_WIN $1 2000000 | goto won }
    if %num1 == 6 && %num2 == 6 && %num3 == 6 { casnio_WIN $1 2200000 | goto won }
    if %num1 == 7 && %num2 == 7 && %num3 == 7 { casnio_WIN $1 400000 | goto won }
    if %num1 == 8 && %num2 == 8 && %num3 == 8 { casnio_WIN $1 800000 | goto won }

    :won
    inc %x
  }
  msg = $+ $1 10Money Left:3 $cash($getinfo2($1,CASH)) 3SLOTS: %slots


}
alias casnio_win {
  if $2 == 800000 { aamsg 7[Casino]3 $1 10has won the jackpot!!3 $ $+ 800,000 }
  msg = $+ $1  $space
  msg = $+ $1 7You have won $2 $+ !! 
  msg = $+ $1  $space
  %player.bank = $getinfo2($1,CASH)
  inc %player.bank $2
  writeini Players\ $+ $1 $+ .ini $1 CASH %player.bank


}
alias WAR_KO {
  writeini players\ $+ $1 $+ .ini $1 STAT KO
  msg = $+ $1  $space
  msg = $+ $1 7Knockout Ring
  msg = $+ $1  $space
  if $getinfo2($1,MENU) == 0 { halt }
  msg = $+ $1 3HP: $getinfo2($1,CURHP) / $getinfo2($1,HP)
  msg = $+ $1 3HP Bar: $hpbar($1)
  msg = $+ $1 $space
  msg = $+ $1 3LIST:10 List players at your level that are alive
  msg = $+ $1 3SHOW <level>:10 Define a level to list alive players
  msg = $+ $1 3GANG <name>:10 Lists all members within a gang
  msg = $+ $1 3G: Lists all gangs
  msg = $+ $1 3ALL:10 Shows ALL alive players
  msg = $+ $1 $space
  msg = $+ $1 3KILL <name>:10 Attack a certain player
  msg = $+ $1 $space
  msg = $+ $1 10[3X10]: Go back
  halt
}
alias WAR_CREATE_GANG {
  %player.cash = $getinfo2($1,CASH)
  if %player.cash < 250000 {
    msg = $+ $1 You dont have enough cash in your wallet to create a gang!
    halt
  }
  if %player.cash >= 250000 {
    %player.cash = $calc( %player.cash - 250000 )
    writeini players\ $+ $1 $+ .ini $1 CASH %player.cash
    writeini players\ $+ $1 $+ .ini $1 STAT CREATEGANG
    msg = $+ $1  $space
    msg = $+ $1 10Please give a name for your gang: (NO SPACES - ONLY LETTERS AND NUMBERS!)
    halt 
  }
  halt
}
alias WAR_BANK {
  msg = $+ $1  $space
  msg =$nick 7BANK
  msg = $+ $1  $space
  writeini players\ $+ $1 $+ .ini $1 STAT BANK
  msg = $+ $1 10You currently have3 $cash($getinfo2($1,BANK)) 10cash in the bank.
  msg = $+ $1 10And3 $cash($getinfo2($1,SAFEDEP)) 10cash in your safety deposit box.
  msg = $+ $1 10And3 $cash($getinfo2($1,CASH)) 10cash in your wallet
  %player.loan = $getinfo2($1,LOAN)
  if %player.loan == YES { msg = $+ $1 10You owe the bank3 $cash($getinfo2($1,LOANAMOUNT)) cash10 which is due in3 $calc(8 - $getinfo2($1,LOANDAYS)) days! }
  if $getinfo2($1,MENU) == 0 { halt }
  msg = $+ $1  $space
  msg = $+ $1 10Every player gets3 1.0% 10interest a reset on their bank account and there is a3 0.25% 10fee on any transaction 
  msg = $+ $1  $space
  msg = $+ $1 [WITH <x>]:10 To withdraw cash
  msg = $+ $1 [WITHSAFE <x>]:10 To transfer money from your safety deposit box to your bank account3 (2x per day)
  msg = $+ $1 [DEP <x>]:10 To deposit cash
  msg = $+ $1 [WITHALL]:10 Withdraws all the cash in your bank account into your wallet.
  msg = $+ $1 [DEPALL]:10 Deposits all the cash in your wallet into your bank account.
  msg = $+ $1 [DEPSAFE <x>]:10 To transfer money from your bank account to your safety deposit box3 (0% interest)(2x per day)
  msg = $+ $1 [LOAN <x>]:10 To loan cash from the bank at3 7.5% Interest/Day
  msg = $+ $1 [TRANSFER <name> <x>]:10 To send cash directly from your bank account to3 <names>'s 10bank account
  if %player.loan == YES { msg = $+ $1 [PAY <x>]:10 To pay back the loan }
  msg = $+ $1 [ROB]:10 Rob Bank Once Every Reset!
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back
  halt
}
alias WAR_HOSPITAL {
  writeini players\ $+ $1 $+ .ini $1 STAT HOSPITAL
  msg = $+ $1  $space
  msg =$nick 7HOSPITAL
  msg = $+ $1  $space
  msg = $+ $1 10You currently have3 $cash($getinfo2($nick,BANK)) 10cash in the bank.
  msg = $+ $1 10You currently have3 $cash($getinfo2($nick,CASH)) 10cash in your wallet.
  msg = $+ $1  $space
  if $getinfo2($nick,CURHP) == $getinfo2($nick,HP) {
    msg =$nick 10You currently do not need the services of a hospital. You have full health.
    msg = $+ $1  $space
    msg =$nick 10[3X10]: Go back
    halt
  }
  if $getinfo2($nick,CURHP) < $getinfo2($nick,HP) {
    %difference = $calc($getinfo2($nick,HP) - $getinfo2($nick,CURHP))
    %cost = $round($calc( %difference * 4 ),0)
    msg =$nick 10It will cost3 $cash(%cost cash) $+ 10 to restore you back to full health!
    msg = $+ $1  $space
    msg =$nick [1]:10 To pay for the service from your bank account
    msg =$nick [2]:10 To pay for the service from your wallet
    msg =$nick [3]:10 To heal someone else using your bank account
    msg =$nick 10[3X10]: Go back
    halt
  }
}

alias WAR_DISC {
  writeini players\ $+ $1 $+ .ini $1 STAT DISC
  msg = $+ $1  $space
  msg =$nick 7GAME HOSTORY
  msg = $+ $1  $space
  msg =$nick 10The game was originally created by3 TiTan.
  msg =$nick 10The original game is still running.
  msg =$nick 10Since the first release not many updates were made on the game.
  msg =$nick 10The game then began to grow, and moved onto many servers, gaining popularity.
  msg =$nick 10Then admin issues occured, and the games code started being stolen.
  msg =$nick 10 $+ 6 other servers are now running the game, each unique in its own way.
  msg =$nick 10This Version, was taken from the atrum game, which was coded by 7TiTan, J_A_C_K_A_S_S, Drakonis, LgZ-optical, Bugzy, Casper, Paradox, and a few other scriptors.
  msg =$nick 10Alot of security features have been added to this game, and many new features.
  msg =$nick 10The bot is currently being hosted by3 Ryan
  msg = $+ $1 10Please No Complaining About the Runnings of the Game.
  msg = $+ $1 10If you are going to be away from the game for 3more than 1 month10, please let an
  msg = $+ $1 10admin know, otherwise you will be deleted due to inactivity.
  msg = $+ $1 10If you have a problem, please speak to an3 ADMIN-
  msg = $+ $1 10Admins are:
  msg = $+ $1 3Ryan
  msg = $+ $1 3haku
  msg = $+ $1 10Please enjoy this game. Things are getting added all the time, any idea of yours is more
  msg = $+ $1 10To Submit a suggestion goto http://all-out-war.forumup.com
  msg = $+ $1 7ALL-OUT-WAR - 3A list of scriptors can be found at10 $+ 11
  msg = $+ $1 7Disclaimer:10 This is 3NOT10 the3 Orginal Version Of All Out War10, Press 11 in the main menu for game info
  msg = $+ $1 10Enjoy the game.
  msg =$nick -
  msg =$nick Please Wait 3 seconds..
  msg =$nick -
  timer 1 3 war_main $nick
  halt
}

on *:TEXT:*:#all-out-war:{
  if $1 == !uptime { 
    if %system.uptime.rec == $null { %system.uptime.rec = 0 }
    moo.uptime 
  }
  if $1 == !os { moo.os }
  if $1 == !cpu { moo.cpu }
  if $1 == !con { moo.con }
  if $1 == !mem { moo.mem }
  if $1 == !ni { moo.ni }
}
alias CommandShow {
  msg = $+ $1 3Help - Commands in #ALL-OUT-WAR
  msg = $+ $1 $space
  msg = $+ $1 10Here is a list of commands you can type in #ALL-OUT-WAR
  msg = $+ $1 $space
  msg = $+ $1 3!play :10 Will open up a dcc chat and asks for password and then you can play
  msg = $+ $1 3!lag :10 Shows the hosts system lag
  msg = $+ $1 3!whois (nick) :10 shows some information on the nick
  msg = $+ $1 $space
  msg = $+ $1 3!energy :10 Shows when the next energy point will be supplied
  msg = $+ $1 3!factory :10 Shows when the next factory production will occur
  msg = $+ $1 3!horserace :10 Shows when the next horse race will take place
  msg = $+ $1 3!driveby :10 Shows when the next drive by shooting will take place
  msg = $+ $1 3!cagefight :10 Shows when the next cage fight will take place
  ;  msg = $+ $1 3!cagewinners :10 Show the contestants and winner of past cage fights
  ;  msg = $+ $1 3!derby :10 Shows when the next demolition derby will take place
  ;  msg = $+ $1 3!derbywinners :10 Shows the drivers and winnder of the pasts derbys
  msg = $+ $1 3!events :10 Shows the next cagefight, horserace, driveby and derby
  msg = $+ $1 3!lottery :10 Shows the amount of money won in lottery. will take place 8PM
  ;  msg = $+ $1 3!lottowinners :10 Show the last 5 lottery winners
  msg = $+ $1 3!tickets :10 Show the amount of tickets bought for lottery
  msg = $+ $1 $space
  msg = $+ $1 3!top5 :10 Shows the top 5 players
  msg = $+ $1 3!top10 :10 Shows the top 10 players
  msg = $+ $1 3!strongestplayers :10 Shows the top 10 players that can do the most damage per shot
  msg = $+ $1 3!mostdefence :10 Shows the top 10 most defended players
  msg = $+ $1 3!top5gang :10 Shows the top 5 gangs
  msg = $+ $1 3!richestgangs :10 Shows the top5 richest gangs
  msg = $+ $1 3!topshare : 10 Show who made the biggest investment in the share market
  msg = $+ $1 $space
  msg = $+ $1 3!players :10 Gives a list of players currently online
  msg = $+ $1 3!games :10 Shows how many times the game has been played
  msg = $+ $1 3!mostusers :10 Shows the record users in all AOW channels
  msd = $+ $1 3!record :10 Shows the record number of players online.
  msg = $+ $1 3!longestbattle :10 shows the longestbattle fought in AOW
  msg = $+ $1 $space
  msg = $+ $1 3!time :10 Shows the hosts system time
  msg = $+ $1 3!date :10 Shows the hosts system date
  msg = $+ $1 3!mem :10 Shows the hosts memory usage
  msg = $+ $1 3!cpu :10 Shows the hosts CPU statistics
  msg = $+ $1 3!con :10 Shows the hosts connection statistics
  msg = $+ $1 3!os :10 Shows the hosts operating system
  msg = $+ $1 3!uptime :10 Shows current uptime and record
  msg = $+ $1 3!code :10 Shows total lines of code, modules, size
  msg = $+ $1 3!Reset : 10Shows When the next reset will occur
  msg = $+ $1 $space
  msg = $+ $1 3!banana (nick) :10 *WAR-GEN hands a ripe banana to (nick)
  msg = $+ $1 3!pizza (nick) (type) :10 *WAR-GEN runs to debonairs and gets a (type) pizza for (nick)
  msg = $+ $1 3!beer (nick) (type) :10 *WAR-GEN pours some (type) and slides it to (nick)
  msg = $+ $1 3!kill admin (admin) :10 *WAR-GEN bashes (admin) over the head with a motherboard, BAD ADMIN, BAD ADMIN
  msg = $+ $1 3!bash :10Shows a random quote from bash.org, Typing a number after it will show that quote number, EG : !bash 1003 shows quote 1003
  msg = $+ $1 3!money :10Shows how much money is in circulation
  msg = $+ $1 $space
}

alias check.uptime {
  set %system.uptime $dll($mircdirsystem\moo.dll,uptime,_)
  if %system.uptime.rec == $null { set %system.uptime.rec %system.uptime }
  if $duration(%system.uptime) > $duration(%system.uptime.rec) { set %system.uptime.rec %system.uptime | set %system.uptime.msg Record in progress | halt }
  else { set %system.uptime.msg "" }
}


alias moo.os { amsg 10(Operating System: $dll($mircdirsystem\moo.dll,osinfo,_) $+ ) }
alias moo.cpu { amsg 10(CPU Statistics: $dll($mircdirsystem\moo.dll,cpuinfo,_) $+ ) }
alias moo.ni { amsg 10(Network Interfaces: $dll($mircdirsystem\moo.dll,interfaceinfo,_) $+ ) }
alias moo.con { amsg 10(Connection Statistics: $dll($mircdirsystem\moo.dll,connection,_) $+ ) }
alias moo.screen { amsg 10(Screen Statistics: $dll($mircdirsystem\moo.dll,screeninfo,_) $+ ) }
alias moo.uptime { amsg 10(Current Uptime: $dll($mircdirsystem\moo.dll,uptime,_) $+ ) (Record: %system.uptime.rec $+ ) }
alias moo.ds {
  set %system.freespace $calc(($disk(c).free + $disk(d).free + $disk(e).free + $disk(f).free + $disk(g).free + $disk(h).free + $disk(i).free + $disk(j).free))
  set %system.availspace $calc(($disk(c).size + $disk(d).size + $disk(e).size + $disk(f).size + $disk(g).size + $disk(h).size + $disk(i).size + $disk(j).size))
  set %system.diskspace $ff2 $+  $+ $xsize(%system.freespace) $+ $ff1 of $ff2 $+  $+ $xsize(%system.availspace) $+ $ff1
  set %system.diskperc $round($calc((%system.freespace / %system.availspace) * 100),1)
  osay Diskspace: %system.diskspace ( $+ $ff2 $+  $+ %system.diskperc $+ % Free $+ $ff1 $+ ) %omega
}
alias moo.mem {
  set %rb_size 10
  rambar 
  msg #all-out-war 10(Memory Usage:3 $dll($mircdirsystem\moo.dll,meminfo,_) $+ $result $+ 10)
}

alias rambar {
  if ( %rb_size == 0 ) { return }
  set %rb_used $round($calc($dll($mircdirsystem\moo.dll,rambar,_) / 100 * %rb_size),0)
  set %rb_unused $round($calc(%rb_size - %rb_used),0)
  set %rb_usedstr $str(|,%rb_used)
  set %rb_unusedstr $str(-,%rb_unused)
  return [ $+ %rb_usedstr $+ %rb_unusedstr $+ ]
}

alias getmbm5info {

  ; format of %mbm5info..
  ;  comma delimited
  ; temp1,temp2..temp10,v1,v2..v7,fan1,fan2..fan4,cpuspd,cpus
  set %mbm5_info $dll($mircdirsystem\moo.dll,mbm5info,_)
  if (%mbm5_info == not_loaded) { return }
  ; System temperature, assumed sensor 1
  set %mbm5_output Case: $gettok(%mbm5_info,1,44) $+ C

  set %mbm5_cpus $gettok(%mbm5_info,23,44)
  set %mbm5_cpuspeed $gettok(%mbm5_info,24,44)

  set %mbm5_output %mbm5_output $+ , %mbm5_cpus CPU
  if (%mbm5_cpus > 1) { set %mbm5_output %mbm5_output $+ s }

  var %intReps = 0
  while (%intReps < %mbm5_cpus) {
    inc %intReps
    set %mbm5_output %mbm5_output $+ , CPU( $+ %intReps $+ ): $gettok(%mbm5_info,$calc(1+%intReps),44) $+ C
  }

  var %intLastFan = 0
  var %intCurFan = 0
  while (%intLastFan != 1) {
    inc %intCurFan
    if ( $gettok(%mbm5_info,$calc(17+%intCurFan),44) == 255 ) {
      set %intLastFan 1
    }
    else {
      set %mbm5_output %mbm5_output $+ , Fan( $+ %intCurFan $+ ): $gettok(%mbm5_info,$calc(17+%intCurFan),44) $+ RPM
    }
  }

  return %mbm5_output

}