View discussion [34 posts] | View script | License |
Download script | History | Other scripts by: hallyhaa |
7-Sep 23:55 UTC
[0.049] 11.669k
[0.049] 11.669k
Archive version of: kasper.r ... version: 3 ... hallyhaa 25-Sep-2004REBOL [ Title: "The Kasper Program" File: %kasper.r Date: 21-May-2001 Version: 1.0 Purpose: "Please Ingri (my sister, the dog owner)" Library: [ level: 'beginner plugin: [size: 280x273] domain: [gui] license: none Platform: [all plugin] Tested-under: none Type: [demo] Support: none ] ] emails: [ {Ingri, Hey, this Kasper dog of yours really IS wonderful, isn't he!!} {Ingri, Hey, that dog is so cool! You're a lucky dog owner, that's for sure!} "Ingri, I love your dog!" {Kasper --- What a wonderful name for a dog!} {Your dog is so cool. Been lookin' all over the web for his fan club, but I couldn't find it. Pity.} {Kasper Is your name Kasper? Why isn't it Caspar? (Just wondering).} "Kasper is cool. Is he an ACD, by any chance?" {Honourable dog owner, I'm thinking of starting a Kasper Fan Club. Cool, eh?} {I have a dog too, but his name isn't Kasper. Thought maybe you'd like to know.} {Hello, I saw Kasper on http://www.oops-as.no/royg/kasper.jpg, and I must say, he really is a beautiful dog.} "Kasper is a nice dog. Nice dog. Bet he's a blue healer!" ] dialog: layout [ backdrop effect [gradient 1x1 0.0.0 0.0.180] h2 "Attention:" red text yellow bold 250x60 { Kasper is probably the most wonderful dog in the world. If you disagree, stop using this program. } button "OK" [hide-popup] ] view layout [ size 280x273 backtile http://www.oops-as.no/royg/kasper.jpg at 5x0 title red "The Kasper Program" at 150x50 text black bold "This dog is probably the most wonderful dog in the world" across at 5x240 button 195 "Please tell the owner you agree" [ ;random/seed now ;send/header ingris@email.here pick emails random (length? emails) make object! [X-kasper: "Kasper" from: to: date: none] emailer/to/subject ingris@email.here "Kasper" ] button 70 "Disagree" [inform dialog] ] quit Notes
|