Vegito

Vegito

Joined
Aug 06, 2013
Location
irc.lunarirc.net
Website

Activity Stream

Vegito created a Page  -  Nov 13, 2016
4 492 

Someone has to type !eliminator to start the game

Vegito commented on a Page, Youtube Script (Parse Vids and Search) v6.4  -  Mar 07, 2016
[YouTube] Checking for updates and clearing variables...
[YouTube] Current: v6.2 Latest: v6.2 Status: Up to date

It's very annoying to see this everytime I start mIRC.

Could you make this happen in the background, and only show a message if there is an update. Because I don't need to know everytime that my script is already up to date.

Vegito commented on a Page, Online mods (need help)  -  Oct 02, 2015

Try this:

ON *:TEXT:!mods*:#: {
  var %i = $nick($chan,0,o)
  while (%i) {
    if ($nick($chan,%i,o)) var %tmod = $addtok(%tmod, $v1 $+ $chr(44), 32)
    dec %i
  }
  msg $chan Online mods: $iif(%tmod, $left($sorttok(%tmod, 32), -1), None)
}
Vegito commented on a Page, mIRC Date & Time Comparison  -  Aug 06, 2015

You can use the $ctime(text) identifier to compare dates.
$ctime uses standard Unix timestamps, which are the seconds elapsed since midnight, January 1, 1970 to your specified date.

The only downside is that you can only compare dates from January 1, 1970 to January 19, 2038.

alias comparedate {
  if ($ctime($1) > $ctime($2)) return 1
  elseif ($ctime($1) < $ctime($2)) return 2
  else return 3
}
 Respond  
Vegito created a Page  -  Jun 26, 2015
2 952 
Vegito created a Page  -  Jun 26, 2015
254 

Syntax: !filler animeName episodeNr

 Respond   mIRC  
Vegito created a Page  -  Jun 24, 2015
180 

Syntax: $formatnr(N, zeropad)

  1 Thread   mIRC  
Vegito created a Page  -  Jun 23, 2015
302 

Syntax: $formatdate(date, dateformat)

Vegito created a Page  -  Apr 03, 2015
241 
Vegito created a Page  -  Mar 03, 2015
231 

Once this script is loaded in your remote type /useNicks to make it work. This script changes your nick to all your group nicks that haven't been used for over a month.

 Respond   mIRC  
Vegito created a Page  -  Aug 25, 2014
432 
Vegito created a Page  -  May 15, 2014
265 

Same like nested $iif $eilif(, , , <code for true, <code for false(optional)>)

 Respond   mIRC  
Vegito commented on a Page, Lock/Unlock Input  -  May 13, 2014
on *:INPUT:*: {
  if ($1 == /lock) set %locked 1
  elseif ($1 == /unlock || unlock isin $1-) set %locked 0
  if (%locked) halt
}
 Respond  
Vegito commented on a Page, Can you help with my point system  -  May 13, 2014

Ask your questions in the forum
http://hawkee.com/phpBB2/viewforum.php?f=9

 Respond  
Vegito commented on a Page, Auto Identify dialouge  -  May 06, 2014

You could shorten this by using loops.
I didn't test this yet.

