ASM Community

player STRUCT

  Name      DB 20 DUP(?)

  Desc      DB 20 DUP(?)

  Location  DD ?

player ENDS

items STRUCT

  name      DB 20 DUP(0)

  desc      DB 20 DUP(0)

  Effect    DD ?

items ENDS



rooms STRUCT

  N         DD ?

  E         DD ?

  W         DD ?

  S         DD ?

  Desc      DB 50 DUP(?)

  RmItem    items<>

  

  ;You could create an array of items.

  

player ENDS

;-------------------------------------------------------------------------------

; loc.asm

;-------------------------------------------------------------------------------

; [email]sliver55@ix.netcom.com[/email] (Sliver)

;-------------------------------------------------------------------------------

; Assemble  : ml /c /coff loc.asm

; Link      : link /SUBSYSTEM:WINDOWS loc.obj

;-------------------------------------------------------------------------------





.386

.model flat, stdcall

option casemap: none



include \masm32\include\windows.inc

include \masm32\include\kernel32.inc

include \masm32\include\user32.inc

include \masm32\include\masm32.inc

include \masm32\include\debug.inc



includelib \masm32\lib\kernel32.lib

includelib \masm32\lib\user32.lib

includelib \masm32\lib\masm32.lib

includelib \masm32\lib\debug.lib



    ; ------------

    ; Local macros

    ; ------------

      print MACRO Quoted_Text:VARARG

        LOCAL Txt

          .data

            Txt db Quoted_Text,0

          .code

        invoke StdOut,ADDR Txt

      ENDM



      input MACRO Quoted_Prompt_Text:VARARG

        LOCAL Txt

        LOCAL Buffer

          .data

            Txt db Quoted_Prompt_Text,0

            Buffer db 128 dup(?)

          .code

        invoke StdOut,ADDR Txt

        invoke StdIn,ADDR Buffer,LENGTHOF Buffer

        mov eax, offset Buffer

      ENDM



      cls MACRO

        invoke ClearScreen

      ENDM



      InitMap PROTO

      Main   PROTO



    .data

        

    LOCATIONS struct

        n dd 0

        s dd 0

        e dd 0

        w dd 0

        rname db 16 DUP (0)

        

    LOCATIONS ends



     

    ;g_Location is initialized with a 'room number', but will later contain the

    ;pointer to the actual structure location

    g_Locations  LOCATIONS  {0,3,1,0, "Room 0"}, {1,1,2,0,"Room 1"}, {2,5,2,1,"Room 2"},\

                            {0,6,3,3, "Room 3"}, {4,7,5,4,"Room 4"}, {2,5,5,4,"Room 5"},\

                            {3,6,7,6, "Room 6"}, {4,7,8,6,"Room 7"}, {8,8,8,7,"Room 8"}



    .code



start:



      invoke Main

      invoke ExitProcess,0



; #########################################################################

; Example: Room 1 contains a number corresponding to a 'room location'

; After InitMap runs the Location structure for room 1 will contain pointers

; to all the adjecent location structure.  IF THERE IS NO ROOM IN A CERTAIN DIRECTION

; then the location structure will point to itself... So when you see

; for room 0 { 0, 3, 1, 0} it means that for:

; North ( room 0 points to ) itself,

; South ( room 0 points to ) room 3,

; East  ( room 0 points to ) room 1,

; West  ( room 0 points to ) itself

;

;   Room set-up

;    0  1  2

;    3  4  5

;    6  7  8

; #########################################################################

InitMap proc



    push esi

    ASSUME esi:PTR LOCATIONS

    lea esi, g_Locations

    

    push edi

    ASSUME edi:PTR LOCATIONS

    lea edi, g_Locations



    mov ecx, 1

    

    @@:

        push ecx

    

        mov eax, [esi].n

        mov ecx, SIZEOF LOCATIONS

        mul ecx



        lea edx, [edi+eax]

        mov [esi].n, edx



        mov eax, [esi].s

        mov ecx, SIZEOF LOCATIONS

        mul ecx

        

        lea edx, [edi+eax]

        mov [esi].s, edx



        mov eax, [esi].e

        mov ecx, SIZEOF LOCATIONS

        mul ecx

        

        lea edx, [edi+eax]

        mov [esi].e, edx



        mov eax, [esi].w

        mov ecx, SIZEOF LOCATIONS

        mul ecx

        

        lea edx, [edi+eax]

        mov [esi].w, edx



        add esi, SIZEOF LOCATIONS



        pop ecx

        inc ecx

        cmp ecx, 10

        jne @B

    @@:

    ASSUME edi:nothing

    pop edi

    ASSUME esi:nothing

    pop esi

       

    ret



InitMap endp



Move proc



Move endp



Main proc



    invoke InitMap 

        

    .data

        inbuffer      db  32 DUP(0)

        location      dd  0

    .code



        print " ",13,10

        print "[Room0] <-> [Room1] <-> [Room2]",13,10

        print "   |                       |   ",13,10

        print "[Room3]     [Room4] <-> [Room5]",13,10

        print "   |           |               ",13,10

        print "[Room6] <-> [Room7] <-> [Room8]",13,10

        print " ",13,10

    

        push esi

        ASSUME esi:PTR LOCATIONS

        lea esi, g_Locations



        mov location, esi

            

        lea edx, [esi].rname

        invoke StdOut, edx

        

        ASSUME esi:nothing

        pop esi    

        

    nextone:

    invoke StdIn,ADDR inbuffer,LENGTHOF inbuffer    ;get input



    mov esi,offset inbuffer



    ;check input for cr or lf



    @@:

    lodsb

    .if (al == 'n')

        push esi

        ASSUME esi:PTR LOCATIONS

        mov esi, location

        

            

        print "Moving North...",13,10

        mov esi, [esi].n

        lea edx, [esi].rname

        invoke StdOut, edx



        mov location, esi

        ASSUME esi:nothing

        pop esi

    .elseif (al == 's')

        push esi

        ASSUME esi:PTR LOCATIONS

        mov esi, location

            

        print "Moving South...",13,10

        mov esi, [esi].s

        lea edx, [esi].rname

        invoke StdOut, edx



        mov location, esi

        ASSUME esi:nothing

        pop esi    

    .elseif (al == 'e')

        push esi

        ASSUME esi:PTR LOCATIONS

        mov esi, location

            

        print "Moving East...",13,10

        mov esi, [esi].e

        lea edx, [esi].rname

        invoke StdOut, edx

        

        mov location, esi    

        ASSUME esi:nothing

        pop esi    

    .elseif (al == 'w')

        push esi

        ASSUME esi:PTR LOCATIONS

        mov esi, location

            

        print "Moving West...",13,10

        mov esi, [esi].w

        lea edx, [esi].rname

        invoke StdOut, edx

        

        mov location, esi        

        ASSUME esi:nothing

        pop esi    

    .else

        ret

    .endif

    jmp nextone



    ret



Main endp



end start

    push esi

    ASSUME esi:PTR PLAYER

    mov esi, g_Player

    push esi

    ASSUME esi:PTR PLAYER

   [B]LEA[/B]  esi, g_Player