clover berry scripts

#dynamic 0x800000

#org @start
lock
msgbox @none_text 0x6
release
end

#org @none_text
= There aren't any berries\nhere right now.

#org @check
callasm 0x(offset of ASM)
compare 0x800D 0x1
if 0x0 goto @start
return

#org @give_cheri
giveitem 0x85 0x1 0x6
release
end

#org @give_chesto
giveitem 0x86 0x1 0x6
release
end

#org @give_pecha
giveitem 0x87 0x1 0x6
release
end

#org @give_rawst
giveitem 0x88 0x1 0x6
release
end

#org @give_aspear
giveitem 0x89 0x1 0x6
release
end

#org @give_leppa
giveitem 0x8A 0x1 0x6
release
end

#org @give_oran
giveitem 0x8B 0x1 0x6
release
end

#org @give_persim
giveitem 0x8C 0x1 0x6
release
end

#org @give_lum
giveitem 0x8D 0x1 0x6
release
end

#org @give_sitrus
giveitem 0x8E 0x1 0x6
release
end

#org @give_figy
giveitem 0x8F 0x1 0x6
release
end

#org @give_wiki
giveitem 0x90 0x1 0x6
release
end

#org @give_mago
giveitem 0x91 0x1 0x6
release
end

#org @give_aguav
giveitem 0x92 0x1 0x6
release
end

#org @give_iapapa
giveitem 0x93 0x1 0x6
release
end

#org @give_ganlon
giveitem 0xA9 0x1 0x6
release
end

#org @give_salac
giveitem 0xAA 0x1 0x6
release
end

#org @give_petaya
giveitem 0xAB 0x1 0x6
release
end

#org @give_nomel
giveitem 0xA2 0x1 0x6
release
end

#org @give_liechi
giveitem 0xA8 0x1 0x6
release
end

#org @give_apicot
giveitem 0xAC 0x1 0x6
release
end

#org @give_lansat
giveitem 0xAD 0x1 0x6
release
end

#org @give_starf
giveitem 0xAE 0x1 0x6
release
end

#org @give_weed
giveitem 0xB0 0x1 0x6
release
end

#org @route_1
lock
setvar 0x800D 0x4500
call @check
goto @give_cheri

#org @route_2
lock
setvar 0x800D 0x4502
call @check
goto @give_pecha

#org @route_3a
lock
setvar 0x800D 0x4504
call @check
goto @give_cheri

#org @route_3b
lock
setvar 0x800D 0x4506
call @check
goto @give_oran

#org @route_4a
lock
setvar 0x800D 0x4508
call @check
goto @give_oran

#org @route_4b
lock
setvar 0x800D 0x450A
call @check
goto @give_rawst

#org @route_27
lock
setvar 0x800D 0x450C
call @check
goto @give_aspear

#org @route_28
lock
setvar 0x800D 0x450E
call @check
goto @give_aspear

#org @route_5a
lock
setvar 0x800D 0x4510
call @check
goto @give_pecha

#org @route_5b
lock
setvar 0x800D 0x4512
call @check
goto @give_chesto

#org @route_6a
lock
setvar 0x800D 0x4514
call @check
goto @give_leppa

#org @route_6b
lock
setvar 0x800D 0x4516
call @check
goto @give_persim

#org @route_7
lock
setvar 0x800D 0x4518
call @check
goto @give_iapapa

#org @marina_traila
lock
setvar 0x800D 0x451A
call @check
goto @give_leppa

#org @marina_trailb
lock
setvar 0x800D 0x451C
call @check
goto @give_leppa

#org @route_9
lock
setvar 0x800D 0x451E
call @check
goto @give_leppa

#org @route_17a
lock
setvar 0x800D 0x4520
call @check
goto @give_sitrus

#org @route_17b
lock
setvar 0x800D 0x4522
call @check
goto @give_sitrus

#org @route_10a
lock
setvar 0x800D 0x4524
call @check
goto @give_persim

#org @route_10b
lock
setvar 0x800D 0x4526
call @check
goto @give_persim

#org @route_12
lock
setvar 0x800D 0x4528
call @check
goto @give_wiki

#org @route_13
lock
setvar 0x800D 0x452A
call @check
goto @give_mago

#org @route_15
lock
setvar 0x800D 0x452C
call @check
goto @give_aguav

#org @route_29
lock
setvar 0x800D 0x452E
call @check
goto @give_lum

#org @border_hopa
lock
setvar 0x800D 0x4530
call @check
goto @give_weed

#org @border_hopb
lock
setvar 0x800D 0x4532
call @check
goto @give_weed

#org @border_hopc
lock
setvar 0x800D 0x4534
call @check
goto @give_weed

#org @route_31a
lock
setvar 0x800D 0x4536
call @check
goto @give_aspear

#org @route_31b
lock
setvar 0x800D 0x4538
call @check
goto @give_rawst

#org @gardena
lock
setvar 0x800D 0x453A
call @check
goto @give_nomel

#org @gardenb
lock
setvar 0x800D 0x453C
call @check
goto @give_nomel

#org @gardenc
lock
setvar 0x800D 0x453E
call @check
goto @give_nomel

#org @gardend
lock
setvar 0x800D 0x4540
call @check
goto @give_nomel

#org @admin_woods
lock
setvar 0x800D 0x4542
call @check
goto @give_starf

#org @arch_point
lock
setvar 0x800D 0x4544
call @check
goto @give_liechi

#org @preserve
lock
setvar 0x800D 0x4546
call @check
goto @give_apicot

#org @beach
lock
setvar 0x800D 0x4548
call @check
goto @give_salac

#org @silver_point
lock
setvar 0x800D 0x454A
call @check
goto @give_ganlon

#org @catalina_range
lock
setvar 0x800D 0x454C
call @check
goto @give_petaya

#org @clemente_range
lock
setvar 0x800D 0x454E
call @check
goto @give_lansat

#org @kusha
lock
setvar 0x800D 0x4550
call @check
goto @give_weed

#org @kushb
lock
setvar 0x800D 0x4552
call @check
goto @give_weed

#org @kushc
lock
setvar 0x800D 0x4554
call @check
goto @give_weed