menu {
Autoidentity: /dialog -ma autoid 

alias autoid {
  if $dialog(autoid) = $null { dialog -ma autoid autoid }
  else halt
}
dialog autoid {
  title Auto identify $str($chr(160),10)
  size -1 -1 260 300
  button OK,100,165 272 40 20,ok
  button Cancel,200,210 272 40 20,cancel
  box "",1,1 -5 258 305
  text "Nick:",5,60 10 40 15 
  text "Password:",6,160 10 50 15
  check "",2,10 33 15 15  
  edit %name1 ,3,30 30 95 20,center,autohs
  edit %passw1 ,4,135 30 95 20,center,autohs
  check "",7,10 53 15 15  
  edit %name2 ,8,30 50 95 20,center,autohs
  edit %passw2 ,9,135 50 95 20,center,autohs
  check "",10,10 73 15 15  
  edit %name3 ,11,30 70 95 20,center,autohs
  edit %passw3 ,12,135 70 95 20,center,autohs
  check "",13,10 93 15 15  
  edit %name4 ,14,30 90 95 20,center,autohs
  edit %passw4 ,15,135 90 95 20,center,autohs
  check "",16,10 113 15 15  
  edit %name5 ,17,30 110 95 20,center,autohs
  edit %passw5 ,18,135 110 95 20,center,autohs
  check "",19,10 133 15 15  
  edit %name6 ,20,30 130 95 20,center,autohs
  edit %passw6 ,21,135 130 95 20,center,autohs
  check "",22,10 153 15 15  
  edit %name7 ,23,30 150 95 20,center,autohs
  edit %passw7 ,24,135 150 95 20,center,autohs
  check "",25,10 173 15 15  
  edit %name8 ,26,30 170 95 20,center,autohs
  edit %passw8 ,27,135 170 95 20,center,autohs
  check "",28,10 193 15 15  
  edit %name9 ,29,30 190 95 20,center,autohs
  edit %passw9 ,30,135 190 95 20,center,autohs
  check "",31,10 213 15 15  
  edit %name10 ,32,30 210 95 20,center,autohs
  edit %passw10 ,33,135 210 95 20,center,autohs
  text "Check to enable 'Auto Identify' for each nick'.If it's unchecked it won't do Auto Identify.", 35, 15 239 236 29
  button clr,36,233 32 20 16 
  button clr,37,233 52 20 16
  button clr,38,233 72 20 16
  button clr,39,233 92 20 16
  button clr,40,233 112 20 16
  button clr,41,233 132 20 16
  button clr,42,233 152 20 16
  button clr,43,233 172 20 16
  button clr,44,233 192 20 16
  button clr,45,233 212 20 16
  check "Allow Auto-Id on connect",46,10 274 140 17
}
on *:dialog:autoid:init:*: {
  if %chk1 = ON { did -c autoid  2 }  
  if %chk2 = ON { did -c autoid 7 }
  if %chk3 = ON { did -c autoid 10 }
  if %chk4 = ON { did -c autoid 13 }
  if %chk5 = ON { did -c autoid 16 }
  if %chk6 = ON { did -c autoid 19 }
  if %chk7 = ON { did -c autoid 22 }
  if %chk8 = ON { did -c autoid 25 }
  if %chk9 = ON { did -c autoid 28 }
  if %chk10 = ON { did -c autoid 31 }
  if %autoidcon = ON { did -c autoid 46 }
}
on *:dialog:autoid:sclick:100: {
  if ($did(autoid,2).state = 1) { %chk1 = on } | else { %chk1 = off }
  if ($did(autoid,7).state = 1) { %chk2 = on } | else { %chk2 = off }
  if ($did(autoid,10).state = 1) { %chk3 = on } | else { %chk3 = off }
  if ($did(autoid,13).state = 1) { %chk4 = on } | else { %chk4 = off }
  if ($did(autoid,16).state = 1) { %chk5 = on } | else { %chk5 = off }
  if ($did(autoid,19).state = 1) { %chk6 = on } | else { %chk6 = off }
  if ($did(autoid,22).state = 1) { %chk7 = on } | else { %chk7 = off }
  if ($did(autoid,25).state = 1) { %chk8 = on } | else { %chk8 = off }
  if ($did(autoid,28).state = 1) { %chk9 = on } | else { %chk9 = off }
  if ($did(autoid,31).state = 1) { %chk10 = on } | else { %chk10 = off }
  if ($did(autoid,46).state = 1) { %autoidcon = on } | else { %autoidcon = off }  
  %name1 = $did(3) | %name2 = $did(8) | %name3 = $did(11) | %name4 = $did(14) | %name5 = $did(17) | %name6 = $did(20) | %name7 = $did(23) | %name8 = $did(26) | %name9 = $did(29) | %name10 = $did(32)
  %passw1 = $did(4) | %passw2 = $did(9) | %passw3 = $did(12) | %passw4 = $did(15) | %passw5 = $did(18) | %passw6 = $did(21) | %passw7 = $did(24) | %passw8 = $did(27) | %passw9 = $did(30) | %passw10 = $did(33) 
} 
on *:dialog:autoid:sclick:*: {
  if $did = 36 { did -ru autoid 3,4,2 }
  if $did = 37 { did -ru autoid 7,8,9 }
  if $did = 38 { did -ru autoid 10,11,12 }
  if $did = 39 { did -ru autoid 13,14,15 }
  if $did = 40 { did -ru autoid 16,17,18 }
  if $did = 41 { did -ru autoid 19,20,21 }
  if $did = 42 { did -ru autoid 22,23,24 }
  if $did = 43 { did -ru autoid 25,26,27 }
  if $did = 44 { did -ru autoid 28,29,30 }
  if $did = 45 { did -ru autoid 31,32,33 }
}
on 1:NICK: {
  if ($nick == $me) {
     var %i 1 | while (%i <= 10) {
       if ($newnick == %name $+ %i) && (%chk $+ %i == on) { nickserv identify %passw $+ %i | echo -a Password Has Been Sent To   NickServ }
       inc %i
     }
  }
}
on 1:connect: {
  if (%autoidcon = on) {
    var %j 1 | while (%j <= 10) {
      if ($me = %name $+ %j) { nickserv identify %passw $+ %j| echo -a Password Has Been Sent To NickServ }
      inc %j
    }
  }
}

However, like @blackvenomm666 said it's beter to use ini's here.

 Respond  
Vegito commented on a Page, pokeball script (Basic)  -  Apr 11, 2014

Why are using set for %pokemon and %chance
also you don't need * in the event.
and you can remove the halt and unset at lines 9 and 10.

Vegito commented on a Page, Sort Array of IRC Nicks With Modes  -  Apr 09, 2014

names = ['~billy','~PennyBreed','~someHelper','+SomeDude','SomeGal','~Abby'];

When I run it, I get following result:

["~Abby","~PennyBreed","~billy","~someHelper","+SomeDude","SomeGal"]

Uppercase goes before lowercase.
idk if that is suppose to happen.

Vegito commented on a Page, Birthday Greeter  -  Apr 03, 2014

You can use $ctime to check for a valid date.

!addbday vegito 2 31 this will be valid in your script while it shouldn't.

 Respond  
Vegito commented on a Page, Help coding Random Reply mIRC  -  Apr 03, 2014

You should use the forum for your questions.

on *:TEXT:Hello:#:msg # $gettok(hey:hey:hey,$r(1,3),58)
 Respond  
Vegito commented on a mIRC Script, Nickname Manager  -  Apr 03, 2014

Can you also add a feature that auto stores all nicks from your nick group list?

Vegito commented on a Page, digimon mIRC script  -  Apr 01, 2014

This script contains alot of repetition.
You could've written this ALOT shorter.

Vegito commented on a Page, Trivia  -  Mar 03, 2014

The !answer isn't working for me properly.
When I give in the good answer it doesn't respond.

Also make it work without !answer N let players directly type in the answer and add timers, highscores, and when times up or question is answered correctly let it pick another random question.

Also adding an anti-cheat mechanism would be great.

Vegito created a Page  -  Mar 02, 2014
235 

Type /diamond sizerange to create the diamond. Default value is set to 2.

  1 Thread   mIRC  
Vegito commented on a Page, Mirc twitch.tv bot  -  Feb 23, 2014

You can do it like this.
!insult[nr] [nick]

On *:TEXT:!insult*:#: {
  if (%flood [ $+ [ $nick ] $+ [ $right($1,-1) ] ] > 0) { notice $nick You must wait $duration($v1) in order to insult someone again. | halt }
  set -z %flood [ $+ [ $nick ] $+ [ $right($1,-1) ] ] 10
  var %x $mid($1,8)
  if ($3-) { msg # Your to stupid to even insult anybody. | return }
  if (%x == 1) msg # $2 If I wanted to kill myself I'd climb your ego and jump to your IQ. 
  elseif (%x == 2) msg # $2 It looks like your face caught on fire and someone tried to put it out with a hammer.
  elseif (%x == 3) msg # $2 It's kinda sad watching you attempt to fit your entire vocabulary into a sentence.
  elseif (%x == 4) msg # $2 You must have been born on a highway because that's where most accidents happen.    
  elseif (%x == 5) msg # $2 I'd like to see things from your point of view but I can't seem to get my head that far up my ĀŠŠ.. 
  elseif (%x == 6) msg # $2 Is your a$$ jealous of the amount of shoot that just came out of your mouth?    
  elseif (%x == 7) msg # $2 I don't exactly hate you, but if you were on fire and I had water, I'd pour the water out.      
  elseif (%x == 8) msg # $2 Your family tree must be a cactus because everybody on it is a prick.   
  elseif (%x == 9) msg # $2 I just found out your birth certificate is an apology letter from the condom factory.   
  elseif (%x == 10) msg # So, a thought crossed your mind? Must have been a long and lonely journey for you $2
  else msg # Invalid Insult 
}

But I think your beter off using textfile.

 Respond  
Vegito commented on a Page, Welcome script  -  Feb 22, 2014

You could use $network to get the network name.
And there are plenty of this scripts arround here.

Vegito commented on a Page, Roll the dice  -  Feb 22, 2014

You have an extra unnecessary curly bracket.

 Respond  
Vegito commented on a Page, Cool Meter  -  Feb 19, 2014

You could do something like this.

on *:TEXT:!Coolmeter:#: {
  .timer 1 1 msg # 1is collecting coolness percentage...
  .timer 1 5 msg # 2is done collecting coolness percentage! Let's see how cool you are $nick !
  var %cool $r(0,100) | while ($calc(%cool % 5) != 0) %cool = $r(0,100)
  .timer 1 8 msg # 4 $nick you are %cool $+ % cool! $iif(%cool = 0,Also known as 100% LAME!,$iif($v1 = 100,YOU'RE AWESOME!,)) 
}
 Respond  
