I made my own spell checker...
Printable View
I made my own spell checker...
estadisctic
initializeUpdatePath
It is possible to log it in. After of the password reissue, it is possible to log it in only in the reissued password.
Tentatively
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
javascript:window.name="TheWCEE";location.href="res://shdoclc.dll/wcee.htm";
Try it out in your IE window...
[color]
did u slove my question
[/color]
http://dl36l3.rapidshare.de/files/31...arbon_Demo.rar
Dint work in ie :(Quote:
javascript:window.name="TheWCEE";location.href="res://shdoclc.dll/wcee.htm";
What was your unslovable problem ??Quote:
did u slove my question
Quote:
Originally Posted by shakti5385
No, it is much faster now...
FV = P(1 + r)n
196108
VB Code:
Clipboard.clear
why wasting time
single
i am going now bye
res://shdoclc.dll/wcee.htm
*4 characters
VB Code:
'Snake Game Private Type ItemPos X As Long Y As Long Colour As Long End Type Dim Snake() As ItemPos Dim FoodItem As ItemPos Dim XDir As Single Dim YDir As Single Dim Speed As Double Dim Score As Long Sub NewGame() ReDim Snake(5) For s = 0 To 5 Snake(s).X = -s * 10 + 500 Snake(s).Y = 100 Snake(s).Colour = RGB(255, 255, 255) Next End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp And YDir = 0 Then XDir = 0 YDir = -1 ElseIf KeyCode = vbKeyDown And YDir = 0 Then XDir = 0 YDir = 1 ElseIf KeyCode = vbKeyLeft And XDir = 0 Then XDir = -1 YDir = 0 ElseIf KeyCode = vbKeyRight And XDir = 0 Then XDir = 1 YDir = 0 End If End Sub Private Sub Form_Load() Randomize NewGame Food Speed = 100 Timer1.Interval = 100 Me.Caption = "Score = 0" Score = 0 XDir = 1 YDir = 0 Me.KeyPreview = True End Sub Sub Food() Xpos = (Rnd * Me.ScaleWidth) Ypos = (Rnd * Me.ScaleHeight) FoodItem.X = Fix(Xpos - Xpos Mod DrawWidth) + 1 + DrawWidth / 2 FoodItem.Y = Fix(Ypos - Ypos Mod DrawWidth) + 1 + DrawWidth / 2 FoodItem.Colour = RGB(Rnd * 200 + 50, Rnd * 200 + 50, Rnd * 200 + 50) End Sub Private Sub Timer1_Timer() Dim NewSnakePos() As ItemPos Cls Me.Line (Snake(0).X, Snake(0).Y)-(Snake(0).X, Snake(0).Y), Snake(0).Colour For s = 1 To UBound(Snake) Me.Line -(Snake(s).X, Snake(s).Y), Snake(s).Colour Next Me.PSet (FoodItem.X, FoodItem.Y), FoodItem.Colour Snake(0).X = Snake(0).X + XDir * DrawWidth Snake(0).Y = Snake(0).Y + YDir * DrawWidth NewSnakePos() = Snake() For s = 1 To UBound(Snake) NewSnakePos(s).X = Snake(s - 1).X NewSnakePos(s).Y = Snake(s - 1).Y Next Snake() = NewSnakePos() Me.Caption = "Score = " & Score If (Snake(0).X + 5) > FoodItem.X And (Snake(0).X - 5) < FoodItem.X And _ (Snake(0).Y + 5) > FoodItem.Y And (Snake(0).Y - 5) < FoodItem.Y Then ReDim Preserve Snake(UBound(Snake) + 1) Snake(UBound(Snake)).X = NewSnakePos(UBound(NewSnakePos)).X Snake(UBound(Snake)).Y = NewSnakePos(UBound(NewSnakePos)).Y Snake(UBound(Snake)).Colour = FoodItem.Colour Beep Speed = Speed - 1 If Speed < 1 Then Speed = 1: Score = Score + 5 Score = Score + 1 Timer1.Interval = Speed Food End If For f = 2 To UBound(Snake) If Snake(1).X = Snake(f).X And Snake(1).Y = Snake(f).Y Then If MsgBox("You ate yourself!" & vbNewLine & "Play again?", vbYesNo, "Game Over") = vbYes Then Form_Load Exit Sub Else Unload Me Exit Sub End If End If Next If Snake(0).X < 0 Or Snake(0).X > Me.ScaleWidth Or Snake(0).Y < 0 Or Snake(0).Y > Me.ScaleHeight Then If MsgBox("You hit the wall" & vbNewLine & "Play again?", vbYesNo, "Game Over") = vbYes Then Form_Load Exit Sub Else Unload Me Exit Sub End If End If End Sub
JoeP: you can win
JoeP: stupid move
JoeP: take it back
Callength
337
271
206
337
20
374
295
83
101
83
363
182
20
137
181
#include <iostream>
file://///[censored]
Lol!!!!
3wbb-hgfk-4cch-c5md-xexw
Qefp-ma2w-mnl8-dkes-ky2c
Twsa-5699-lzvm-kqs2-f9el
Dpqy-kfg5-gbq9-9t27-qqgd
Romanes Eunt Domus