Dan's never to be released code collection

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|437\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Dan's never to be released code collection
Sun, 17 Jun 2018, 12:03
Dan	Dan's never to be released code collection In this thread ill post some of the code, which i have used to learn the blitzbasic language. They were either written on AmigaBasic, Amos Pro, Qbasic, BasicBasic or converted from other Languages to these. Some of them may not be 100% mine, but you will understand that sometime 100% conversation is not possible. Like following code: ;'Ã„ Area: F-QUICKBASIC Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„Ã„ ;' Msg#: 332 Date: 21 Apr 94 17:20:00 ;' From: Robert Fisher Read: Yes Replied: No ;' To: All Mark: ;' Subj: VGA Lesson #46 (Animation) --v -=-=- \|edit\| Jay : For the sake of not having a 36Kb mass of text clogging up a single database entry, I've opted to move the above code into a text file. \|edit\| Download code here -=-=- What it does: It displays a talking portrait of a Figure form 'Might & Magic' game. Additionally to this, it displays 5 random words, which in very rare case matches with meaning. You can, as well, take a screenshot of it, in BMP format. The filename is automatically generated. The Code for this was from the blitzbasic.com forum. Taking screenshots works with the right mouse. Press and hold the right mouse, wait until the portrait gets a white outline, then release the mouse. You can take the screenshot only while the white outline is there, which disappears after a second or so (in case you didn't wanted to get that picture).
Sun, 17 Jun 2018, 12:18
Dan	Once, on AmosPro, iv played with the idea to use vector graphic instead of sprites. this is what came out of it: AppTitle "Star" Screen 320,240 SetBuffer BackBuffer() SeedRnd MilliSecs() Dim X(10),Y(10) For DA=1 To 9 Read X(DA),Y(DA) Next Repeat Cls ra=Rand (1,4) a=Rand(1,6) If ra=1 Then Gosub UP If ra=2 Then Gosub DN If ra=3 Then Gosub LE If ra=4 Then Gosub RI Gosub Line Flip Delay 25 Until KeyDown(1) End .Line Cls For Za=1 To 7 Line xa+X(Za),ya+Y(Za),xa+X(Za+1),ya+Y(Za+1) Next Line xa+X(8),ya+Y(8),xa+X(1),ya+Y(1) Return .UP Ya=Ya-a If Ya=<0 Then ya=0 Return .DN Ya=Ya+a If Ya=>GraphicsHeight() Then ya=GraphicsHeight() Return .LE Xa=Xa-a If Xa=<0 Then Xa=0 Return .RI Xa=Xa+a If Xa=>GraphicsWidth() Then Xa=GraphicsWidth() Return Data 140,60,129,97,92,108,129,119,140,156,151,119,188,108,151,97,140,60 Function Screen(defaultx=320,defaulty=240,Stretchx=640,Stretchy=480) ;bits=api_GetDeviceCaps(api_GetDC( api_GetDesktopWindow()),12) bits=32 Graphics Stretchx,Stretchy,bits,2 Graphics defaultx,defaulty,bits,3 End Function --v And i never followed the idea again. What it does: It is a 4 edged star, randomly shaking.
Sun, 17 Jun 2018, 12:24
Dan	And next one, is probably the programming standard for beginners: Guess the number ! Graphics 640,480,32,2 ;Setup number of text and number of languages available Read aa,bb For x=1 To bb Read L$ Print x+" = "+L$ Next Dim Language$(aa) CH=Input("Choose 1-"+(x-1)+" >") If ch<=0 Or ch>bb Then ch=1 y=0 x=0 ;Reads the language data Repeat x=x+1 y=y+1: If y>bb Then y=1 Read l$ If l$="end" Then Goto O1 If y=ch Then c=c+1 : Language(c)=l$ ; Print c+" = "+l$ Forever .O1 Cls Text 1814,1214, String("",17) Text 1814,1314, Language(1) Text 1814,1414, String("",17) Text 3014,1814, Language(2) While Not GetKey() Delay 5 Wend Cls Locate 0,0 SeedRnd MilliSecs() Print zahl=Input(Language(3)) ; ZAHL If zahl=<2 Then zahl=Int(Rand(1,100))+2 .o2 Cls Print Print Language(4)+ ZAHL+Language(5) Print ZUFALL = Int(Rand(1,ZAHL)) If ZUFALL = 0 Then Goto o2 For VERSUCHE = 1 To 10 ; Print RATEN=Input(VERSUCHE+Language(6) ) Print If RATEN = ZUFALL Then Print Language(7)+VERSUCHE+Language(8) Goto O10 End If If RATEN < ZUFALL Then Print Language(9) If RATEN > ZUFALL Then Print Language(10) Print Next Print "GAME OVER" Print Language(11)+ZUFALL Goto O10 A$=Input() Cls End .O10 Print "" Print Language(12) a$=Input(Language(13)) If a$="E" Or a$="e" Then End End If Goto O1 ; number of words (needed to dim the Language() array, number of languages (starting from 1) Data 14,3 ; Names of the Languages, uses the number of languages from above Data "German","English","Hulkster" ;Text in all languages: Depends on the number of languages Data "ZAHLENGENERATOR","NUMBERGENERATOR","* HULK SMASH " Data "<Bitte eine Taste drÃ¼cken>","<Press any key to Continue>","Yo SMASH KEY" Data "Wie groÃŸ soll die Zufallszahl sein :","Enter a number to play with , between 1 and :","Punny little HUMAN enter a number :" Data "Ich denke mir eine Zahl zwischen 1 und ","Im choosing a number between 1 and ","HULK CHOOSE TO : " Data " aus.","."," NUMBER" Data ". Versuch> "," try > "," SMASH NUMBER: >" Data "Sie haben die gesuchte Zahl mit ","You have guessed the number in ","YOU DID " Data " Versuchen erraten!"," rounds"," SMASHES" Data "Die eingegebene zahl ist kleiner als meine !","That number is lower than mine","HAHA YOU ARE WEAKER !!" Data "Die eingegebene zahl ist grÃ¶ÃŸer als meine !","That number is higher than mine","YOU ARE STRONGER ? IMPOSSIBLE!" Data "Die gesuchte Zahl war ","I was looking for: ","HULK HAS CHOOSEN: " Data "Return = nochmal","Return = Play again","SMASH RETURN TO PLAY AGAIN" Data "E + Return beendet dieses Spiel.> ","E + Return to Quit.> ","SMASH E TO END " Data "end","end*" --v This one comes in 3 Languages flavor: German, English and Hulkster.
Sat, 30 Jun 2018, 13:41
Dan	Level editor for Zeus Game (amiga adf format) see English amiga board post #23 This code needs some api calls. Screen(350,250,2) AppTitle "Please read first, while loading data" Color $0,$ff,0 Print "Zeus Level Editor - By Dan" Print Color $FF,0,0 Print "Be carefull while using this tool" Print "As it may overwrite ADF or DAT files without" Print "further asking if you want to overwrite them." --v -=-=- \|edit\| Jay : For the sake of not having a 168Kb mass of text clogging up a single database entry, I've opted to move the above code into a text file. \|edit\| Download code here -=-=-