Blog 'O Grog

       
   # getlimit-Array
       
   getlimit["klavier"]=1
       
   # Description Array - Beschreibt die Objekte
   descr["kaugummi"]=sprintf("Die ist ein bereits gekauter Kaugummi. Himbeer-Geschmack.\n")
   descr["schraube"]=sprintf("Dies ist eine gew????iche Schraube aus Metall.\n")
   descr["feder"]=sprintf("Dies ist eine Feder aus einem Kugelschreiber. \n")
   descr["visier"]=sprintf("Ein kleines Visier, passend zu einem Schnabel von einem Vogel. \n")
   descr["vogel"]=sprintf("Ein kleiner Spatz. Er piept! \n")
   descr["klavier"]=sprintf("Ein alter Steinway - Unbezahlbar!\n")  

   keys["rostiger schluessel"]=9

   door[1,"s"]=2        # door-Array beschreibt Tueren pro Raum: door[<raumnr.>,"<richtung>"]=<zielraum>
   door[2,"s"]=3
   door[2,"n"]=1
   door[3,"n"]=2
   door[3,"e"]=0        # secret or hidden door
   door[3,"w"]=255      # exit

   keylock[1,"s"]=0     # keylock-Array definiert welche Tuer mit welchem Schluessel geoeffnet wird
   keylock[2,"n"]=0     # Muster: keylock[<raumnr.>,"<richtung>"]=<keynr.>
   keylock[2,"s"]=0
   keylock[3,"n"]=0
   keylock[3,"e"]=0
   keylock[3,"w"]=9

   lock[1,"s"]=0        # lock-Array: Speichert den Zustand jeder Tuer. 0-offen, 1-geschlossen
   lock[2,"s"]=0        # lock[<raumnr.>,"<richtung>"]=zustand
   lock[2,"n"]=0
   lock[3,"n"]=0
   lock[3,"e"]=1
   lock[3,"w"]=1

   # action-Array: Beschreibt Informationen die in einem Raum angezeigt werden, wenn Kommando 'look' benutzt wird.
   # action[<raumnr.>,"<kommando>"]=sprintf("<Info-Text>")

   action[1,"look"]=sprintf("Es befindet sich eine Tuer im Sueden.\n")
   action[2,"look"]=sprintf("Es befindet sich eine Tuer im Sueden und eine im Norden.\n")
   action[3,"look"]=sprintf("Es befindet sich eine Tuer im Norden und im Westen\n")
   
   # text-Array: Beschreibt Informationen die angezeigt werden, wenn ein bestimmtes Ereignis auftritt.
   # text[<raumnr.>,"<EREIGNIS>"]=sprintf("<Info-Text>")
 
   text[1,"ENTER"]=sprintf("Sie befinden sich in Raum 1\n")
   text[2,"ENTER"]=sprintf("Sie befinden sich in Raum 2\n")
   text[3,"ENTER"]=sprintf("Sie befinden sich in Raum 3\n")
   text[255,"ENTER"]=sprintf("\nPRIMA! Sie haben es geschafft!\nENDE\n")

   # combi-Array: Beschreibt welches Objekt mit einem anderen interagieren kann.
   # combi[<item1>,<item2>]=action
   combi[items[2,1],items[2,2]]="newobject#MotoVogel"
   combi[items[2,2],items[2,1]]="newobject#MotoVogel"
   
   combi[items[1,1],items[3,1]]="changedescr#Ein ekelhafter Steinway mit Kaugummi dran! Pfui!"
   combi[items[3,1],items[1,1]]="changedescr#Ein ekelhafter Steinway mit Kaugummi dran! Pfui!"
   
   startrom=1
   actualrom=1
   state=idle
}

### NAVIGATION ###
tolower($0)~/^[nesw]$/{
        if($0=="n"){ print "Du gehst nach Norden."}
        if($0=="o"){ print "Du gehst nach Osten."}
        if($0=="s"){ print "Du gehst nach Sueden."}
        if($0=="w"){ print "Du gehst nach Westen."}
        if(door[actualrom,$1]>0){
                if(lock[actualrom,$1]){
                        printf("Die Tuer ist verschlossen!\n")
                }else{
                        pass(actualrom,door[actualrom,$1])
                }
        }else{
                printf("...es geht aber nicht weiter nach %s\n",$1)
        }
}

