كود:
Public Sub Load_Level1()
Loading.Loading_Init "load1", App.Path & "\images\backgrounds\axd.jpg", 5, Helper.R3DColor(100, 160, 200), Helper.R3DVector2D(100, 500), Helper.R3DVector2D(600, 40), True
Loading.Loading_Increase "جاري تحميل الخلفية"
Sprite.Sprite_Normal_Create "main_back", App.Path & "/images/backgrounds/palace1.jpg", True
Cam.Camera_Setup v3(0, 28, -50), v3(350, 0, 0)
Loading.Loading_Increase "جاري تحميل الأصوات"
Sound.MD2_Walk_Init
Loading.Loading_Increase "جاري تحميل الشخصيات"
MD2.MD2_Create "hero", App.Path & "/characters/firas/1.md2", App.Path & "\characters\firas\1.jpg", v3(0, 0, 12), v3(0, 0, 0), False, True
MD2.MD2_Create "kubaj", App.Path & "/characters/kubaj/1.md2", App.Path & "\characters\kubaj\1.jpg", v3(35, 0, 30), v3(0, 100, 0)
MD2.MD2_Create "saif", App.Path & "/characters/saif/1.md2", App.Path & "\characters\saif\1.jpg", v3(-20, 0, 30), v3(0, 100, 0)
Loading.Loading_Increase "جاري إنشاء التأثيرات"
Effect.Effect2D_Create "fire1", Fire_Shape1, v2(45, 120), v2(243, 190)
Effect.Effect2D_Create "fire2", Fire_Shape1, v2(45, 120), v2(505, 190)
Loading.Loading_Increase "جاري إنشاء الحوائط"
Obj.Wall_Create "wall1", v3(80, 30, 30), v3(0, 0, 60), v3(0, 0, 0)
Obj.Wall_Create "wall2", v3(120, 30, 30), v3(-40, 0, 60), v3(0, 120, 0)
Obj.Wall_Create "wall3", v3(120, 30, 30), v3(40, 0, 60), v3(0, 60, 0)
Loading.Loading_Release
End Sub
Public Sub Play_Level1()
Effect.Effect2D_Run "fire1", 2, False
Effect.Effect2D_Run "fire2", 2, False
MD2.MD2_Walk_Room
MD2.MD2_Animate "kubaj"
MD2.MD2_Animate "saif"
Font.Font_Display_Information True, True, True
If Collision.MD2_Hit_MD2("kubaj") Then
Dialog.MultiChoise "مالذي تريد أن تفعله ؟", "تحدث معي", "لا شيء", "خروج من اللعبة", "", 250, 400, 3
If Dialog.Chooses = 1 Then Chat.Chat 1, 2, 240, 400
If Dialog.Chooses = 2 Then Collision.MD2_Hit_MD2_ReStart
If Dialog.Chooses = 3 Then Game.GameRun = False
End If
If Collision.MD2_Hit_MD2("saif") Then
Dialog.MultiChoise "مالذي تريده ؟", "أنا أتساءل", "سلامتك", "", "", 250, 400, 2
If Dialog.Chooses = 1 Then Chat.Chat 3, 2, 240, 400
If Dialog.Chooses = 2 Then Collision.MD2_Hit_MD2_ReStart
End If
Game.NextLevel_MD2_XYZ MD2System.Model_GetPosition.Z, Is_Smaller, -30, 1, 2
End Sub
طبعاً القرائة من داخل فيجوال بيسك أفضل بكثيييييير كما تعلم