Version instantanée du 22 avril 2016 : PANORAMIC V 0.9.27i7

dim X10,Y10
dim X11,Y11
dim X12,Y12
dim X13,Y13

dim i%

scene2D 1

width 0,600:height 0,600
full_space 1

sprite_create_hide

rem création de 4 SPRITEs à partir d'un texte
rem les paramètres du texte sont ceux des Fonts sur le SCENE2D

sprite 10
font_size 1,20
font_color 1,255,0,0
font_bold 1
sprite_text 10,"Panoramic"

sprite 11
font_size 1,15
font_color 1,0,255,0
font_bold_off 1
sprite_text 11,"est un langage"

sprite 12
font_color 1,255,0,255
font_bold_off 1
sprite_text 12,"FACILE"

sprite 13
font_size 1,20
font_color 1,0,255,255
font_underline 1
sprite_text 13,"à utiliser"

rem postions initiales
x10=700:y10=700
x11=0:y11=700
x12=700:y12=0
x13=-100:y13=0

sprite_position 10,x10,y10
sprite_position 11,x11,y11
sprite_position 12,x12,y12
sprite_position 13,x13,y13

sprite_show_all

REM LES POSITIONS FINALES SONT :
REM POUR SPRITE 10 : (200,200)
REM POUR SPRITE 11 : (205,230)
REM POUR SPRITE 12 : (235,260)
REM POUR SPRITE 13 : (215,280)

for i%=1 to 80
 x10=curve_value(200,x10,0.3)
 y10=curve_value(200,y10,0.3)
 sprite_position 10,x10,y10
 x11=curve_value(205,x11,0.3)
 y11=curve_value(230,y11,0.3)
 sprite_position 11,x11,y11
 x12=curve_value(235,x12,0.3)
 y12=curve_value(260,y12,0.3)
 sprite_position 12,x12,y12
 x13=curve_value(215,x13,0.3)
 y13=curve_value(280,y13,0.3)
 sprite_position 13,x13,y13
 pause 40
next i%

dim X10,Y10
dim X11,Y11
dim X12,Y12
dim X13,Y13

dim i%

scene2D 1

width 0,600:height 0,600
full_space 1

sprite_create_hide

rem création de 4 SPRITEs à partir d'un texte
rem les paramètres du texte sont ceux des Fonts sur le SCENE2D

sprite 10
font_size 1,20
font_color 1,255,0,0
font_bold 1
sprite_text 10,"Panoramic"

sprite 11
font_size 1,15
font_color 1,0,255,0
font_bold_off 1
sprite_text 11,"est un langage"

sprite 12
font_color 1,255,0,255
font_bold_off 1
sprite_text 12,"FACILE"

sprite 13
font_size 1,20
font_color 1,0,255,255
font_underline 1
sprite_text 13,"à utiliser"

rem postions initiales
x10=700:y10=700
x11=0:y11=700
x12=700:y12=0
x13=-100:y13=0

sprite_position 10,x10,y10
sprite_position 11,x11,y11
sprite_position 12,x12,y12
sprite_position 13,x13,y13

sprite_show_all

REM LES POSITIONS FINALES SONT :
REM POUR SPRITE 10 : (200,200)
REM POUR SPRITE 11 : (205,230)
REM POUR SPRITE 12 : (235,260)
REM POUR SPRITE 13 : (215,280)

for i%=1 to 80
 x10=200 : y10=curve_value(190,y10,0.2)
 sprite_position 10,x10,y10
 x11=205 : y11=230
 sprite_position 11,x11,y11
 x12=235 : y12=260
 sprite_position 12,x12,y12
 x13=215 : y13=280
 sprite_position 13,x13,y13
 pause 40
next i%

rem ============================================================================
label clic
dim i
main_menu 10
        sub_menu 11 : parent 11,10 : caption 11 ,"Tirage"
        sub_menu 12 : parent 12,11 : caption 12, "Aléatoire"
           sub_menu 13 : parent 13,12 : caption 13, "Votre jeu"
           sub_menu 14 : parent 14,12 : caption 14, "Les quatre jeux"
        sub_menu 15 : parent 15,11 : caption 15, "Quitter"
        sub_menu 16 : parent 16,10 : caption 16, "Infos"
    for i = 11 to 16 : on_click i,clic : next i
    
end
rem ============================================================================
Clic:
    select number_click
        case 13 : Votre_Jeu()
        case 14 : Les_4_Jeux()
        case 15 : Quitter()
        case 16 : Infos()
    end_select

return
rem ============================================================================
SUB Votre_Jeu()

END_SUB
rem ============================================================================
SUB Les_4_Jeux()

END_SUB
rem ============================================================================
SUB Infos()

END_SUB
rem ============================================================================
 SUB Quitter()

    terminate
 END_SUB
rem ============================================================================

rem ============================================================================
SUB Quitter()
    dim_local ret%,hWnd
    hWnd = handle(0)
    dll_on "user32"
    ret% = dll_call4("PostMessageA",hWnd,16,0,0) : ' 16 c'est la constante de fermeture
END_SUB
rem ============================================================================

EXECUTE "cmd.exe /c Taskkill.exe /F /IM PANORAMIC.exe /T": RETURN

