Agent Browser as you can clearly see, it uses a dialog and shows what Agents you have installed. Of course you're already have one "merlin.asc" and then if you've made your own then its going to be in there. It shows the Name, loaded, info and things such as that. To be honest I'm not good with Agent things, I've seen people script them and sorts and so I thought I should make an Agent Browser - of course in a dialog. It's my first time creating a dialoged Agent Browser. Even my first time making a "Browser" of sort. Even if it wasn't in a dialog it would still be my first time, so I put my time into this. Atleast I tried even if you don't like it. But anyway here is your script, Agent Browser!!!! For any Questions,Comments,Request My email is Ky_Kijoutsu@yahoo.com. Yes, I do have messenger so you can instant message me. :)
- Kyuuryu
alias mbrowse {
if ($agentver != 0) {
dialog -m mbrowse mbrowse
mbrowse.init
}
else {
var %null = $!="You don't have MS Agent Installed!"
}
}
dialog mbrowse {
title "MS Agent Browser"
size -1 -1 135 215
option type dbu
text "Agents Installed:", 1, 10 5 55 8, center
list 2, 10 13 55 60
button "Load", 3, 25 69 25 10
text "Agents Loaded:", 4, 70 5 55 8, center
list 5, 70 13 55 60
button "Unload", 6, 85 69 25 10
box "Agent Info", 7, 5 80 125 130
text "Name:", 8, 11 91 19 8, left
edit "", 9, 30 90 35 10, autohs
text "Filename:", 10, 71 91 24 8, left
edit "", 11, 95 90 30 10, autohs
box "Speech", 12, 10 105 55 37
text "Pitch:", 13, 15 116 17 8, right
edit "", 14, 33 115 25 10, autohs
text "Speed:", 15, 15 127 17 8, right
edit "", 16, 33 126 25 10, autohs
box "Starting Size", 17, 70 105 55 37
text "Width:", 18, 75 116 17 8, right
edit "", 19, 92 115 25 10, autohs
text "Height:", 20, 75 127 17 8, right
edit "", 21, 92 126 25 10, autohs
box "Settings", 22, 10 142 61 50
check "Visible", 23, 15 150 28 10
check "Idle", 24, 15 160 25 10
check "Effects", 25, 15 170 28 10
check "Active", 26, 15 180 25 10
text "Lang. ID", 27, 42 152 25 8, center
edit "", 28, 42 159 25 10, autohs
text "Balloon", 29, 42 172 25 8, center
edit "", 30, 42 179 25 10, autohs
text "Actions", 31, 73 143 52 7, center
list 32, 73 149 52 66, sort
button "Exit", 999, 30 195 20 10, ok
}
alias mbrowse.init {
var %Agent
var %Agents
set %Agent 1
set %Agents $agent(0).char
while (%Agent <= %Agents) {
did -a mbrowse 2 $agent(%Agent).char
inc %Agent 1
}
set %Agent 1
set %Agents $agent(0)
while (%Agent <= %Agents) {
did -a mbrowse 5 $agent(%Agent)
inc %Agent 1
}
}
on *:DIALOG:mbrowse:sclick:3:{
var %Agent = $did(mbrowse, 2, $did(mbrowse, 2).sel).text
.gload $left(%Agent, -4) %Agent
did -a mbrowse 5 $left(%Agent, -4)
}
on *:DIALOG:mbrowse:dclick:2:{
var %Agent = $did(mbrowse, 2, $did(mbrowse, 2).sel).text
.gload $left(%Agent, -4) %Agent
did -a mbrowse 5 $left(%Agent, -4)
}
on *:DIALOG:mbrowse:sclick:6:{
.gunload $did(mbrowse, 5, $did(mbrowse, 5).sel).text
did -d mbrowse 5 $did(mbrowse, 5).sel
}
on *:DIALOG:mbrowse:sclick:5:{
mbrowse.loadinfo %Agent $did(mbrowse, 5, $did(mbrowse, 5).sel).text
}
alias mbrowse.loadinfo {
var %Action
var %Actions
did -ra mbrowse 9 $1
did -ra mbrowse 11 $agent($1).fname
did -ra mbrowse 14 $agent($1).pitch
did -ra mbrowse 16 $agent($1).speed
did -ra mbrowse 19 $agent($1).ow
did -ra mbrowse 21 $agent($1).oh
if ($agent($1).visible) { did -c mbrowse 23 }
else { did -u mbrowse 23 }
if ($agent($1).idle) { did -c mbrowse 24 }
else { did -u mbrowse 24 }
if ($agent($1).Effects) { did -c mbrowse 25 }
else { did -u mbrowse 25 }
if ($agent($1).active) { did -c mbrowse 26 }
else { did -u mbrowse 26 }
did -ra mbrowse 28 $agent($1).langid
did -ra mbrowse 30 $agent($1).balloon
set %Action 1
set %Actions $agent($1, 0).anim
did -r mbrowse 32
while (%Action <= %Actions) {
did -a mbrowse 32 $agent($1, %Action).anim
inc %Action 1
}
}
on *:DIALOG:mbrowse:sclick:23:{
var %Agent = $did(mbrowse, 9).text
if ($agent(%Agent).visible) {
did -u mbrowse 23
.ghide %Agent
}
else {
did -c mbrowse 23
.gshow %Agent
}
}
on *:DIALOG:mbrowse:sclick:24:{
var %Agent = $did(mbrowse, 9).text
if ($agent(%Agent).idle) {
did -u mbrowse 24
.gopts -i %Agent off
}
else {
did -c mbrowse 25
.gopts -i %Agent on
}
}
on *:DIALOG:mbrowse:sclick:25:{
var %Agent = $did(mbrowse, 9).text
if ($agent(%Agent).effects) {
did -u mbrowse 25
.gopts -e %Agent off
}
else {
did -c mbrowse 25
.gopts -e %Agent on
}
}
on *:DIALOG:mbrowse:sclick:26:{
if ($Agent($did(mbrowse, 9).text).active) { did -c mbrowse 26 }
else { did -u mbrowse 26 }
}
on *:DIALOG:mbrowse:dclick:32:{
var %Agent
var %Action
set %Agent $did(mbrowse, 9).text
set %Action $did(mbrowse, 32, $did(mbrowse, 32).sel)
.gplay %Agent %Action
}