#/^[Ll][Oo][Oo][Kk]$/{printf("There is nothing to look at.\n")}
### LOOK ###
tolower($0)~/^look$/{
        printf(action[actualrom,"look"])
        if(items[actualrom,0]>0)print("\nFolgende Gegenstaende befinden sich in diesem Raum:")
        for(j=1;j<items[actualrom,0]+1;j++){
                if(length(items[actualrom,j])>0)printf(" %s\n",items[actualrom,j])

        }
                printf "\n"
               
}
### LOOK BAG ###
tolower($0)~/^look bag$/{
        if(countelem(bag)>0){
                printf("Sie haben %d Gegenstaende in der Tasche:\n",bag[0])
                for(j=1;j<bag[0]+1;j++){
                        printf("%d. %s\n",j,bag[j])
                }
        }
}
### LOOK OBJECT ###
tolower($0)~/^look .*$/{
                if(tolower($2)!="bag"){
                        retcode=1
                        if(items[actualrom,0]>0){
                                for(j=1;j<items[actualrom,0]+1;j++){
                                        if(tolower($2)==tolower(items[actualrom,j])){
                                                print descr[tolower($2)]
                                        }
                                }                              
                        }              
                       
                        #if(countelem(bag)>0){
                        #               printf("Sie haben %d Gegenstaende in der Tasche:\n",bag[0])
                #                       for(j=1;j<bag[0]+1;j++){
                #                                       printf("%d. %s\n",j,bag[j])
                #                       }
                #       }
                        for(j=1;j<bag[0]+1;j++){
                                if(tolower($2)==tolower(bag[j])){
                                        print descr[tolower($2)]
                                }
                        }
                }
}
### GET OBJECT ###
tolower($0)~/^get .*$/{
                if(tolower($3)!="schluessel"){
                        retcode=1                      
                        if(getlimit[tolower($2)]==0){
                                for(j=1;j<items[actualrom,0]+1;j++){                                   
                                                if(tolower($2)==tolower(items[actualrom,j])){
                                                                bag[bag[0]+1]=items[actualrom,j]
                                                                bag[0]++
                                                                items[actualrom,j]=items[actualrom,items[actualrom,0]]
                                                                items[actualrom,0]--
                                                                printf("Sie haben den Gegenstand genommen. %s\n",bag[bag[0]])
                                                                retcode=0
                                                                break
                                                }
                                }
                        }else{
                                printf("Der Gegenstand %s kann nicht genommen werden.\n",$2)
                                retcode=0
                        }
                        if(retcode)printf("Ich kann das Objekt nicht finden!\n")
                }
}

### GET KEY ###
tolower($0)~/^get .<strong> schluessel$/{
        retcode=1
        for(j=1;j<items[actualrom,0]+1;j++){
                if(tolower($2 " " $3)==tolower(items[actualrom,j])){
                        bag[bag[0]+1]=items[actualrom,j]
                        bag[0]++
                        items[actualrom,j]=items[actualrom,items[actualrom,0]]
                        items[actualrom,0]--
                        printf("Du hast den %s genommen.\n",bag[bag[0]])
                        retcode=0
                        break
                }
        }
        if(retcode)printf("Konnte den Schluessel nicht finden!\n")
}

### PUT OBJECT ###
tolower($0)~/^put .*$/{
        retcode=1
        for(j=1;j<bag[0]+1;j++){
                if(tolower($2)==tolower(bag[j])){
                        items[actualrom,items[actualrom,0]+1]=bag[j]
                        items[actualrom,0]++
                        bag[j]=bag[bag[0]]
                        bag[0]--
                        printf("Du hast den Gegenstand abgelegt: %s\n",items[actualrom,items[actualrom,0]])
                        retcode=0
                        break
                }
        }
        if(retcode)printf("In Deiner Tasche befindet sich dieser Gegenstand nicht!\n")
}
### PUT <qual> SCHLUESSEL ###
tolower($0)~/^put .</strong> schluessel$/{
        retcode=1
        for(j=1;j<bag[0]+1;j++){
                if(tolower($2 " " $3)==tolower(bag[j])){
                        items[actualrom,items[actualrom,0]+1]=bag[j]
                        items[actualrom,0]++
                        bag[j]=bag[bag[0]]
                        bag[0]--
                        printf("Du hast den Schluessel abgelegt: %s\n",items[actualrom,items[actualrom,0]])
                        retcode=0
                        break
                }
        }
        if(retcode)printf("In Deiner Tasche befindet sich dieser Gegenstand nicht!\n")
}

### USE KEY WITH DOOR ###
###tolower($0)~/^use .<strong> .</strong> with door [nosw]$/{
tolower($0)~/^use .<strong> .</strong> with door [nosw]$/{
        # Identify Object
        retcode=1
        for(j=1;j<bag[0]+1;j++){
                if(tolower($2 " " $3)==tolower(bag[j])){
                        if(door[actualrom,$6]>0){   # Tuer existiert auch
                                if(keylock[actualrom,$6]==keys[tolower($2 " " $3)]){
                                        unlock(actualrom,$6)
                                        retcode=0
                                        break
                                }else{
                                        printf("%s %s passt nicht zur Tuer %s in Raum %d.\n",$2,$3,$6,actualrom)
                                        retcode=0
                                        break
                                }
                        }else{
                                printf("Tuer %s in Raum %d gibt es nicht.\n",$6,actualrom)
                                retcode=0
                                break
                        }
                }
        }
        if(retcode)printf("Du besitzt diesen Schl0ssel nicht!\n")
}

### USE OBJ1 WITH OBJ2 ###
tolower($0)~/^use .* with .*$/{
        if(tolower($3)!="schluessel"){
                printf("Du versuchst %s mit %s zu benutzen!\n",$2,$4)
                obj1=0;obj2=0;combinated=0
                for(j=1;j<bag[0]+1;j++){
                        if(tolower($2)==tolower(bag[j])){
                                obj1=1
                                geg1=bag[j]
                        }
                        if(tolower($4)==tolower(bag[j])){
                                                        obj2=1
                                geg2=bag[j]
                                        }
                }
                if(obj1==0){
                        printf("Du besitzt das Objekt %s nicht!\n",$2)
                }
                if(obj2==0){
                                        printf("Du besitzt das Objekt %s nicht!\n",$4)
                        }
                if(obj1==1&&obj2==1){
                        split(combi[geg1,geg2],v,"#")
                        if(v[1]=="newobject"){
                                ret=newObject(v[2])
                                combinated=1
                        }
                        if (!combinated){ printf("Du kannst die Gegenstaende nicht miteinander benutzen!\n")}
                }else{
                         printf("Das geht nicht!\n")
                }
        }
}

### ABORT GAME ###
tolower($0)~/^quit|exit|bye|by|end$/{
        printf("\f")
        exit 0

}

### SHOW HELP ###
tolower($0)~/^info|help|?$/{
        printf("Kommandos:\nlook\nlook bag\nn|e|s|w\nget [object]\nget [quali] schluessel\nput [object]\nput [quali] schluessel\n")
        printf("use [quali] schluessel with door [n|e|s|w]\n")
        printf("quit|exit|bye|by|end\n\n")
}

#/^[^[Ll][Oo][Oo][Kk]$]/{print "Du befindest dich in Raum" actualrom }

######## FUNCTION BLOCK #########

function unlock(rom,dir){
        if(lock[rom,dir]>0){
                lock[rom,dir]=0
                printf("Raum %d Tuer in Richtung %s wurde aufgeschlossen.\n",rom,dir)
        }else{
                lock[rom,dir]=1
                printf("Raum %d Tuer in Richtung %s wurde abgeschlossen.\n",rom,dir)
        }
}

function pass(old,new){
   actualrom=new
   printf(text[actualrom,"ENTER"])
   if(new==255) exit
}

function countelem(arr){
    x=0
    for(i in bag){
        if(length(i)>0){ x+=1}
    }
    return x
}

function newObject(obj){
        a=items[actualrom,0]
        items[actualrom,a+1]=obj
        items[actualrom,0]=a+1
        printf("Es erscheint ein %s in dem Raum!\n",obj)
        return 0
}
function changedescr(){
       
        }