' déclaration des variables pour tracer le quadrillage
dim maxi,nb_case,taille_case,i
dim vehicx,vehicy,vehicz
dim cam_posx,cam_posy,cam_posz
dim posx_cible,posy_cible,posz_cible
dim deltax,deltay,deltaz,lissage

' taille maximale du quadrillage
maxi=800

' nombre de cases sur X ou Y
nb_case=100

' taille d'une case
taille_case=int(maxi/nb_case)

full_space 0:scene3D 1:full_space 1
color 1,0,0,0

' tracé des des nb-case+1 lignes horizontales
for i=0 to nb_case
    3d_line i+2, 0, i*taille_case, 0
    3d_line i+2, nb_case*taille_case, i*taille_case, 0
    3d_line_width i+2,3
    3d_color i+2,255,255,0
next i

' tracé des nb-case+1 lignes verticales
for i=0 to nb_case
    3d_line i+nb_case+3, i*taille_case, 0, 0
    3d_line i+nb_case+3, i*taille_case, nb_case*taille_case, 0
    3d_line_width i+nb_case+3,3
    3d_color i+nb_case+3,255,255,0
next i

' création du véhicule
3d_cube 1,8:3d_color 1,255,0,0

' position initiale du véhicule
vehicx=nb_case*taille_case/2
vehicy=nb_case*taille_case/2
vehicz=4
3d_x_position 1,vehicx
3d_y_position 1,vehicy
3d_z_position 1,vehicz

' position initiale de la caméra
cam_posx=vehicx
cam_posy=vehicy
cam_posz=500
cam_position cam_posx, cam_posy, cam_posz

' la caméra pointe sur le véhicule
point_position vehicx, vehicy, vehicz

' point à atteindre par la caméra
posx_cible=vehicx
posy_cible=vehicy-25
posz_cible=vehicz

' vitesse de lissage
lissage=0.3

for i=1 to 90
 ' les positions intermédiaires sont calculées ici
 cam_posx=curve_value(posx_cible,cam_posx,lissage)
 cam_posy=curve_value(posy_cible,cam_posy,lissage)
 cam_posz=curve_value(posz_cible,cam_posz,lissage)
 cam_position cam_posx,cam_posy,cam_posz
 wait 50
next i

terminate

label fini

button 1 : caption 1,"Terminate"
on_click 1,fini
end

fini:
  terminate()
  message "Oups..."
  return

sub terminate()
  dim_local s$, scr$, bat$, axp$
  s$ = chr$(34)+dir_current$+"\KillMySelf.exe"+chr$(34)+" "+str$(handle(0))
  scr$ = "C:\TEMP\Vbscript.vbs"
  bat$ = "C:\TEMP\Bat.bat"
  file_open_write 9, bat$: file_writeln 9, s$: file_close 9
  axp$ = "CreateObject("+chr$(34)+"Wscript.Shell"+chr$(34)+").Run "
  axp$ = axp$ + chr$(34) + bat$ + chr$(34) + ", 0, True"
  file_open_write 9, scr$: file_writeln 9, axp$: file_close 9
  execute_wait "WSCRIPT.exe "+scr$
  file_delete bat$: file_delete scr$
end_sub

Quit:
  DIM prog$,vb$, qu$: vb$ = "C:\Temp\Vb.vbs": qu$ = CHR$(34)
  prog$ = "Taskkill /F /IM PANORAMIC.exe /T": ' tâche à tuer
  FILE_OPEN_WRITE 9, vb$: ' ===== Création du script .vbs =====
    FILE_WRITELN 9,"CreateObject("+qu$+"Wscript.Shell"+qu$+").Run "+qu$+prog$+qu$+",0,True"
  FILE_CLOSE 9
  EXECUTE_WAIT "WSCRIPT.exe "+vb$: ' ===== Exécution du script =====
  FILE_DELETE vb$
RETURN

rem ============================================================================
SUB Quitter()
   dim_local ret%,hWnd
   hWnd = handle(0)
   dll_on "user32"
   ret% = dll_call4("PostMessageA",hWnd,16,0,0) : ' 16 c'est la constante de fermeture
END_SUB
rem ============================================================================

program KillMySelf;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, Messages, dialogs;

var
  par1: string;
  hnd: hwnd;

function KillProcessByHandle(hWindowHandle: HWND):integer; stdcall; export;      // KGF64
var
  hprocessID: INTEGER;
  processHandle: THandle;
  DWResult: DWORD;
begin
  try
    SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0, SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
    if isWindow(hWindowHandle) then begin
        { Get the process identifier for the window}
        GetWindowThreadProcessID(hWindowHandle, @hprocessID);
        if hprocessID <> 0 then begin
            { Get the process handle }
            processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION, False, hprocessID);
            if processHandle <> 0 then begin
                { Terminate the process }
                TerminateProcess(processHandle, 0);
                CloseHandle(ProcessHandle);
            end;
        end;
    end;
  finally
  end;
  result := 0;
end;


begin
  { TODO -oUser -cConsole Main : placez le code ici }
  if ParamCount=0 then exit;
  par1 := paramstr(1);
  try
    hnd := strtoint(par1);
  except
    showmessage('? handle invalide');
  end;
  try
    KillProcessByHandle(hnd);
  except
    showmessage('? handle inconnu');
  end;

end.