The PokéCommunity Forums  

Go Back   The PokéCommunity Forums > Members List
Reload this Page sonic1's Profile
Sign Up Rules/FAQ Daily Battle Blogs Mark Forums Read


sonic1's Profile Picture

sonic1 sonic1 is offline

ASM is my life now...

Visitor Messages

Showing Visitor Messages 16 to 30 of 138
  1. tajaros
    December 3rd, 2012 5:06 AM
    tajaros
    NarutoActor provided me with a script for a banking script that makes you create an account and store money and checks the money you have stored.

    Here's the script which I fixed some pointers and messages but sadly still doesn't work for me NarutoActor said he made it worked before but when he learned ASM he made one for it I'm not sure if he has the routine for it.

    Anyways here's the script:
    Spoiler:
    #dynamic 0x800000

    #org @bank
    lock
    checkflag 0x60C
    if 0x0 goto @create
    msgbox @greets 0x4
    closeonkeypress
    checkgender
    compare 0x800D 0x0
    if 0x1 goto @boy
    compare 0x800D 0x1
    if 0x1 goto @girl
    end


    #org @boy
    msgbox @welboy 0x4
    closeonkeypress
    goto @update

    #org @girl
    msgbox @welgirl 0x4
    closeonkeypress
    goto @update

    #org @update
    copybyte 0x202E598 0x300553C
    copyvar 0x5008 0x8000
    Writebytetooffset 0x08 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x06 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3F 'Subtracts vars Ex 5008=20(2020)-5006(2010)=10 5008=10
    copyvar 0x5006 0x5008
    compare 0x5008 0x0
    if 0x1 goto @mul1
    compare 0x5008 0x1
    if 0x1 goto @mul2
    compare 0x5008 0x2
    if 0x1 goto @mul3
    compare 0x5008 0x3
    if 0x1 goto @mul4
    compare 0x5008 0x4
    if 0x1 goto @mul5
    compare 0x5008 0x5
    if 0x1 goto @mul6
    compare 0x5008 0x6
    if 0x1 goto @mul7
    compare 0x5008 0x7
    if 0x1 goto @mul8
    compare 0x5008 0x8
    if 0x1 goto @mul9
    compare 0x5008 0x9
    if 0x1 goto @mulA
    goto @erro
    end

    #org @mul1
    setvar 0x5009 0x1
    goto @daycheck

    #org @mul2
    setvar 0x5009 0x2
    goto @daycheck

    #org @mul3
    setvar 0x5009 0x3
    goto @daycheck

    #org @mul4
    setvar 0x5009 0x4
    goto @daycheck

    #org @mul5
    setvar 0x5009 0x5
    goto @daycheck

    #org @mul6
    setvar 0x5009 0x6
    goto @daycheck

    #org @mul7
    setvar 0x5009 0x7
    goto @daycheck

    #org @mul8
    setvar 0x5009 0x8
    goto @daycheck

    #org @mul9
    setvar 0x5009 0x9
    goto @daycheck

    #org @mulA
    setvar 0x5009 0xA
    goto @daycheck

    #org @daycheck
    copybyte 0x202E59A 0x300553F
    copybyte 0x202E59C 0x3005540
    copyvar 0x500A 0x8002
    compare 0x8001 0x0
    if 0x1 goto @erro
    compare 0x8001 0x2
    if 0x1 goto @jan2
    compare 0x8001 0x3
    if 0x1 goto @feb2
    compare 0x8001 0x4
    if 0x1 goto @mar2
    compare 0x8001 0x5
    if 0x1 goto @apr2
    compare 0x8001 0x6
    if 0x1 goto @may2
    compare 0x8001 0x7
    if 0x1 goto @jun2
    compare 0x8001 0x8
    if 0x1 goto @jul2
    compare 0x8001 0x9
    if 0x1 goto @aug2
    compare 0x8001 0xA '10
    if 0x1 goto @stp2
    compare 0x8001 0xB '11
    if 0x1 goto @oct2
    compare 0x8001 0xC '12
    if 0x1 goto @nov2
    compare 0x8001 0xD
    if 0x4 goto @erro
    setvar 0x500B 0x16D 'one year, 365 days.
    Writebytetooffset 0x09 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0B 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x40 '5009x500B(year multiply by 365)
    Writebytetooffset 0x09 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0B 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3F
    Writebytetooffset 0x07 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x09 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3E
    Writebytetooffset 0x07 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0A 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3F
    goto @status

    #org @status
    compare 0x500D 0x0
    if 0x4 goto @nostatus
    compare 0x500D 0x64
    if 0x4 goto @setbasic
    compare 0x500D 0x1F4
    if 0x4 goto @setbrown
    compare 0x500D 0x3E8
    if 0x4 goto @setintermeidate
    compare 0x500D 0x1388
    if 0x4 goto @setsilver
    compare 0x500D 0x2710
    if 0x4 goto @setgold
    compare 0x500D 0xC350
    if 0x4 goto @setplatinum
    compare 0x500D 0xEA60
    if 0x4 goto @setmax
    goto @finalcheck

    #org @nostatus
    setvar 0x500C 0x2
    return

    #org @setbasic
    setvar 0x500C 0x6
    return

    #org @setbrown
    setvar 0x500C 0x14
    return

    #org @setintermeidate
    setvar 0x500C 0x50
    return

    #org @setsilver
    setvar 0x500C 0xFA '25,000 in intest if you have 500,000 per day :D
    return

    #org @setgold
    setvar 0x500C 0x320
    return

    #org @setplatinum
    setvar 0x500C 0x5DC
    return

    #org @setmax
    setvar 0x500D 0xEA60 'no need for intrest the acount is already at it's max.
    goto @wowmax

    #org @wowmax
    msgbox @ful 0x4
    closeonkeypress
    checkflag 0x60D
    if 0x1 goto @continue
    msgbox @egg 0x4
    closeonkeypress
    giveegg 0xAF 'togepi
    fanfare 0x13E 'Little cute music that plays when ever you get things.
    waitfanfare
    msgbox @give 0x4
    closeonkeypress
    setflag 0x60D
    goto @continue

    #org @finalcheck
    Writebytetooffset 0x07 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0C 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x40 '5007x500C amount of intest
    Writebytetooffset 0x0D 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x07 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3E '500D+5007 adds amount of intest gained to balance
    goto @continue

    #org @create
    showmoney 0x0 0x0 0x0
    msgbox @do 0x5
    compare 0x800D 0x1
    if 0x1 goto @yes
    compare 0x800D 0x0
    if 0x1 goto @no
    end

    #org @yes
    checkmoney 0x1388 0x0 'checks if player has 5000
    compare 0x800D 0x1
    if 0x4 goto @continue
    msgbox @notenough 0x4
    closeonkeypress
    hidemoney 0x0 0x0
    release
    end

    #org @no
    msgbox @sorry 0x4
    hidemoney 0x0 0x0
    closeonkeypress
    release
    end

    #org @continue
    paymoney 0x1388 0x0
    setflag 0x60C
    copybyte 0x202E598 0x300553C
    copyvar 0x5006 0x8000
    msgbox @thk 0x4
    closeonkeypress
    copybyte 0x202E59A 0x300553F
    copybyte 0x202E59C 0x3005540
    copyvar 0x5007 0x8002
    compare 0x8001 0x0
    if 0x1 goto @erro
    compare 0x8001 0x2
    if 0x1 goto @jan
    compare 0x8001 0x3
    if 0x1 goto @feb
    compare 0x8001 0x4
    if 0x1 goto @mar
    compare 0x8001 0x5
    if 0x1 goto @apr
    compare 0x8001 0x6
    if 0x1 goto @may
    compare 0x8001 0x7
    if 0x1 goto @jun
    compare 0x8001 0x8
    if 0x1 goto @jul
    compare 0x8001 0x9
    if 0x1 goto @aug
    compare 0x8001 0xA '10
    if 0x1 goto @stp
    compare 0x8001 0xB '11
    if 0x1 goto @oct
    compare 0x8001 0xC '12
    if 0x1 goto @nov
    compare 0x8001 0xD
    if 0x4 goto @erro
    release
    end

    #org @jan
    addvar 0x5007 0x1F
    return

    #org @feb
    addvar 0x5007 0x3B
    return

    #org @mar
    addvar 0x5007 0x5A
    return

    #org @apr
    addvar 0x5007 0x78
    return

    #org @may
    addvar 0x5007 0x97
    return

    #org @jun
    addvar 0x5007 0xB5
    return

    #org @jul
    addvar 0x5007 0xD4
    return

    #org @aug
    addvar 0x5007 0xF3
    return

    #org @stp
    addvar 0x5007 0x111
    return

    #org @oct
    addvar 0x5007 0x130
    return

    #org @nov
    addvar 0x5007 0x14E
    return

    #org @jan2
    addvar 0x500A 0x1F
    return

    #org @feb2
    addvar 0x500A 0x3B
    return

    #org @mar2
    addvar 0x500A 0x5A
    return

    #org @apr2
    addvar 0x500A 0x78
    return

    #org @may2
    addvar 0x500A 0x97
    return

    #org @jun2
    addvar 0x500A 0xB5
    return

    #org @jul2
    addvar 0x500A 0xD4
    return

    #org @aug2
    addvar 0x500A 0xF3
    return

    #org @stp2
    addvar 0x500A 0x111
    return

    #org @oct2
    addvar 0x500A 0x130
    return

    #org @nov2
    addvar 0x500A 0x14E
    return

    #org @erro
    msgbox @need 0x4
    hidemoney 0x0 0x0
    closeonkeypress
    release
    end

    #org @give
    = \v\h01 received a Togepi Egg!

    #org @egg
    = My manager said to give this to\nthe first person who ever maxes\lthere account out.\pCongratulations!\pPlease accept, this gift as a\ntoken of our appreciation.

    #org @ful
    = Wow, looks like you have reached\nthe maximum amount of money that\lone person can store.\pGiggle, you should take me out on\na date sometimes, since you have\lall that money.\pMy gosh, you have a total of\n6,000,000 Poké Dollars in the\lbank.\pThank you for Banking in\nMesotopia, we are grateful for\lyour transaction with us.

    #org @welboy
    = How may I help you Sir?

    #org @welgirl
    = How may I help you Ma'dam?

    #org @need
    = There is an ERROR.\pFor this script to run properly\nyou need Interdepth's Real Time\lClock, and Jpans FireRed Hack\lEngine Applied.\pPlease contact NarutoActor with\nany problems you have encountered\lwith this script.

    #org @thk
    = Thank you very much.\pYou now have an acount.\pFeel free to deposit money,\nwithdraw money, use our world wide\lATM's and most of all, have fun\lbanking with Mesotopia.

    #org @sorry
    = I am sorry you feel that way.\pIf you change your mind, do not\nhesitate to come back.

    #org @do
    = Welcome to Mesotopia Bank.\pI see you do not have an account\nhere with us.\pDo you want to open an account, it\nis only cost \hB75,000.\pOnce you open an account you can\nstart earning interest, it\lpractically pays for itself.\pSo, What do you say, can you agree\nto that?

    #org @greets
    = Hello, and Welcome back to\nMesotopia Grand Bank.

    #org @notenough
    = I am sorry, but you do not have\nenough money to start an account.\pPlease, come again.


    And if you want a script with an explanation here but it's quite unorganized and has grammar mistakes.
    Spoiler:
    #dynamic 0x750000
    #org @bank
    lock
    checkflag 0x60C 0x1 'if account has been made.
    if 0x0 goto @create 'to creat an account.
    msgbox @greets MSG_KEEPOPEN
    closeonkeypress
    checkgender
    compare 0x800D 0x0
    if 0x1 goto @boy
    compare 0x800D 0x1
    if 0x1 goto @girl
    end


    #org @boy
    msgbox @welboy MSG_KEEPOPEN
    closeonkeypress
    goto @update

    #org @girl
    msgbox @welgirl MSG_KEEPOPEN
    closeonkeypress
    goto @update

    #org @update
    copybyte 0x202E598 0x300553C 'Year DA=10 Also Stores the Year in a temperary Var (0x8000)
    copyvar 0x5008 0x8000 ' Copys the temperary var and stores it in a normal var Using this var as current year and comparing it to last updated year(5006)
    Writebytetooffset 0x08 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x06 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3F 'Subtracts vars Ex 5008=20(2020)-5006(2010)=10 5008=10
    copyvar 0x5006 0x5008 'This makes the current year the last updated year
    compare 0x5008 0x0
    if true goto @mul1 'gose to comparing seting var 0x5009 so the day var can be multipyed by one(witch will keep the day the same because 2010-2010=0 so we will not be adding more days since the year has been the same since last checked
    compare 0x5008 0x1
    if true goto @mul2
    compare 0x5008 0x2
    if true goto @mul3
    compare 0x5008 0x3
    if true goto @mul4
    compare 0x5008 0x4
    if true goto @mul5
    compare 0x5008 0x5
    if true goto @mul6
    compare 0x5008 0x6
    if true goto @mul7
    compare 0x5008 0x7
    if true goto @mul8
    compare 0x5008 0x8
    if true goto @mul9
    compare 0x5008 0x9
    if true goto @mulA
    goto @erro ' the erro can be trigered if the player last updated 10 or more years ago, but seriously would that ever happend.

    #org @mul1
    setvar 0x5009 0x1
    goto @daycheck

    #org @mul2
    setvar 0x5009 0x2 'Later we will take this var and multiply it by the subtracted day var
    goto @daycheck

    #org @mul3
    setvar 0x5009 0x3
    goto @daycheck

    #org @mul4
    setvar 0x5009 0x4
    goto @daycheck

    #org @mul5
    setvar 0x5009 0x5
    goto @daycheck

    #org @mul6
    setvar 0x5009 0x6
    goto @daycheck

    #org @mul7
    setvar 0x5009 0x7
    goto @daycheck

    #org @mul8
    setvar 0x5009 0x8
    goto @daycheck

    #org @mul9
    setvar 0x5009 0x9
    goto @daycheck

    #org @mulA 'you can go up to mulB3 which is means the last update was made 179 years ago. 179x365=65,335 in hex 0xFF37 for space purposes I am stoping at 10 years since last update. Come on really who would play a hack go to the bank stop playing put it on again 11 years lator and start playing.
    setvar 0x5009 0xA
    goto @daycheck

    #org @daycheck
    copybyte 0x202E59A 0x300553F 'copys the month and stores it in a temperary var (0x8001)
    copybyte 0x202E59C 0x3005540 'copys the day and stores it in a tempary var (0x8002)
    copyvar 0x500A 0x8002
    compare 0x8001 0x0
    if 0x1 goto @erro
    compare 0x8001 0x2
    if 0x1 goto @jan2
    compare 0x8001 0x3
    if 0x1 goto @feb2
    compare 0x8001 0x4
    if 0x1 goto @mar2
    compare 0x8001 0x5
    if 0x1 goto @apr2
    compare 0x8001 0x6
    if 0x1 goto @may2
    compare 0x8001 0x7
    if 0x1 goto @jun2
    compare 0x8001 0x8
    if 0x1 goto @jul2
    compare 0x8001 0x9
    if 0x1 goto @aug2
    compare 0x8001 0xA '10
    if 0x1 goto @stp2
    compare 0x8001 0xB '11
    if 0x1 goto @oct2
    compare 0x8001 0xC '12
    if 0x1 goto @nov2
    compare 0x8001 0xD
    if 0x4 goto @erro
    setvar 0x500B 0x16D 'one year, 365 days.
    Writebytetooffset 0x09 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0B 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x40 '5009x500B(year multiply by 365)
    Writebytetooffset 0x09 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0B 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3F '5009-500B amount of days minous 365( so if there is one year 1x365=365 365-360=0 this may seem dumb but this is to prevent multiplying by 0
    Writebytetooffset 0x07 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x09 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3E '5007+5009 last record day pluse amount of days since year
    Writebytetooffset 0x07 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0A 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3F '5007-500A last record day minus just recored
    goto @status

    #org @status
    compare 0x500D 0x0
    if 0x4 goto @nostatus
    compare 0x500D 0x64
    if 0x4 goto @setbasic
    compare 0x500D 0x1F4
    if 0x4 goto @setbrown
    compare 0x500D 0x3E8
    if 0x4 goto @setintermeidate
    compare 0x500D 0x1388
    if 0x4 goto @setsilver
    compare 0x500D 0x2710
    if 0x4 goto @setgold
    compare 0x500D 0xC350
    if 0x4 goto @setplatinum
    compare 0x500D 0xEA60
    if 0x4 goto @max
    goto @finalcheck

    #org @nostatus
    setvar 0x500C 0x2
    return

    #org @setbasic
    setvar 0x500C 0x6
    return

    #org @setbrown
    setvar 0x500C 0x14
    return

    #org @setintermeidate
    setvar 0x500C 0x50
    return

    #org @setsilver
    setvar 0x500C 0xFA '25,000 in intest if you have 500,000 per day :D
    return

    #org @setgold
    setvar 0x500C 0x320
    return

    #org @setplatinum
    setvar 0x500C 0x5DC
    return

    #org @setmax
    setvar 0x500D 0xEA60 'no need for intrest the acount is already at it's max.
    goto @wowmax

    #org @wowmax
    msgbox @ful MSG_KEEPOPEN
    closeonkeypress
    checkflag 0x60D
    if true goto @howmayhelp
    msgbox @egg MSG_KEEPOPEN
    closeonkeypress
    giveegg 0xAF 'togepi
    fanfare 0x13E 'Little cute music that plays when ever you get things.
    waitfanfare
    msgbox @give MSG_KEEPOPEN
    closeonkeypress
    setflag 0x60D
    goto @howmayhelp


    goto @finalcheck
    Writebytetooffset 0x07 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x0C 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x40 '5007x500C amount of intest
    Writebytetooffset 0x0D 0x0203f4d8
    Writebytetooffset 0x50 0x0203f4d9
    Writebytetooffset 0x07 0x0203f4da
    Writebytetooffset 0x50 0x0203f4db
    special 0x3E '500D+5007 adds amount of intest gained to balance
    goto @howmayhelp



    #org @creat
    showmoney 0x0 0x0 0x0
    msgbox @do 0x5
    compare LASTRESULT 0x1
    if 0x1 goto @yes
    compare LASTRESULT 0x0
    if 0x1 goto @no
    end

    #org @yes
    checkmoney 0x1388 0x0 'checks if player has 5000
    compare LASTRESULT 0x1
    if 0x4 goto @continue
    msgbox @notenough MSG_KEEPOPEN
    closeonkeypress
    release
    end

    #org @no
    msgbox @sorry MSG_KEEPOPEN
    closeonkeypress
    release
    end

    #org @continue
    paymoney 0x1388 0x0
    setflag 0x60C 'Acount is now opened
    copybyte 0x202E598 0x300553C 'Year DA=10 Also Stores the Year in a temperary Var (0x8000)
    copyvar 0x5006 0x8000 ' Copys the temperary var and stores it in a normal var
    msgbox @thk MSG_KEEPOPEN
    closeonkeypress
    copybyte 0x202E59A 0x300553F 'copys the month and stores it in a temperary var (0x8001)
    copybyte 0x202E59C 0x3005540 'copys the day and stores it in a tempary var (0x8002)
    copyvar 0x5007 0x8002
    compare 0x8001 0x0
    if 0x1 goto @erro
    compare 0x8001 0x2
    if 0x1 goto @jan
    compare 0x8001 0x3
    if 0x1 goto @feb
    compare 0x8001 0x4
    if 0x1 goto @mar
    compare 0x8001 0x5
    if 0x1 goto @apr
    compare 0x8001 0x6
    if 0x1 goto @may
    compare 0x8001 0x7
    if 0x1 goto @jun
    compare 0x8001 0x8
    if 0x1 goto @jul
    compare 0x8001 0x9
    if 0x1 goto @aug
    compare 0x8001 0xA '10
    if 0x1 goto @stp
    compare 0x8001 0xB '11
    if 0x1 goto @oct
    compare 0x8001 0xC '12
    if 0x1 goto @nov
    compare 0x8001 0xD
    if 0x4 goto @erro
    release
    end

    #org @jan
    addvar 0x5007 0x1F 'adds all days in january to the day var. Giving us the amount of days in the year. Instead of month.
    return

    #org @feb
    addvar 0x5007 0x3B 'adds all of Jan + Feb togehter and adds that to the day var.
    return

    #org @mar
    addvar 0x5007 0x5A
    return

    #org @apr
    addvar 0x5007 0x78
    return

    #org @may
    addvar 0x5007 0x97
    return

    #org @jun
    addvar 0x5007 0xB5
    return

    #org @jul
    addvar 0x5007 0xD4
    return

    #org @aug
    addvar 0x5007 0xF3
    return

    #org @stp
    addvar 0x5007 0x111
    return

    #org @oct
    addvar 0x5007 0x130
    return

    #org @nov
    addvar 0x5007 0x14E
    return

    #org @jan2
    addvar 0x500A 0x1F
    return

    #org @feb2
    addvar 0x500A 0x3B
    return

    #org @mar2
    addvar 0x500A 0x5A
    return

    #org @apr2
    addvar 0x500A 0x78
    return

    #org @may2
    addvar 0x500A 0x97
    return

    #org @jun2
    addvar 0x500A 0xB5
    return

    #org @jul2
    addvar 0x500A 0xD4
    return

    #org @aug2
    addvar 0x500A 0xF3
    return

    #org @stp2
    addvar 0x500A 0x111
    return

    #org @oct2
    addvar 0x500A 0x130
    return

    #org @nov2
    addvar 0x500A 0x14E
    return

    #org @erro
    msgbox @need MSG_KEEPOPEN
    release
    end

    #org @give
    = [PLAYER] Recevied a togipe egg!

    #org @egg
    = My maniger said to give this to\nthe first person who ever maxes\lout there account.\pAnd Congradulations you have one.\pPlease exsept this gift as a token\nof our apreaseation.

    #org @ful
    = Wow, Looks like you have reached\nthe maximum amount of money that\lone person can store.\pHaha, you should take me out on a\ndate sometime, since you have all\lthat money.\pMy gosh you have a total of\n6,000,000 Dollors in the bank.\pThank you for Baning with\nMestopia, we are greatfull for\lyour bissniss.

    #org @welboy
    = How may I help you sir?

    #org @welgirl
    = How may I help you madam?

    #org @need
    = There is an erro.\pFor this script to run properly\nyou need Interdeoth's Real Time\lclock, and Jpans FireRed Hack\lInstaled.\pPlease contact NarutoActor with\nany problems you have receved with\lthis script.

    #org @thk
    = Thank you very much.\pYou now have an acount.\pFeel free to deposite money,\nwithdraw money, use our world wide\lATM's and most of all, have fun\lbanking with Mestopia.

    #org @sorry
    = I am sorry you feel that way.\pIf you change your mind, do not\nhesitate to come back.

    #org @do
    = Welcome to Mestopia Bank.\pI see you do not have an acount\nhere with us.\pDo you want to open an acount, it\nis only cost $5,000.\pOnce you open an acount you can\nstart erning interset, it\lpractialy pays for it's self.\pSo, What do you say, can you agree\nto that?

    #org @greets
    = Hello, and Welcome back to\nMestopia Grand Bank.

    #org @notenough
    = I am sorry, but you do not have\nenough money to start an acount.\pPlease come again.


    Sorry if you can't understand me lol. xD
  2. tajaros
    December 3rd, 2012 2:49 AM
    tajaros
    I'll explain more of what kind of script it really is after I finish doing my school project... :3
  3. redriders180
    December 2nd, 2012 2:44 PM
    redriders180
    Two problems with your theory...the first is that the scripts execute fine for me with those variables. The second is that variable 5000 DOES have a value of 1, since a level script sets it to that value.
  4. tajaros
    December 2nd, 2012 2:02 PM
    tajaros
    I decided I'll use VBASDLH since most people use it.

    Anyways about money that can store money make interest and give your money back... :3
  5. redriders180
    December 2nd, 2012 8:10 AM
    redriders180
    The problem everyone keeps having is that whatever emulator they use is completely ignoring the expanded scripts. I don't know why this is, though...I know for a fact NO$GBA can't handle the expanded file, but some people use VBA and still have the problem.
  6. tajaros
    December 1st, 2012 7:58 PM
    tajaros
    Ok, I'll take NO$GBA Debugger...

    Then let's get you back to Rom Hacking...

    Let's make it a little easy how about a banking script? huh? should be easy enough...
  7. tajaros
    November 30th, 2012 1:41 PM
    tajaros
    Thanks!

    Dude please can you tutor me to ASM? I've read many tutorials and quite know how every command works but don't really know when to use them in making my own routines... :/
  8. tajaros
    November 29th, 2012 2:58 PM
    tajaros
    Hello there it seems your pretty good with ASM but first what flags are safe to use in FireRed?
  9. redriders180
    November 19th, 2012 5:25 PM
    redriders180
    No problem good luck on your exams
  10. redriders180
    November 12th, 2012 8:22 AM
    redriders180
    I just woke up, so I'll be on from now until the end of the day, in about seven hours. It says you're idle, so I hope I didn't miss you :<
  11. redriders180
    November 10th, 2012 4:51 PM
    redriders180
    Hiya! I just wanted to tell you that I'm not dead or anything (: But if you could come on MSN sometime, I was hoping I could get some information on some stuff from Emerald...i.e. Information on the tag battle, and perhaps some other little things.

    Thanks~
  12. Agastya
    October 15th, 2012 4:53 PM
    Agastya
    Thank you. It's best to share information, I think.
    As long as somebody has use for it and it's out there, then that's good.
  13. Spherical Ice
    October 10th, 2012 11:33 AM
    Spherical Ice
    hey, i was wondering if you ever found out how to work out how to get those animations to display? im thinking of posting a thread in r&d, but i wouldnt want to do so if you already knew :D
  14. thanethane98
    August 25th, 2012 6:30 AM
    thanethane98
    Thanks for getting the offsets needed for changing music in battles for Emerald. I really needed them.
  15. redriders180
    August 14th, 2012 12:27 PM
    redriders180
    D: I can't wait!

