It's great to meet you too:) I don't have any previous ones, but I can send you an example of an advanced script I've written..
Sorry It's all I got so far.
Script
#org $script
jingle
message $hey
$hey 1 = \c\h01\h06???: Hey!
boxset 6
applymovement 0xFF $look
$look 1 ; #binary 0x62 0x03 0xFE
pausemove 0
showsprite 5
applymovement 5 $ashwalk
$ashwalk 1 ; #binary 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x03 0xFE
pausemove 0
applymovement 0xFF $down1
$down1 1 ; #binary 0x04 0xFE
pausemove 0
message $come
$come 1 = \c\h01\h06ASH: Come here PIKACHU!
boxset 6
showsprite 6
applymovement 6 $pikawalk
$pikawalk 1 ; #binary 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0xFE
pausemove 0
cry 0xA1 25
nop
nop
message $pikachutalk
$pikachutalk 1 = \c\h01\h04PIKACHU: Pika!
boxset 6
applymovement 5 $up
$up 1 ; #binary 0x01 0xFE
pausemove 0
applymovement 0xFF $down
$down 1 ; #binary 0x04 0xFE
pausemove 0
message $talk
$talk 1 = \c\h01\h06ASH: This is my house.\nWhat are you doing here?
boxset 6
message $speak
$speak 1 = \c\h01\h08???: Maybe I can explain.
boxset 6
applymovement 0xFF $!
$! 1 ; #binary 0x62 0x03 0xFE
pausemove 0
applymovement 5 $!
pausemove 0
applymovement 6 $!
pausemove 0
pause 0x30
showsprite 7
playsound 0x12E
nop
applymovement 7 $oakwalk
$oakwalk 1 ; #binary 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0xFE
pausemove 0
message $oak
$oak 1 = \c\h01\h08OAK: ASH this is \v\h01.\nToday is the day he starts his\pvery own POKeMON journey!\nI've been looking for you\peverywhere \v\h01!
boxset 6
applymovement 5 $up
pausemove 0
applymovement 6 $up
pausemove 0
applymovement 0xFF $down
pausemove 0
message $ash
$ash 1 = \c\h01\h06ASH: Oh, now I understand.
boxset 6
applymovement 0xFF $right
$right 1 ; #binary 0x03 0xFE
pausemove 0
applymovement 5 $right
pausemove 0
message $oak1
$oak1 1 = \c\h01\h08OAK: \v\h01, I would like to\npresent you with a POKeMON!
boxset 6
fanfare 0x13D
givepokemon 25 5 0x8B
message $receivepikachu
$receivepikachu 1 = \v\h01 received a Pikachu!
boxset 4
waitfanfare
setflag 0x828
applymovement 5 $up
pausemove 0
applymovement 0xFF $down
pausemove 0
message $ash1
$ash1 1 = \c\h01\h06ASH: PIKACHU was my first POKeMON\ntoo!
boxset 6
applymovement 0xFF $right
pausemove 0
applymovement 5 $right
pausemove 0
message $oak2
$oak2 1 = \c\h01\h08OAK: PIKACHU is a very dependable\nstarter POKeMON.\pWith this PIKACHU \v\h01, I think\nyou will go far.\pI have only one additional request.\n\v\h01, I want you to take this\pPOKeDEX, and collect data on all\nthe POKeMON in KANTO!
boxset 6
fanfare 0x13E
message $receivepokedex
$receivepokedex 1 = \v\h01 received the POKeDEX!
boxset 4
waitfanfare
setflag 0x829
message $oak3
$oak3 1 = \c\h01\h08OAK: Now, I must be going.\n\v\h01, I wish you luck on your\pjourney.\nASH, I hope to see you again soon.
boxset 6
applymovement 7 $oakleave
$oakleave 1 ; #binary 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0xFE
pausemove 0
removesprite 7
fadesound 0x12C
nop
applymovement 5 $up
pausemove 0
applymovement 6 $up
pausemove 0
applymovement 0xFF $down
pausemove 0
message $ash2
$ash2 1 = \c\h01\h06ASH: I should be going too, but I\nthink you should take the LEAGUE\lchallenge.\pTravel through KANTO and collect\nGYM BADGES from the GYM LEADERS in\peach town.\pOnce you've collected all eight, you\ncan take the LEAGUE challenge.\pI hope we cross paths again.
boxset 6
applymovement 5 $ashleave
$ashleave 1 ; #binary 0x10 0x13 0x13 0x13 0x13 0x02 0xFE
pausemove 0
message $ash3
$ash3 1 = \c\h01\h06ASH: Come on PIKACHU!
boxset 6
applymovement 6 $pika!
$pika! 1 ; #binary 0x62 0x03 0xFE
pausemove 0
cry 0xA1 25
nop
nop
message $cry
$cry 1 = \c\h01\h04Pika pi!
boxset 6
applymovement 5 $ashleave1
$ashleave1 1 ; #binary 0x13 0x13 0x13 0x13 0xFE
pausemove 0
removesprite 5
applymovement 6 $pikaleave
$pikaleave 1 ; #binary 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0xFE
pausemove 0
removesprite 6
setflag 0x1200
setvar 0x6000 0x0001
release
end