Fandom

CHDK Wiki

Canon Basic/Scripts/PrintSkull

< Canon Basic

598pages on
this wiki
Add New Page
Talk0 Share

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.

PrintSkullEdit

This is an example by Alfredo Ortega and Oren Isacson of core labs.

ScriptEdit

dim I=1
dim a=3
dim b=3
dim c=3
dim d,e,f,g,h,i,j,k,l,m

private sub createSkull()
    d=LCDMsg_Create()
    e=LCDMsg_Create()
    f=LCDMsg_Create()
    g=LCDMsg_Create()
    h=LCDMsg_Create()
    i=LCDMsg_Create()
    j=LCDMsg_Create()
    k=LCDMsg_Create()
    LCDMsg_SetStr(d,"PWND!  __________")
    LCDMsg_SetStr(e,"      1   Y 1")
    LCDMsg_SetStr(f,"     1       1" )
    LCDMsg_SetStr(g,"    1  () ()  1" )
    LCDMsg_SetStr(h,"     1   /\  1" )
    LCDMsg_SetStr(i,"      1     1" )
    LCDMsg_SetStr(j,"       LLLLU" )
    LCDMsg_SetStr(k,"       UUUUU" )
    LCDMsg_Move(d,10,30)
    LCDMsg_Move(e,10,60)
    LCDMsg_Move(f,10,90)
    LCDMsg_Move(g,10,120)
    LCDMsg_Move(h,10,150)
    LCDMsg_Move(i,10,180)
    LCDMsg_Move(j,10,210)
    LCDMsg_Move(k,10,240)
end sub

private sub Initialize()
    System.Create() ' Habilita llamadas del sistema
    Capture.Create()
    FA.Create()
    SS.Create()
    UI.Create() ' para que anda UIFS
    UI.CreatePublic()
    Driver.Create()
    StartRedirectUART(1)
    createSkull()
    ShowAllTaskInfo()
    for c=0 to 10
        for a=0 to 10
            LEDDrive(a,0)
        next
        BeepDrive(2)
        Wait(500)
        BeepDrive(3)
        for a=0 to 10
            LEDDrive(a,1)
        next
        ' Colores :
        '3=blanco
        '0=negro
        '1=gris
        '5=verde
        '>5=rojo
        LCDMsg_ChangeColor(d,0)
        LCDMsg_ChangeColor(e,0)
        LCDMsg_ChangeColor(f,0)
        LCDMsg_ChangeColor(g,0)
        LCDMsg_ChangeColor(h,0)
        LCDMsg_ChangeColor(i,0)
        LCDMsg_ChangeColor(j,0)
        LCDMsg_ChangeColor(k,0)
        Wait(500)
        LCDMsg_ChangeColor(d,3)
        LCDMsg_ChangeColor(e,3)
        LCDMsg_ChangeColor(f,3)
        LCDMsg_ChangeColor(g,3)
        LCDMsg_ChangeColor(h,3)
        LCDMsg_ChangeColor(i,3)
        LCDMsg_ChangeColor(j,3)
        LCDMsg_ChangeColor(k,3)
    next
    Printf("Ann")
    Printf("Ann")
    Printf("Ann")
    Printf("Ann")
end sub

private sub Terminate ( )
end sub

TestedEdit

SuccessEdit

UnsuccessfullEdit

Also on Fandom

Random Wiki