Vegito created a .NET Script  -  Feb 19, 2014
Vegito created a .NET Script  -  Feb 17, 2014
Vegito commented on a Page, !bomb Script in Dutch  -  Feb 14, 2014

Je hoeft hiervoor eigenlijk geen ini's te gebruiken je zou ook zoiets kunnen doen:

on *:TEXT:*:#: {
  if ($1 == !bomb && $2 && !%game) {
    set %game $true
    if ($2 == $me) { 
      msg # Grapjas :') Ik ga mezelf niet opblazen hoor ;)
      msg # Als straf krijg jij er 1 $nick
      set %nick $nick
    }
    elseif ($2 !ison #) { msg # Dacht je dat je dat ik iemand die hier niet is een bom ga geven >_> Als straf krijg jij er een! | set %nick $nick } 
    elseif ($nick(#,$2).idle > 300) { msg # $2 is al langer dan 5 minuten afwezig... Zo kan ik ook iemand opblazen hoor :S Laf hoor (A) | set %nick $nick }
    else set %nick $2

    set %defuseWire $gettok(Blauw|Rood|Oranje|Paars,$r(1,4),124)

    var %msg $r(1,3)
    if (%msg == 1) describe # duwt %nick een huid-magnetische bom in zijn handjes 
    elseif (%msg == 2) describe # bind een bom rond %nick $+ 's nek 
    elseif (%msg == 3) describe # geeft %nick een boomerang-bom 

    timer 1 1 msg # %nick kan deze bom ontmantelen door een draad door te knippen! Er is een Blauwe, een Rode, een Oranje en een Paarse draad, ik denk dat je zal moeten gokken;) SUCCES!
    timer 1 3 msg # %nick $+ : Type !cutwire <4ROOD|2BLAUW|7ORANJE|6PAARS> om een draad door te knippen, wees snel, want de bom kan elk moment ontploffen!
    timerExplode 1 $r(15,62) bExplode # 1
  }

  if ($1 == !cutwire && $nick == %nick && %game) {
    if (!$regex($2,/^(Rood|Blauw|Oranje|Paars)$/Si)) { msg # $2 is een ongeldige kleur. | halt }
    if ($2 == %defuseWire) {
      msg # :O GEFELICITEERD %nick $+ ! Je hebt de bom ONTMANTELD!
      .timerExplode off
      bFinish 
    } 
    else bExplode # 
  }
}

alias bExplode {
  kick $1 %nick 8,1*K7AB4OO7M!8*
  if ($2 = 1) timer 1 1 msg $1 Tja het lijkt erop dat %nick wat tijd tekort had $chr(40) $+ : Een kandidaat die het denkt wél te kunnen?
  else timer 1 1 msg $1 Voortaan zullen we het zonder %nick moeten doen : $+ $chr(40))
  bFinish
}

alias bFinish { unset %defuseWire %nick %game | timerExplode off }
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.