Jump to content

tiranous

Members
  • Posts

    1,362
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Everything posted by tiranous

  1. I have tried the 1st :P I am going to w8 you for your save :P and I'll give the adena exept if someone share one 40 lvl :P
  2. hi, I need One ready profile lvl 40 for game Tom Clancy's H.A.W.X If the profile work I will give 200 adena ... thx (When I say profile I mean ready save {for them who don't know what is profile at hawx} ) P.S take care.. I don't need hack for Unlocks.. I have it.. I need profile lvl 40
  3. I have Nod32 ... and its fine.. it doesn't find it like a virus also I have the original msn... and this eror is not only for msn when I close msn I get the same eror with diferent name.. for example (lineage II) and if i close Lineage II the same eror with diferent name :S
  4. yes but no answers :S I thout that it can be bought only 1 time per day .. but I think I am wrong
  5. bumpz I think that l2 is now old :P noone want to start? :P
  6. [gr} tsouk.. tpt apo ta duo.. sinexia to idio eror :S
  7. well I want to buy one this staff ( Get a random amount of money, between -3000 and +3000! ) but it always says sold out.. .. It is sold out for ever? noone can buy it>?
  8. pws 8a kanw install to antivirus me antivirus energopoiimeno re c.. auto p les dn stekei.... panw leei msnmsg.exe auto einai to msn.. omws an klisw to msn auto to eror allazei kai leei alla diafora...
  9. I get this eror again and again.. what is this ? and how can I fix it :S and also .. antivirus finds all time viruses :S .... Where all this viruses got in my pc :S lawl
  10. oh yeah you are right thx :D and this is for all atackers or only for shit and noobish eror?
  11. You didn't understood me.. i don't need a program that atack a server.. I need one that Protect server from atack called "shit" and other atacks
  12. lol you bump at my topiC? take care because you have -3.. one more - and you'll banned bump
  13. You all know the program shit.. that atacks and close the server in 2 sec... I need one protection for this program .. thx
  14. Well I will show you how to make a 21 cards game in VB this game is not like normal 21cards game.. you can't stop at 2-3 cards... you must take cards untill you get 21 or burst.... the program will look like this: ok we can now start :P Firstly, follow the instructions below to add the right components and give them the right properties: - Click on Form1, and change the text to "21", change the STARTPOSITION property to "CENTERSCREEN", change the MAXIMIZEBOX property to "FALSE", change the FORMBORDERSTYLE property to "FIXEDSINGLE", and finally the BACKCOLOUR property to "GREEN". - Add Label1, and change the text to "Player 1 Cards: 0" - Add Label2, change the VISIBLE property to "FALSE" and delete it's text. It doesn't matter where you put this label on the form - Add Label3, and change the text to "Target: 21" - Add Label4, change the VISIBLE property to "FALSE" and delete it's text. It doesn't matter where you put this label on the form - Add Label5, and change the text to "Player 2 Cards: 0" - Add Label6, and change the text to "First Player To Fill Their Progress Bar Wins!" - Add Label7, change the VISIBLE property to "FALSE" and delete it's text. It doesn't matter where you put this label on the form. - Add Button1 and change it's text to "Player 1" - Add Button2, change the ENABLED property to "FALSE" and change the text to "Player 2" - Add Button 3, and change the text to "New Game" - Add 2 progress bars - Add 5 picture boxes and change the VISIBLE property to "FALSE" for all of them. Save the pictures of the cards(download them from the end of topiC) to your computer. Then, go to PictureBox1, and click on the IMAGE property. Click "Local Resource" and "Import", then find the picture of the ace. For PictureBox2, do the same but select the picture of the 2 of Spades, for PictureBox3 select the 3 of Hearts etc. - Position all the PictureBoxes on top of each other - If you haven't done already, move all the different components about so that they are in the correct places (as shown in the video). Now we can start to programme the game, so switch to Code View and follow these instructions: Enter the following code at the top (below "Public Class Form1") Public P1Cards As Integer = 0 Public P2Cards As Integer = 0 Public P1Score As Integer = 0 Public P2Score As Integer = 0 Double click Button1 and copy + paste this: Dim TheRandomClass As New Random Dim i As Integer = 0 i = TheRandomClass.Next(1, 6) Label2.Text = i.ToString P1Cards += i Label1.Text = "Player 1 Cards: " + P1Cards.ToString If Label2.Text = 1 Then PictureBox1.Visible = True PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If Label2.Text = 2 Then PictureBox1.Visible = False PictureBox2.Visible = True PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If Label2.Text = 3 Then PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = True PictureBox4.Visible = False PictureBox5.Visible = False End If If Label2.Text = 4 Then PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = True PictureBox5.Visible = False End If If Label2.Text = 5 Then PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = True End If If P1Cards > 21 Then MsgBox("Bust!", MsgBoxStyle.Critical, "End Of Turn") P1Cards = 0 Label2.Text = "" Label1.Text = "Player 1 Cards: 0" Button1.Enabled = False Button2.Enabled = True PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If P1Cards = 21 Then MsgBox("21!", MsgBoxStyle.Information, "End Of Turn") P1Cards = 0 Label2.Text = "" Label1.Text = "Player 1 Cards: 0" Dim o As Integer = 0 o = 1 P1Score += o Label4.Text = P1Score * 20 ProgressBar1.Value = Label4.Text Button1.Enabled = False Button2.Enabled = True PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If ProgressBar1.Value = 100 Then MsgBox("Player 1 Wins!", MsgBoxStyle.Information, "End Of Game") Button1.Enabled = False Button2.Enabled = False Label1.Text = "Player 1 Cards: 0" Label5.Text = "Player 2 Cards: 0" End If Double click Button2 and copy + paste this: Dim TheRandomClass As New Random Dim i As Integer = 0 i = TheRandomClass.Next(1, 6) Label2.Text = i.ToString P2Cards += i Label5.Text = "Player 2 Cards: " + P2Cards.ToString If Label2.Text = 1 Then PictureBox1.Visible = True PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If Label2.Text = 2 Then PictureBox1.Visible = False PictureBox2.Visible = True PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If Label2.Text = 3 Then PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = True PictureBox4.Visible = False PictureBox5.Visible = False End If If Label2.Text = 4 Then PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = True PictureBox5.Visible = False End If If Label2.Text = 5 Then PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = True End If If P2Cards > 21 Then MsgBox("Bust!", MsgBoxStyle.Critical, "End Of Turn") P2Cards = 0 Label2.Text = "" Label5.Text = "Player 2 Cards: 0" Button2.Enabled = False Button1.Enabled = True PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If P2Cards = 21 Then MsgBox("21!", MsgBoxStyle.Information, "End Of Turn") P2Cards = 0 Label2.Text = "" Label5.Text = "Player 2 Cards: 0" Dim o As Integer = 0 o = 1 P2Score += o Label7.Text = P2Score * 20 ProgressBar2.Value = Label7.Text Button2.Enabled = False Button1.Enabled = True PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False End If If ProgressBar2.Value = 100 Then MsgBox("Player 2 Wins!", MsgBoxStyle.Information, "End Of Game") Button1.Enabled = False Button2.Enabled = False Label1.Text = "Player 1 Cards: 0" Label5.Text = "Player 2 Cards: 0" End If Double Click Button3 and copy + paste this: P1Cards = 0 P2Cards = 0 P1Score = 0 P2Score = 0 Label1.Text = "Player 1 Cards: 0" Label5.Text = "Player 2 Cards: 0" Label2.Text = "" Button1.Enabled = True Button2.Enabled = False ProgressBar1.Value = 0 ProgressBar2.Value = 0 PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False Click Start Debugging, and the game should work! ok that was all .. code credits to : Davidboskett text credits to : Davidboskett Download pictures for last step from Here Download game from Here
  15. is greek/brazilian not only brazilian
  16. well I need antivirus for all others files but not for this one.. ... and also I don't need it for porn xD and also if I stop it Some others fiels maybe destroy my pc :P I just want to exclude 1 file
  17. I have antivirus No32 and.. I want to exclude a file from scanning ... and also .. when I also want when I try to open it antivirus to allow me to open it and not delete it :S anyone know how? :S
  18. credits to who? xD i have found it to other site.. stop sharing stolen credits check this : http://oktabitos.wordpress.com/page/13/ (go a bit down ) kai episis.. auto to pragma m xalase to pontiki :p twra sernete :P
  19. I just created account in english... and work perfeclty...
×
×
  • Create New...