Addons_StatBrag

Example - StatBrag by Polexxia

Moo.dll crashes mirc 7.xx when used!

; #= ppextra -rs
; ########################################
; Peace and Protection
; PnP StatBrag
; ########################################
 
#.ppa.info off
[addon]
name=StatBrag
group=
popup=StatBrag
author=Polexxia (modified from MyStats by Longtimer)
version=1.5
url=
[email protected]
id=brag
ppver=4.21

[files]
1=statbrag.ppa

[notes]
1=This addon is designed as a "brag script" and displays various system information via a configurable popup menu. You will need to install moo.dll (http://www.influenced.net) into your main mIRC directory (not ADDONS).
#.ppa.info end
 
[menu]
1=Configure:dialog -m setoptions setoptions
2=StatBrag (show privately): /set %Statbrag.SayHow echo | Statbrag
3=StatBrag (active channel): /set %Statbrag.SayHow say | Statbrag

[channel]
1=Configure StatBrag:dialog -m setoptions setoptions
2=StatBrag (show privately): /set %Statbrag.SayHow echo | Statbrag
3=StatBrag (active channel): /set %Statbrag.SayHow say | Statbrag

on *:LOAD:{
  ; PnP check
  if (!$_ispnp) {
    echo 4 -ati2 *** This addon requires Peace and Protection by pai to use.
    echo 4 -ati2 *** You can download Peace and Protection at http://www.pairc.com/
    .timer -mio 1 0 .unload -rs " $+ $script $+ "
    halt
  }
  ; Invalid load method check
  if (!$istok($_cfgx(addons,ids),$readini($script,n,addon,id),32)) {
    .timer -mio 1 0 .unload -rs " $+ $script $+ "
dispa Unloading ' $+ $script $+ ' $chr(40) $+ addon is not properly loaded; use /addon to load it $+ $chr(41)
    halt
  }
}


on 1:load: {
       
        ;-------------- Set Defaults For .ini --------------------
        if ($exists($scriptdirStatbrag.ini) == $false) {
                write $scriptdirStatbrag.ini
                if (%Statbrag.UpTimeBest == $null) { set %Statbrag.UpTimeBest 0 }
                if (%Statbrag.UpTimeDate == $null) { set %Statbrag.UpTimeDate 0 }
                if (%Statbrag.UpTimeBest <= $ticks) {
                        set %Statbrag.UpTimeBest $ticks
                        set %Statbrag.UpTimeDate $adate }
                writeini $scriptdirStatbrag.ini RecordUptime Uptime %Statbrag.UpTimeBest
                writeini $scriptdirStatbrag.ini RecordUptime Date %Statbrag.UpTimeDate
       }
        set %Statbrag.Temp 0
        :loop
                 %Statbrag.Temp = %Statbrag.Temp + 1
                 writeini $scriptdirStatbrag.ini Options Option $+ %Statbrag.Temp On
                 set %Statbrag.Option $+ %Statbrag.Temp On
                 if (%Statbrag.Temp  == 12) { unset %Statbrag.Temp | return }
        goto loop
 }

alias Statbrag {
        if %Statbrag.Option1 == On %Statbrag.SayHow ________________________________________
        if %Statbrag.Option2 == On %Statbrag.SayHow Running: $dll(moo.dll,osinfo,_)
        if %Statbrag.Option3 == On %Statbrag.SayHow CPU: $dll(moo.dll,cpuinfo,_)
        if %Statbrag.Option4 == On {
                if %Statbrag.Option11 == On %Statbrag.SayHow RAM [ $dll(moo.dll,meminfo,_) ]
                if %Statbrag.Option11 == Off %Statbrag.SayHow RAM [ $strip($dll(moo.dll,meminfo,_)) ]
        }
        if %Statbrag.Option5 == On %Statbrag.SayHow Screen Resolution:  $window(-1).w $+ x $+ $window(-1).h
        if %Statbrag.Option6 == On %Statbrag.SayHow Using: mIRC v $+ $version
        uptimecheck ;*** - Check & Set Best Uptime
        if %Statbrag.Option7 == On %Statbrag.SayHow Uptime: $duration($calc($calc($int($calc($ticks / 60000))*60)))
        if %Statbrag.Option8 == On %Statbrag.SayHow BestUp: $duration($calc($calc($int($calc(%Statbrag.UpTimeBest / 60000))*60))) $+  On: %Statbrag.UpTimeDate
        TotalHD
        TotalHDFree
        if %Statbrag.Option9 == On %Statbrag.SayHow Total HD Space: %Statbrag.TotalSpace $+ G  Total Free HD Space: %Statbrag.TotalFree $+ G
        if %Statbrag.Option12 == On %Statbrag.SayHow Network Interfaces: [ $+ $dll(moo.dll,interfaceinfo,_)
        if %Statbrag.Option1 == On %Statbrag.SayHow ________________________________________
        
}

alias uptimecheck {
        if (%Statbrag.UpTimeBest == $null) { set %Statbrag.UpTimeBest 0 }
        if (%Statbrag.UpTimeDate == $null) { set %Statbrag.UpTimeDate 0 }
        if (%Statbrag.UpTimeBest <= $ticks) {
                set %Statbrag.UpTimeBest $ticks
                set %Statbrag.UpTimeDate $adate }
        writeini $scriptdirStatbrag.ini RecordUptime Uptime %Statbrag.UpTimeBest
        writeini $scriptdirStatbrag.ini RecordUptime Date %Statbrag.UpTimeDate
}

alias TotalHD {
        if ($disk(c) == $true) /set %Statbrag.TotalSpace $round($calc($disk(c:).size / 1024 / 1024 / 1024),2)
        set %Statbrag.Temp 1
        :loop
                %Statbrag.Temp = %Statbrag.Temp + 1
                if ($disk($gettok(c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z,%Statbrag.Temp,46)) == $true) /set %Statbrag.TotalSpace %Statbrag.TotalSpace + $round($calc($disk($gettok(c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z,%Statbrag.Temp,46):).size / 1024 / 1024 / 1024),2)
                if (%Statbrag.Temp  == 24) { unset %Statbrag.Temp | return }
        goto loop
}

alias TotalHDFree {
        if ($disk(c) == $true) /set %Statbrag.TotalFree $round($calc($disk(c:).free / 1024 / 1024 / 1024),2)
        set %Statbrag.Temp 1
        :loop
                %Statbrag.Temp = %Statbrag.Temp + 1
                if ($disk($gettok(c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z,%Statbrag.Temp,46)) == $true) /set %Statbrag.TotalFree %Statbrag.TotalFree + $round($calc($disk($gettok(c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z,%Statbrag.Temp,46):).free / 1024 / 1024 / 1024),2)
                if (%Statbrag.Temp  == 24) { unset %Statbrag.Temp | return }
        goto loop
}


On *:CONNECT:uptimecheck
On *:DISCONNECT:uptimecheck




;----------------Set Options
dialog setoptions {
        title "Statbrag Options Menu"
        size -1 -1 180 200
        ;option dbu
        check "Borders",1,10 5 55 20
        check "OS Sys",2,10 25  55 20
        check "CPU",3,10 45 55 20
        check "Memory",4,10 65 55 20
        check "Screen",5,10 85 55 20
        check "mIRC ver",6,10 105 85 20
        check "Uptime",7,100  5 85 20
        check "BestUpTime",8,100  25  85 20
        check "Total HD",9,100 45  85 20
        check "Free HD",10,100 65 85 20
        check "Colors",11,100 85 85 20
        check "Network",12,100 105 85 20
        button "OK",300, 62 160 50 30,ok
}

on 1:dialog:setoptions:init:0: {
        if (%Statbrag.Option1 == On) { did -c setoptions 1 }
        if (%Statbrag.Option2 == On) { did -c setoptions 2 }
        if (%Statbrag.Option3 == On) { did -c setoptions 3 }
        if (%Statbrag.Option4 == On) { did -c setoptions 4 }
        if (%Statbrag.Option5 == On) { did -c setoptions 5 }
        if (%Statbrag.Option6 == On) { did -c setoptions 6 }
        if (%Statbrag.Option7 == On) { did -c setoptions 7 }
        if (%Statbrag.Option8 == On) { did -c setoptions 8 }
        if (%Statbrag.Option9 == On) { did -c setoptions 9 }
        if (%Statbrag.Option10 == On) { did -c setoptions 10 }
        if (%Statbrag.Option11 == On) { did -c setoptions 11 }
        if (%Statbrag.Option12 == On) { did -c setoptions 12 }
}

on 1:dialog:setoptions:sclick:*: {
        if ($did(setoptions,1).state == 1) { set %Statbrag.Option1 On }
                else { set %Statbrag.Option1 Off }
        if ($did(setoptions,2).state == 1) { set %Statbrag.Option2 On }
                else { set %Statbrag.Option2 Off }
        if ($did(setoptions,3).state == 1) { set %Statbrag.Option3 On }
                else { set %Statbrag.Option3 Off }
        if ($did(setoptions,4).state == 1) { set %Statbrag.Option4 On }
                else { set %Statbrag.Option4 Off }
        if ($did(setoptions,5).state == 1) { set %Statbrag.Option5 On }
                else { set %Statbrag.Option5 Off }
        if ($did(setoptions,6).state == 1) { set %Statbrag.Option6 On }
                else { set %Statbrag.Option6 Off }
        if ($did(setoptions,7).state == 1) { set %Statbrag.Option7 On }
                else { set %Statbrag.Option7 Off }
        if ($did(setoptions,8).state == 1) { set %Statbrag.Option8 On }
                else { set %Statbrag.Option8 Off }
        if ($did(setoptions,9).state == 1) { set %Statbrag.Option9 On }
                else { set %Statbrag.Option9 Off }
        if ($did(setoptions,10).state == 1) { set %Statbrag.Option10 On }
                else { set %Statbrag.Option10 Off }
        if ($did(setoptions,11).state == 1) { set %Statbrag.Option11 On }
                else { set %Statbrag.Option11 Off }
        if ($did(setoptions,12).state == 1) { set %Statbrag.Option12 On }
                else { set %Statbrag.Option12 Off }
        
}