Ultimate Amiga

Please login or register.

Login with username, password and session length
Advanced search  
Pages: [1]   Go Down

Author Topic: I like Comics and... codeing so...  (Read 3109 times)

0 Members and 1 Guest are viewing this topic.

Toolkitman

  • A600
  • *
  • Karma: 0
  • Offline Offline
  • Gender: Male
  • Posts: 81
  • Amiga 1200 raspberry pi Ideator & Creator
I like Comics and... codeing so...
« on: October 15, 2018, 09:11:35 PM »

Like the title says i like Comics and i have joyned the Comic Book Plus forum in these days, i have found some good people also there! The Forum Administrator has ask me a question afer seeing my attempt to give an AMIGA AMOS BASIC code for animate comics page after a delay: This is my code.
1 Screen Open 0,320,256,32,Lowres
Flash Off
2 Load Iff "COMIC1:iff"
4 For A=1 To 10000000
5 NEXT A
6 Load Iff "COMIC2.iff"
8 For B=1 To 10000000
9 NEXT B
10 Load Iff "COMIC3.iff"
11 For C=1 To 10000000
12 NEXT C
13 Load Iff"COMIC4.iff"
14 For D=1 To 10000000
15 NEXT D
16 Load Iff"COMIC5.iff"
17 For E=1 To 10000000
18 NEXT E
19 Load Iff"COMIC6.iff"
20 For F=1 To 10000000
21 NEXT E
22 Load Iff"COMIC7.iff"
23 For G=1 To 10000000
24 NEXT G
25 Load Iff"COMIC8.iff"
26 For H=1 To 10000000
27 NEXT H
28 Goto 1

The code is for 8 images but you can add more with load and For loop.

This is the question of the Admin of Comic Books Plus forum, itryed to help him with no success, remember he is not a programmer but he is intelligent and old so respect!!!!

I havent programmed an Amiga BUT looking at your code could you not

Loop the name something like this adding z to the file name. I am not sure of the syntax Or if not have create an array of file names. And loop through them

z=1 to 8
Load Iff "COMIC" z " :iff"
For A=1 To 10000000
NEXT A
NEXT Z

IF you can help you are welcome.

This is the licence of my code:

Copyright (c) <2018>, <Matteo Trevisan>
All rights reserved.

Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
1. Redistributions of source code must retain the above copyright
   notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
   notice, this list of conditions and the following disclaimer in the
   documentation and/or other materials provided with the distribution.
3. All advertising materials mentioning features or use of this software
   must display the following acknowledgement:
   This product includes software developed by the <organization>.
4. Neither the name of the <organization> nor the
   names of its contributors may be used to endorse or promote products
   derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY
EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.



Copyright (c) <2018>, <Matteo Trevisan>
Tutti i diritti riservati.

La ridistribuzione e l'uso in forma di codice sorgente e in forma binaria, con o senza modifiche, è consentito
purché siano rispettate le seguenti condizioni:

1. Le ridistribuzioni del codice sorgente devono conservare la nota di copyright sopra riportata, questa lista di condizioni
   e la seguente limitazione di responsabilità.
2. Le ridistribuzioni in forma binarie devono riprodurre la nota di copyright sopra riportata, questa lista di condizioni
   e la seguente limitazione di responsabilità nella documentazione e/o altri materiali forniti con la distribuzione.
3. Ogni materiale pubblicitario che riporti caratteristiche o uso di questo software deve mostrare la seguente attestazione:
   Questo prodotto include software sviluppati dalla <organizzazione>.
4. Né il nome della <organizzazione>, né i nomi dei suoi collaboratori possono essere utilizzati per avallare o promuovere prodotti
   derivati da questo software senza uno specifico permesso scritto.

Questo software è fornito dal <possessore di copyright> "così com'è" e qualsiasi
garanzia espressa o implicita, inclusiva di, ma non limitata a, garanzie implicite
di commerciabilità e idoneità ad uno scopo particolare, viene disconosciuta. In nessun caso il possessore
di copyright sarà ritenuto responsabile per qualsiasi danno diretto, indiretto, connesso, particolare,
esemplare o conseguente (inclusivo di, ma non limitato a, approvvigionamento di beni o servizi alternativi;
perdita di utilità, dati o profitti; interruzione di affari) comunque causati e su qualsiasi ipotesi di
responsabilità, come da contratto, responsabilità oggettiva, o torto (compresa negligenza o altro)
derivante in qualsiasi modo dall'utilizzo di questo software anche se al corrente della possibilità di tale danno

                ,        ,         
               /(        )`       
               \ \___   / |       
               /- _  `-/  '       
              (/\/ \ \   /\       
              / /   | `    \       
              O O   ) /    |       
              `-^--'`<     '       
             (_.)  _  )   /       
              `.___/`    /         
                `-----' /         
   <----.     __ / __   \         
   <----|====O)))==) \) /====|     
   <----'    `--' `.__,' \         
                |        |         
                 \       /       /\
            ______( (_  / \______/
          ,'  ,-----'   |         
          `--{__________)         

Enjoy! :o
Logged

Volvo_0ne

  • A600
  • *
  • Karma: 0
  • Offline Offline
  • Gender: Male
  • Posts: 71
  • A1200 lover
Re: I like Comics and... codeing so...
« Reply #1 on: October 16, 2018, 04:00:27 PM »


For Z=1 to 8:Rem could be ANY number
Load Iff "COMIC"+Str$(z)-" "+".iff"
A=20 : Rem set your view time here (in seconds)
Pause A*50 : Rem WAIT
Next Z
« Last Edit: October 22, 2018, 08:43:29 PM by Volvo_0ne »
Logged
Transuranic heavy elements may not be used where there is life.
Pages: [1]   Go Up
 

TinyPortal 2.2.2 © 2005-2022