-
Content Count
96 -
Joined
-
Last visited
Everything posted by imacul8
-
Modern Style Sig Make this my new default?
imacul8 replied to BooZker's topic in Graphics, Design & Animation
The second one there with the grey text and black glow looks the best out of all of them, pretty cool sig too, nice work -
Well in part 1 of How To Customize The Look Of Your Mirc Events i covered some channel events, so now i will cover the events for in a private chat. Plus some extra stuff.... ** To change the look of the other persons text u again use a on text event on ^*:TEXT:*:?: { echo -t $query($nick) ( $+ $nick $+ ) $1- halt } ** To change the look of your own input on *:INPUT:?: { if ($left($1,1) != /) { .msg $active $1- echo -t $active ( $+ $me $+ ) $1- halt } } ** To change how actions look in both channel and private ( covered the $opv in part 1 ) on ^*:ACTION:*:#: { echo -t $chan * $+($opv($nick,$chan),$nick) $1- halt}on ^*:ACTION:*:?: { echo -t $query($nick) * $nick $1- halt} ** To change the look of notice events on ^*:NOTICE:*:?: { if (serv isin $nick) { echo -st $+($chr(40),Notice/,$nick,$chr(41)) $1- | haltdef } else { echo -at $+($chr(40),Notice/,$nick,$chr(41)) $1- | haltdef }}on ^*:NOTICE:*:#: { if (serv isin $nick) { echo -st $+($chr(40),Notice/,$nick,$chr(41)) $1- | haltdef } else { echo -t $chan $+($chr(40),Notice/,$nick,$chr(41)) $1- | haltdef }} if (serv isin $nick) { --> this part is to filter server messages and display them in your status window. ** To change the look of when modes are set in a chan on ^*:MODE:#: { echo $chan (Mode/ $+ $chan $+ ) ( $+ $nick $+ ) Sets mode $+([,$1-,]) halt } ** To change the look of a whois & whowas event is a little different than the rest. You have to set the raw events which is pretty easy if u know how. ;WHOISraw 311:*: { set %whoisadd $3 $+ @ $+ $4 | echo -s 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ Whois Information 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ | echo -s >> Nickname: $2 | echo -s >> Name: $6- | echo -s >> Address: %whoisadd | haltdef }raw 314:*: { set %whoisadd $3 $+ @ $+ $4 | echo -s 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ Whowas Information 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ | echo -s >> Nickname: $2 | echo >> Name: $6- | echo >> Address: %whoisadd | haltdef }raw 301:*: { echo >> Away: $asctime($3) $4- | haltdef }raw 307:*: { echo >> Registered: Yes | haltdef }raw 308:*: { echo >> Admin: $2- | haltdef }raw 309:*: { echo >> $+($left($2,1),,$right($2,$calc($len($2) - 1))) $3- | haltdef }raw 310:*: { echo >> HelpOp: $2- | haltdef }raw 313:*: { echo >> IRCop: IRCop! | haltdef }raw 319:*: { echo >> On Channels: $3- | haltdef }raw 320:*: { echo >> $2- | haltdef }raw 312:*: { echo >> On Server: $3 | echo $theme2( $c2(Ż) Server Info:) $4- | haltdef }raw 379:*: { echo >> Modes: $6- | haltdef }raw 325:*: { echo >> $2 $+ : $3- | haltdef }raw 317:*: { echo >> Idle Time: $duration($3) | echo -s $theme2( $c2(Ż) Logged On:) $asctime($4) | haltdef }raw 318:*: { echo -s 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ End 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ | haltdef }raw 369:*: { echo -s 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ End 4ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ | haltdef }raw 378:*: { haltdef };END WHOIS Well i hope you peeps are using this to make your mirc look awesome!! Lookout for part 3 coming soon Thankyou
-
Well yea that method would work if i had two pictures... But i only have one to work with and it can be a random picture (like 5 different possibilities) so i cant compare the two images to find the difference. I have to scan the picture looking for a specific color...I dont think i will worry bout it, all seems to hard :\
-
Yea i had it working before... its not really that much use though, just something to play around with and wow another member from adelaide SA, where bouts in adel u from?? Pm me
-
Well im sure that a lot of you just use mIRC for chatting and do not realise that you can actually use it to code cool stuff. You can also change the way your events look and i am going to explain how here. Starting with the on join event - which triggers when you and other users join a channel. Instead of having just the plain * Now talking in #channel and * nick has joined #channel you can make it look fancy ie. (Join/nick) (nick@address) and its not hard to do. on ^*:JOIN:#: { echo -t $chan (Join/ $+ $nick $+ ) ( $+ $gettok($fulladdress,2,33) $+ ) haltdef}you can add colors and change it to however u wish to make ur custom displays. Now i will just go through a whole bunch of events keeping the same theme as the above one. ** Part event for when users part from a channelon ^*:Part:#: { echo -t $chan (Part/ $+ $nick $+ ) ( $+ $gettok($fulladdress,2,33) $+ ) haltdef }** Quit event for when users quit from a serveron ^*:Quit: { var %num = 1 while ($comchan($nick,%num)) { echo -t $comchan($nick,%num) (Quit/ $+ $nick $+ ) $chr(40)) $+ Reason $+ : $remove($iif($2 != $+($chr(40),$chr(41)),$remove($1-,Quit,$chr(40),$chr(41)),None) $+ $chr(41),:) inc %num } halt}** Nick event for when you and/or users change your nicknameon ^*:Nick: { var %num = 1 while ($comchan($newnick,%num)) { echo $comchan($newnick,%num) $tstamp $theme2((NickChange) ( $+ $nick to $newnick $+ )) inc %num } haltdef}** Kick event for when you and/or users are kicked from a channelon ^*:KICK:#: { echo $chan $tstamp $theme2(( $+ $knick $+ ) Was kicked from $chan by ( $+ $nick $+ ) $+([,$1-,]) $+ ) halt } Now you can also change the events for when text is sent to the channel To edit your input you use the on input event on *:INPUT:#: { if ($left($1,1) != /) { .msg $active $1- echo -t $active ( $+ $opv($me,$1) $+ $me $+ ) $2- halt } }the $opv is another alias which will return the persons status in a channel @,+,- ie. @nick for an op.alias opv { if ($1 isop $2) { return @ } if ($1 isvo $2) { return + } if ($chr(45) isin $remove($nick($chan,$nick).pnick,$nick)) { return - } else { return }}The to edit how you receive other peoples texton ^*:TEXT:*:#: { echo -t $chan ( $+ $opv($nick,$chan) $+ $nick $+ ) $1- halt } the -t in all these codes is to display your timestamp if u have it turned on. You can turn this on and edit it by going into options > IRC > messages > timestamp. These are all codes to edit the look of channel events. Will cover private messages and other things in later posts. any questions please ask Thankyou
-
Qbasic Tutorial By Heaven_master_ash Own
imacul8 replied to heaven_master_ash's topic in Programming
I dont think posting in quotes covers the fact that he is saying he wrote it himself. IF he had said it was from another source and just qouted parts he wants to specify... u cant just quote the whole lot and say its your own... -
Sql Programming By Heaven_master_ash Own
imacul8 replied to heaven_master_ash's topic in Programming
Now as i said on your other post for a tutorial, its not a good idea to copy paste from another persons work... or you will get busted as u have done on both of these... maybe u should stick to making tutorials for something u actually do know something about? http://www.firstsql.com/tutor2.htm -
Qbasic Tutorial By Heaven_master_ash Own
imacul8 replied to heaven_master_ash's topic in Programming
Umm even though i am also guilty of this myself... stating that you actually wrote this tutorial after hard work and research or from you learning so u can describe it to us... now thats taking things a bit far since u have just copied this from another website https://smallbusiness.yahoo.com/ https://smallbusiness.yahoo.com/ https://smallbusiness.yahoo.com/ https://smallbusiness.yahoo.com/ https://smallbusiness.yahoo.com/ dont make the mistake i did and think this is helping users, you could just post the link to the site and they can learn from there... its not worth getting warnings and having ur account banned from posting -
Thankyou everyone for being so nice and wishing me a happy birthday.
-
Oh my gosh how exiting!!! Its my birthday yay!!!! The BIG 21. Made it yay :DGotta love the pressies, got a gold chain, alcohol, alcohol dispensers, hip flask, wieghts set, plus more to come at my party yay!!*me dances*
-
What Do You Generally Use The Internet For ?
imacul8 replied to red_dragon_here's topic in General Discussion
I mainly use the internet for chatting to friends whilst playing online games. I also throw in some programming every now and then using websites for help.most bandwith would be used on downloading mp3s and movies -
Basic Guide To Mirc - Installation And Settings
imacul8 replied to brautigam's topic in General Discussion
Nice tutorial except its not hard to just go into the help file on mirc and start at the introduction. Basically is a tutorial on how to connect and join, etc... says everything about the favourites folder and that aswell for people wanting a secure connection they can also get SSL and connect on port different port (only if the sever supports SSL) ie. /server irc.webchat.org +994 instead of /server irc.webchat.org 6667 You can download SSL Here and find out some more about it. Good job -
Yea cool forums, i signed up on them :Das MIGUE2k7 it needs a little bit of work done... the theme u have now is fine but u just need to edit things like the top banner and what not so that it doesnt just say PHPbband if ur not sure about doing that maybe u can ask on your own forums
-
Well im pretty sure that most of you would have absolutely no idea what clipsal c-bus is so im going to give some info about it to enlighten you all. First of all i learnt about c-bus because i am an electrician and i do all types of data wiring also. Notice from BuffaloHELP: You should know by now Xisto does not tolerate plagiarism. COPIED FROM : http://www.cbus-enabled.com/what-cbus.htm
-
Convert any number of seconds to days,hours,minutes and seconds. Useful for converting unix time differences into days,hours,minutes and seconds. Inputs: ConvertSeconds(no. of seconds) Returns: $days,$hours,$minutes,$seconds Assumes: 100% Accurate sub ConvertSeconds { my $secs=shift; if($secs<(60*60*24)){ $days=0; } else{ $days=int($secs/(60*60*24)); } if((int($secs%60*60*24))<60*60){ $hours=0; } else{ $hours=int( ($secs%(60*60*24) ) / (60*60)); } if( int(($secs % (60*60*24)) % (60*60)) < 60 ){ $minutes=0; $seconds=int(($secs % (60*60*24)) % (60*60)); } else{ $minutes=int((($secs%(60*60*24))%60*24)/60); } return $days,$hours,$minutes,$seconds; } Replace functionThis is a simple script that shows how to create a Replace Subroutine and call it from a script more easily by supplying 3 parameters EX: &Replace($FullString, $SearchThis, $ReplaceWithThis); use strict; my $strString = ''; my $strSearch = ''; my $strReplace = ''; my $strFinal = ''; print 'Enter a string: '; chomp ($strString = <STDIN>); print 'Enter a Search: '; chomp ($strSearch = <STDIN>); print 'Enter a Replace: '; chomp ($strReplace = <STDIN>); $strFinal = &Replace($strString, $strSearch, $strReplace); print "$strFinal\n"; sub Replace { my $strString = shift; my $strSearch = shift; my $strReplace = shift; $strString =~ s/$strSearch/$strReplace/ge; return $strString; } Split Function This is a simple script that shows how to make a simple Split subroutine that can be called more easy from a script by just supplying 2 parameters. EX: &Split($fullString, $splitString); use strict; my $strString = ''; my $strSplit = ''; my @strFinal = (); print 'Enter a string: '; chomp ($strString = <STDIN>); print 'Enter a string to Split on: '; chomp ($strSplit = <STDIN>); @strFinal = &Split($strString, $strSplit); foreach(@strFinal) { print "$_\n"; } ########################################### ## Subroutine to a string based on another ## Character or Character String ########################################### sub Split { my $strString = shift; my $strSplit = shift; my @words = (); @words = split /$strSplit/, $strString; return @words; } Arrays Shows you how to read an array one by one. Then it shows you how to search an array for a word and add it to a new array. In this example it searchs DSM cars from an array and adds them to a new array twice. @carz = ("DSM Talon", "DSM Laser", "Nissan Skyline", "Mazda RX7", "Toyota Supra", "DSM Lancer Evo"); @new = (""); #This is going to become the new array foreach $carz(@carz){ #Grabs each item out of the array print "$carz\n";#Prints the grabbed Item push(@new, $carz); #Adds the Item to the new array if ($carz =~/DSM/){#If it the car is a "DSM" then it_ print "$carz\n"}#Adds it to the array twice. push(@new, $carz); #this is just the car being added a second time } print "\n\n\n";#setting in some blank spaces foreach $new(@new){#showing off the new array! print"$new\n"; }
-
Ever wanted to use LBound and UBound to get arrays boundaries without jumping over error message when the array is empty? These functions will replace the ordinary LBound and UBound procedures so you dont need to worry about errors. I've also included a way to get the dimensions of an array. Just paste the following code into a module, and the problem is solved. Inputs: SafeUBound and SafeLBound: [Address to the array], [What dimension you want to obtain] ArrayDims: [Address To the array] Returns: As expected from the ordinary functions, except that they will return -1 when the array is empty. Assumes: You obtain the address to an array by passing it to the VarPtrArray API call. So if you want to get the boundaries of an array called aTmp, you need to call the functions like this: lLowBound = SafeLBound(VarPtrArray(aTmp)) lHighBound = SafeUBound(VarPtrArray(aTmp)) lDimensions = ArrayDims(VarPtrArray(aTmp)) When dealing With String arrays that isn't allocated at design time, you *must* add the value 4 To the lpArray-paramenter: lLowBound = SafeLBound(VarPtrArray(aString) + 4) Side Effects: Since the return value is minus when the array is empty it's a big chance you will get problems with minus dimensioned arrays, but who use them anyway? Option ExplicitDeclare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" (Ptr() As Any) As LongDeclare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Function SafeUBound(ByVal lpArray As Long, Optional Dimension As Long = 1) As Long Dim lAddress&, cElements&, lLbound&, cDims% If Dimension < 1 Then SafeUBound = -1 Exit Function End If CopyMemory lAddress, ByVal lpArray, 4 If lAddress = 0 Then ' The array isn't initilized SafeUBound = -1 Exit Function End If ' Calculate the dimensions CopyMemory cDims, ByVal lAddress, 2 Dimension = cDims - Dimension + 1 ' Obtain the needed data CopyMemory cElements, ByVal (lAddress + 16 + ((Dimension - 1) * 8)), 4 CopyMemory lLbound, ByVal (lAddress + 20 + ((Dimension - 1) * 8)), 4 SafeUBound = cElements + lLbound - 1End FunctionPublic Function SafeLBound(ByVal lpArray As Long, Optional Dimension As Long = 1) As Long Dim lAddress&, cElements&, lLbound&, cDims% If Dimension < 1 Then SafeLBound = -1 Exit Function End If CopyMemory lAddress, ByVal lpArray, 4 If lAddress = 0 Then ' The array isn't initilized SafeLBound = -1 Exit Function End If ' Calculate the dimensions CopyMemory cDims, ByVal lAddress, 2 Dimension = cDims - Dimension + 1 ' Obtain the needed data CopyMemory lLbound, ByVal (lAddress + 20 + ((Dimension - 1) * 8)), 4 SafeLBound = lLboundEnd FunctionPublic Function ArrayDims(ByVal lpArray As Long) As Integer Dim lAddress As Long CopyMemory lAddress, ByVal lpArray, 4 If lAddress = 0 Then ' The array isn't initilized ArrayDims = -1 Exit Function End If CopyMemory ArrayDims, ByVal lAddress, 2End Function Hope this solves any problems u have of getting errors with empty arrays. Notice from BuffaloHELP: Plagiarism is never tolerated in Xisto forum. If you're going to copy the program code, do not leave out the copyright statement! This code is copyrighted. Source http://forums.xisto.com/no_longer_exists/
-
In php u can declare arrays by two methods 1. Using the Array function 2. Using the Array Identifier Array Function To define an array consisting of three elements using the array function we write the following code $arrayname= array("basic","array","tutorial"); This declares an array with the name $arrayname containing 3 elements.To access these elements u have to use the array name along with the index in square brackets. ** Note: php arrays start from 0 index To print the elements of the above array u can use the code : print "arrayname[0]"; => prints basicprint "arrayname[1]"; => prints arrayprint "arrayname[2]"; => prints tutorial To find out the number of elements in an array u can use the count() function. $noofelements = count($arrayname); print "$noofelements"; This will print 3 since there is 3 elements in the above array. Array Identifier Now the second method to define arrays in php is using array identifiers $arrayname[0]="basic"; $arrayname[1]="array"; $arrayname[2]="tutorial"; This will declare an array named $arrayname with 3 elements. U can also assign a value to a array like this $arrayname[]="hello"; This will cause the string hello to be stored in the next available position in the array $arrayname .ie position 4 Now if u print this print "$arrayname[3]" this will print hello There are also quite a few built in functions that can be used with arrays. Here i will list them and show how they work Hope this helps anyone in need of some guidance using PHP arrays. For more help u can contact me via PM on here. Notice from BuffaloHELP: Try reading the page you're copying and pasting. It clearly says
-
if u dont know what mirc is then u shouldnt be worrying about this at all... was aimed at people with mirc thats y in the topic is says "through mirc"But just to let u know, mirc is an internet relay chat program in which u can code things to change the way your mirc operates and the things it can do....http://forums.xisto.com/no_longer_exists/ for a download
-
Control your MSN, or return various information such as nickname, status, etc.. Usage: $msn(valuetype) Valuetypes : returnvalue online : $true or $false indicating wheter your signed in or not (actually $true indicates status but was added to have an independent online checker) status : returns the status of MSN (Busy,Online,Invisible etc) nickname : your nickname email : your email ie. //echo -a $msn(nickname) will return ur msn nickname. user [ added syntax $msn(user,method,N,command) ] : $true when succesful $false when not Methods: Blocked [returns a boolean for weather you have the contact blocked] CanPage [returns a boolean for weather the contact can recieve pager messages] FriendlyName [returns the contacts friendly name] IsSelf [reutns a boolean for weather the contact is the local user] PhoneNumber [returns the phone number of the MPHONE_TYPE specified] ServiceId [returns the contacts service id, this will be {9b017612-c9f1-11d2-8d9f-0000f875c541}] ServiceName [returns the name of the service the contact is using, this will be .NET Messenger Service] SigninName [returns the signin name of the contact, this will be an email] Status [returns the contacts status as MISTATUS] N you can specify a command to perform on the Nth address in your msn. use 0 to get the total ammount of contacts in which case total command paremeter is ignored or -1 to perform on all your contacts Command if command isnt specified echo -a <m> is assumed. ie $msn(user,SigninName,2,echo -a <m> stinks!) <m> will hold the email address or whatever else you specified as method Other Commands /msn -l <email address> [password] Sign in to Msn Messenger dialog ( password might be omited by the messengerAPI) /msn -c sign out to Msn Messenger /msn <email address> Opens a chat window to the person /msn -a Opens the Add a Contact wizzard if a email is specified it will go to the 2nd page with the specified email filled in /msn -i Opens your inbox /msn -o Opens the MSN Messengers Options Dialog alias msn { .comopen msn Messenger.UIAutomation if ($comerr) { return $false } if $isid { if ($1 == user) { .comclose msn $com(msn,MyContacts,3,dispatch* items) if $com(items) { var %t = $com(items,Count,3) , %t2 = $com(items).result , %t3 = 1 , %c = $4 if (!%c) { %c = echo -a <m> } if ($3 == 0) { .comclose items | return %t2 } if ($3 == -1) { while (%t3 <= %t2) { var %x = $comval(items,%t3,$2) $($replace(%c,<m>,%x),2) inc %t3 } } elseif $3 <= %t2 { var %x = $comval(items,$3,$2) | $($replace(%c,<m>,%x),2) } .comclose items halt } else { return $false } } if ($1 == status) || ($1 == online) { var %t2 = $com(msn,MyStatus,3) , %t = $com(msn).result , $& %return = $iif($v1 == status || %t != 1,$replacex(%t,10,Busy,66,Out For Lunch,0,unknown,14,Be Right Back,18,Away,1,Offline,2,Online,6,Invisible,34,Away,50,On The Phone),$false) } if ($1 == nickname) { var %t = $com(msn,MyFriendlyName,3) , %return = $com(msn).result } if ($1 == email) { var %t = $com(msn,MySigninName,3) , %return = $com(msn).result } .comclose msn return %return } if (*@* iswm $1) { var %t = $com(msn,InstantMessage,1,bstr,$1) } if (-a == $1) { var %t = $com(msn,AddContact,1,uint,0,bstr,$2) } if (-i == $1) { var %t = $com(msn,OpenInbox,1) } if (-o == $1) { var %t = $com(msn,OptionsPages,1,uint,0,bstr,0) } if (-l == $1) { var %t = $com(msn,Signin,1,uint,0,bstr,$2,bstr,$3) } if (-c == $1) { var %t = $com(msn,Signout,1) } .comclose msn} Have fun with this!!
-
A Question About Data Collecting Program usually found in registers
imacul8 replied to midnitesun's topic in Programming
could make it using a lot of languages, could be run as a webpage with PHP and mysql, Or a VB program.....all depends on what u want and what u know... -
Just started my new lessons at TAFE, doing 3 phase motors and basic transducers..Just wondering if anyone has a heap of knowledge on these subjects and is able to bascially describe things about these topics... like the basics that are needed to know about these thingswhat are LDR's NTC PTC Thermistor, etcmaybe u have a dummies guide to these, lol
-
The Worst Movie Ever (in Your Opinion)
imacul8 replied to RockinTheCasbah's topic in General Discussion
omg that movie is so funny!! something is terribly wrong with u... lol The village is the crappest movie ever, meant to be scary and what not... pfft some little echidna thing walking around which turns out to be a retarded kid.... SOO scary!! NOT! -
Your Favorite Card Game? Tell about youre fav game here
imacul8 replied to JC05's topic in General Discussion
my favourite card game is anything that we can turn into a strip game or a drinking game!!strip poker, strip 7's, etc.best games to play!! -
you can just do //say $bck(hello everyone) or add a on input event to your remotes section. and add a popup to enable,disable it from activating. #bck onON *:INPUT:#: {if ($left($1,1) != /) {msg $active $bck($1-)halt }} #bck endmenu channel { &Backwards Text On:.enable bck &Backwards Text Off:.disable bck} This should do the job nicely!!
-
thankyou for the help, havent had a chance to check it out yet, havent been able to get online for ages :)will post if i have any troubles with it still..