Sponz

ase aderfe mu eixane teliosi ta asimi ke estripsa me ta prasina ke mu vgike o kolos:( eixa pih ala 2 ala den pirazi

oxi gia na diksw ta klemena rayban apo enan sto mpakaliko To kapelo tis heineken pu otan eixame pai gipedo forage o kolitos mu to kapelo ke sto metro fonakse kapios vazelos ''enoouse to prasniko kapelo ke stin usia kinigage ton eafto toy. 2on ta akoustika pu ta exo klepsei apo to e-global ekei stin omonia konta otan eixa pai lan ego rexzor sensecial altc` dvl

i want to change map every hour on teleport... so i need one code that change these coordinates automatically..

how i can change these coordinates every hour automatically?

Put it on scripts editor (ALT+R) menu nicklist { Slap Script - Noa_Destiny .Slaps ...Slap With Trout!: /describe $chan slaps $1 around a bit with a large trout ...Slap With Alarm Clock: /describe $chan slaps $1 with a alarm clock ...Slap With Banana: /describe $chan slaps $1 with a small Banana ...slap with Pink Macintosh: /describe $chan slaps $1 with a pink Macintosh ...Slap With Hand: /describe $chan slaps $1 with his very own hand ...Default: /describe $chan slaps $$1 around a bit with a large trout ...Keyboard: /describe $chan throws a keyboard at $$1 ...Lemmings: /describe $chan sends hordes of lemmings over $$1 ...Nuclear: /describe $chan slaps $$1 around with nuclear waste ...Uglypeople: /describe $chan discovers $$1 $+ 's picture at uglypeople.com ...Windows: /describe $chan slaps $$1 around with Windows XP ...C++: /describe $chan slaps $$1 around a bit with a 500lb C++ manual ...Sneeze: /describe $chan sneezes in $$1 $+ 's face ...House: /describe $chan burns $$1 $+ 's house down ...Dark: /describe $chan follows $$1 into a dark avenue. Hey test my crowbar! ...-

Put the code on ALT+R scripts editor then type !seen and the nickname on the channel and the bot will write the seen info on *:JOIN:#: { remini Seen.ini $nick } on *:PART:#: { writeini Seen.ini $nick Where $chan writeini Seen.ini $nick Date $asctime(mmmm) $ord($asctime(d)) $+ , $asctime(yyyy) writeini Seen.ini $nick Time $+($asctime(h),:,$asctime(nn),:,$asctime(ss)) EST } on *:QUIT: { writeini Seen.ini $nick Where $chan writeini Seen.ini $nick Date $asctime(mmmm) $ord($asctime(d)) $+ , $asctime(yyyy) writeini Seen.ini $nick Time $+($asctime(h),:,$asctime(nn),:,$asctime(ss)) } on $*:TEXT:/^[!@.](seen)/:#: { var %rep $iif($left($1,1) == @, msg $chan, notice $nick) if ($ini(Seen.ini,$2)) { %rep $nick was last seen in $readini(Seen.ini,$2,Where) at $readini(Seen.ini,$2,Time) on $readini(Seen.ini,$2,Date) $+ . } else { if ($2 ison $chan) { %rep $2 is on the channel right now! } else { %rep I have not seen $2 $+ . } } }

Copy and paste this code for a new remote window alt+r right click on channel and then click on Tracert now put any ip that you would to track well, this script will track from different websities some informations, like Country City longitude, latitude ISP address, phone, orgname IP ping Continent Region Postal code as i said, this code track from different websities dialog Tracert { title "Tracert ip Project Codename: Ärtëmïs" size -1 -1 190 189 option dbu edit "", 1, 3 12 87 11, limit 15 text "Ip:", 2, 3 2 25 8 button "Ok", 3, 93 12 22 12 text "Country:", 4, 5 25 25 8 text "", 5, 32 25 40 8 text "Region:", 6, 5 36 25 8 text "", 7, 32 36 41 8 text "City:", 8, 5 46 25 8 text "", 9, 32 47 42 8 text "Country Capital:", 10, 5 56 42 8 text "", 11, 50 57 37 8 text "Population:", 12, 5 67 29 8 text "", 13, 38 67 40 8 text "Latitude:", 14, 5 77 27 8 text "", 15, 34 77 41 8 text "Longitude:", 16, 5 87 28 8 text "", 17, 35 87 42 8 text "Time Zone:", 18, 5 97 30 8 text "Nationality Singular:", 20, 81 25 52 8 text "", 21, 136 25 44 8 text "Nationality Plural:", 22, 81 35 52 8 text "", 23, 136 35 46 8 text "Continent:", 24, 81 44 39 8 text "", 25, 122 44 44 8 text "Currency:", 26, 91 56 30 8 text "", 27, 125 56 45 8 text "Owner:", 28, 81 67 25 8 text "", 29, 108 67 75 14 text "Postal Code:", 30, 81 86 34 8 text "", 31, 117 86 35 8 text "Phone:", 34, 81 98 25 8 text "", 35, 109 98 64 8 text "Spam List:", 36, 5 108 29 8 text "", 37, 36 108 150 16 text "", 38, 37 97 32 8 list 41, 5 139 180 45, size vsbar text "Addcional Information:", 42, 6 129 62 8 } alias tracert { if (!$dialog(tracert)) { dialog -m tracert tracert } else { dialog -v tracert tracert } } on *:dialog:tracert:sclick:3:{ if ($did(1).text) { did -r tracert 5,7,9,11,13,15,17,21,23,25,27,29,31,35,37,38,41 sockopen traceip ipchecking.com 80 set %Trace1 $did(1).text sockopen TIP geobytes.com 80 set %TIP $did(1).text sockopen iptrace www.infobyip.com 80 sockmark iptrace $did(1).text sockopen ipping www.infobyip.com 80 sockmark ipping $did(1).text sockopen iptrack www.infobyip.com 80 sockmark iptrack $did(1).text sockopen ip www.find-ip-address.org 80 sockmark ip $did(1).text } } on *:SOCKOPEN:traceip: { if ($sockerr) { did -a tracert 41 Error! An error happenned with server or script, wait a minute and try again later error message: $sock(tracert).wsmsg } else { sockwrite -n $sockname GET / $+ ?ip= $+ %Trace1 HTTP/1.0 sockwrite -n $sockname Host: ipchecking.com sockwrite -n $sockname Connection: Keep-Alive sockwrite -n $sockname $crlf did -a tracert 41 =========================================================== } } on *:SOCKREAD:traceip: { sockread %traceip if (*owner:* iswm %traceip) { did -a tracert 29 $remove($remove($htmlfree(%traceip),58),owner:) } if (*PostalCode:* iswm %traceip) { did -a tracert 31 $htmlfree(%traceip) } if (Address: isin %traceip) { did -a tracert 41 =====IP ADDRESS===================================================== did -a tracert 41 $htmlfree(%traceip) } if (SORBS isin %traceip) { did -a tracert 37 $remove($htmlfree(%traceip),SORBS:) } if (phone: isin %traceip) { did -a tracert 35 $remove($htmlfree(%traceip),phone:,[]) } if (OrgName: isin %traceip) { did -a tracert 41 $htmlfree(%traceip) } if (descr: isin %traceip) { did -a tracert 41 41 $htmlfree(%traceip) } if (person: isin %traceip) { did -a tracert 41 $htmlfree(%traceip) } if (Host name: isin %traceip) { did -a tracert 41 $remove($htmlfree(%traceip), ) } } on *:SOCKOPEN:TIP: { if ($sockerr) { did -a tracert 41 Error! An error happenned with server or script, wait a minute and try again later error message: $sock(tracert).wsmsg } else { sockwrite -n $sockname GET / $+ IpLocator.htm?GetLocation&IpAddress= $+ %TIP HTTP/1.0 sockwrite -n $sockname Host: geobytes.com sockwrite -n $sockname Connection: Keep-Alive sockwrite -n $sockname $crlf } } on *:SOCKREAD:TIP: { sockread %TIPstats if $regex(%TIPstats,/<input name="ro-no_bots_pls8" value="(.+)\s" size="20" readonly><\/td>/) { did -a tracert 11 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls17" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 9 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls10" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 15 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls19" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 17 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls9" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 38 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls1" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 27 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls3" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 13 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls7" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 21 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls2" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 23 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls4" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 25 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls13" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 5 $regml(1) } if $regex(%TIPstats,/<input name="ro-no_bots_pls15" value="(.+)" size="20" readonly><\/td>/) { did -a tracert 7 $regml(1) } } on *:sockopen:iptrace: { sockwrite -nt $sockname GET $+(/ip-,$sock(iptrace).mark,.html) HTTP/1.1 sockwrite -nt $sockname Host: $+(www.infobyip.com,$str($crlf,2)) } on *:sockread:iptrace: { var %iptrace | sockread %iptrace if ($regex(%iptrace,/Country<\/td><td.+>(.+)<\/td>/)) { did -a tracert 41 =====IP LOCATION===================================================== did -a tracert 41 Country: $regml(1) } if ($regex(%iptrace,/Postal code<\/td><td.+>(.+)<\/td>/)) { did -a tracert 41 Postal code: $regml(1) } if ($regex(%iptrace,/City<\/td><td.+>(.+)<\/td>/)) { did -a tracert 41 City: $regml(1) } if ($regex(%iptrace,/Latitude<\/td><td.+>(.+)<\/td>/)) { did -a tracert 41 Latitude: $regml(1) } if ($regex(%iptrace,/Longitude<\/td><td.+>(.+)<\/td>/)) { did -a tracert 41 Longitude: $regml(1) } if ($regex(%iptrace,/State/region<\/td><td.+>(.+)<\/td>/)) { did -a tracert 41 State/region: $regml(1) } } on *:sockopen:ipping: { sockwrite -nt $sockname GET $+(/ping-,$sock(ipping).mark,.html) HTTP/1.1 sockwrite -nt $sockname Host: $+(www.infobyip.com,$str($crlf,2)) } on *:sockread:ipping: { sockread %ipping if (*packets* iswm %ipping) { did -a tracert 41 =====IP PING===================================================== did -a Tracert 41 Ping: %ipping } } on *:sockopen:iptrack: { sockwrite -nt $sockname GET $+(/ipwhois-,$sock(iptrack).mark,.html) HTTP/1.1 sockwrite -nt $sockname Host: $+(www.infobyip.com,$str($crlf,2)) } on *:sockread:iptrack: { sockread %iptrack if (*Address:* iswm %iptrack) { did -a tracert 41 %iptrack } if (*City:* iswm %iptrack) { did -a tracert 41 %iptrack } if (*PostalCode:* iswm %iptrack) { did -a tracert 41 %iptrack } if (*OrgName:* iswm %iptrack) { did -a tracert 41 =====IP DATA===================================================== did -a tracert 41 %iptrack } if (*OrgTechPhone:* iswm %iptrack) { did -a tracert 41 %iptrack } if (*Country:* iswm %iptrack) { did -a tracert 41 %iptrack } } on *:sockopen:ip:{ var %iplookup $+(scrollx=0&scrolly=396&ip=,$sock(ip).mark) var %socket sockwrite -nt ip %socket POST /ip-address-locator.php HTTP/1.1 %socket Host: $sock(ip).addr %socket Content-Type: application/x-www-form-urlencoded %socket Content-Length: $len(%iplookup) %socket $crlf $+ %iplookup } on *:sockread:ip: { var %ip | sockread %ip if $regex(%ip,/<b>IP Country Name</b>\:(.*)\s/iS) { if $token($regsubex($regml(1),/<[^>]*>| |ip/ig,),1-2,32) { did -a tracert 41 IP Country Name: $remove($+($v1), Country) } } if (*IP Continent Population* iswm %ip) { did -a tracert 41 $htmlfree(%ip) } if (*IP Continent Area* iswm %ip) { did -a tracert 41 $htmlfree(%ip) } if (*IP Continent Total Population* iswm %ip) { did -a tracert 41 $htmlfree(%ip) } if (*IP Continent Density People* iswm %ip) { did -a tracert 41 $htmlfree(%ip) } if (*IP Language* iswm %ip) { did -a tracert 41 =====IP INFORMATION===================================================== did -a tracert 41 Language $+ $remove($htmlfree(%ip),$chr(9),IP country latitude and langitude,IP country capital,IP Language,$chr(44)) } if (*IP Currency* iswm %ip) { did -a tracert 41 Currency $+ $remove($htmlfree(%ip),$chr(9),IP Currency, IP address converter,We will try to add more IP module in future but we can,$chr(44),$chr(46)) } } menu * { Tracert:{ tracert } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,$chr(9)) return %x } credits _Dean_

Commands: $addban <address> $delban <address> $bans $kb <nick> on *:TEXT:$addban *:*: { if ($Nick isop $chan) { writeini bans.ini $chan $2 $2 notice $nick $2 Is banned from $chan $+ . mode $chan +b $2 } } on *:TEXT:$bans:#: { if ($Nick isop $chan) { notice $nick $+ $chan Bans. var %c 0 var %t $ini(bans.ini, $chan, 0) while (%c < %t) { inc %c notice $nick $readini(bans.ini, $chan, $ini(bans.ini, $chan, %c)) } notice $nick $+ %c bans found. } else { notice $nick You lack access to $chan $+ . } } on *:TEXT:$delban *:*: { if ($Nick isop $chan) { remini bans.ini $chan $2 notice $nick $2 Is unbanned from $chan $+ . mode $chan -b $2 } } on *:TEXT:$kb *:*: { if ($Nick isop $chan) { writeini bans.ini $chan $address($2,2) $address($2,2) mode $chan +b $address($2,2) kick $2 $chan kickbanned by $nick } } on *:JOIN:#: { if ($readini(bans.ini, $chan, $address($nick, 2))) { mode $chan +b $address($nick, 2) kick $nick $chan Banned. } }

Public Class Form1 Dim multiplyfactor As Integer = 1000 Private Sub stopfunction() GroupBox8.Enabled = True Button2.Enabled = False Button2.ForeColor = Color.Black Button3.Enabled = True Button4.Enabled = True Button5.Enabled = True Button6.Enabled = True Button7.Enabled = True NumericUpDown1.Enabled = True NumericUpDown2.Enabled = True NumericUpDown3.Enabled = True NumericUpDown4.Enabled = True Button2.Enabled = True GroupBox1.Enabled = True CheckBox6.Enabled = True Button1.Enabled = True CheckBox5.Enabled = True Label5.Enabled = True Label7.Text = "0" Label8.Text = "0" Label9.Text = "0" Label10.Text = "0" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button2.Enabled = True Button2.ForeColor = Color.Red GroupBox1.Enabled = False CheckBox6.Enabled = False Button1.Enabled = False CheckBox5.Enabled = False Label5.Enabled = False Button3.Enabled = False Button4.Enabled = False Button5.Enabled = False Button6.Enabled = False Button7.Enabled = False NumericUpDown1.Enabled = False NumericUpDown2.Enabled = False NumericUpDown3.Enabled = False NumericUpDown4.Enabled = False Dim startafter As Integer = Convert.ToDecimal(TextBox2.Text) * 1000 If CheckBox5.Checked = True Then Threading.Thread.Sleep(startafter) End If If CheckBox3.Checked = True Then Timer1.Interval = Convert.ToDecimal(TextBox3.Text) * multiplyfactor Timer1.Start() End If If CheckBox1.Checked = True Then Timer2.Interval = Convert.ToDecimal(TextBox5.Text) * multiplyfactor Timer2.Start() End If If CheckBox2.Checked = True Then Timer3.Interval = Convert.ToDecimal(TextBox6.Text) * multiplyfactor Timer3.Start() End If If CheckBox4.Checked = True Then Timer4.Interval = Convert.ToDecimal(TextBox8.Text) * multiplyfactor Timer4.Start() End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If CheckBox10.Checked = True And CheckBox10.Enabled = True Then Label7.Text = Label7.Text + 1 If Label7.Text >= Convert.ToDecimal(TextBox10.Text) And CheckBox10.Enabled = True Then Timer1.Stop() Label7.Text = "0" If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then stopfunction() End If End If End If If CheckBox14.Checked = True And CheckBox14.Enabled = True Then Label14.Text = Label14.Text + 1 If Label14.Text > 30 Then Label14.ForeColor = Color.Orange End If If Label14.Text > 50 Then Label14.ForeColor = Color.Red End If End If If CheckBox16.Enabled = True Then Label15.Text = Label15.Text + 1 End If If Label15.Text > 200 Then Label15.ForeColor = Color.Orange End If If Label15.Text > 500 Then Label15.ForeColor = Color.Red End If SendKeys.Send(TextBox1.Text & "{ENTER}") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click stopfunction() Timer1.Stop() Timer2.Stop() Timer3.Stop() Timer4.Stop() Button2.Enabled = False End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If CheckBox9.Checked = True And CheckBox9.Enabled = True Then Label8.Text = Label8.Text + 1 If Label8.Text >= Convert.ToDecimal(TextBox11.Text) And CheckBox9.Enabled = True Then Timer2.Stop() Label8.Text = "0" If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then stopfunction() End If End If End If If CheckBox13.Checked = True And CheckBox13.Enabled = True Then Label13.Text = Label13.Text + 1 If Label13.Text > 30 Then Label13.ForeColor = Color.Orange End If If Label13.Text > 50 Then Label13.ForeColor = Color.Red End If End If If CheckBox16.Enabled = True Then Label15.Text = Label15.Text + 1 End If If Label15.Text > 200 Then Label15.ForeColor = Color.Orange End If If Label15.Text > 500 Then Label15.ForeColor = Color.Red End If SendKeys.Send(TextBox4.Text & "{ENTER}") End Sub Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick If CheckBox11.Checked = True And CheckBox11.Enabled = True Then Label9.Text = Label9.Text + 1 If Label9.Text >= Convert.ToDecimal(TextBox12.Text) And CheckBox11.Enabled = True Then Timer3.Stop() Label9.Text = "0" If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then stopfunction() End If End If End If If CheckBox15.Checked = True And CheckBox15.Enabled = True Then Label12.Text = Label12.Text + 1 If Label12.Text > 30 Then Label12.ForeColor = Color.Orange End If If Label12.Text > 50 Then Label12.ForeColor = Color.Red End If End If If CheckBox16.Enabled = True Then Label15.Text = Label15.Text + 1 End If If Label15.Text > 200 Then Label15.ForeColor = Color.Orange End If If Label15.Text > 500 Then Label15.ForeColor = Color.Red End If SendKeys.Send(TextBox7.Text & "{ENTER}") End Sub Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick If CheckBox8.Checked = True And CheckBox8.Enabled = True Then Label10.Text = Label10.Text + 1 If Label10.Text >= Convert.ToDecimal(TextBox13.Text) And CheckBox8.Enabled = True Then Timer4.Stop() Label10.Text = "0" If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then stopfunction() End If End If End If If CheckBox12.Checked = True And CheckBox12.Enabled = True Then Label11.Text = Label11.Text + 1 If Label11.Text > 30 Then Label11.ForeColor = Color.Orange End If If Label11.Text > 50 Then Label11.ForeColor = Color.Red End If End If If CheckBox16.Enabled = True Then Label15.Text = Label15.Text + 1 End If If Label15.Text > 200 Then Label15.ForeColor = Color.Orange End If If Label15.Text > 500 Then Label15.ForeColor = Color.Red End If SendKeys.Send(TextBox9.Text & "{ENTER}") End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim num_characters As Integer Dim i As Integer Dim txt1 As String Dim ch As Integer Randomize() num_characters = Convert.ToDecimal(NumericUpDown1.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt1 = txt1 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt1 = txt1 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt1 = txt1 & Chr(ch + Asc("0")) End If Next i TextBox1.Text = txt1 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim num_characters As Integer Dim i As Integer Dim txt1 As String Dim ch As Integer Randomize() num_characters = Convert.ToDecimal(NumericUpDown2.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt1 = txt1 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt1 = txt1 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt1 = txt1 & Chr(ch + Asc("0")) End If Next i TextBox4.Text = txt1 End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim num_characters As Integer Dim i As Integer Dim txt1 As String Dim ch As Integer Randomize() num_characters = Convert.ToDecimal(NumericUpDown3.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt1 = txt1 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt1 = txt1 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt1 = txt1 & Chr(ch + Asc("0")) End If Next i TextBox7.Text = txt1 End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim num_characters As Integer Dim i As Integer Dim txt1 As String Dim ch As Integer Randomize() num_characters = Convert.ToDecimal(NumericUpDown4.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt1 = txt1 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt1 = txt1 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt1 = txt1 & Chr(ch + Asc("0")) End If Next i TextBox9.Text = txt1 End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim num_characters As Integer Dim i As Integer Dim txt1 As String Dim ch As Integer Randomize() num_characters = Convert.ToDecimal(NumericUpDown1.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt1 = txt1 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt1 = txt1 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt1 = txt1 & Chr(ch + Asc("0")) End If Next i TextBox1.Text = txt1 Dim txt2 As String num_characters = Convert.ToDecimal(NumericUpDown2.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt2 = txt2 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt2 = txt2 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt2 = txt2 & Chr(ch + Asc("0")) End If Next i TextBox4.Text = txt2 Dim txt3 As String num_characters = Convert.ToDecimal(NumericUpDown3.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt3 = txt3 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt3 = txt3 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt3 = txt3 & Chr(ch + Asc("0")) End If Next i TextBox7.Text = txt3 Dim txt4 As String num_characters = Convert.ToDecimal(NumericUpDown4.Text) For i = 1 To num_characters ch = Int((26 + 26 + 10) * Rnd()) If ch < 26 Then txt4 = txt4 & Chr(ch + Asc("A")) ElseIf ch < 2 * 26 Then ch = ch - 26 txt4 = txt4 & Chr(ch + Asc("a")) Else ch = ch - 26 - 26 txt4 = txt4 & Chr(ch + Asc("0")) End If Next i TextBox9.Text = txt4 End Sub Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged If CheckBox5.Checked = True Then TextBox2.Enabled = True Label5.Enabled = True Else TextBox2.Enabled = False Label5.Enabled = False End If End Sub Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged If CheckBox6.Checked = True Then TopMost = True Else TopMost = False End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim site As String = "http://www.hackforums.net/member.php?action=profile&uid=647993" Process.Start(site) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged If RadioButton2.Checked = True Then multiplyfactor = 1 End If End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged If RadioButton4.Checked = True Then multiplyfactor = 1 End If End Sub Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged If RadioButton6.Checked = True Then multiplyfactor = 1 End If End Sub Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged If RadioButton8.Checked = True Then multiplyfactor = 1 End If End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then multiplyfactor = 1000 End If End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged If RadioButton3.Checked = True Then multiplyfactor = 1000 End If End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged If RadioButton5.Checked = True Then multiplyfactor = 1000 End If End Sub Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged If RadioButton7.Checked = True Then multiplyfactor = 1000 End If End Sub Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged If CheckBox7.Checked = True Then CheckBox8.Enabled = True CheckBox9.Enabled = True CheckBox10.Enabled = True CheckBox11.Enabled = True If CheckBox8.Checked = True Then TextBox13.Enabled = True Label6.Enabled = True End If If CheckBox9.Checked = True Then TextBox11.Enabled = True Label3.Enabled = True End If If CheckBox10.Checked = True Then TextBox10.Enabled = True Label2.Enabled = True End If If CheckBox11.Checked = True Then TextBox12.Enabled = True Label4.Enabled = True End If Else CheckBox8.Enabled = False CheckBox9.Enabled = False CheckBox10.Enabled = False CheckBox11.Enabled = False TextBox10.Enabled = False TextBox11.Enabled = False TextBox12.Enabled = False TextBox13.Enabled = False Label2.Enabled = False Label3.Enabled = False Label4.Enabled = False Label6.Enabled = False End If End Sub Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged If CheckBox10.Checked = True Then TextBox10.Enabled = True Label2.Enabled = True Else TextBox10.Enabled = False Label2.Enabled = False End If End Sub Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged If CheckBox9.Checked = True Then TextBox11.Enabled = True Label3.Enabled = True Else TextBox11.Enabled = False Label3.Enabled = False End If End Sub Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged If CheckBox11.Checked = True Then TextBox12.Enabled = True Label4.Enabled = True Else TextBox12.Enabled = False Label4.Enabled = False End If End Sub Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged If CheckBox8.Checked = True Then TextBox13.Enabled = True Label6.Enabled = True Else TextBox13.Enabled = False Label6.Enabled = False End If End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked = True Then TextBox1.Enabled = True TextBox3.Enabled = True GroupBox4.Enabled = True Else TextBox1.Enabled = False TextBox3.Enabled = False GroupBox4.Enabled = False End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then TextBox4.Enabled = True TextBox5.Enabled = True GroupBox5.Enabled = True Else TextBox4.Enabled = False TextBox5.Enabled = False GroupBox5.Enabled = False End If End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then TextBox6.Enabled = True TextBox7.Enabled = True GroupBox6.Enabled = True Else TextBox6.Enabled = False TextBox7.Enabled = False GroupBox6.Enabled = False End If End Sub Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged If CheckBox4.Checked = True Then TextBox8.Enabled = True TextBox9.Enabled = True GroupBox7.Enabled = True Else TextBox8.Enabled = False TextBox9.Enabled = False GroupBox7.Enabled = False End If End Sub Private Sub CheckBox16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox16.CheckedChanged If CheckBox16.Checked = True Then Label15.Visible = True CheckBox12.Enabled = True CheckBox13.Enabled = True CheckBox14.Enabled = True CheckBox15.Enabled = True If CheckBox14.Checked = True Then Label14.Enabled = True Button9.Enabled = True End If If CheckBox13.Checked = True Then Label13.Enabled = True Button10.Enabled = True End If If CheckBox15.Checked = True Then Label12.Enabled = True Button11.Enabled = True End If If CheckBox12.Checked = True Then Label11.Enabled = True Button12.Enabled = True End If Else Label15.Visible = False CheckBox12.Enabled = False CheckBox13.Enabled = False CheckBox14.Enabled = False CheckBox15.Enabled = False Label11.Enabled = False Label12.Enabled = False Label13.Enabled = False Label14.Enabled = False Button9.Enabled = False Button10.Enabled = False Button11.Enabled = False Button12.Enabled = False End If End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Label14.Text = "0" Label14.ForeColor = Color.White End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Label13.Text = "0" Label13.ForeColor = Color.White End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Label12.Text = "0" Label12.ForeColor = Color.White End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Label11.Text = "0" Label11.ForeColor = Color.White End Sub Private Sub CheckBox14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox14.CheckedChanged If CheckBox14.Checked = True Then Label14.Enabled = True Button9.Enabled = True Else Label14.Enabled = False Button9.Enabled = False End If End Sub Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged If CheckBox13.Checked = True Then Label13.Enabled = True Button10.Enabled = True Else Label13.Enabled = False Button10.Enabled = False End If End Sub Private Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox15.CheckedChanged If CheckBox15.Checked = True Then Label12.Enabled = True Button11.Enabled = True Else Label12.Enabled = False Button11.Enabled = False End If End Sub Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged If CheckBox12.Checked = True Then Label11.Enabled = True Button12.Enabled = True Else Label11.Enabled = False Button12.Enabled = False End If End Sub Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Label11.Text = "0" Label12.Text = "0" Label13.Text = "0" Label14.Text = "0" Label15.Text = "0" Label11.ForeColor = Color.Black Label12.ForeColor = Color.Black Label13.ForeColor = Color.Black Label14.ForeColor = Color.Black Label15.ForeColor = Color.Black End Sub

This will be a pain in the ass to post so I'll just provide pictures to compare. I created this GUI when I was bored, it's just an example of how it could be. This is the GUI that matches the snippet: Credits: [glow=red,2,300]Virtual Insanity[/glow]

you can add a help button on your channel. How to do that? ALT+R and put the code on your bot's remote. menu channel { .mIRC Scripting snippets by sponge .Help:{ .window -c @help | .window @help 50 50 650 300 | .aline @help here you can add your text .aline @help - Website: .aline @help www.maxcheaters.com .aline @help you can add your channel's rules or smt .aline @help if you need any help at mirc scripting feel free to pm me on www.maxcheaters.com } } Preview: http://i705.photobucket.com/albums/ww60/korobilis124/2talktome.jpg[/img] -sponge

ta tragoudia file mou den vgenoun kathe 1 mina...

What about a new sections on maxcheaters.com? I am talking about scripting. php visual basic mirc c++ etc.

When you enter on a website and a window pop's out writing .. '' welcome vote etc'' Here's the code <script language="JavaScript"> var num_of_plugins = navigator.plugins.length; for (var i=0; i < num_of_plugins; i++) { var list_number=i+1; } if (list_number>15) alert else alert ("text") </script>

Also you need good connection speed at the server and dev ofc

Ok thanks double thanks

Looking for DDos cs 1.6 server... Thanks in adv.

i cannot understand the topic's reason but ok gj:D btw dgl rullz on awp

updated info bot. link updated

mages ine safe afto to programa? gia keylogger to kovw..

QS GRNET =D

orea itan otan ipirxe to gather.gr

www.elislasop.com