Agent

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	7.0
Scores Submitted	3
Date Added	Feb 16, 2006
Last Updated	Feb 16, 2006
Tags	agent installer ms

Introduction

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. :)
<BR>- Kyuuryu

Grab the Code

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
}

Comments

(3) RSS

Go to Bottom

Kyuuryu_Kijoutsu

Comments: 6

mIRC Snippet: Agent
Posted on Feb 17, 2006 4:16 pm

I honestly dont believe this, only 4s? What the hell?

RoninWarrior

Comments: 252

mIRC Snippet: Agent
Posted on Feb 17, 2006 6:24 pm

1st Kyuuryu_Kijoutsu please refrain from the bad language .

2nd This is a pretty nice addon you should submit this to be an addon and not a snippet.If any one is into agents with mIRC this is a nice dialog to show all the agents that you have loaded nicely done.

Kyuuryu_Kijoutsu

Comments: 6

mIRC Snippet: Agent
Posted on Feb 17, 2006 6:55 pm

Sorry about that. I guess i should send my updated one in.

Kyuuryu_Kijoutsu

		- Not Vacant In a Dark New Day
Last seen: Feb 20, 2006 Profile \| Website Snippets (3) Comments Received (13) Comments Submitted (6) Forum Posts (2)

My Snippet Tags

Contact

Add to Friends

Send Private Message

Yahoo YIM: