Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: gra na vbs :P
anonim




Typ: Nie zarejestrowany
gra na vbs :P

załozyłem sie z kolega ze zrobie gre na vbs i to do tego bedzie gra fantasy
a to ze od 2dni widze vbs na oczy to inna sprawa
i mam problem tu jest kod a dalej wyjaśniam co chce zrobic:

msgbox "Xeemo -Walka o Władze v.1",64,"Xeemo -Walka o Władze"
msgbox "Instrukcja: jeżeli mamy opcje do wpisania to przepisujesz to co jest w ** np: *uderzam* piszesz wtedy uderzam",64,"Xeemo -Walka o Władze"
msgbox "Jestes w ciemnej celi, ściany są zrobione z twardego granitu, drzwi do celi są drewniane z metalową kratką przez którą strażnik podaje ci jedzenie.Na ziemi jest kilka kamieni wielkości pieści  dorosłego człowieka." ,64,"Xeemo -Walka o Władze"
msgbox "Co robisz?",64,"Xeemo -Walka o Władze"
Z=inputBox("Biore kamień i *uderzam* strażnika w głowe(przez kratki).Proponuje strażnikowie wspólny *stosunek*","Xeemo -Walka o Władze"
Z=lcase(Z)
IF  Z="stosunek" THEN
msgbox "Strażnik uśmiecha się i przytakuje głową. Otwiera drzwi do celi, wchodzi i mówi 'teraz cie zerżne' ",64,"Xeemo -Walka o Władze"
msgbox "ściągasz spodnie i wypinasz dupsko...",64,"Xeemo -Walka o Władze"
msgbox "strażnik podchodzi do ciebie wyjmuje penisa i gładzi cie nim po dupie...",64,"Xeemo -Walka o Władze"
msgbox "wtedy ty chwytasz za...", 64,"Xeemo -Walka o Władze"
msgbox "...za kamień uderzaż straznika w głowe i w ten sposób ogłuszając go", 64,"Xeemo -Walka o Władze"
msgbox "przebierasz sie w szmaty nieprzyjaciela, zabierasz mu broń i co najwazniesze klucze do drzwi!",64,"Xeemo -Walka o Władze"
ELSE
msgbox "Strażnik pada na kolana (lecz cios nie był zbyt silny zeby go zabić).",64,"Xeemo -Walka o Władze"
msgbox "Wstaje rozwścieczony 'Nedzniku zginiesz'",64,"Xeemo -Walka o Władze"
end if

msgbox "demo!!",64,"Uwaga!"


i chce zeby jak sie wpisze byle co to zeby skrypt nie szedł dalej tylko wyswietlał sie komunikat "nie ma takiej odpowiedzi" i wracało do pytania


z góry thx zielony

13-09-2004 17:11
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Ja bym ci proponował zamknąć cały fragment kodu odpowiedzialny za wybieranie w
Do Until podano_właściwe_odpowiedzi = True
    ...
Loop


A jeszcze bardziej radziłbym ci sie wycofać z zakładu, bo dostaniesz kota, jeśli będziesz wypisywał ręcznie każde rozgałęzienie fabuły...

Poza tym mnie to wygląda bardziej na Hentai niż RPG...

[Post edytowany dnia 13-09-2004 19:11 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

13-09-2004 19:09
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
anonim




Typ: Nie zarejestrowany

hmm nie rozumie mógłbys przekształcic ten kod??
tak zeby było dobrze ;]
z góry thx

13-09-2004 21:55
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

msgbox "Xeemo -Walka o Władze v.1",64,"Xeemo -Walka o Władze"
msgbox "Instrukcja: jeżeli mamy opcje do wpisania to przepisujesz to co jest w ** np: *uderzam* piszesz wtedy uderzam",64,"Xeemo -Walka o Władze"
msgbox "Jestes w ciemnej celi, ściany są zrobione z twardego granitu, drzwi do celi są drewniane z metalową kratką przez którą strażnik podaje ci jedzenie.Na ziemi jest kilka kamieni wielkości pieści  dorosłego człowieka." ,64,"Xeemo -Walka o Władze"
Do Until Podano_wlasciwe_odpowiedzi
    msgbox "Co robisz?",64,"Xeemo -Walka o Władze"
    Z=inputBox("Biore kamień i *uderzam* strażnika w głowe(przez kratki).Proponuje strażnikowie wspólny *stosunek*","Xeemo -Walka o Władze"
    Z=lcase(Z)
    IF  Z="stosunek" THEN
        Podano_wlasciwe_odpowiedzi = True
        msgbox "Strażnik uśmiecha się i przytakuje głową. Otwiera drzwi do celi, wchodzi i mówi 'teraz cie zerżne' ",64,"Xeemo -Walka o Władze"
        msgbox "ściągasz spodnie i wypinasz dupsko...",64,"Xeemo -Walka o Władze"
        msgbox "strażnik podchodzi do ciebie wyjmuje penisa i gładzi cie nim po dupie...",64,"Xeemo -Walka o Władze"
        msgbox "wtedy ty chwytasz za...", 64,"Xeemo -Walka o Władze"
        msgbox "...za kamień uderzaż straznika w głowe i w ten sposób ogłuszając go", 64,"Xeemo -Walka o Władze"
        msgbox "przebierasz sie w szmaty nieprzyjaciela, zabierasz mu broń i co najwazniesze klucze do drzwi!",64,"Xeemo -Walka o Władze"
    ElseIf Z="uderzam" Then
        Podano_wlasciwe_odpowiedzi = True
        msgbox "Strażnik pada na kolana (lecz cios nie był zbyt silny zeby go zabić).",64,"Xeemo -Walka o Władze"
        msgbox "Wstaje rozwścieczony 'Nedzniku zginiesz'",64,"Xeemo -Walka o Władze"
    Else
        MsgBox "Podano niewłaściwą odpowiedź",64,"Xeemo -Walka o Władze"
        Podano_wlasciwe_odpowiedzi = False
    end if
Loop

msgbox "demo!!",64,"Uwaga!"


I kilka rzeczy:
1) Nie pisz tego ręcznie, bo sie zarobisz na śmierć.
2) Pisownia, pisownia i jeszcze raz pisownia . To jest walka o władze? O ile tych władz będą walczyć? Chyba chodzi o walkę o władzę. Uwaga na polskie znaki (połykasz).
3) Masz jakąś wizję gry, czy piszesz "na żywo"?
4) Nie pisz za każdym razem tego "Xeemo -walka o włądze" - lepiej użyj stałej. Ładniej to będzie wyglądało, będzie bardziej przejrzyste i w razie czego łatwiej zmienić.
5) Zrób wybieranie numerkami, literami czy czymś takim... jeśli gracz wpisze 4 razy długie słowo i za każdym razem z błędem - to się w końcu wścieknie i wyłączy grę po dziesiątej takiej pomyłce .

[Post edytowany dnia 14-09-2004 00:12 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

14-09-2004 00:10
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
anonim




Typ: Nie zarejestrowany

1. Jakos dam rade recznie gra nie bedzie długa
2. Jestem dyslektykiem
3. Ogólnie mam zarys jak to ma wyglądac, ale w sumie tak na bierząco sie wymysla

jeszcze raz dzieki Ci bardzo :*

16-09-2004 14:19
  
anonim




Typ: Nie zarejestrowany

a co do punktu 4 to jak sie robo taka stała??

16-09-2004 17:41
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

4: Tak samo jak wzwykłym VB:
Const NazwaStalej As Typ = Wartosc


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

16-09-2004 18:00
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
anonim




Typ: Nie zarejestrowany

4: jestem noobem ;]
mógłbys znowu to zastosowac do kodu...
ucze sie na bierząco

16-09-2004 20:02
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Const TYTUL As String = "Xeemo -Walka o Władze"

A potem zamiast pisać za każdym razem "Xeemo -Walka o Władze", piszesz TYTUL.

Masz może chociaż jakiś opis VBS?


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

17-09-2004 00:21
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
anonim




Typ: Nie zarejestrowany

no własnie nie mam :/
jak bys mial cos to

17-09-2004 07:26
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


    załozyłem sie z kolega ze zrobie gre na vbs i to do tego bedzie gra fantasy 
  a to ze od 2dni widze vbs na oczy to inna sprawa (...)


To zrób to w vbs dla html. Wtedy dołączysz również grafikę... (pseudo-grafikę).


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

18-09-2004 19:49
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 10 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1