Top

Comments

  (91)  RSS
PunkTuReD's
napa182
Comments: 1,153
 
mIRC Snippet:  channel info
Posted on Oct 11, 2008 7:51 pm
i like this idea but,
you should make it echo the info cuz if ur on alot of channels it floods or make it on one line..
you can also make this useing 1 while loop.
this will do the same thing for the most part

Code:
alias CInfo {
  var %^ = $chan(0)
  while (%^) {
    var %@ $addtok(%@,$+($chr(91),$chr(32),$chan(%^),$chr(32),$iif(!$chan(%^).mode,No Chan Mode's,$chan(%^).mode),$chr(32),:My User Status:,$chr(32),$iif($istok(~ & @ % +,$left($nick($chan(%^),$me).pnick,1),32),$replace($left($nick($chan(%^),$me).pnick,1),~,Owner,&,Admin,@,Op,%,HalfOp,+,Voice),Regular),$chr(32),:User Count:,$chr(32),$nick($chan(%^),0),$chr(32),$chr(93),$chr(32)),32), %! = $calc(%! + $nick($chan(%^),0))
    dec %^
  }
  msg # I am currently on $chan(0) Channels With a total of %! Users. %@
}


well if you are on too many channels it may cut off useing 1 line so heres this to stop that

Code:
alias CInfo {
  var %^ = $chan(0)
  while (%^) {
    var %@ $addtok(%@,$+([,$chr(32),$chan(%^),$chr(32),$iif(!$chan(%^).mode,No Chan Mode's,$chan(%^).mode),$chr(32),:My User Status:,$chr(32),$iif($istok(~ & @ % +,$left($nick($chan(%^),$me).pnick,1),32),$replace($left($nick($chan(%^),$me).pnick,1),~,Owner,&,Admin,@,Op,%,HalfOp,+,Voice),Regular),$chr(32),:User Count:,$chr(32),$nick($chan(%^),0),$chr(32),],$chr(32)),32), %! = $calc(%! + $nick($chan(%^),0))
    dec %^
  }
  msg # I am currently on $chan(0) Channels With a total of %! Users. | msg # $iif($chan(0) == 1,%@,$+($gettok(%@,$+(1-,$calc($numtok(%@,93) /2)),93),$chr(93))) |  $iif($chan(0) != 1,msg # $+($gettok(%@,$+($calc($numtok(%@,93) /2 +1),-),93),$chr(93)))
}

PunkTuReD
Comments: 113
 
mIRC Snippet:  Invite X Server
Posted on Oct 9, 2008 11:06 am
i just prefered the timer

this was just a quick idea so i scripted it.

but thank you for warning people looking at this script.
Typo
Comments: 230
 
mIRC Snippet:  Invite X Server
Posted on Oct 9, 2008 9:38 am
People should understand that this is just like connecting yourself and inviting someone to another server so in most cases it will be against the rules to even do this. There are very few servers that would be ok with the use of a bot like this and if they notice it you will undoudtably be glined.

Lets be honest, connecting, spamming and disconnecting is afterall pretty lame.

I just think the newer users should be warned this isn't some magical bot, it uses your conection and would be the same as connecting to the server yourself so any glines or other bans it incures will apply to you as well.

I was also wondering why it uses a timer to disconnect from the server its spamming instead of just connecting, spamming and then ending the connection manually.

Not a bad little snippet I guess but it could use some work.
PunkTuReD
Comments: 113
 
mIRC Snippet:  music player mp3 wma and wav
Posted on Sep 27, 2008 8:50 am
srry bout that, fixed.
cheers.
tinkerbel
Comments: 1
 
mIRC Snippet:  music player mp3 wma and wav
Posted on Sep 27, 2008 8:24 am
think its really good but when i add a new file the old music file dissapers on me i may be being blond but i havent a clue if im doing something wrond or not btw love the shakes her ass theam on it wicked p.s im really new at this too plz help me
Zmodem
Comments: 233
 
mIRC Snippet:  drive properties
Posted on Sep 12, 2008 1:23 pm
Thanks!
PunkTuReD
Comments: 113
 
mIRC Snippet:  drive properties
Posted on Sep 12, 2008 12:51 pm
lol cool man niice job.

i especially like the
while (%i)
dec %i
Zmodem
Comments: 233
 
mIRC Snippet:  drive properties
Posted on Sep 12, 2008 11:51 am
Okay, I still felt like contributing, so I made a few adds/changes:

Added a combo box that lists all of the disk drives when the dialog opens. This will make it easier to get info on any available disk drive.

Dialog will now display info for CDROM drives as well, including other types of drives that return a $false for the $disk() value.


Here is an update of the code:

Code:
menu * {
  Drive Properties:dialog $iif($dialog(drive.properties),-v,-dm) drive.properties drive.properties
}
alias -l load.drives {
  var %i = $disk(0)
  while (%i) {
    did -a drive.properties 3 $disk(%i).path
    dec %i
  }
}
dialog drive.properties {
  title "Drive Properties"
  size -1 -1 71 90
  option dbu
  box "", 1, 2 2 67 86
  text "Drive Properties:",2, 6 7 50 8
  combo 3, 4 16 30 26, autohs drop sort
  button "Get Info", 4, 36 16 30 10
  list 5, 4 27 63 59, size
}
on *:dialog:drive.properties:*:*: {
  var %d = $dname, %e = $devent, %i = $did
  if (%e == init) { did -b %d 4 | load.drives }
  if (%e == sclick) {
    if (%i == 3) { did - $+ $iif($disk($did(3)).type,e,b) %d 4 }
    if ((%i == 4) && ($disk($did(3)).type)) {
      var %a = did -a drive.properties 5, %drive = $did(drive.properties,3)
      did -r drive.properties 5
      %a Listing %drive Properties
      %a ------------------------
      %a Path: $disk(%drive).path
      %a Type: $disk(%drive).type
      %a Label: $disk(%drive).label
      %a Size: $bytes($disk(%drive).size,g) Gbs
      %a Free: $bytes($disk(%drive).free,g) Gbs
    }
  }
  if ((%e == dclick) && (%i == 5)) { clipboard $did(5,$did(5).sel) }
}
water_dragon
Comments: 51
 
mIRC Snippet:  drive properties
Posted on Sep 12, 2008 10:22 am
no worries and i do like that better now.
PunkTuReD
Comments: 113
 
mIRC Snippet:  drive properties
Posted on Sep 11, 2008 11:53 am
we did add that with Zmodems code just double click the line you wish to copy
ill add that into the description.
cheers water_dragon
water_dragon
Comments: 51
 
mIRC Snippet:  drive properties
Posted on Sep 11, 2008 9:58 am
nice. one suggestion. when your drive info comes up. your should make it so you can copy a line off it.
water_dragon
Comments: 51
 
mIRC Snippet:  drive properties
Posted on Sep 11, 2008 9:55 am
nice one suggestion. when your drive info comes up your should make it so you can copy a line off it.
PunkTuReD
Comments: 113
 
mIRC Snippet:  socketbot
Posted on Sep 11, 2008 1:11 am
lmao no problem,
and didnt update properly b4 so have now :)
napa182
Comments: 1,153
 
mIRC Snippet:  socketbot
Posted on Sep 11, 2008 1:09 am
hey PunkTuReD that person mircse is nothing but a comment spammer pay them no mind
PunkTuReD
Comments: 113
 
mIRC Snippet:  socketbot
Posted on Sep 11, 2008 1:07 am
no problem any suggestions?
PunkTuReD
Comments: 113
 
mIRC Snippet:  lag checker
Posted on Sep 11, 2008 1:05 am
im not sure exactly how to do that yet but im looking into it EL thnx

thnx mircse no problem
Zmodem
Comments: 233
 
mIRC Snippet:  drive properties
Posted on Sep 10, 2008 11:32 pm
LoL, I aim to please. Glad you liked it.
PunkTuReD
Comments: 113
 
mIRC Snippet:  drive properties
Posted on Sep 10, 2008 10:43 pm
wow thats reall neat
ive updated the code with Zmodems code
and i think ill have to look into this for all my other dialogs now lol.
cheers Zmodem.
PunkTuReD
Comments: 113
 
mIRC Snippet:  socketbot
Posted on Sep 10, 2008 10:40 pm
sorry yes your right mountaindew i just didnt get the time to get back here.
cheers.
fixed.
mountaindew
Comments: 1,645
 
mIRC Snippet:  socketbot
Posted on Sep 10, 2008 2:26 pm
Code:

alias bot.list.commands.owner {
  sockwrite -nt $sockname NOTICE %respond.nick 4Available Commands For Bot Owner
  sockwrite -nt $sockname NOTICE %respond.nick 7+op 4and 7-op 4- 7syntax4:7 +op PuNkTuReD
  sockwrite -nt $sockname NOTICE %respond.nick 7+hop 4and 7-hop 4- 7syntax4:7 +hop PuNkTuReD
  sockwrite -nt $sockname NOTICE %respond.nick 7+vop 4and 7-vop 4- 7syntax4:7 +vop PuNkTuReD
}
;------------------------------------------------------------------------Notice Users Commands
alias bot.list.commands.users {
  sockwrite -nt $sockname NOTICE %respond.nick 4Available Commands For Bot Users
  sockwrite -nt $sockname NOTICE %respond.nick 7+vop 4and 7-vop 4- 7syntax4:7 +vop PuNkTuReD
  sockwrite -nt $sockname NOTICE %respond.nick 7!seen 4- 7syntax4:7 !seen PuNkTuReD
}

Wouldn't $sockname be $null in those aliases?
1 2 3 4 5 Next
Bottom