About Me

  • About sonic1
    Biography
    Hi everyone!! I'm Miguel, an Adoloescent Portuguese boy. I'm a Pokemon big fan, specially in the games part (not that i dont like the anime, that rocks indeed!!xD ). I like to play pokemon a lot (i play since 5 years old :D ), and i'm learning Japonese because of it. I like to hack and make pokemon games (i'm quite experienced in this part), as i do it almost everyday i come to my computer :D
    Interests
    Rom hacking,Game creating,web page designing
    Location
    Portugal
    Gender
    Male ♂
    Occupation
    Pokemon Trainer
    Nature
    Timid
    Favorite Pokémon
    Shaymin-S
    Dragonite
    Rayquaza
  • Signature
    This signature has been disabled.
    over 350px high
    Please review and fix the issues by reading the signature rules.

    You must edit it to meet the limits set by the rules before you may remove the [sig-reason] code from your signature. Removing this tag will re-enable it.

    Do not remove the tag until you fix the issues in your signature. You may be infracted for removing this tag if you do not fix the specified issues. Do not use this tag for decoration purposes.

Statistics

Total Posts
Activity by Forum
Visitor Messages
Blog
General Information
  • Last Activity: January 9th, 2016 10:59 AM
  • Join Date: May 29th, 2008
  • Referrals: 0

Friends

Showing Friends 1 to 12 of 12

Emblems

Emblem Showcase - 1 Total
  Emblem
PC Veteran
These old folks have been around for far too long but we love them anyway.
Awarded: June 15th, 2011 7:34 AM

All times are GMT -8. The time now is 7:14 AM.


Style by Nymphadora, artwork by Sa-Dui.
Like our Facebook Page Follow us on Twitter © 2002 - 2016 The PokéCommunity™, pokecommunity.com.
Pokémon characters and images belong to The Pokémon Company International and Nintendo. This website is in no way affiliated with or endorsed by Nintendo, Creatures, GAMEFREAK, The Pokémon Company or The Pokémon Company International. We just love Pokémon.
All forum styles, their images (unless noted otherwise) and site designs are © 2002 - 2016 The PokéCommunity / PokéCommunity.com.
PokéCommunity™ is a trademark of The PokéCommunity. All rights reserved. Sponsor advertisements do not imply our endorsement of that product or service. User generated content remains the property of its creator.

Acknowledgements
Use of PokéCommunity Assets
vB Optimise by DragonByte Technologies Ltd © 2016.