PureBasic

Code : Tout sélectionner

;Bataille navale en réseau 
;03/05/04
;3.90
;

;{-Les constantes
;/les fenêtres
Enumeration
  #FenetrePrincipale
  #FenetreEnvoiMessage
EndEnumeration

;/les images 
Enumeration
  #ImageJeu
  #ImageDansEau
  #ImageTouche
  #ImageCoule
  #ImageBateau
EndEnumeration
  
;/Les gadgets
Enumeration
  #GDGT_Image
  #GDGT_BoutonOk
  #GDGT_BoutonEnvoi
  #GDGT_StringEnvoi
  #GDGT_StringReception
EndEnumeration  

;/Le menu
Enumeration
  #MenuNouvellePartie
  #MenuQuitter
  #MenuEnvoyerMessage
EndEnumeration
  
;/Divers
#NbCaseX=12
#NbCaseY=12
#LargeurCase=32
#HauteurCase=32
#Yes=6
#No=7
#Cancel=2

#ModeClient=1
#ModeServeur=2

;}
;{-Les variables
Global Gris,Blanc,Rouge,Vert,Bleu
Global ServeurID,ServeurDistantID,ClientID,ModeReseau

Global rc.s 
Gris=RGB(175,175,175)
Blanc=RGB(255,255,255)
Rouge=RGB(255,0,0) 
Vert=RGB(0,255,0)
Bleu=RGB(0,0,255) 
rc=Chr(13) + Chr(10)
Dim MapJoueur(#NbCaseX,#NbCaseY)
Dim MapControle(#NbCaseX,#NbCaseY)
;}
;-Mémoire
*Buffer=AllocateMemory(2000)

;{-Initialisation
;/Réseau
If InitNetwork() = 0 
  MessageRequester("Erreur","Impossible d'initialiser les fonctions réseaux",#MB_ICONERROR) 
  End 
EndIf 
;/Creation du serveur 
Reponse=MessageRequester("Connexion...","créer le serveur sur ce PC ?", #PB_MessageRequester_YesNoCancel)
If Reponse=#Yes         
  ServeurID = CreateNetworkServer(6250) 
  If ServeurID = 0 
    MessageRequester("Erreur","Impossible de créer le serveur",#MB_ICONERROR) 
    End 
  EndIf 
  ;Cherche les IP dispos sur le serveur
  ExamineIPAddresses()
  ip=NextIPAddress()
  While ip
    Ipadresse$=Ipadresse$+IPString(ip)+rc
    ip=NextIPAddress()
  Wend
  MessageRequester("Serveur ok","Liste des IP disponibles sur le serveur"+rc+rc+Ipadresse$,0)  
  ModeReseau=#ModeServeur
ElseIf Reponse=#No    
  ; Connection au serveur 
  Ipserveur.s=InputRequester("Connexion...","Indiquez l'IP du serveur sous la forme xxx.xxx.xxx.xxx ","") 
  ServeurDistantID=OpenNetworkConnection(Ipserveur,6250) 
  If ServeurDistantID=0 
    MessageRequester("Erreur","Impossible de se connecter au serveur.",#MB_ICONERROR) 
    End
  EndIf 
  ModeReseau=#ModeClient
Else                
  End
EndIf 

;/Fenetre et gadgets
FenetreFlag=#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget
If OpenWindow(#FenetrePrincipale, 0, 0, 500, 450, FenetreFlag, "Bataille navale")=0 Or CreateGadgetList(WindowID(#FenetrePrincipale))=0
  MessageRequester("Pas de pot","Quand ça ne veut pas ça ne veut pas",#PB_MessageRequester_Ok)
  End
EndIf  

;/ un petit menu
If CreateMenu(0,WindowID(#FenetrePrincipale))
  MenuTitle("Partie")
  MenuItem(#MenuNouvellePartie,"Nouvelle Partie")
  MenuItem(#MenuQuitter,"Quitter")
  MenuTitle("Réseau")
  MenuItem(#MenuEnvoyerMessage,"Envoyer un message")
EndIf   

;/une barre 
HandleStatBar.l = CreateStatusBar(0,WindowID(#FenetrePrincipale)) 
If HandleStatBar 
  AddStatusBarField(WindowWidth())
  SendMessage_(HandleStatBar,#SB_GETRECT,0,@StatBarValue.RECT) 
  StatBarHeight.l= StatBarValue\bottom - StatBarValue\top 
EndIf

;/fond du jeu
CreateImage(#ImageJeu,#NbCaseX*#LargeurCase,#NbCaseY*#HauteurCase)
StartDrawing(ImageOutput())
  Box(0,0,ImageWidth() ,ImageHeight(),Gris)
  For x=0 To #NbCaseX-1
    For y=0 To #NbCaseY-1
      DrawingMode(4)
      Box(x*#LargeurCase,y*#HauteurCase,#LargeurCase,#HauteurCase,Blanc)
    Next y
  Next x  
  StopDrawing()  
  DebutX=(WindowWidth()-ImageWidth())/2
  DebutY=(WindowHeight()-ImageHeight()-MenuHeight()-StatBarHeight)/2
ImageGadget(#GDGT_Image,DebutX,DebutY,ImageWidth(),ImageHeight(),ImageID())  
;}
;-Les procedures
Procedure GetMouseX(gadget) 
  GetCursorPos_(mouse.POINT) 
  MapWindowPoints_(0,GadgetID(gadget),mouse,1) 
  ProcedureReturn mouse\x 
EndProcedure 

Procedure GetMouseY(gadget) 
  GetCursorPos_(mouse.POINT) 
  MapWindowPoints_(0,GadgetID(gadget),mouse,1) 
  ProcedureReturn mouse\y 
EndProcedure 

;-Boucle Principale
Repeat
  ;affiche la position de la souris
  StatusBarText(0,0,Str(GetMouseX(#ImageJeu))+" / " + Str(GetMouseY(#ImageJeu))) 
  Select WindowEvent() 
    
    Case #PB_Event_CloseWindow : Quit=1 
    
    Case #PB_Event_Menu 
      
      Select EventMenuID()
        ;/Partie
        Case #MenuQuitter : Quit=1  
        Case #MenuEnvoyerMessage 
          Texte$=""
          If ModeReseau=#ModeServeur
            If ClientID > 0 
              Texte$=InputRequester("Message","Texte à envoyer ","")
              SendNetworkString(ClientID,Texte$) 
            Else 
              MessageRequester("Erreur","il n'y a personne qui joue avec toi !") 
            EndIf 
          Else
            Texte$=InputRequester("Message","Texte à envoyer ","")
            SendNetworkString(ServeurDistantID,Texte$) 
          EndIf  
      EndSelect

  EndSelect 
  
  ;/Test si le prog est lancé en tant que serveur
  If ModeReseau=#ModeServeur
    ;/Ici c'est le serveur 
    ServeurEvent = NetworkServerEvent() 
    If ServeurEvent 
      Select ServeurEvent
        ;/Connexion d'un client 
        Case 1  
          ClientID = NetworkClientID() 
          MessageRequester("Client connecté","on va pouvoir commencer !",0) 
          SendNetworkString(ClientID,"connexion réussie, on va pouvoir commencer !") 
          
        ;/Réception des datas
        Case 2 
          PokeL(*Buffer,500)
          ReceiveNetworkData(NetworkClientID(),*Buffer,2000)
          MessageRequester("Message reçu",PeekS(*Buffer),0)
      EndSelect  
    EndIf  
  
  ;/Ici c'est un client 
  Else
    ClientEvent = NetworkClientEvent(ServeurDistantID) 
    If ClientEvent 
      Select ClientEvent 
        ;/Réception des datas
        Case 2 
          PokeL(*Buffer,500)
          ReceiveNetworkData(ServeurDistantID,*Buffer,2000)
          MessageRequester("Message reçu",PeekS(*Buffer),0)
      EndSelect 
    EndIf
  EndIf  
Until Quit = 1
CloseNetworkServer()  ; est-ce utile avec End ? peut-être que End s'en charge ??
End